10 July 2014

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.