contoh Program trial

Dan yg kedua membuat Program VB trial Version
Program trial version biasanya di buat sengaja oleh Programernya
dengan batas waktu sesuai dengan keinginan software makernya
dan apa bila batas waktu yg sudah ditentukan Habis maka programnya tidak dapat di gunakan lagi

Nah pada postingan kali ini saya coba membahas tentang pembuatan program tersebut,dan berikut langkah – langkah:

* Buat Project Baru (Standart Exe)
* Dan Tambahkan dua buah Label pada Form

Ketikan code berikut pada Form


Option Explicit

Dim x
Dim y
Dim jumlah
Dim sisa

Private Sub Form_Load()
MsgBox "Program ini hanya dapat di gunakan 5 kali", 48, "Info"
x = GetSetting("y", "y", "y")
jumlah = Val(x) + 1
SaveSetting "Y", "Y", "Y", jumlah
Label1.Caption = "Program sudah dijalankan " & jumlah & " Kali"
sisa = 5 - jumlah
Label2.Caption = "Sisa pemakaian " & sisa & " Kali"

If jumlah > 5 Then
MsgBox "Batas waktu pemakaian sudah habis" + vbCrLf + _
"untuk menggunakan program ini lagi" + vbCrLf + _
"Anda harus menghubungi saya ....", 4, "Info"
Unload Me
End If

End Sub


Selamat Mencoba .....!!!!