Pada pembelajaran kali ini, Tunas Media akan memberikan Tutorial menarik yaitu cara membuat Program Trial Pada VB. Pada dasarnya membuat program memang susah dan membutuhkan waktu yang sangat lama, mulai dari perancangan sistem, membuat database, dan mulai coding. Akan sangat disayangkan jika kita sudah susah berjuang membuat program eh.. ada yang mengambilnya tanpa ijin. Untuk itu bagi anda yang sudah mempunyai banyak portfolio Program VB, kayaknya harus belajar bagaimana cara membuat Program Trial agar lebih safety dalam membuat Program VB anda :)
Langsung saja, cara untuk membuat Program Trial, anda harus membuat Form dan menambahkan dua label seperti dibawah ini :
Masukan Syntaq dibawah ini pada form yang telah dibuat diatas :
Langsung saja, cara untuk membuat Program Trial, anda harus membuat Form dan menambahkan dua label seperti dibawah ini :
Masukan Syntaq dibawah ini pada form yang telah dibuat diatas :
Private Sub Form_Load()Selesai, silahkan di Run di Komputer / Laptop anda. Cukup mudah bukan :) Salam Pembelajar...!!!
Dim T
Dim M
Dim Jumlah
Dim Sisa
MsgBox "Program hanya dapat dipakai 5 Kali"
M = GetSetting("T", "T", "T")
Jumlah = Val(M) + 1
SaveSetting "T", "T", "T", Jumlah
Label1.Caption = "Program telah dipakai " & Jumlah & " Kali"
Sisa = 5 - Jumlah
Label2.Caption = "Sisa Pakai " & Sisa & " Kali"
If Jumlah > 5 Then
MsgBox "Batas Pakai Program Telah Habis" + vbCrLf + "Untuk lanjut..Silakan bayar dulu"
Unload Me
End If
End Sub
Blog ini butuh donatur yang baik hati . jika kalian ingin men donasi untuk blog ini silahkan sms 085697961822. seberapa pun donasi nya saya sangat ber terima kasih
Contact Person :
Facebook : http://www.facebook.com/leaderoffil
Group Facebook :
.gif)
.gif)
.png)
.png)
.gif)
.gif)
.gif)
.gif)
0 Comments
Bagaimana Pendapat Anda ?