Checkbox,Fibonacci,Prima,Radiobutton,Listbox

1. Checkbox

    Jika Program Pertama dijalankan

     Jika program telah dijalankan dan dipilih maka output sebagai berikut

codingnya


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. Fibonacci

codingya

ublic Class Form1

    Private Sub Bttampilkan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bttampilkan.Click
        Dim bil As Integer
        Dim fibonaci(10) As Integer

        fibonaci(0) = 1
        fibonaci(1) = 1
        For bil = 2 To 9
            fibonaci(bil) = fibonaci(bil - 1) + fibonaci(bil - 2)
        Next
        For bil = 0 To 9
            ListBox1.Items.Add(fibonaci(bil))
        Next
    End Sub

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

3. Bilangan Prima

codingnya


Public Class Form1

    Private Sub Bttampilkan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bttampilkan.Click
        Dim bilangan(100) As String
        Dim x, y As Integer
        For x = 2 To 100
            If bilangan(x) <> " * " Then
                ListBox1.Items.Add(x)
                For y = 2 * x To 100 Step x
                    bilangan(y) = " * "
                Next
            End If
        Next
    End Sub

    Private Sub Btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Close()
    End Sub


End Class

4. Radio Button

codingnya

Public Class Form1

    Private Sub Rbpria_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rbpria.CheckedChanged
        If Rbkawin.Checked = True Then
            If Rbpria.Checked = True Then
                Tampilkan.Text = " Istri "
            Else
                Rbwanita.Checked = True
                Tampilkan.Text = " Suami "
            End If
        Else
            Tampilkan.Text = ""
        End If
    End Sub

    Private Sub Rbwanita_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rbwanita.CheckedChanged
        If Rbkawin.Checked = True Then
            If Rbpria.Checked = True Then
                Tampilkan.Text = " Istri "
            Else
                Rbwanita.Checked = True
                Tampilkan.Text = " Suami "
            End If
        Else
            Tampilkan.Text = ""
        End If
    End Sub

    Private Sub Rbkawin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rbkawin.CheckedChanged
        If Rbkawin.Checked = True Then
            If Rbpria.Checked = True Then
                Tampilkan.Text = " Istri "
            Else
                Rbwanita.Checked = True
                Tampilkan.Text = " Suami "
            End If
        Else
            Tampilkan.Text = ""
        End If
    End Sub

    Private Sub Rbtidakkawin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rbtidakkawin.CheckedChanged
        If Rbkawin.Checked = True Then
            If Rbpria.Checked = True Then
                Tampilkan.Text = " Istri "
            Else
                Rbwanita.Checked = True
                Tampilkan.Text = " Suami "
            End If
        Else
            Tampilkan.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

5.Listbox

codingnya


ublic Class Form1

    Private Sub Btisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btisi.Click
        ListBox1.Items.Add(TextBox1.Text)
        TextBox1.Text = ""
        TextBox1.Focus()
    End Sub

    Private Sub Btnomor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnomor.Click
        Dim angka As Integer
        For angka = 1 To 10
            ListBox1.Items.Add(angka)
        Next
    End Sub

    Private Sub Btsatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsatu.Click
        ListBox2.Items.Add(ListBox1.SelectedItem)
    End Sub

    Private Sub BtBeberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btbeberapa.Click
        Dim beberapa = (From i In ListBox1.SelectedItems).ToArray()
        For Each SelectedItems In beberapa
            ListBox2.Items.Add(SelectedItems)
        Next
    End Sub

    Private Sub BtSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsemua.Click
        Dim semua = (From i In ListBox1.Items).ToArray()
        For Each Items In semua
            ListBox2.Items.Add(Items)
        Next
    End Sub

    Private Sub BtHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bthapus.Click
        ListBox2.Items.Remove(ListBox2.SelectedItem)
    End Sub

    Private Sub BtHapusBeberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bthapusbeberapa.Click
        Dim dipilih = (From i In ListBox2.SelectedItems).ToArray()
        For Each SelectedItems In dipilih
            ListBox2.Items.Remove(SelectedItems)
        Next
    End Sub

    Private Sub Bthapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bthapussemua.Click
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
    End Sub

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