Buka program VB, kemudian buat project dengan formasi tool dan properties seperti gambar.
Private Sub Command1_Click()
If Text1.Text = "vb6@gmail.com" And Text2.Text = "visualbasic" Then
MsgBox "ID & Password confirmation successfully!!", vbOKOnly
Else
MsgBox "ID or Password confirmation failed. Please try again!", vbOKOnly
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Catatan : Tulisan yang berwarna merah berarti opsional. Tulisan tersebut bisa diganti sesuai keinginan user.
Setelah itu, aktifkan program dengan menekan tombol "start" di tool bar, sehingga muncul layar dengan tampilan berikut.
Masukkan ID Code dan Password sesuai kode yang dimasukkan misalnya seperti gambar berikut.
Setelah itu, klik tombol LOGIN sehingga muncul jendela message box seperti berikut.
Apabila ID Code dan Password tidak sesuai, maka akan muncul message box seperti berikut.
Program telah sukses dirancang!
Catatan : Password yang anda masukkan secara otomatis akan berubah menjadi simbol * . Hal ini karena di jendela properties Text2, yaitu di PasswordChar telah di input simbol *.
Tidak ada komentar:
Posting Komentar