VB6: Struktur Kode Perulangan Loop

Loop adalah struktur kode perulangan yang akan terus mengeksekusi ulang kodenya sampai memenuhi kondisi tertentu.

Do Loop
Ada tiga jenis struktur Do...Loop:
•    Do While...Loop
•    Do...Loop While
•    Do...Loop Until

Do While...Loop
Struktur ini digunakan untuk mengulang blok code berdasarkan kondisi tertentu yang ditentukan diawal. Pertama dia mengecek kondisi kemudian jika hasil nya true maka code diantara loop akan dieksekusi dan terus berulang sampai kondisi tidak lagi terpenuhi (false).
Syntaks :
Do While [Condition]
   [statement]
Loop

Contoh : Print ke form dari 0 sampai 9.
Tuliskan code berikut pada event cmdPrint_Click
Option Explicit

Private Sub cmdPrint_Click()
Dim num As Integer
num = 0
Do While num < 10
    Print num
    num = num + 1
Loop
End Sub

Di awal program akan mengecek kondisi yang berlaku. Jika nilai variable num lebih kecil dari 10 maka code diantara Do While...Loop akan dieksekusi. Sementara kita lihat code dalam loop menambahkan variable num + 1 setiap putaran. Code akan terus berulang (berputar) sampai nilai variable num menjadi 10 dan loop akan berhenti.

Do...loop while
Struktur ini di awal program akan mengeksekusi code di dalam loop (apapun kondisinya), kemudian setelah itu akan mengecek kondisi yang berlaku, jika kondisi benar maka akan melakukan pengulangan (loop).
Syntaks:
Do
   [statement]
Loop while [condition]

Contoh : Print ke form dari 0 sampai 10.
Option Explicit

Private Sub cmdPrint_Click()
Dim num As Integer
num = 0
Do
    Print num
    num = num + 1
Loop While num <= 10
End Sub

Do...loop until
Struktur ini akan mengeksekusi code diantara loop sampai kondisi terpenuhi, sebelum kondisi terpenuhi makan code akan terus dijalankan secara berulang.
Syntaks :
Do
  [statement]
Loop Until [Condition]

Contoh: nilai variable x akan terus bertambah sampai lebih besar daripada 10
Option Explicit

Private Sub cmdPrint_Click()
Dim x As Integer
x = 0
Do
    Print x
    x = x + 1
Loop Until x > 10
End Sub

Code dalam loop ini beresiko menjadi infinite loop yang akan terus berputar tanpa henti jika terjadi kesalahan code/error atau kondisi yang tidak terduga sebelumnya. Gunakan Ctrl + Break untuk menghentikan secara paksa.

For Next Loop
Struktur loop ini merupakan struktur yang paling sering digunakan daripada struktur loop yang lain.
Syntaks :
For [Condition]
   [statement]
Next

Contoh : Print ke form dari 0 sampai 10.
Option Explicit

Private Sub cmdPrint_Click()
Dim i As Integer
For i = 0 To 10
    Print i
Next i
End Sub

Selama proses loop variable i secara otomatis akan dinaikan 1. Loop akan terus berjalan sampai nilai i lebih dari 10.

Contoh : Print ke form dari 0 sampai 6 dengan kenaikan 2.
Option Explicit

Private Sub cmdPrint_Click()
Dim i As Integer
For i = 0 To 6 Step 2
    Print i
Next i
End Sub
Sekali putaran nilai i dinaikan 2.
Output :
0
2
4
6

Contoh : Print ke form dari 10 sampai 0 dengan kenaikan penurunan 3.
Option Explicit

Private Sub cmdPrint_Click()
Dim i As Integer
For i = 10 To 0 Step -3
    Print i
Next i
End Sub

Sekali putaran nilai i diturunkan 3.

Output :
10
7
4
1

Exit For and Exit Do statement 
Pada dasarkan loop akan terus berputar sesuai kondisi loop yang bersangkutan, tapi diantara code loop kita dapat menambahkan kondisi tertentu untuk keluar dari loop.

For Next Loop bias dihentikan oleh code Exit For dan Do loop oleh code Exit Do.

Contoh : Exit For
Option Explicit

Private Sub cmdPrint_Click()
Dim i As Integer
For i = 0 To 10
    If i = 3 Then
    Exit For
    End If
Print i
Next i
End Sub

Output :
0
1
2

Contoh : Exit Do
Option Explicit

Private Sub cmdPrint_Click()
Dim num As Integer
num = 0
Do While num < 10
    Print num
    num = num + 1

    If num = 4 Then
        Exit Do
    End If
Loop
End Sub

Output :
0
1
2
3

Click here if you like this article.