Tutorial VB.6 Membuat Form Login Dengan 3 x Pengulangan Password

Kesempatan Kali ini saya akan memberikan Tutorial VB.6 bagaimana cara membuat form Login namun dengan interval kesalahan password 3 x.

Anda bisa mengganti jumlah kesalahan password bisa sampai 5x ataupun 10x jika anda mau, hanya merubah sedikit condingnya.

Ok langsung saja Step By Step :

1. Buka VB.6 dan Create Project Standard Exe.

   

2. Nah, Kita beri 1 TextBox (Name : Text1) dan 2 Command Button (Name : cmdOK dan cmdCancel)
   
3. Buat formnya rapi, dan untuk Border Style fixed-single, ControlBox = false Position = Center Screen kemudian copy Script Berikut.



	'Form_Login_With_Password
	'By_Mr_Nugh
	Dim xHitung As Integer 'Deklarasi variabel global
	Dim xxJawab As String 'Deklarasi variabel global
	Private Sub Form_Load()
	xHitung = 0 'Saat form diload, xHitung mula-mula masih 0
	Text1.MaxLength = 5
	End Sub
	Private Sub cmdOK_Click() 'Ulangi selama text1 tdk sama dengan "paswd"
	Do While Text1.Text <> "paswd"
	xJawab = Text1.Text = "paswd" 'Inisialisasi xJawab
	'Jika xJawab tdk sama dengan "paswd"
	If xJawab <> "paswd" Then
	xHitung = xHitung + 1 'Counter bertambah satu
	Tampung (xHitung) 'xHitung ke fungsi Tampung
	If xHitung = 3 Then 'Jika xHitung = 3, maka...
	'Tampilkan pesan
	MsgBox "Password Terblokir!", vbOKOnly, "Keluar Kau!" 'Peringatan blokir
	Text1.Enabled = False 'Text1 tdk bisa diakses
	cmdOK.Enabled = False 'cmdOK tdk bisa diakses
	cmdCancel.Default = True 'Hanya cmdCancel yg bisa diakses
	End If
	Exit Sub 'Keluar dari prosedur
	Else 'Jika xJawab = "paswd"
	Exit Do 'Keluar dari Loop
	End If
	Loop
	MsgBox "Selamat Datang", vbOKOnly, "Selamat" 'Tampilkan pesan sukses
	'terserah Anda.. setelah ini akan apa...?
	End Sub
	Function Tampung(xHitung)
	Dim Hasil As Integer
	Hasil = 0 'Inisialisasi variabel Hasil
	Hasil = Hasil + xHitung
	Text1.SetFocus 'Fokuskan kursor ke text1 kembali
	Text1.Text = "" 'Isi Text1 dikosongkan
	MsgBox "Kesempatan ke-" & Hasil, vbOKOnly, "Peringatan"
	'Menampilkan sudah berapa kali salah password
	End Function
	Private Sub cmdCancel_Click()
	Unload Me 'Keluar dari program
	End Sub
	'Jika di text1 telah diisi, tombol OK siap dienter
	Private Sub Text1_KeyPress(KeyAscii As Integer)
	cmdOK.Default = True
	End Sub
	'Akhir Programs
	'By Mr. Nugh

view raw FormLogin hosted with ❤ by GitHub




4. Anda bisa mengganti isi password pada teks yang berwarna kuning. dan sekarang Kita Run dan Anda bisa melihat hasilnya.

Demikian Tutorialnya.

Terimakasih

Selamat Mencoba

Download Projectnya Di Sini

Google + : https://plus.google.com/u/0/+esaprasetio
Twitter : http://twitter.com/aphriell_art
IG : @aphriel_art
Blog :
aprilartwork.blogspot.com for my artwork
aphriellart.blogspot.com for some tutorial
Email : aphriellart@gmail.com