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 :
atau tekan tombol F5 pada keyboard.Untuk menutup program, klik tombol Stop Debugging



Komentar
Posting Komentar