VisualBasic gün tutarak programı kapatma yardım lütfen

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Onaylı Üye
Katılım
3 Tem 2016
Mesajlar
81
Tepki puanı
2
Ödüller
6
9 HİZMET YILI
Arkadaşlar tam olarak anlattığım şey şu mesela birşey satarsınız 10 günlük bir program satıcam 10 gün sonra kapatıcam nasıl kapatabilirim lütfen yardım edin sizi seviyorm mh ailesi <3
 
1881 ⁓ 193∞
Seçkin Üye
Katılım
21 Eki 2018
Mesajlar
565
Çözümler
3
Tepki puanı
181
Ödüller
8
7 HİZMET YILI
İlk Olarak My Project > Settings > Name (kalan) > Value (5) yapıyorsun. Daha sonr aşağıdaki örnek kodu kopyalayıp kullanıyorsun.

Visual Basic:
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim hbs As String = My.Settings.kalan

        My.Settings.kalan = hbs - 1

        If hbs = 0 Or 0 > hbs Then

            MsgBox("Deneme sürümünüz bitti, lütfen tam sürüme geçiniz.")

            End

        Else

            MsgBox(hbs & " Giriş hakkınız kaldı!")

            My.Settings.Save()

        End If

    End Sub

End Class

Not: Yanlış anlamadıysam böyle bir kod lazım sana kodu anlamadıysan veya özet istersen söylemen yeterli.
 
⚡Süper Güçlerim Var⚡
Süper Üye
Katılım
8 Eki 2018
Mesajlar
888
Çözümler
4
Tepki puanı
366
Ödüller
5
7 HİZMET YILI
vb yi biraz unuttum ama sana pseudo kod olarak anlatim bu arada pseudo kod a sözel kod diyebiliriz.
En basit şuan aklıma bu geldi.
Bİ label a tarihi koy, sonra bir timer oluştur sonra
if label1.text = 28.08.2019 dersin olur biter ama ortalıkda bir sürü kraker var ( bkz: @Rexy ) ne kadar güvenli olur bilemem :)
Azsonra kod olarak paylaşırım suan biraz işim var. İyi Forumlar !
 
Onaylı Üye
Katılım
3 Tem 2016
Mesajlar
81
Tepki puanı
2
Ödüller
6
9 HİZMET YILI
İlk Olarak My Project > Settings > Name (kalan) > Value (5) yapıyorsun. Daha sonr aşağıdaki örnek kodu kopyalayıp kullanıyorsun.

Visual Basic:
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim hbs As String = My.Settings.kalan

        My.Settings.kalan = hbs - 1

        If hbs = 0 Or 0 > hbs Then

            MsgBox("Deneme sürümünüz bitti, lütfen tam sürüme geçiniz.")

            End

        Else

            MsgBox(hbs & " Giriş hakkınız kaldı!")

            My.Settings.Save()

        End If

    End Sub

End Class

Not: Yanlış anlamadıysam böyle bir kod lazım sana kodu anlamadıysan veya özet istersen söylemen yeterli.
evet reis böyle ama bunu nereye yazıcaz
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst