Program Perulangan Teks Menggunakan Visual Studio 2017

Membuat Program Pengulangan Teks Menggunakan Visual Studio 2017

  1. Mendesain Form terlebih dahulu

Dibawah ini merupakan tampilan desain program perulangan teks dengan memiliki label (Tuliskan Teks, Jumlah Pengulangan), textbox, Listbox dan button (Proses, Clear, Keluar).

  2.  Coding setiap button dengan source code seperti di bawah ini

Public Class Form1

    Private Sub btnKeluar_Click(sender As Object, e As EventArgs) Handles btnKeluar.Click

        End

    End Sub

    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click

        txtTeks.Text = ""

        txtJumlah.Text = ""

        List1.Items.Clear()

    End Sub

    Private Sub btnProses_Click(sender As Object, e As EventArgs) Handles btnProses.Click

        Dim teks As String

        Dim jumlah As Integer

        teks = txtTeks.Text

        jumlah = txtJumlah.Text

        For i = 1 To jumlah

            List1.Items.Add(teks)

        Next

    End Sub

End Class

  3. Setelah Selesai Jalankan atau Running Program

Hasil tampilan pada program perulangan teks tuliskan teks kemudian ketikkan jumlah perulangan sesuai keinginan apabila kita klik proses maka akan muncul di listbox.klik clear untuk mengulang Program dan klik keluar untul keluar dari program.