Belajar Visual Basic Bahasa Indonesia

Desember 20, 2013

Belajar Visual Basic Bahasa Indonesia

Posted: 19 Dec 2013 11:54 AM PST

pada program yang akan di publikasikan kepada konsumen haruslah di sediakan securitas kepada konsumen khususnya bukan untuk keperluan umum, supaya tidak bisa di pakai oleh konsumen lain. program ini di buat dengan vb 6, sesuai dengan niche blog kami yaitu visual basic.

pada tutorial belajar vb ini, membahas tentang cara membuat sebuah registrasi program atau sesuai aplikasi trial kalau tidak memasukan serial number valid dengan visual basic 6. Tutorial ini sangat sederhana namun dari segi contoh program padat dan jelas sehingga mudah untuk di kembangkan bagi yang mau belajar visual basic 6 terutama bagi pemula/newbie.

Contoh program ini tidak menggunakan komponen apapun, hanya menggunakan 1 buah form, yang di dalamnya menggunakan metode prosedur dan msgbox untuk penginputan serial number. Untuk tutorial nya silahkan praktekan secara langsung, jikalau ada kesalahan atau ada yang tidak di mengerti bisa meninggalkan komentar di bawah artikel yang sudah di sediakan

Buat Project baru dengan sebuah Form seperti desain form di bawah

Di bagian '(Declarations)' dari Form ketikkan :
Const LocationReg = "System\Windows\User" 'lokasi penyimpanan d registry (ubah sesuai selera)

Const PasswordReg = "kode" 'kode kunci registrasi

Const LocationReg = "System\Windows\User"
Const PasswordReg = "123" 'kode kunci registrasi

Function GetInfoReg() As String 'fungsi utk mendapatkan info registrasi
On Error GoTo Ero
Dim Reg As Object
Set Reg = CreateObject("WScript.Shell")
GetInfoReg = Reg.RegRead("HKEY_CLASSES_ROOT\" & LocationReg & "\")
Exit Function
Ero:
Reg.RegWrite "HKEY_CLASSES_ROOT\" & LocationReg & "\", Format(Now, "short date") 'memasukkan tgl sekarang
GetInfoReg = Format(Now, "short date")
End Function

Function SuccessReg() As Boolean 'fungsi utk prosedur pemasukan kode registrasi
Dim s As String
Lagi:
s = InputBox("Masukkan kode registrasi", "Registrasi")
If s = PasswordReg Then
Dim Reg As Object
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKEY_CLASSES_ROOT\" & LocationReg & "\", "Registered" 'mendaftarkan k registry
MsgBox "Terima kasih telah melakukan registrasi", vbInformation, "Registrasi Sukses"
SuccessReg = True

ElseIf s = "" Then
SuccessReg = False

Else
If MsgBox("Maaf kode registrasi salah, coba lagi ?", vbYesNo + vbExclamation, "Registrasi") = vbYes Then GoTo Lagi
SuccessReg = False
End If
End Function

Private Sub Form_Load()
Dim s As String, l As Long

s = GetInfoReg
If s <> "Registered" Then 'jika belum terdaftar"
l = 30 - (CDate(Format(Now, "short date")) - CDate(s)) 'max penggunaan trial 30 hari

If l > 0 And l <= 30 Then 'jika masih ada sisa hari
If MsgBox("Aplikasi ini hanya dapat digunakan sampai " & l & " hari lagi." & vbCrLf & _
"Jika ingin menggunakan tanpa batasan waktu, masukkan kode registrasi" & vbCrLf & vbCrLf & _
"Masukkan kode registrasi sekarang ?", vbYesNo + vbInformation, "Registrasi") = vbYes Then SuccessReg

Else 'jika kadaluarsa
If MsgBox("Aplikasi ini sudah tidak dapat digunakan lagi." & vbCrLf & _
"Jika ingin menggunakannya kembali, masukkan kode registrasi" & vbCrLf & vbCrLf & _
"Masukkan kode registrasi sekarang ?", vbYesNo + vbExclamation, "Registrasi") = vbYes Then

If SuccessReg = False Then End 'mengakhiri aplikasi
Else
End 'mengakhiri aplikasi
End If

End If
End If

End Sub

Cari Blog Ini

Wong Songong