- Back to Home »
- Contoh Program Visual Basic »
- Membuat Program Trial Version
Posted by : Anak Jadul Ingin Pintar
21/04/12
Membuat program trial version ini sangat cocok bagi yang suka jualan program,jadi setiap program yang di buat memiliki batas waktu pemakaian
pembuatanya pun mudah,bagi yang udah tingkat expert dalam visual basic bukan hal sulit tentunya.ok let coding
pertama :
buka visual basic anda dan pilih standart.exe
lalu buat sebuah form dan 2 buah label, klik kanan pada form tersebut dan pilih view code
lalu isi dengan code berikut :
- SPOILER:
- CODE:
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
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 IfEnd Sub
selamat mencoba
Klo udah D save terus g mna
BalasHapusnanti akan muncul trailnya dari program tersebut di mana jika masa aktifnya yang telah di berikan maka program tidak akan lagi dapat di jalankan
BalasHapusKenapa dibagian
BalasHapussisa = 30 - jumlah
Error ?