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