Cara Membuat Program Login Sederhana Dengan Menggunakan Bahasa Pemograman Microsoft Visual Basic 6.0

Cara Membuat Program Login Sederhana Dengan Menggunakan Bahasa Pemograman Microsoft Visual Basic 6.0
Adakalanya suatu program apabila dijalankan, kita harus melakukan login terlebih dahulu agar kita dapat melanjutkan penggunaan program tersebut, Hal ini biasanya dilakukan untuk menghindari orang yang tidak berkepentingan mengakses suatu program karena dalam program tersebut tersimpan data – data yang bersifat rahasia, yang tidak bisa diakses oleh sembarang orang. Disini penulis mencoba berbagi wawasan mengenai Cara Membuat Program Login Sederhana Dengan Menggunakan Bahasa Pemograman Microsoft Visual Basic 6.0.  Buka Program Microsoft Visual Basic 6.0, kemudian masukkan desain seperti gambar berikut dengan menggunakan kontrol 3 buah Label dan 2 buah TextBox.

Kemudian ubah nilai properties setiap kontrol sesuai dengan tabel berikut:

Kontrol	Properties	Nilai
Form	BorderStyle	1 – Fixed Single
	Caption	Login
TextBox1	Name	txt_username
	Text	[kosongkan]
TextBox2	Name	txt_password
	Text	[kosongkan]
	PasswordChar	*
Label1	Caption	Ketik Username dan Password
Label2	Caption	Username   :
Label3	Caption	Password     :

Langkah selanjutnya adalah ketik Listing Program berikut pada jendela Code :
Dim users As String
Dim pass As String
Private Sub Form_Load()
pass = “12345”
users = “abcde”
End Sub
Private Sub txt_password_keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Me.txt_password.Text = pass Then
Unload Me
ElseIf Me.txt_password.Text = “” Then MsgBox “data tidak boeh kosong”, vbOKOnly
Me.txt_password.SetFocus
Else
MsgBox “password salah, ulangi agi….”, vbCritical
Me.txt_password.Text = “”
Me.txt_password.SetFocus
Exit Sub
End If
End If
End Sub
Private Sub txt_username_keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Me.txt_username.Text = users Then
Me.txt_password.SetFocus
ElseIf Me.txt_username.Text = “” Then MsgBox “data tidak boeh kosong”, vbOKOnly
Me.txt_username.SetFocus
Else
MsgBox “username salah, ulangi lagi….”, vbCritical
Me.txt_username.Text = “”
Me.txt_username.SetFocus
Exit Sub
End If
End If
End Sub
Catatan :  Anda dapat mengganti tulisan berwarna biru dengan password dan tulisan berwarna merah dengan username pada Listing Program sesuai keinginan anda.
Kemudian Program kita jalankan, maka hasilnya seperti gambar berikut :

Kita dapat melihat bahwa jenis teks pada kotak isian Username dan Password berbeda, hal ini dikarenakan PasswordChar pada Properties txt_username (TextBox1) tidak dirobah, sedangkan PasswordChar pada Properties txt_password (TextBox2) diisi dengan symbol *.
Apabila kita mengosongkan kotak isian Username lalu menekan Enter, maka akan tampil MessageBox (kotak pesan) seperti gambar beikut :

Apabila Username yang kita ketik salah, maka akan tampil MessageBox (kotak pesan) seperti gambar beikut :

Apabila Username yang kita ketik benar, maka cursor akan berpindah ke kotak isian Password.
Apabila kita mengosongkan kotak isian Password lalu menekan Enter, maka akan tampil MessageBox (kotak pesan) seperti gambar beikut :

Apabila Password yang kita ketik salah, maka akan tampil MessageBox (kotak pesan) seperti gambar beikut :

Apabila password yang kita ketik benar, maka program akan berhenti / selesai.
Program ini disebut Program Login Sederhana dikarenakan Username dan Password harus diketik langsung pada Listing Program, sebab Username dan Password tidak disimpan dalam bentuk suatu file.Akibatnya Password dan Usernamse tidak dapat diganti ketika program sedang dijalankan. Akan tetapi harus diganti melalui Listing Program dengan terlebih dahulu menghentikan jalannya program.