0
Sebelum memulai project, pastikan dahulu anda telah menginstal aplikasi Visual Basic 6.0 pada PC anda. Apabila anda tidak ada anda boleh download di sini. *Gratis secara cuma-cuma lhoo..... Hihiiii
Lanjuuttt lagi.... setelah itu buka aplikasi VB dan tool box yang kita gunakan adalah LABEL, TEXT, dan COMMAND lalu setting tampilannya mirip-mirip seperti ini lah.
Lanjuuttt lagi.... setelah itu buka aplikasi VB dan tool box yang kita gunakan adalah LABEL, TEXT, dan COMMAND lalu setting tampilannya mirip-mirip seperti ini lah.
lalu klik 2X pada Command1 (Masuk) hingga muncul tempat menaruh listing code untuk proses programnya. contoh gambarnya seperti ini :
lalu isi listing codenya dengan mengCoPast code di bawah ini dan taruh di Command1 dan Command2.
lalu isi listing codenya dengan mengCoPast code di bawah ini dan taruh di Command1 dan Command2.
Private Sub Command1_Click()
If Text1.Text = "123456" And Text2.Text = "123456" Then
msg = MsgBox("Anda berhasil LOG IN ", vbInformation,"Message")
Else
msg = MsgBox("Pasword atau Id anda tidak Valid", vbCritical,"Message")
text1.text=""
text2.text=""
End If
End Sub
Private Sub Command2_Click()
p = MsgBox("Anda yakin ingin keluar ?", vbQuestion + vbYesNo, "Message" )
If p = vbYes Then
End
End If
End Sub
If Text1.Text = "123456" And Text2.Text = "123456" Then
msg = MsgBox("Anda berhasil LOG IN ", vbInformation,"Message")
Else
msg = MsgBox("Pasword atau Id anda tidak Valid", vbCritical,"Message")
text1.text=""
text2.text=""
End If
End Sub
Private Sub Command2_Click()
p = MsgBox("Anda yakin ingin keluar ?", vbQuestion + vbYesNo, "Message" )
If p = vbYes Then
End
End If
End Sub
0Awesome Comments!