Coba mbantu Bikin counter bikin prosedur dalam prosedur bikin supaya saat counter =3 ada pesan dan langsung keluar Contoh : dim ulang as single Private Sub xOK_Click() If Ulang < 3 Then If Text1.Text = "teknik" And Text2.Text = "informatika" Then Form2.Show Form1.Hide else Ulang = Ulang + 1 end if Else MsgBox "Maaf Username atau Password salah, Akses gagal, silakan login ulang!" Text1.Text = "" Text2.Text = "" Text1.SetFocus End If End Sub
Regards Gege Nugroho --- On Thu, 7/24/08, Giftirul Aziz <[EMAIL PROTECTED]> wrote: From: Giftirul Aziz <[EMAIL PROTECTED]> Subject: [Programmer-VB]OOT:Login salah dibatasin 3 kali To: [email protected] Date: Thursday, July 24, 2008, 12:48 PM 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
