VB 6 Menyediakan struktur kontrol untuk mengendalikan instruksi program yang dilaksanakan berulang-ulang, diantaranya : FOR…, DO…, dan WHILE…,
- 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
- 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)
- 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 :
OBJECT | PROPERTIES / NILAI | PROPERTIES / NILAI |
Form1
|
Caption = Struktur Kontrol
|
-
|
Command Button1
|
Caption = FOR NEXT
|
Name = FOR_NEXT
|
Command Button2
|
Caption = DO WHILE
|
Name = DO_WHILE
|
Command Button3
|
Caption = DO UNTIL
|
Name = DO_UNTIL
|
Command Button4
|
Caption = WHILE WEND
|
Name = WHILE_WEND
|
Command Button5
|
Caption = CLEAR DULU
|
Name = CLS
|
Command Button6
|
Caption = KELUAR
|
Name = KELUAR
|
Penyelesaian :
STRUKTUR KONTROL = [] X
KELUAR
FOR NEXT KE : 0
FOR NEXT KE : 2
FOR NEXT KE : 4
FOR NEXT KE : 6
CLEAR DULU DULU
DO UNTIL
DO WHILE
FOR NEXT
WHILE WEND
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 :
DO WHILE KE : 10
DO WHILE KE : 9
DO WHILE KE : 8
DO WHILE KE : 7
FOR NEXT
DO WHILE
DO UNTIL
WHILE WEND
CLEAR DULU DULU
KELUAR
STRUKTUR KONTROL = [] X
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 :
DO UNTIL KE : 1
DO UNTIL KE : 2
DO UNTIL KE : 3
DO UNTIL KE : 4
DO UNTIL KE : 5
FOR NEXT
DO WHILE
DO UNTIL
WHILE WEND
CLEAR DULU
KELUAR
STRUKTUR KONTROL = [] X
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 :
STRUKTUR KONTROL = [] X
KELUAR
CLEAR DULU
WHILE WEND
DO UNTIL
DO WHILE
FOR NEXT
WHILE WEND KE : 1
WHILE WEND KE : 3
WHILE WEND KE : 5
WHILE WEND KE : 7
WHILE WEND KE : 9
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
No comments:
Post a Comment