Re: [Programmer-VB]OOT:Login salah dibatasin 3 kali

[zenorc]

Try this one.

Dim JmlSalah As Integer 'Global variable

Private Sub Command1_Click()
'=============================
If JmlSalah = 3 Then
    MsgBox "Anda sudah salah 3 kali. Program akan dihentikan."
    End
End If
'=============================

    If Text1.Text = "" And Text2.Text = "" Then
    MsgBox "Maaf, Username & Password harus diisi!"
    JmlSalah = JmlSalah + 1 'Jumlah kesalahan jika user salah login
    Exit Sub
    
    ElseIf Text1.Text = "" Then
    MsgBox "Maaf, Username harus diisi!"
    JmlSalah = JmlSalah + 1 'Jumlah kesalahan jika user salah login
    Text2.Text = ""
    Text1.SetFocus
    Exit Sub
    
    ElseIf Text2.Text = "" Then
    MsgBox "Maaf, Password harus diisi!"
    JmlSalah = JmlSalah + 1 'Jumlah kesalahan jika user salah login
    Text1.Text = ""
    Text1.SetFocus
    Exit Sub
    
    End If
    
    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!"
    JmlSalah = JmlSalah + 1 'Jumlah kesalahan jika user salah login
    Text1.Text = ""
    Text2.Text = ""
    Text1.SetFocus
    End If

End Sub


Regards.


--- In Programmer-VB@yahoogroups.com, Giftirul Aziz <[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. 
> 
> 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
> 
> 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
> End If
> End Sub
> 
> 
> 
> 
> Mohon bantuannya agar verifikasi tetap berjalan dan login salah 
hanya 3 kali saja.
> 
> Thanks....
> 
> 
> Best regards,
> 
> 
> Giftirul
>