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)

 program trial version dengan visual basic

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

program trial version dengan VB


membuat program trial dengan VB


Baca juga:
Tips / trik membuat Link (New Tab)

0 komentar:

Posting Komentar