Contoh Penggunaan Objek Program di Visual Studio

PENGGUNAAN OBJEK PROGRAM DI VISUAL STUDIO

Contoh Program :

1. Desain awal Program 

2. Atur Properties Masing - masing Objek Sebagai Berikut :

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