.1. Pengulangan Dengan For…Next
Pengulangan proses menggunakan For…Next adalah bentuk
pengulangan terkendali dengan variabel kendali yang terus berjalan maju atau
mundur. Format penulisan pengulangan ini adalah sebagai berikut:
For variabel = nilai_awal To nilai_akhir [Step langkah]
<Proses dalam pengulangan>
Next variable
Contoh 1:
Untuk menentukan
barisan bilangan 1, 2, 3, …., 10 maka bilangan mempunyai nilai awal = 1, nilai
akhir=10 dan step antar bilangan = 1, sehingga bisa ditulis dengan
For bilangan=1 To 10 Step 1
<Proses untuk barisan bilangan>
Next bilangan
Karena step=1,
maka secara default tidak perlu dituliskan sehingga perintahnya bias ditulis
dengan:
For bilangan=1 To 10
<Proses untuk barisan bilangan>
Next bilangan
Contoh 2:
Menampilkan
barisan bilangan 20, 19, 18, ...., 3, 2, 1 dapat dilakukan dengan:
For bilangan=20 To 1 Step -1
List1.AddItem bilangan
Next bilangan
Contoh 3:
Menampilkan
barisan bilangan 1, 4, 7, 10, 13, 16, 19, 22, .... 3N+1 dapat dilakukan dengan:
For bilangan=0 To N Step -1
List1.AddItem 3*bilangan+1
Next bilangan
Contoh 4:
Menampilkan
barisan fibbonanci sampai N kali (N bilangan bulat positif) dimana nilai saat
ini adalah jumlah dari nilai dua suku sebelumnya. Contoh barisan fibonanci: 1 1
2 3 5 8 13 21 34 ...
suku1=1
suku2=1
List1.AddItem suku1
List1.AddItem suku2
For i=3 To N
bil=suku1+suku2
List1.AddItem bil
suku1=suku2
suku2=bil
Next i
Contoh 5:
Menampilkan
barisan bilangan kelipatan 3 yang lebih kecil dari 100 dan berhenti saat
bilangan tersebut juga kelipatan 7. Untuk menghentikan pengulangan For..Next
sebelum mencapai nilai akhir dapat dilakukan dengan perintah Exit For.
Modul Dasar Pemrograman 2
Dengan Visual Basic 50
For i=3 To 100 Step 3
If i mod 7 = 0 then Exit For
Next i
Contoh 6:
Menampilkan
barisan N bilangan yang berganti-ganti 1 dan -1 seperti :
1
-1 1 -1 1 -1 1 -1 .....
adalah sebagai
berikut:
bilangan = -1;
List1.Clear
For i=1 To N
bilangan = -1 * bilangan
List1.AddItem bilangan
Next i
Atau dengan
cara:
List1.Clear
For i=1 To N
If i mod 2 = 0 then bilangan = -1 else bilangan = 1
List1.AddItem bilangan
Next i
Contoh 7:
Menampilkan
barisan N bilangan yang berganti-ganti positif dan negatif seperti :
1
-2 3 -4 5 -6 7 -N .....
dapat dilakukan
dengan cara mengalikan variable kontrol dari looping (i) dan bilangan sebagai
berikut:
List1.Clear
For i=1 To N
If i mod 2 = 0 then bilangan = -1 else bilangan = 1
List1.AddItem i*bilangan
Next i
2. Pengulangan Dengan While…Wend
Pengulangan dengan While... Wend adalah bentuk pengulangan
terkendali dengan proses akan diulang selama kondisi yang diberikan masih
dipenuhi. Format penulisan pengulangan ini adalah:
While <Kondisi>
<Proses selama kondisi dipenuhi>
Wend
Variabel kontrol
pada jenis looping tidak otomatis bertambah/berkurang seperti pada looping
dengan For...Next, sehingga penambahan atau pengurangan nilai dilakukan dengan
menggunakan akumulator yang dituliskan dengan
var = var + step
Meskipun hal ini
bukan suatu keharusan. Karena tidak setiap looping membutuhkan akumulator,
variabel yang terus-menerus bertambah atau berkurang.
Contoh 8:
Menampilkan
bilangan bulat ganjil dari satu sampai dengan 11, ini merupakan looping dengan
akumulator yang dapat dituliskan sebagai berikut:
bilangan=1
While bilangan<=11
List1.AddItem bilangan
bilangan = bilangan + 2
Wend
Contoh 9:
Mencari nilai
fungsi f(x) = - x2 + 3x – 2 dari x=-1 sampai dengan f(x) mendekati nol, atau
dalam arti |f(x)|<0.001, dengan step 0.01, dapat dituliskan dengan:
x = -1
fx = -x ^ 2 + 3 * x – 2
while abs(fx)>0.001
x=x+0.01
fx = -x ^ 2 + 3 * x – 2
wend
label1.Caption = fx
3. Pengulangan Dengan Do Loop Until
Pengulangan dengan Do Loop Until adalah bentuk pengulangan
terkendali dengan proses akan diulang sampai kondisi yang diberikan dipenuhi.
Format penulisan pengulangan ini adalah:
Do
<Proses selama kondisi belum dipenuhi>
Loop Until <Kondisi>
Contoh 10:
Menampilkan
bilangan bulat ganjil dari satu sampai dengan 11, ini merupakan looping dengan
akumulator yang dapat dituliskan sebagai berikut:
bilangan=1
do
List1.AddItem bilangan
bilangan = bilangan + 2
Loop until bilangan>11
Contoh 11:
Mencari nilai
fungsi f(x) = - x2 + 3x – 2 dari x=-1 sampai dengan f(x) mendekati nol, atau
dalam arti |f(x)|<0.001, dengan step 0.01, dapat dituliskan dengan:
x = -1
do
x=x+0.01
fx = -x ^ 2 + 3 * x – 2
loop until abs(fx) <= 0.001
label1.Caption = fx
4. Pengulangan Bertingkat
Pada contoh-contoh di atas, hanya dilakukan satu pengulangan.
Padahal dalam banyak aplikasi pemrograman menggunakan pengulangan yang lebih
dari satu misalkan pada pengolahan matrik, diperlukan pengulangan untuk baris
dan pengulangan untuk kolom pada setiap baris. Pengulangan yang adalah di dalam
pengulangan inilah yang dinamakan pengulangan bertingkat.
Modul Dasar Pemrograman 2
Dengan Visual Basic 53
Pengulangan bertingkat secara umum dapat dituliskan dengan
bentuk penulisan sebagai berikut:
Pengulangan 1
...............................................
Proses di dalam pengulangan 1
Pengulangan 2
.......................................
Proses dalam pengulangan 2
.......................................
Akhir pengulangan 2
...............................................
Akhir pengulangan 1
Contoh 12.
Menampilkan n
baris dari barisan bilangan 1 2 3 4 5 sebagai berikut:
1 2 3 4 5
1 2 3 4 5
1 2 3 4 5
..............
Dapat ditulis
dengan:
For baris = 1 To N
Kal=””
For i = 1 To 5
Kal = kal & str(i)
Next i
List1.AddItem kal
Next baris
Contoh 13.
Menampilkan 5
baris dari kombinasi barisan bilangan 1 2 3 4 5 sebagai berikut:
1
1 2
1 2 3
1 2 3 4
1 2 3 4 5
Modul Dasar Pemrograman 2
Dengan Visual Basic 54
Perhatikan bahwa
pada baris ke 1 hasilnya adalah dari 1 sampai dengan 1, pada baris ke 2
hasilnya adalah dari 1 sampai dengan 2, pada baris ke 3 hasilnya adalah dari 1
sampai dengan 3. Sehingga dapat dikatakan untuk baris ke i hasilnya adalah dari
1 sampai dengan i. Dan dapat dituliskan sebagai berikut:
For i = 1 To 5
kal = ””
For j=1 To i
kal = kal & str(j)
Next j
List1.AddItem kal
Next i
Contoh 12.
Menampilkan n
baris dari barisan bilangan 1 2 3 4 5 sebagai berikut:
1 2 3 4 5
5 4 3 2 1
1 2 3 4 5
5 4 3 2 1
..............
Perhatikan bahwa
pada baris ganjil hasilnya 1 2 3 4 5 dan pada baris yang genap hasilnya adalah
5 4 3 2 1, maka perlu untuk mengetahui apakah baris itu baris genap/ganjil
untuk menentukan nilai awal, nilai akhir dan step. Dapat ditulis dengan:
For baris = 1 To N
If baris mod 2 =0 Then
Awal = 1 : Akhir = 5
Langkah = 1
Else
Awal = 5 : Akhir = 1
Langkah = -1
End If
Kal=””
For i = awal To akhir Step langkah
Kal = kal & str(i)
Next i
List1.AddItem kal
Next baris