PERTEMUAN 2
kali ini kita eksklusif praktik, silahkan buka programnya.
sehabis itu kita menciptakan tampilannya terlebih dahulu, menyerupai ini ;
caranya yakni sebagai berikut ;
- select pointer atau tanda panah hitam,
- lalu klik dan drag "label" ( gambar abjad A) ke kanvas form.
- lihat properties ( label keadaan aktif)
ket ;
name = yakni nama label. nama disini dihentikan sama, alasannya akan masuk kedalam panggilan listing. tidak diubah juga tdk apa.
- pilih "caption" da ubah mejadi "perkenalan".
- selanjutnya pilih textbox dan drag ke kanvas form.
- ubah nama textbox di properties;
- (name) ubah dari text1 ke "txtnim"
- dan drag juga command button
- ubah semua deklarasi namanya pada (name)
- lalu double click pada command button "tampil". untuk menampilkan karakter dibawah
dan pastekan instruksi ini
txtnim.Text = "1212439"
txtnama.Text = ""
txtkelas.Text = "12.3F.14"
txtalamat.Text = "karawang"
txtnotelepon.Text = "087xxxxxxx"
txtnama.Text = ""
txtkelas.Text = "12.3F.14"
txtalamat.Text = "karawang"
txtnotelepon.Text = "087xxxxxxx"
- double click pada command button "bersih" untuk menghapus pada kolom textbox
txtnim.Text = "CLEAR"
txtnama.Text = "CLEAR"
txtkelas.Text = "CLEAR"
txtalamat.Text = "CLEAR"
txtnotelepon.Text = "CLEAR"
txtnama.Text = "CLEAR"
txtkelas.Text = "CLEAR"
txtalamat.Text = "CLEAR"
txtnotelepon.Text = "CLEAR"
- double click pada command button "keluar " untuk keluar program
X = MsgBox("yakin ingin keluar?", vbQuestion + vbOKCancel, "konfirmasi")
If X = vbOK Then
End
End If
- Running programIf X = vbOK Then
End
End If
Sumber http://www.hendrisetiawan.com