Trial Program

Buat 1 Form , Dengan 2 Label
Lalu View Code Pada Form , Masukan Code Berikut

Quote:Private Sub Form_Load()

Dim T
Dim M
Dim Jumlah
Dim Sisa
MsgBox "Program Hanya Dapat dipakai 10 Kali"
M = GetSetting("T", "T", "T")
Jumlah = Val(M) + 1
SaveSetting "T", "T", "T", Jumlah
Label1.Caption = "Program Telah Dipakai : " & Jumlah & " Kali"
Sisa = 10 - Jumlah
Label2.Caption = "Sisa Pakai : " & Sisa & " Kali"
If Jumlah > 10 Then
MsgBox "Trial Habis.... !!!" + vbCrLf + "Program Ditutup"
Unload Me
End If
End Sub

Silahkan di Test ....
Sisa = 10 - Jumlah
If Jumlah > 10 Then
Angka 10 Bisa diubah sesuka mu ....

Tweet