Membuat Program Trial Version dengan Visual Basic

Bagi para programmer yang sudah membuat berbagai macam program untuk tujuan komersil tentunya sudah menerapkan trik ini agar hasil karyanya tidak dinikmati secara gratis, bagaimana sih membuat program trial version, baik kita akan mencobanya dengan visual basic jadi sesuai dengan judul diatas membuat program trial version dengan visual basic.

Programnya sangat sederhana,

Langkah 1

Buka program visual basic

Lalu, pilih form standard.exe

Langkah 2

Kira – kira susun form seperti berikut (sesuai dengan kreasi anda)

 

Berikut listing programnya

Private Sub Form_Load()

Dim a, b, jumlah, sisa

MsgBox "Software ini hanya dapat dipakai 5 kali"

x = GetSetting("b", "b", "b")

jumlah = Val(a) + 1

SaveSetting "b", "b", "b", jumlah

Label1.Caption = "program ini telah anda gunakan sebanyak " & jumlah & " kali"

sisa = 5 – jumlah

Label2.Caption = "program masih dapat digunakan sebanyak " & sisa & " kali lagi"

If jumlah > 5 Then

MsgBox "program tidak dapat digunakan lagi" + vbCrLf + _

"untuk dapat menggunakan program ini lagi selahkan registrasi"

Unload Me

End If

End Sub

Run Program tersebut, hasilnya seperti berikut

Selamat Mencoba.............