Membuat Program Trial Version VB.6

Posting ke 2 dibulan April ini saya akan membahas mengenai cara membuat program trial version di Visual Basic.

Ok, langsung saja kita ke tutorialnya,,
1. pastikan kalian sudah membuat Projectnya, untuk testnya saya menggunakan form berikut

2. berikut adalah codingnya untuk menjadikan form / aplikasi anda menjadi trial version


Sub TRIALLAN()
Dim X
Dim Y
Dim Jumlah
Dim Sisa
'====awal
'---------coding inti untuk menentukan jumlah maksimal penggunaan program

X = GetSetting("Y", "Y", "Y")
Jumlah = Val(X) + 1
SaveSetting "Y", "Y", "Y", Jumlah
Label3 = "Program telah dipakai " & Jumlah & " Kali"

'--------Disini saya membatasi pemakaian program hanya untuk 3x pemakaian
Sisa = 3 - Jumlah
'------------------------------------------------------------------------

Label4 = "Sisa Pakai " & Sisa & " Kali"
If Jumlah > 3 Then
MsgBox "Batas Pakai program Habis.." + vbCrLf + "Untuk Perpanjang masa berlaku, Silahkan Hubungi Author @MalaDoankBinKokom, Terima kasih", vbInformation, "Perhatian"

Unload Me
End If
'====akhir

'--------Disini coding untuk menghapus settingan trial, dengan mematikan terlebih dahulu coding diatas dari awal sampai akhir lalu aktifkan coding dibawah ini.

'DeleteSetting "Y", "Y", "Y"
End Sub


3. Panggil coding di atas diform load

Private Sub Form_Load()
'----------------------------
TRIALLAN
'----------------------------
End Sub

4. Coba kalian running/jalankan programnya,,

dan jika program sudah mencapai batas maksimal penggunaannya maka ketika dirunning akan muncul pesan :

untuk menghilangkan atau menghapus fungsi trial pada aplikasi matikan semua coding yang sudah ditandai dari awal sampai akhir, dan aktifkan coding delete nya
'-------------------------
DeleteSetting "Y", "Y", "Y"
'------------------------- 
Kemudian running lagi dan program sudah tidak lagi muncul pesan trial version sudah habis.


Selamat Mencoba, jika ada yang tidak dimengerti atau ada yang mau ditanyakan silahkan tinggalkan komentar, Terima Kasih.