PERULANGAN (LOOPING)

Perulangan – perulangan pada Visual Basic :

A.DO – LOOP

            Digunakan untuk mengeksekusi pernyataan selama kondisi Boolean bernilai True atau hingga bernilai True.

1.      DO – UNTIL

Contoh Program:

Desain lha Form berikut…!!!

 

Berikut Listing Programnya

Public Class jojo2

    Private Sub jojo2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load     

        Dim page As Byte

        Do Until page = 11

            ListBox2.Items.Add(page)

            ListBox2.Items.Add(page)

            ComboBox1.Items.Add(page)

            ComboBox2.Items.Add(page)

            page = page + 1

        Loop

  

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

End Class

Hasil Program

 

2.      DO – WHILE

Contoh Program

Desain lha Form berikut…!!!

 

Berikut Listing Programnya

Public Class jojo2

Private Sub jojo2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load     

Dim halaman As Byte

        Do While halaman <= 10

            ListBox1.Items.Add(halaman)

ListBox2.Items.Add(halaman)

            ComboBox1.Items.Add(halaman)

            ComboBox2.Items.Add(halaman)

            halaman = halaman + 1

        Loop

  

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

End Class

Hasil Program

 

3      FOR – NEXT

Contoh Program

Desain lha Form berikut…!!!

 

Berikut Listing Programnya

Public Class jojo2

  

Private Sub jojo2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load     

Dim i As Byte

        For i = 1 To 10

            ListBox1.Items.Add(i)

ListBox2.Items.Add(i)

            ComboBox1.Items.Add(i)

            ComboBox2.Items.Add(i)

        Next

Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

End Class

Hasil Program

 

4.      WHILE – END WHILE

Contoh Program

Desain lha Form berikut…!!!

Berikut Listing Programnya

Public Class jojo2

    Private Sub jojo2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load     

Dim j As Byte

        While j <= 10

            ComboBox1.Items.Add(j)

            ComboBox2.Items.Add(j)

            Listox1.Items.Add(j)

            ListBox2.Items.Add(j)

            j = j + 1

        End While

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

End Class

Hasil Program

 

Sekian…..

Thank You Very Much……….