- Check Book
Program Kemampuan Berbahasa
Listing Program :
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 Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
Setelah di Run Dan di Check list
Setelah D klik Tombol Proses
- Radio Button
Program Status Hubungan
Listing Program :
Public Class Form1
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
TextBox1.Text = ""
If RadioButton1.Checked = True Then
TextBox1.Text &= "Istri"
ElseIf RadioButton2.Checked = True Then
TextBox1.Text &= "Suami"
End If
End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
TextBox1.Text = ""
If RadioButton1.Checked = True Then
TextBox1.Text &= ""
ElseIf RadioButton2.Checked = True Then
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
Setelah di Run
Jika di pilih Jenis Klamin Pria Dan Status Kawin Maka Pasangan Hidup adalah Istri
Jika di pilih Jenis Klamin Wanita Dan Status Kawin Maka Pasangan Hidup adalah Suami
Jika Jenis Klamin Pria/Wanita Dan Status Tidak Kawin Maka Pasangan Hidup Kosong
- Program ListBox
Listing Program :
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 Button3.Click
ListBox1.Text = ListBox2.Items.Add(ListBox1.Text)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.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 Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.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 Button6.Click
ListBox2.SelectionMode = SelectionMode.One
ListBox2.Items.Remove(ListBox2.SelectedItem)
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.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 Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.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
Gambar Setelah di RUN, di masukan beberapa data dan di klik beberapa tombol
