STRUKTUR KONTROL

VB 6 Menyediakan struktur kontrol untuk mengendalikan instruksi program yang
dilaksanakan berulang-ulang, diantaranya : FOR…, DO…, dan WHILE…,
1. FOR … NEXT
Adalah untuk mengulangi suatu perintah (instruksi) dalam jumlah yang telah
ditentukan, serta besar kenaikannya.
FOR counter = nilai-awal TO nilai-akhir [STEP kenaikannya]
…. Instruksi…
[Exit FOR]
…. Instruksi …
NEXT
2. DO
a. DO WHILE … LOOP
Adalah untuk mengulangi suatu perintah (instruksi) selama While (suatu
kondisi) memenuhi syarat (bernilai TRUE) dan akan berhenti apabila
while tidak lagi memenuhi syarat (bernilai FALSE).
DO WHILE (kondisi)                           Dapat juga ditulis : DO
…. Instruksi…                                        ….Instruksi….
[Exit Do]                                                  [Exit Do]
…. Instruksi …                                        … Instruksi …
LOOP                                                      LOOP WHILE (kondisi)

b. DO UNTIL … LOOP
Adalah Kebalikan dari DO WHILE. Ia akan mengulangi suatu perintah
(instruksi) selama kondisi yang dibandingkan tidak memenuhi syarat
(bernilai FALSE) dan akan berhenti apabila UNTIL (Kondisinya)
memenuhi syarat (bernilai TRUE)
DO UNTIL (kondisi)                             dapat jugu ditulis : DO
…. Instruksi…                                        ….Instruksi….
[Exit Do]                                                 ….[Exit DO]
…. Instruksi …                                        …Instruksi….
LOOP                                                     LOOP UNTIL (kondisi)

3. WHILE …. WEND
Adalah sama dengan DO WHILE … LOOP, Tapi WHILE …WEND bentuk penulisannya hanya satu dan tidak memiliki perintah Exit untuk memberhentikan proses yang berulang-ulang sebelum berakhir.
WHILE (kondisi)
…. Instruksi…
[Exit Do]
…. Instruksi …
WEND
Keterangan :
[STEP kenaikannya] : Besarnya kenaikan yang diinginkan dalam
pengulangan FOR
[Exit FOR] : Perintah yang digunakan utk menghentikan atau keluar
dari LOOP FOR sebelum nilai Akhir terpenuhi.
[Exit DO] : Perintah yang digunakan utk menghentikan atau keluar
dari pengulangan DO … LOOP sebelum kondisi yang
ditentukan memenuhi syarat
Instruksi : Kode-kode program yang akan dijalankan jika kondisi
yang ditentukan memenuhi syarat.
(Kondisi) : Kondisi yang dibandingkan kebenarannya.

Contoh :
Buatlah disain form dgn seting properties berikut :

Private Sub FOR_NEXT_Click()
Print
Print
For I = 0 To 10 Step 2
Print " FOR NEXT KE : "; I
If I = 6 Then
Exit For
End If
Next I
End Sub
Kemudian click tombol clear Dulu, lalu click tombol do while hasilnya :

Private Sub DO_WHILE_Click()
Print
Print
I = 10
Do While I > 0
Print " DO WHILE KE : "; I
I = I - 1
If I = 6 Then
Exit Do
End If
Loop
End Sub
Dan Click tombol Clear Dulu, lalu click tombol DO UNTIL hasilnya :

Private Sub DO_UNTIL_Click()
Print
Print
I = 1
Do Until I > 10
Print " DO UNTIL KE : "; I
I = I + 1
If I = 6 Then
Exit Do
End If
Loop
End Sub
Dan Click tombol Clear Dulu, lalu click tombol DO UNTIL hasilnya :

Private Sub WHILE_WEND_Click()
Print
Print
I = 1
While I <= 10
Print " WHILE WEND KE : "; I
I = I + 2
Wend
End Sub
Private Sub KELUAR_Click()
End
End Sub
Private Sub CLS_Click()
CLS
End Sub