Perulangan Pada Visual Basic

Perulangan menjadikan komputer dapat bekerja secara berulang

silahkan dahulu tambah satu fasilitas dari toolbox yaitu comboBox beri nama cmbLoop seperti berikut

:

Ada 4 Macam perulangan didalam Visual Basic .Net, kita akan bahas 1 persatu:

1. For ... Next

Penjelasan

  Sub fungsiFor()
        ''For ....  Next
        Dim i As Integer
        For i = 1 To 200
            cmbLoop.Items.Add(i)
        Next
    End Sub

2. For Each ... Next

Penjelasan

  Sub forEachNext()
        Dim mahasiswa As String
        Dim nama() As String = {"Rudi", "Yudi", "Mira", "Dila"}
        For Each mahasiswa In nama
            cmbLoop.Items.Add(mahasiswa)
        Next

    End Sub

3. While

Penjelasan

  Sub WhileEndWhile()
        Dim i As Integer
        i = 0
        While i < 10
            i = i + 1
            cmbLoop.Items.Add(i)
        End While
    End Sub

4.Do While

Penjelasan

  Sub DoWhileLoop()
        Dim i As Integer = 0
        Do While i < 10
            i = i + 1
            cmbLoop.Items.Add(i)
        Loop
    End Sub

untuk menjalankan perogram cukup panggil Sub di form load, contoh :

  Private Sub frmPerulangan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'silahkan panggil Sub disini
        'contoh fungsiFor
    End Sub