cara membuat longin dengan 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