Perulangan Pada Visual Basic

1.      Susunan Control pada Form1

2.      Setelah kita membuat susunan Control pada Form1, lalu kita beri codingan pada form :

a.       Pertama kita membuat codingan pada Button For Next, seperti dibawah ini:

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

        Dim i As Integer

        Dim teks As String

        Dim maks As String

        teks = TextBox1.Text

        maks = TextBox2.Text

        For i = 1 To maks

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

        Next

    End Sub

Dengan Output Seperti ini :

 

b.      Kemudian kita buat lagi codingan pada Button Do While :

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

        Dim a As Integer

        Dim teks As String

        Dim maks As String

        teks = TextBox1.Text

        maks = TextBox2.Text

 Do While a < maks

            ListBox1.Items.Add(a & ". Do While " & teks)

     a = a + 1

 Loop

End Sub

Dengan Output seperti ini :

c.       Lalu kita buat codingan pada Button Do Until :

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

        Dim x As Integer

        Dim maks As String

        Dim teks As String

        teks = TextBox1.Text

        maks = TextBox2.Text

        x = 1

        Do Until x > maks

            ListBox1.Items.Add(x & ". Do Until " & teks)

            x = x + 1

        Loop

End Sub

Dengan Output seperti ini :

 

d.      Kita buat codingan pada Button Segitiga :

Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click

Dim i As Integer

Dim teks As String

teks = ""

For i = 1 To 8

teks += i.ToString

ListBox1.Items.Add(teks)

Next

End Sub

Dengan output seperti ini :

 

e.       Untuk Button Fibonacci, kita buat coding seperti dibawah ini :

Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click

        Dim a, b, c, i As Integer

        a = 0

        b = 1

        ListBox1.Items.Add(a)

        ListBox1.Items.Add(b)

        For i = 1 To 5

            c = a + b

            ListBox1.Items.Add(c)

            a = b

            b = c

        Next

End Sub

                  Dengan output seperti ini :

 

 

                 

f.       Dan terakhir kita buat coding untuk Button Delete :

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click

        ListBox1.Items.Clear()

End Sub

          Digunakan untuk menghapus semua item dari ListBox

3.      Penjelasan

a.  Dim i As Integer

Dim teks As String

Dim maks As String

Digunakan untuk mendeklarasikan Variable a dengan jenis tipe data Integer dan Variable teks, maks dengan jenis tipe data String

b.  teks = TextBox1.Text dan maks = TextBox2.Text

Untuk memberikan nilai pada Variable teks yang berasal dari TextBox1 dan Variable maks yang berasal dari TextBox2 yang nantinya nilai tersebut akan digunakan

c.  For i = 1 To maks Next

Melakukan sebuah perulangan menggunakan blok FOR NEXT yang dimulai dari 1 sampai dengan nilai yang ada di Variable maks

d.  ListBox1.Items.Add(i & ". For Next " & teks)

Syntax untuk menambahkan suatu item kedalam ListBox1 dengan isi sesuai dengan Variable i dan teks

e.  ListBox1.Items.Clear()

Digunakan untuk menghapus semua items yang ada di ListBox1

f.  teks += i.ToString

Menambahkan sebuah nilai kedalam variable teks dengan nilai dari Variable I dan nilai tersebut diubah ke jenis tipe data String