Membuat User Login pada Visual Basic

Membuat User login sangatlah penting guna optimal sebuah aplikasi pada bidang pekerjaan dimana para penggunanya akan mempunyai kemudahan serta sebuah privasy yang luar biasa yang mana  artinya arsip-arsip sebuah pekrjaan dapat terlindungi, singkat cerita yup kita pahami bersama tutorial berikut ini :

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

NOTE :

Buat dua buah form : Form 1 = Name : frmLogin , Caption : Login

Form2 = Name : frmMain , Caption : Menu Utama

Label1 = Caption : User Name

Label2 = Caption : Password

TextBox1 = Name : txtUsername , Caption = Biarkan kosong

TextBox2 = Name : txtPassword , Caption = --,,--,,---,,---

CommandButton1 = Name : cmdLogin , Caption = Login

CommandButton2 =  Name : cmdCancel , Caption = Cancel

Dan lebih prakrisnya lihat seperti pada contoh gambar diatas , untuk menjalankan sebuah program terlebih dahulu masukan sebuag listhing seperti dibawah ini :

1. Klik 2 x pada CommandB1/tombol Login dan masukan kode berikut :

Private Sub cmdLogin_Click()
If Trim(txtUsername.Text) = vbNullString And Trim(txtPassword.Text) = vbNullString Then
GoSub hitungLog
MsgBox "Username dan Password masih kosong !!!" + vbCrLf + "Harap diisi kembali!!!", _
vbInformation, "Konfirmasi"
txtUsername.SetFocus
ElseIf Trim(txtUsername.Text) = vbNullString Then
GoSub hitungLog
MsgBox "Username Anda masih kosong !!!" + vbCrLf + "Harap diisi kembali!!!", _
vbInformation, "Konfirmasi"
txtUsername.SetFocus
ElseIf Trim(txtPassword.Text) = vbNullString Then
GoSub hitungLog
MsgBox "Password Anda masih kosong !!!" + vbCrLf + "Harap diisi kembali!!!", _
vbInformation, "Konfirmasi"
txtPassword.SetFocus
ElseIf Trim(txtUsername.Text) = "ADMIN" And Trim(txtPassword.Text) = "1234" Then
frmmain.Show
Unload Me
Else
GoSub hitungLog
txtUsername = vbNullString
txtPassword = vbNullString
txtUsername.SetFocus
MsgBox "Username atau Password Anda salah!!!" + vbCrLf + "Harap diisi dengan benar!!!", _
vbExclamation, "Informasi"
End If
Exit Sub
hitungLog:
hitung = hitung + 1
If hitung = 3 Then
MsgBox "Sudah tiga kali Anda melakukan kesalahan." + vbCrLf + "Program akan diakhiri!!!", _
vbExclamation, "Informasi"
Unload Me
Else
Return
End If
End Sub

2. Klik 2 x Pada CommandB2/Cancel dan Masukan kode berikut :"

Private Sub cmdCansel_Click()
End
End Sub

3. Klik 2 x pada Form dan masukan kode berikut :

Private Sub Form_Load()
hitung = 0
End Sub

4. Klik 2 x Pada Form dan arahkan ke menu drop down atas dan pilih General dan masukan kode 

berikut ini :

 Option Explicit
Dim hitung As Byte

5. Selamat Mencoba ...success