1. Program Bahasa
Tampilan awal
Source codenya:
Public Class roro
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
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) - 2)
End Sub
End Class
2.Program Fibonanci
Tampilan awal
Klik "Bilangan Fibo" untuk menampilkan
Public Class Form1
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim fibo(0 To 9) As Integer
Dim x As Integer
fibo(0) = 1
fibo(1) = 1
For x = 2 To 9
fibo(x) = fibo(x - 2) + fibo(x - 1)
Next
For x = 0 To 9
ListBox1.Items.Add(fibo(x))
Next
End Sub
Private Sub
ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ListBox1.SelectedIndexChanged
End Sub
End Class
3. Program Pasangan hidup
Tampilan awal
Source kodenya:
Public Class Form1
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
If RadioButton1.Checked = True
And
RadioButton3.Checked = True Then
TextBox1.Text = "Istri"
End If
If RadioButton2.Checked = True
And
RadioButton3.Checked = True Then
TextBox1.Text = "Suami"
End If
End Sub
Private Sub
Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Label1.Click
End Sub
End Class
4. Program Bilangan Prima
Public Class Form1
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim tanda(100) As String
Dim y, z As Integer
For y = 2 To 100
If tanda(y) <> "*"
Then
ListBox1.Items.Add(y)
For z = 2 * y To
100 Step y
tanda(z) = "*"
Next
End If
Next
End Sub
End Class
5. Program Listbox
Tampilan awal
Berikut Source kodenya:
Public Class Form1
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
ListBox1.Items.Add(TextBox1.Text)
TextBox1.Text = ""
TextBox1.Focus()
End Sub
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
Dim x As Integer
For x = 1 To 10
ListBox1.Items.Add(x)
Next
End Sub
Private Sub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
stBox2.Items.Add(ListBox1.SelectedItem)
End Sub
Private Sub
Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button4.Click
Dim beberapa = (From
i In ListBox1.SelectedItems).ToArray()
For Each
SelectedItems In beberapa
ListBox2.Items.Add(SelectedItems)
Next
End Sub
Private Sub
Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button5.Click
Dim semua = (From i In ListBox1.Items).ToArray()
For Each Items In semua
ListBox2.Items.Add(Items)
Next
End Sub
Private Sub
Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button6.Click
ListBox2.Items.Remove(ListBox2.SelectedItem)
End Sub
Private Sub
Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button7.Click
Dim beberapa = (From
i In ListBox2.SelectedItems).ToArray()
For Each
SelectedItems In beberapa
ListBox2.Items.Remove(SelectedItems)
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
Terimakasih,,sampai jumpa lagi.....