Kejobong City: November 2012

Tugas VB Checkbox, RadioButton, ListBox

07.17 |

<<<CHECKBOX>>>

Ini adalah sebuah program untuk memilih bahasa yang kita gunakan dan dapat memilih beberapa bahasa sesuai dengan yang kita bisa. Berikut langkah dan programnya untuk membuat program ini.

Dengan ketentuan : Semua bahasa ang dipilih ditampilkan pada texbox

Langkah-Langkah

1. Buatlah desainnya seperti berikut
Dengan menggunakan :
-1GroupBox , text di propertis tulis “Kemampuan Berbahasa”

· -6 Checklist , masing-masing checklist tuliskan “Indonesia, Inggris, Sunda, Jawa, Arab, dan Lain-lain”

· -1 TextBox

· -1 Button, untuk proses

Berikut adalah listing programnya untuk di ketik pada VB 2010.

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 CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
        Dim control As Windows.Forms.CheckBox
        TextBox1.Text = ""
      End Sub
     End Class

2. Hasilnya Setelah diRUN/DEBUGGING/F5. Kemudian Pilih bahasa yang dipilih kemudian klik prosses maka bahasa yang kita pilih akan tampil pada texbox

<<<RADIOBUTTON>>>

Kemudian ini adalah program suami istrian hehe... agak permainan sedikit hehe... Langsung aja kepermasalahanya yang perlu dibuat.

Dengan ketentuan : Isi pasangan hidup dengan suami jika jenis kelamin wanita dan status kawin, dan isi dengan istri jika jenis kelamin pria dan status kawin

Langkah-Langkah
1. Buatlah desainnya seperti berikut.
Dengan menggunakan :
-2 Panel, utuk pemisah bagian radiobutton jenis kelamin dan status
-4 RadioButton ,Panel 1”Pria danWanita ” ,Panel 2 “Kawin, dan Belum Kawin”
-3 Label , text di properties tuliskan“Jenis Kelamin , Status, danPasangan ”
-1 Button, untuk menutup program

Berikut adalah listing programnya untuk di ketik pada VB 2010.

Public Class Form1

    Private Sub RbKawin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbKawin.CheckedChanged
        TextBox1.Text = ""
        If RbPria.Checked = True Then
        Else
            TextBox1.Text &= "Suami"
        End If
        IfRbWanita.Checked = True Then
        Else
            TextBox1.Text &= "Istri"
        End If
    End Sub

    Private Sub RbTdkwin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbTdkwin.CheckedChanged
        TextBox1.Text = ""
        If RbPria.Checked = True Then
        Else
            TextBox1.Text &= ""
        End If
        IfRbWanita.Checked = True Then
        Else
            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

2. Hasilnya Setelah diRUN/DEBUGGING/F5.

A. Isi pasangan hidup dengan suami jika jenis kelamin wanita dan status kawin

B. Isi dengan istri jika jenis kelamin pria dan status kawin

C. Dan akan muncul kodong jika kita plih pria/wanita dan statusnya (Tidak kawin)

<<<LISTBOX>>>

Ketentuan :

Isi, mingisi ListBox1 dengan isian yang ada di Textbox1
1-10,mengisi ListBox1 dengan angka dari 1-10
Satu, memasukkan satu pilihan yang dipilih dari ListBox1 ke ListBox2
Beberapa, memasukkan beberapa pilihan yang dipilih dari ListBox1 ke ListBox2
Semua, memasuk kansemua pilihan yang dipilih dari ListBox1 ke ListBox2
Hapus satu, menghapus satu pilihan dari ListBox2 yang sedang dipilih
Hapus beberapa, menghapus beberapa pilihan dari ListBox2 yang sedang dipilih
Hapus semua, menghapus semua pilihan dari ListBox2 yang sedang dipilih

Langkah-Langkah
1. Buatlah desainnya seperti berikut.
Dengan keentuan :
-1TextBox
-9Button
-2ListBox

Berikut adalah listing programnya untuk di ketik pada VB 2010.

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 Bt_Satu.Click
        ListBox1.Text = ListBox2.Items.Add(ListBox1.Text)
    End Sub

    Private Sub Bt_Beberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Beberapa.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 Bt_Semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Semua.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 Bt_Hapus_Satu.Click
        ListBox2.SelectionMode = SelectionMode.One

        ListBox2.Items.Remove(ListBox2.SelectedItem)
    End Sub

    Private Sub Bt_Hapus_Beberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Hapus_Beberapa.Click
        ListBox2.SelectionMode = SelectionMode.MultiExtended
        Dim i, j As Integer
        j = ListBox2.Items.Count
                ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
            Catch ex As Exception
                j -= 1
            End Try
        For i = 0 To j - 1
            Try
        Next
    End Sub

    Private Sub Bt_Hapus_Semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Hapus_Semua.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