Tugas Prmrograman Visual Basic IV

Program Bahasa :
1. Buatlah desgn seperti gambar dibawah ini dengan menggunakan visual studio 2010 :


2. Kemudian isikan kode program pada tombol buttom ( Tombol Proses ) seperti di bawah ini :
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
End Class


3. Contoh hasil SS dari App tadi :



Program Status Perkawinan :
1. Buatlah desgn seperti gambar dibawah ini dengan menggunakan visual studio 2010 :


2. Kemudian isikan kode program seperti kode di bawah ini :
Public Class Form1


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Enabled = False
End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rkawin.CheckedChanged
If rpria.Checked = True Then
If Rkawin.Checked = True Then
TextBox1.Text = "Anda Sudah Memiliki Seorang Istri"
End If
ElseIf Rwanita.Checked = True Then

End If
If Rwanita.Checked = True Then
TextBox1.Text = "Anda Sudah Memiliki Seorang Suami"
End If


End Sub

Private Sub Rblmkawin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rblmkawin.CheckedChanged
If Rblmkawin.Checked = True Then
If Rblmkawin.Checked = True Then
TextBox1.Text = "Anda Harus Mencari Seorang Istri"
End If
ElseIf Rwanita.Checked = True Then

End If
If Rwanita.Checked = True Then
TextBox1.Text = "Anda Harus Mencari Seorang Suami"
End If

End Sub

Private Sub rpria_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rpria.CheckedChanged
If Rkawin.Checked = True Then
If rpria.Checked = True Then
TextBox1.Text = "Anda Sudah Memiliki Seorang Istri"
End If
ElseIf Rblmkawin.Checked = True Then

End If
If rpria.Checked = True Then
TextBox1.Text = "Anda Harus Mencari Seorang Istri"
End If

End Sub

Private Sub Rwanita_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rwanita.CheckedChanged
If Rkawin.Checked = True Then
If Rwanita.Checked = True Then
TextBox1.Text = "Anda Sudah Memiliki Seorang Suami"
End If
ElseIf Rblmkawin.Checked = True Then
If Rwanita.Checked = True Then
TextBox1.Text = "Anda Harus Mencari Seorang Suami"
End If
End If


End Sub
End Class

3. Contoh hasil Appnya :



Program List Box :
1.Buatlah desgn seperti gambar dibawah ini dengan menggunakan visual studio 2010 :


2. Kemudian isikan kode program seperti kode di bawah ini :
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)
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 Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
ListBox2.SelectionMode = SelectionMode.One

ListBox2.Items.Remove(ListBox2.SelectedItem)

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.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 Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.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. Contoh hasil SS dari App tadi :