program cek password

buat program cek password ,jika password sama makan akan keluar,jika tidak maka akan ada pesan kesalahan(gunakan show mesage) inputanya adalah nama,password ,confirm password.

OK kita mulai listing programmnya

Private Sub Command1_Click()
Dim intKeluar As Integer
Do While (True)
If (Text1.Text = “admin” And Text2.Text = “sttdb”) Then
intpesan = MsgBox(“Password Anda Benar!”, , “informasi”)
Unload Form1 ‘akan mengeluakan anda dari form1
End
Else
intpesan = MsgBox(“password Anda Salah!Ulangi!”, , “informasi”)
Text1.Text = “” ‘bila mengulangi mengisiĀ  form,teks akan dikosongkan lagi
Text2.Text = “”
Text2.SetFocus
Exit Do
End If
Loop

End Sub

Private Sub Command2_Click()
End
End Sub

screenshootnya

jika password benar

Jika password salah

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: