Tugas praktikum 4

Nama     : Meilita Rahayu
Kelas     : TI 11C
NIM      : 11.11 2486

• Latihan Checkbox

Terdapat beberapa checkbox yang menentukan kemampuan berbahasa Anda, jika sudah memilih atau mencentang pilihanyang ada, lalu tekan tombol tampilkan..dan akan muncul tampilan seperti di bawah ini

Untuk bisa menjadi tampilan seperti yang diatas, kita memerlukan listing pogram berikut

Public Class bahasa

    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

    Private Sub bahasa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

• Latihan Radiobutton

Program ini didesain untuk mengetahui pasangan hidup..jika memilih jenis kelamin pria dan status kawin, maka pasangan hidup yang akan muncul adalah istri,sebaliknya jika jenis kelamin wanita dan status kawin maka pasangan hidupnya adalah suami, tetapi jika statusnya belum kawin maka "-"

• Latihan Bilangan Fibonaci

Berikut program dengan listing programnya

• Latihan Bilangan Prima (1 sampai 100)

• Latihan Listbox

Berikut isi Latihan Listbox, dengan syarat :

1.       Isi : Mengisi List1 dengan isian yang ada pada list1

2.      1-10 : Mengisi List1 dengan angka dari 1-10

3.      Satu > : Memasukan satu pilihan yang dipilih dari list1 ke list2

4.     Beberapa > : Memasukan beberapa pilihan yang sedang dipilih dari list1 ke list2

5.      Semua > : Memasukan semua pilihan yang ada di list1 ke list2

6.      Hapus Satu : Menghapus satu pilihan dari list2 yang sedang dipilih

7.     Hapus Beberapa : Menghapus beberapa pilihan dari list2 yang sedang dipilih

8.      Hapus Semua : Menghapus semua pilihan yang ada di list2

Tampilannya seperti ini

 berikut listing programnya

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