Program trial biasanya di gunakan untuk mempromosikan suatu aplikasi atau software dengan tujuan agar calon pembeli bisa mencoba atau mencicipi program atau 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 .
SC-nya...
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 .
SC-nya...
- Spoiler:
- 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