TUGAS PEMOGRAMAN VISUAL BASIC PROGAM SEDERHANA

1. Buatlah salah satu aplikasi Sederhana dengan Menampilkan Pesan dari, 3 CpmboBox dan 3 CheckBox, sesuai dengan isi tabel berikut ini.

Desaibn Program

a. Properties Dari ComboBox

b. Properties Dari CheckBox

c. Sorce Code Visual Basic

Public Class Program_1

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

' Isi ComboBox Warna Kesukaan

cbowarnah.Items.Add("Merah")

cbowarnah.Items.Add("Biru")

cbowarnah.Items.Add("Hijau")

cbowarnah.Items.Add("Kuning")

' Isi ComboBox Buah Kesukaan

cboBuah.Items.Add("Apel")

cboBuah.Items.Add("Jeruk")

cboBuah.Items.Add("Mangga")

cboBuah.Items.Add("Pisang")

' Isi ComboBox Hobby

cboHobby.Items.Add("Membaca")

cboHobby.Items.Add("Olahraga")

cboHobby.Items.Add("Menulis")

cboHobby.Items.Add("Musik")

End Sub

Private Sub btnCetak_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCetak.Click

Dim hasil As String = ""

hasil &= "Warna Kesukaan : " & cboWarnah.Text & vbCrLf

hasil &= "Buah Kesukaan : " & cboBuah.Text & vbCrLf

hasil &= "Hobby : " & cboHobby.Text & vbCrLf

hasil &= "Style Teks : "

If cbTebal.Checked Then hasil &= "Tebal "

If cbMiring.Checked Then hasil &= "Miring "

If cbGarisBawah.Checked Then hasil &= "Garis Bawah "

MessageBox.Show(hasil, "Hasil Cetak")

End Sub

End Class