VB-Validasi LogIn 3 kali

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Memeriksa password yang dimasukkan user ke dalam textbox ketika login ke suatu aplikasi. Jika kesalahan mencapai tiga kali, login ditolak dan otomatis  aplikasi akan keluar.

ini adalah cobntoh coding'y :

Dim Hitung As Integer 
Dim Jawab As String   

Private Sub Form_Load()
  Hitung = 0  'Saat form diload, Hitung mula-mula masih 0
End Sub

Private Sub cmdLogin_Click()
  Do While Text1.Text <> "xtreme"
    Jawab = Text1.Text = "xtreme" 
      If Jawab <> "xtreme" Then 'Jika tidak sama
         Hitung = Hitung + 1   'Counter bertambah satu
         Counter(Hitung)    
         If Hitung = 3 Then    'Jika Hitung = 3, maka...
            Print "Kesempatan Sudah Habis"
            Text1.Enabled = False 
            cmdLogin.Enabled = False  
            cmdCancel.Default = True
         End If
         Exit Sub  
      Else   
         Exit Do  'Keluar dari Loop
      End If
  Loop
  Print "Selamat Datang" 
End Sub

Function Counter(Hitung)
Dim Hasil As Integer
    Hasil = 0
    Hasil = Hasil + Hitung
    Text1.SetFocus
    SendKeys "{Home}+{End}"
    Print "Kesempatan ke-" & Hasil
End Function

Private Sub cmdCancel_Click()
   Unload Me 
End Sub

'Jika di text1 telah diisi, tombol login siap dienter
Private Sub Text1_KeyPress(KeyAscii As Integer)
   cmdLogin.Default = True
End Sub

  
Silahkan mencoba dan kembangkan !!!