Dasar 3. Label, Textbox, Command Button

1. Buatlah sebuah Project dan Form baru.
2. Buatlah beberapa objek yang ada pada TOOLBOX dan masukan pada form yang anda buat adapun pengaturan pada PROJECT PROPERTIES nya adalah seperti dibawah ini :

NAME	CAPTION	TOOL
LABEL1	TULISAN 1	LABEL
LABEL2	TULISAN 2	LABEL
LABEL3	TULISAN 3	LABEL
TXTTULISAN1	-	TEXTBOX
TXTTULISAN2	-	TEXTBOX
TXTTULISAN3	-	TEXTBOX
CMDOKE	OKE	COMMAND BUTTON
CMDBATAL	BATAL	COMMAND BUTTON
CMDKELUAR	KELUAR	COMMAND BUTTON

3. Listing Program atau kodenya adalah sebagai berikut :

Private Sub CMDOKE_Click()
TXTTULISAN1.Text = "ASSALAMUALAIKUM"
TXTTULISAN2.Text = "HALO"
TXTTULISAN3.Text = "WELCOME"
End Sub

Private Sub CMDBATAL_Click()
TXTTULISAN1.Text = ""
TXTTULISAN2.Text = ""
TXTTULISAN3.Text = ""
End Sub

Private Sub CMDKELUAR_Click()
Unload Me
End Sub
    

4. Sedangkan keterangan dari Listing Program tersebut adalah :
- Jika memencet TOMBOL OKE :
TXTTULISAN1.Text = "ASSALAMUALAIKUM" maksudnya isi dari TXTTULISAN1 adalah ASSALAMUALAIKUM
TXTTULISAN2.Text = "HALO" maksudnya isi dari TXTTULISAN2 adalah HALO

TXTTULISAN3.Text = "WELCOME" maksudnya isi dari TXTTULISAN3 adalah WELCOME

anda juga bisa mengganti isi dari tulisan tersebut terserah anda.

- Jika memencet TOMBOL BATAL :
TXTTULISAN1.TEXT="" maksudnya adalah isi dari TXTTULISAN1 adalah kosong (tidak ada).
demikian juga dengan yang 2 dan 3.

- Jika memencet TOMBOL KELUAR :
UNLOAD ME adalah kode untuk keluar dari form atau menghentikannya.

5. Sedangkan cara memakai program ini adalah :
- Tekan tombol OKE untuk melihat isi dari kotak yang kosong.
- Tekan tombol BATAL untuk membatalkan atau mengosongkan kotak yang telah terisi.
- Tekan tombol KELUAR untuk keluar dari form ini.

Selesai Juga Dech Tutorialnya....
Terimakasih Atas Kunjungannya....
Semoga Ilmu Yang Sedikit Ini Bermanfaat....
Jangan Lupa Like Post Ini Ya.... Terimakasih....

Print this page

Posted in: Visual Basic 6.0