1. Buatlah New Project pada software VB anda kemudian tambahkan kontrol label, TextBox dan commandButton pada form, kemudian atur letaknya seperti pada gambar berikut :
Gambar Tampilan Desain Form
2. Klik ganda atau double klik Command1(Tombol Proses), kemudian ketik kode/listing/script program sebagai berikut :
Private Sub Command1_Click()
'jika text1 dimasukkan kata meriwardana.blogspot.com maka'
If Text1.Text = "meriwardana.blogspot.com" Then
'menutup form aktif'
End
'jika tidak'
Else
'akan tampil kotak pesan'
MsgBox "Password Anda Salah..!", vbOKOnly, "Kotak Pesan"
'saat kotak pesan ditekan ok, text1 dikosongkan'
Text1.Text = ""
'kursor focus pada text1'
Text1.SetFocus
End If
End Sub
3. Jalankan program dengan menekan tombol F5 pada keyboard.
Dan ketika kita memasukkan password selain “meriwardana.blogspot.com” maka akan tampil kotak pesan sebagai berikut :
Gambar Kotak Pesan
Dan setelah kita tekan tombol ok maka pada text1 akan dikosongkan dan otomatis kursor berada pada text1. Dan jika dimasukkan password yang benar seperti diatas maka form akan ditutup.
Source: http://meriwardana.blogspot.com/
No comments:
Post a Comment