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
İ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.
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 !
İ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.