Membuat Program Trial Version Sederhana
Membuat Program Trial Version Sederhana ini blogger sragen bahas untuk anda yang berkeinginan untuk membatasi penggunaan aplikasi yang di buat melalui visual basic. Kode sederhana ini mungkin berguna untuk pengguna yang masih awam akan tetapi jika memang penggunanya adalah yang tahu seluk beluk komputer kemungkinan memang bisa mengakalinya. Namun tidak ada salahnya untuk mencoba membuat program trial version sederhana
Kode VB Membuat Program Trial Version Sederhana
- Private Sub Form_Load()
- Dim a, b, jumlah, sisa
- MsgBox "Software ini hanya dapat dipakai 5 kali"
- x = GetSetting("b", "b", "b")
- jumlah = Val(x) + 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
Untuk mengembalikan ke posisi 0 bisa dilakukan dengan cara berikut.
- Private Sub Command1_Click()
- SaveSetting "b", "b", "b", 0
- End Sub