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.
source : https://arnolduspalamba937.wordpress.com/2014/11/18/cara-membuat-program-login-sederhana-dengan-menggunakan-bahasa-pemograman-microsoft-visual-basic-6-0/
source : https://arnolduspalamba937.wordpress.com/2014/11/18/cara-membuat-program-login-sederhana-dengan-menggunakan-bahasa-pemograman-microsoft-visual-basic-6-0/
1 komentar:
Click here for komentarMakasih cara membuat tombol login sederhana
Sewa Kontainer Kantor
ConversionConversion EmoticonEmoticon