Tugas Pemrograman Visual 4

Langkah pertama buat form seperti diatas dengan menggunakan :

1.       Textbok = untuk menginput data yang akan diisi

2.       Button Isi = untuk memasukkan data pada textbox ke listbox

Codingnya sebagai berikut :

Private Sub BtIsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtIsi.Click

        ListBox1.Items.Add(TextBox1.Text)

    End Sub

3.       Button 1-10 = untuk memasukkan data berupa angkan 1 sampai dengan 10

Codingnya sebagai berikut :

Private Sub BtAngka_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtAngka.Click

        Dim A As Integer

        A = 0

        Do

            A = A + 1

            ListBox1.Items.Add(A)

        Loop Until A = 10

    End Sub

4.       ListBox1 = Untuk menampilkan data yang dimasukkan

Catatan : Rubah SelectionMode pada Properties menjadi MultiExtended

5.       Button Satu = Untuk memasukkan satu per satu data yang ada pada ListBox1 ke dalam ListBox2

Codingnya sebagai berikut :

Private Sub BtSatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSatu.Click

        ListBox2.Items.Add(ListBox1.SelectedItem)

    End Sub

6.        Button Beberapa = Untuk memasukkan beberapa data yang dipilih pada ListBox1 ke dalam ListBox2

Codingnya sebagai berikut :

Private Sub BtBeberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtBeberapa.Click

        Dim obj As Object

        For Each obj In ListBox1.SelectedItems

            ListBox2.Items.Add(obj)

        Next

    End Sub

7.       Button Semua = Untuk memasukkan semua data yang dipilih pada ListBox1 ke dalam ListBox2

Codingnya sebagai berikut :

Private Sub BtSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSemua.Click

        ListBox2.Items.AddRange(ListBox1.Items)

    End Sub

8.       ListBox2 = Untuk menampilkan data yang dimasukan dari ListBox1

Catatan : Rubah SelectionMode pada Properties menjadi MultiExtended

9.       Button Hapus Satu = Untuk menghapus satu per satu data yang ada pada ListBox2

Codingnya sebagai berikut :

Private Sub BtHapusSatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtHapusSatu.Click

        Dim obj As Object

        obj = ListBox2.SelectedItem

        ListBox2.Items.Remove(obj)

    End Sub

10.   Button Hapus Beberapa = Untuk menghapus beberapa data yang dipilih dalam ListBox2

Codingnya sebagai berikut :

Private Sub BtHapusBeberapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtHapusBeberapa.Click

        For i As Integer = 0 To ListBox2.SelectedIndices.Count - 1

            ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)

        Next

    End Sub

11.   Button Hapus Semua = Untuk menghapus semua data yang ada pada ListBox2

Codingnya sebagai berikut :

Private Sub BtHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtHapusSemua.Click

        ListBox2.Items.Clear()

    End Sub

12.   Button Tutup = Untuk menutup program yang sudah dijalankan

Codingnya sebagai berikut :

Private Sub BtTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtTutup.Click

        Me.Close()

    End Sub