PERTEMUAN 2
kali ini kita langsung praktik, silahkan buka programnya.
setelah itu kita membuat tampilannya terlebih dahulu, seperti ini ;
caranya adalah sebagai berikut ;
- select pointer atau tanda panah hitam,
- kemudian klik dan drag "label" ( gambar huruf A) ke kanvas form.
- lihat properties ( label keadaan aktif)
ket ;
name = adalah nama label. nama disini tidak boleh sama, karena 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)
- kemudian double click pada command button "tampil". untuk menampilkan karakter dibawah
dan pastekan kode ini
- double click pada command button "bersih" untuk menghapus pada kolom textbox
- double click pada command button "keluar " untuk keluar program
kali ini kita langsung praktik, silahkan buka programnya.
setelah itu kita membuat tampilannya terlebih dahulu, seperti ini ;
caranya adalah sebagai berikut ;
- select pointer atau tanda panah hitam,
- kemudian klik dan drag "label" ( gambar huruf A) ke kanvas form.
- lihat properties ( label keadaan aktif)
ket ;
name = adalah nama label. nama disini tidak boleh sama, karena 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)
- kemudian double click pada command button "tampil". untuk menampilkan karakter dibawah
dan pastekan kode ini
txtnim.Text = "1212439"
txtnama.Text = "Hendri Setiawan"
txtkelas.Text = "12.3F.14"
txtalamat.Text = "karawang"
txtnotelepon.Text = "087xxxxxxx"
txtnama.Text = "Hendri Setiawan"
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
0 Komentar untuk "cara menampilkan tulisan | Pemrograman visual basic 6 | pertemuan 2"