Programnya sangat sederhana,
Langkah 1
Buka program visual basic
Lalu, pilih form standard.exe
Langkah 2
Kira – kira susun form seperti berikut (sesuai dengan kreasi anda)
Berikut listing programnya
Private Sub Form_Load()
Dim a, b, jumlah, sisa
MsgBox "Software ini hanya dapat dipakai 5 kali"
x = GetSetting("b", "b", "b")
jumlah = Val(a) + 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
Run Program tersebut, hasilnya seperti berikut
Keyword: Belajar visual basic, program visual basic, program VB, belajar VB, membuat program trial version dengan VB, program trial VB, program trial version dengan visual basic
Baca juga:
Tips / trik membuat Link (New Tab)
abang bisa buatkan contoh aplikasi pengaduan pelanggan dengan VB
BalasHapushasimlimpho@ymail.com
postingnya membantu banget abang..
BalasHapushasimlimpho@ymail.com
menampilkan data ADC ke VB.6 codngnya gmn y dari atmega dengan cvavr?
BalasHapusklo buat trial menggunakan hari/tanggal/bulan gmn om
BalasHapus