Tutorial Membuat Program Trial Pada VB 6

16 07 2009

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”
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:

  1. 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.
  2. maTLey

  3. 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.
  4. 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.

Silahkan download contoh projectnya disini.

Semoga bermanfaat….


Aksi

Information

4 responses

17 07 2009
Higi Nugrasjati

kalo udah dipake trus kan masa trialnya abis..
nah klo di install lagi bisa ga??
klo masih bisa buat pa??
tolong balas

17 07 2009
matley

tidak bisa di pakai lagi..di jamin .
anda bisa download contoh project’a dan praktekan sendiri .

selamat mencoba !!

27 07 2009
jerzz

visit my blog again
http://jerzz.wordpress.com/
http://blackercomputerz.wordpress.com/
jika ingin tukeran link konfirmasi di blog saya y…

29 07 2009
matley

okek .




%d blogger menyukai ini: