Belajar Teknik Komputer: Tugas 4 PROGRAM "CHECKBOX"

PROGRAM "CHECKBOX"

Adapun tool yang dipake sebagai berikut;

6 Tool CheckBox
1 GroupBox
1 TextBox
1 Button

2. Lalu isi Listing Programnya sebagai berikut;

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim control As Windows.Forms.CheckBox
TextBox1.Text = ""
For Each control In Me.GroupBox1.Controls
If control.Checked = True Then
TextBox1.Text &= control.Text & ","
End If
Next
TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text, Len(TextBox1.Text) - 1)
End Sub

Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
Dim control As Windows.Forms.CheckBox
TextBox1.Text = ""
End Sub
End Class

3. Lalu Run/Play
Setelah muncul lalu pilih bahasa.

Setelah dipilih lalu clik tombol "Proses" dan akan tampil seperti gambar dibawah ini;

PROGRAM "RADIOBUTTON"

Adapun tool yang dipake sebagai berikut;

4 RadioButton
1 GroupBox
1 TextBox
1 Button

2. Isi listing Programnya sebagai berikut;

Public Class Form1

Private Sub RbKawin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbKawin.CheckedChanged
TextBox1.Text = ""
If RbPria.Checked = True Then
Else
TextBox1.Text &= "Suami"
End If
If RbWanita.Checked = True Then
Else
TextBox1.Text &= "Istri"
End If
End Sub

Private Sub RbTdkwin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbTdkwin.CheckedChanged
TextBox1.Text = ""
If RbPria.Checked = True Then
Else
TextBox1.Text &= ""
End If
If RbWanita.Checked = True Then
Else
TextBox1.Text &= ""
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class

3. Run/Play Program tadi,

* Jika kita klik jenis kelamin pria dan status kawin maka secara otomatis akan muncul "Istri" Pada pasangan hidup

* Dan sebaliknya Jika kita klik jenis kelamin Wanita dan status kawin maka secara otomatis akan muncul "Suami" Pada pasangan hidup

* Jika kita klik jenis kelamin pria/wanita dan status tidak kawin maka secara otomatis akan muncul "(kosong)" Pada pasangan hidup

PROGRAM "LISTBOX"

1. Desain form'nya seperti dibawah ini;

Gunakan;

2 ListBox
1 TextBox
9 Button

2. Isi Listing Programnya sebagai berikut;

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim control As Windows.Forms.ListBox
TextBox1.Text = TextBox1.Text
TextBox1.Text = ListBox1.Items.Add(TextBox1.Text)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For bil = 1 To 10
ListBox1.Items.Add(bil)
Next
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Satu.Click
ListBox1.Text = ListBox2.Items.Add(ListBox1.Text)
End Sub

Private Sub Bt_Beberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Beberapa.Click
ListBox1.SelectionMode = SelectionMode.MultiExtended
Dim i, j As Integer
j = ListBox1.Items.Count
For i = 0 To j - 1
Try
ListBox2.Items.Add(ListBox1.Items(ListBox1.SelectedIndices(i)))
Catch ex As Exception
j -= 1
End Try
Next
End Sub

Private Sub Bt_Semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Semua.Click
ListBox1.SelectionMode = SelectionMode.MultiExtended

Dim Jumlah As Integer = ListBox1.Items.Count
For i = 0 To Jumlah - 1
ListBox2.Items.Add(ListBox1.Items(i))
Next
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Hapus_Satu.Click
ListBox2.SelectionMode = SelectionMode.One

ListBox2.Items.Remove(ListBox2.SelectedItem)
End Sub

Private Sub Bt_Hapus_Beberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Hapus_Beberapa.Click
ListBox2.SelectionMode = SelectionMode.MultiExtended
Dim i, j As Integer
j = ListBox2.Items.Count
For i = 0 To j - 1
Try
ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
Catch ex As Exception
j -= 1
End Try
Next
End Sub

Private Sub Bt_Hapus_Semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Hapus_Semua.Click
ListBox2.Items.Clear()
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Me.Close()
End Sub
End Class

3. Lalu di Run/Play