membuat aplikasi trial pada vb 6

program trial biasanya di gunakan untuk mempromosikan suatu aplikasi atau software dengan tujuan agar calon pembeli bisa mencoba atau mencicipi aplikasi tersebut sebelum dibeli. setau saya jenis program trial itu ada 2, yaitu pembatasan penggunaan program dengan jumlah hari dan pembatasan dengan berapa kali program di pakai atau di gunakan. naah..disini saya mencoba program trial dengan pembatasan berapa kali program di jalankan. dalam contoh ini saya membatasi pemakaian hanya bisa 30 kali, anda bisa mengubahnya sesuai keinginan anda. berikut adalah kodingnya, tulis di jendela kode pada vb 6 tentunya .hhihi

Private Sub Form_Load()
Dim x
Dim y
Dim jumlah
Dim sisa

MsgBox “Program ini hanya dapat dipakai 30 kali"
x = GetSetting(“Y”, “Y”, “Y”)jumlah = Val(x) + 1
SaveSetting “Y”, "Y”, “Y”, jumlah
Me.Label1.Caption = “Program ini sudah di gunakan sebanyak " _
& jumlah & ” kali “
sisa = 30 – jumlah
Me.Label2.Caption = “Sisa pemakaian : ” & sisa & " kali “
If jumlah > 30 Then
    MsgBox “Batas Pemakaian Sudah habis ” + vbCrLf + "Untuk dapat memakai program ini lagi,” + vbCrLf + _
“ Anda harus mendaftar!!!”
Unload Me
End If
End Sub

sedikit penjelasan tentang koding di atas:

MsgBox “Program ini hanya dapat dipakai 30 kali”

saat pertama kali aplikasi dijalankan akan menampilakan pesan "Program ini hanya dapat dipakai 30 kali".

x = GetSetting(“Y”, “Y”, “Y”)jumlah = Val(x) + 1
SaveSetting “Y”, “Y”, “Y”, jumlah

artinya menyimpan dan menambah nilai 1 ke registri pada komputer setiap kali aplikasi dijalankan.

If jumlah > 30 Then
MsgBox “Batas Pemakaian Sudah habis ” + vbCrLf + _
“Untuk dapat memakai program ini lagi,” + vbCrLf + _
“ Anda harus mendaftar!!!”
Unload Me
End If

jika aplikasi sudah dijalankan atau sudah dipakai melebihi 30 kali, maka akan muncul pesan bahwa pemakaian sudah habis dan untuk memakai program ini anda harus mendaftar.
silahkan download contoh projectnya disini.