Pelajaran 5

PERULANGAN
Untuk melaksanakan suatu pernyataan secara berulang (atau Loop) sebanyak yang diperlukan atau sampai suatu kondisi terpenuhi, dapat dilakukan dengan struktur perulangan. Visual Basic memiliki beberapa bentuk kriteria perulangan antara lain.

1. Pengujian di awal. Pada struktur perulangan ini, ada kemungkinan blok pernyataan tidak akan dieksekusi karena kondisi awal sudah tidak memenuhi syarat perulangan.
2. Pengujian di akhir. Pada struktur perulangan ini, blok pernyataan minimal satu kali dieksekusi.
3. Bentuk iteratif yang dilakukan sebanyak selisih dari nilai_akhir - nilai_awal + 1.
   

Pada struktur perulangan secara umum memiliki tiga buah parameter, yaitu:

• Nilai awal dari variabel kontrol (nilai default dari tipe data jika tidak didefinisikan)
• Syarat atau kondisi terjadinya perulangan
• Blok pernyataan yang diulang

DO LOOP
Bentuk dapat digunakan untuk menguji di awal maupun di akhir perulangan.

1. Pengujian di awal

Do While kondisi
blok pernyataan
Loop

Do Until kondisi
blok pernyataan
Loop

2. Pengujian di akhir.

Do
blok pernyataan
Loop While kondisi

Do
blok pernyataan
Loop Until kondisi

Kondisi adalah pernyataan yang menghasilkan nilai TRUE atau FALSE.
Misal I < 10.

CONTOH:

Private Sub Command1_Click()
Do
Print I
I = I + 1
Loop While I <= 10 End Sub   Private Sub Command2_Click() Do While I <= 1000     Print I     I = I + 1 Loop End Sub    Private Sub Command3_Click() Do     Print I     I = I + 1 Loop Until I > 10
End Sub

Private Sub Command4_Click()
Do Until I > 10
Print I
I = I + 1
Loop
End Sub 

FOR ... NEXT
Bentuk blok perulangan FOR :

For Var = NilaiAwal to NilaiAkhir [Step NilaiIncrement]
blok pernyataan
Next[Var]

Pernyataan dalam tanda [...] adalah pilihan. NilaiIncrement adalah nilai yang digunakan untuk setiap penambahan dari NilaiAwal ke NilaiAkhir. Default adalah 1. Jika NilaiIncrement bertanda negatif, maka digunakan untuk setiap pengurangan dari NilaiAwal dengan NilaiAkhir.

CONTOH:

Private Sub Command1_Click()
For I=1 to 5 Step 2
Print I
Next I
End Sub
Akan ditampilkan 1,3,5

Private Sub Command1_Click()
For I=1 to 5 Step -2
Print I
Next I
End Sub
Tidak akan diproses karena syarat TO tidak akan terpenuhi

Private Sub Command1_Click()
For I=5 to 1 Step -2
Print I
Next I
End Sub
Akan ditampilkan 5,3,1