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 = "infoproindo.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 “infoproindo.blogspot.com” maka akan tampil kotak pesan sebagai berikut :
Gambar Kotak Pesan
4. Simpan Proyek tersebut dan Selamat mencoba.. :)
Tidak ada komentar:
Posting Komentar