Selamat pagi para pembaca tip dan trik unik vb60, pada pertemuan yang sekian kalinya ini tip dan trik unik vb60 akan membagikan sebuah trik yang dibilang cukup membuat menambah wawasan para pembaca yaitu sebuah trik dengan judul Cara Membuat Program Trial Version dengan VB60.
Apa itu Program Trial Version, Program Trial Version adalah program yang hanya dapat digunakan selama batas waktu tertentu sesuai keinginan pembuat program. Setelah melewati batas waktu program tidak dapat digunakan lagi. Apabila pengguna sudah terlanjur menyukai program tersebut dan ingin meggunakannya lagi, mau tidak mau pengguna harus memenuhi persyaratan-persyaratan yang diajukan oleh si pembuat program.
Jadi Program Trial Version bisa dipakai sebagai sarana untuk mempromosikan suatu program yang sudah dibuat atau akan dibuat. Sebagai seorang programer atau calon programer Visual Basic rasanya penting bagi Anda untuk dapat membuat program-program trial ini, jika Anda berniat untuk memperjualbelikan program program tersebut ataupun untuk keperluan yang lain.
Dengan mempelajari tip berikut ini Anda akan mampu membuat program-program Versi Trial (Trial Version).
Perlu Anda ketahui, bahwa selain memiliki fungsi-fungsi API , Visual Bsic juga memiliki fungsi-fungsi registry. Fungsi-fungsi registry yang di miliki oleh Visual Basic yaitu :
- Fungsi GetSetting
- Fungsi GetAllSetting
- Fungsi SaveSetting
- Fungsi DeleteSetting
Sesuai dengan namanya, fungsi-fungsi tersebut berhubungan registry Windows. Untuk membuat Program Trial Version, fungsi registry yang akan dipakai adalah fungsi GetSetting dan SaveSetting.
Berikut adalah langkah langkah Cara Membuat Program Trial Version dengan VB60 :
Cara Membuat Program Trial Version dengan VB60
- Buka Form baru VB60 Anda dan letakan 2 buah Label pada form
Catatan :
Fungsi Label1 dan Label2 digunakan untuk mencetak keterangan
- Buka Jendela kode, lalu ketik kode berikut dibawah ini :
Private Sub Form_Load()
Dim x
Dim y
Dim jumlah
Dim sisa
MsgBox "Progra ini hanya dapat dipakai 10 kali"
x = GetSetting("y", "y", "y")
jumlah = Val(x) + 1
SaveSetting "y", "y", "y", jumlah
Label1.Caption = "Program ini sudah digunakan sebanyak :" & jumlah & " kali"
sisa = 10 - jumlah
Label2.Caption = "Sisa pemakaian:" & sisa & " kali"
If jumlah > 10 Then
MsgBox "Batas waktu pemakaian sudah habis" + vbCrLf + " Untuk dapat memakai program ini lagi," + vbCrLf + "Ada harus mendaftar"
DeleteSetting "y", "y", "y"
Unload Me
End If
End Sub
- Setelah selesai mengetik kode coba jalankan program.
- Pada saat program dijalankan pertama-tama akan muncul pesan berikut :
 |
| Program Trial Vesrsion |
- Setelah ditekan tombol OK, maka akan tampil seperti gambar dibawah ini
 |
| Program Trial Version (Sisa Pemakaian) |
- Setelah 10 kali pemakaian, pada saat program akan digunakan, maka akan muncul pesan " Batas
waktu pemakaian sudah habis"
Setelah 10 kali penggunaan akan muncul pesan tersebut maka program benar-benar sudah tidak dapat digunakan lagi, meskipun Anda mencoba untuk me-restart komputer.
Catatan :
Jika Anda ingin menggunakannya lagi dari awal, tambahkan kode berikut dibawah ini:
DeleteSetting "y", "y", "y"
Demikian trik cara singkat Cara Membuat Program Trial Version dengan VB60 semoga dengan adanya artikel ini dapat menambah wawasan kita didunia pemograman khususnya VB60.Sekian dan terimaksih......
No comments:
Post a Comment