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 



Komentar

Postingan populer dari blog ini

Keputusan Case Pada Microsoft Visual Studio 2008

Keputusan If Pada Microsoft Visual Studio 2008

Visual Basic Messagebox