Contoh Program sederhana Visual Basic

Contoh Program:

1. Desain awal program

2. Atur Properties Masing-masing Objek sebagai berikut:

NO.	OBJEK	PROPERTIES	PENGATURAN
1	Form1	Text	Project Modul-2
2	Label1	Text	CONTOH PENGGUNAAN OBJEK PROGRAM
		ForeColor	Red
		Font Size	9
		Bold	True
3	CheckBox1	Text	OOP
		Name	Chkoop
4	CheckBox2	Text	VB
		Name	Chkvb
5	RadioButton1	Text	Benar
		Name	Rdobenar
6	RadioButton2	Text	Salah
		Name	Rdosalah
7	TextBox1	Name	Txtoop
8	TextBox2	Name	Txtvb
9	TextBox3	Name	Txtbs
10	Button1	Text	Bersih
		Name	Btnbersih
11	Button2	Text	Tutup
		Name	Btntutup

Tampilan program setelah pengaturan properties sebagai berikut

3. Pemberian Perintah/Instruksi pada Program

     Alur Program:

a.    Jika diklik CheckBox1 (OOP), maka pada objek TextBox1 (Txtoop) akan tampil teks:

“Object Oriented Programming”

b.    Jika diklik CheckBox2 (VB), maka pada objek TextBox2 (Txtvb) akan tampil teks:

“Visual Basic”

c.    Jika diklik RadioButton1 (Benar), maka pada objek TextBox3 (Txtbs) akan tampil teks:

“Anda memilih Benar”

d.    Jika diklik RadioButton2 (Salah), maka pada objek TextBox3 (Txtbs) akan tampil teks:

“Anda memilih Salah”

e.    Jika diklik tombol Button1 (Bersih), maka:

-  tanda checklist pada OOP akan hilang.

-  tanda checklist pada VB akan hilang.

-  teks pada objek Txtoop, Txtvb dan Txtbs akan dihapus (kosong).

f.     Jika diklik tombol Button2 (Tutup), maka program akan ditutup (keluar dari program)

Perintah Program:

a.    Perintah pada Objek CheckBox1

Private Sub chkoop_CheckedChanged(ByVal sender As System.Object,…

txtoop.Text = "Object Oriented Programming"

End Sub

b.    Perintah pada objek CheckBox2

Private Sub chkvb_CheckedChanged(ByVal sender As System.Object,…

txtvb.Text = "Visual Basic"

End Sub

c.    Perintah pada objek RadioButton1

  Private Sub rdobenar_CheckedChanged(ByVal sender As System.Object,…

txtbs.Text = "Anda Memilih Benar"

  End Sub

d.    Perintah pada objek RadioButton2

  Private Sub RdoSalah_CheckedChanged(ByVal sender As System.Object,…

txtbs.Text = "Anda Memilih Salah"

  End Sub

e.    Perintah pada objek Button1

  Private Sub btnbersih_Click(ByVal sender As System.Object, …

chkoop.Checked = 0

chkvb.Checked = False

txtoop.Text = ""

txtvb.Clear()

txtbs.Text = ""

  End Sub

f.     Perintah pada objek Button2

  Private Sub btntutup_Click(ByVal sender As System.Object, …

End

  End Sub

     Tampilan program setelah dijalankan sebagai berikut:

Untuk menjalankan program, klik tombol Start Debugging  atau tekan tombol F5 pada keyboard.

Untuk menutup program, klik tombol Stop Debugging