1. Program pilih Bahas.
Pertama buatlah form baru kemudian letakan satu buah Group
Box, Text Box, Button di dalam form tersebut, setelah itu letakan enam check
Box di dalam Group Box yang berada di dalam form tadi, kemudian Rubah nama Tool
Box – Tool Box setelah selesai masukan lsting pada button atau Proses, kemudian
jalankan.
a. a. Form sebelum di rubah namanya.
b.
b. Setelah di rubah namanya.
c. c. Hasil dari pogram.
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
End Class
2. Program Pasangan Hidup
Pertamabuatlah Form baru kemudian masukanlah tiga label,
satu panel, empat RadioButton du di antaranya masukan kedalam panel, satu Text
Box, dan satu Button, setelah tu rubah nama Tool Box yag berada di dalam Form,
Masukanlah listing programnya setelah selesai jalankanlah programnya.
a.
a. Form sebelum di rubah namanya.
b.
b. Setelah di rubah namanya
c.
c. Hasil dari program
Listing Program
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. Program list Box.
Buatlah sebuah form baru dan masukan sembilan button, satu
Text Box, dan dua list. Rubahlah nama – nama Tool Box yang berada dalam form,
masukan listingnya dan jalankan programnya.
b.
b. Hasil dari program
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)
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
05.21 |
Category: |
0
komentar
