maaf, flag itu untuk apaan yah??...
kira2 gini lah codenya...
mdh2an bnr, saya jg bwt spt itu N berhasil....
selamat mencoba!!!...
Dim a As Integer
Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "Maaf, Username & Password harus diisi!"
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!"
a = a + 1
If a = 3 Then
MsgBox "Anda sudah 3 kali salah menginput!. Anda Gagal
Login"
End
End If
Exit Sub
End If
End Sub
--- In Programmer-VB@yahoogroups.com, "mario" <[EMAIL PROTECTED]>
wrote:
>
>
>
> 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...
>
