Buat form baru pada project, terus tambahkan obyek sebagai berikut:
- Teksbox1
- Teksbox2
- Label1
- Label2
- Dan 2 commandbutton dengan caption&Login dan &Batal
Masukkan source code sbb:
Private Sub Command1_Click()
If Text1.Text = "ilham" And Text2.Text = "11081091" Then
MsgBox "Terimakasih Telah Login", vbInformation
Form1.Show
Form15.Hide
ElseIf Text1.Text <> "ilham" And Text2.Text = "11081091" Then
MsgBox "Maaf User yang anda masukkan salah", vbInformation
Text1.Text = ""
ElseIf Text1.Text = "ilham" And Text2.Text <> "11081091" Then
MsgBox "Maaf Password yang anda masukkan salah", vbInformation
Text2.Text = ""
ElseIf Text1.Text <> "ilham" And Text2.Text <> "11081091" Then
MsgBox "Maaf Password dan User yang anda masukkan salah", vbInformation
Text1.Text = ""
Text2.Text = ""
End If
End Sub
Keterangan: form1.show adalah form yang akan muncul pertama setelah login dan form15.hide adalah menonaktifkan/sembunyika form login ini
Pada text2 ubah propertiesx pada passwordchart dengan meengetik tanda petik bintang *( biar password gak keliatan karakter alfabetnya gitu loh)….
N J go………………….
Program setelah dijalankan
Gampang banegeeeeeeeeeeeeeeeeeeeetz kan…….!!!!!!!J
No comments:
Post a Comment