Dear all,
Salam kenal, semua saya baru kenal VB mau tanya gimana cara nempatin script
untuk membatasi login salah dibatsin hanya 3 kali saja jika sudah 3 kali
maka keluar dari program. Berikut script yang sudah saya bikin dimana
terdapat verifikasi untuk username or password kosong dan username or
passwor salah.
/*******************************************************/ ganti code ini
Private Sub Command1_Click()
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Maaf, Username & Password harus diisi!"
Exit Sub
ElseIf Text1.Text = "" Then
MsgBox "Maaf, Username harus diisi!"
Text2.Text = ""
Text1.SetFocus
Exit Sub
ElseIf Text2.Text = "" Then
MsgBox "Maaf, Password harus diisi!"
Text1.Text = ""
Text1.SetFocus
Exit Sub
End If
/*************************************************************/sampe sini
||||||||||||||||||||||||||||||||||||||||||||||| dgn code berikut
Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "Maaf, Username & Password harus diisi!"
End Sub
|||||||||||||||||||||||||||||||||||||||||||||||| lebih efisien keknya
Do while flag < 4 {
Flag = 1
If Text1.Text = "teknik" And Text2.Text = "informatika" Then
Form2.Show
Form1.Hide
Else
MsgBox "Maaf Username atau Password salah, Akses gagal, silakan login
ulang!"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Flag = flag + 1
End If
End Sub
maaf ya, gw gak tau itu syntak apaan. tapi kurang lebih gitu logikanya
huehehehe.. Maaf y maaf...
