Pemrograman Visual Perulangan For Next, Do While dan Do Until

      Hai, sebelumnya saya sudah menjelaskan bahwa saya akan membuat perulangan For Next, Do While dan Do Until pada blog yang berjudul perulangan teks. Berikut ini adalah langkah-langkahnya:

Ikuti sesuai dengan tabel berikut:

No	Object	Property	Nilai
1	Form	Name Text	Frmperulanganke2 Perulangan ke-2
2	ListBox	Text Name	(dikosongkan) ListBox1
3	Button	Text Name	For Next Button1
4	Button	Text Name	Do While Button2
5	Button	Text Name	Do Until Button3

a.       Buatlah Form baru dengan nama Perulangan ke-2.

b.  Buatlah sebuah Program Perulangan ke-2 yang bisa melakukan operasi perulangan dengan mengklik button yang dilakukan oleh user.

c.       Hasil Program Perulangan ke-2 ini kurang lebih sebagai berikut:

a.       Properties Name adalah:

ListBox1, Button1, Button2, Button3.

b.      Kode Program

Public Class Form1

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        ListBox1.Items.Clear()

        For i = 1 To 10

            ListBox1.Items.Add("For Next : " & i)

        Next

    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

        ListBox1.Items.Clear()

        Dim i As Integer = 0

        Do While i <= 10

            ListBox1.Items.Add("Do while : " & i)

            i = i + 1

        Loop

    End Sub

    Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click

        ListBox1.Items.Clear()

        Dim i As Integer = 0

        Do Until i > 10

            ListBox1.Items.Add("Do until : " & i)

            i = i + 1

        Loop

    End Sub

End Class

c.       Jalankan program dengan menekan tombol F5 atau klik ikon Start pada toolbar.

d.      Hasil tampilan dari program.

        For Next:

       Do While:

        Do Until:

Semoga berhasil dan bermanfaat ya:)