Cara mendapatkan 3 Dolar per hari, kerjanya cuma klik iklan yang muncul langsung dibayar caranya:klik gambar dibawah ini atau klik Register Clixsense, lengkapi identitas, tekan Sign-Up kemudian konfirmasi Email.Anda siap klik iklan. Info Lengkap
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 .hee
Private Sub Form_Load()
Dim x
Dim y
Dim jumlah
Dim sisa
MsgBox “Program ini hanya dapat dipakai 30 kali”Dim x
Dim y
Dim jumlah
Dim sisa
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
Sedikit penjelasan tentang koding di atas:
- MsgBox “Program ini hanya dapat dipakai 30 kali“
saat pertama kali program di jalankan akan muncul pesan yang di bold, kurang lebih seperti gambar di bawah ini. - x = GetSetting(“Y”, “Y”, “Y”)
jumlah = Val(x) + 1
SaveSetting “Y”, “Y”, “Y”, jumlahGetSetting
artinya langsung menyimpan ke registri pada komputer, dan setiap kali program atau aplikasi di buka maka akan bertambah 1. - If jumlah > 30 Then
MsgBox “Batas Pemakaian Sudah habis ” + vbCrLf + _
“Untuk dapat memakai program ini lagi,” + vbCrLf + _
“Anda harus mendaftar!!!“
Jika program atau aplikasi telah di pakai sampai 30 kali, maka akan muncul pesan yang di bold.
Semoga bermanfaat….
Penulis: tutorial ~ Nurhasan Blogger | Blog Tutorial dan Informasi |
Artikel Tutorial Membuat Program Trial Pada VB 6 ini dipublish oleh tutorial pada hari Tuesday 26 May 2015
Terima kasih Anda telah membaca artikel tentang Tutorial Membuat Program Trial Pada VB 6.
Terima kasih Anda telah membaca artikel tentang Tutorial Membuat Program Trial Pada VB 6.