Tujuan
Memberikan pemahaman tentang
perulangan dan penggunaannya sesuai perintah.
Perulangan
Perulangan digunakan untuk mengulang kode program (repetition, looping,
recursive). selama kondisi memenuhi, kode dalam statements akan diulang
terus-menerus hingga kondisi tidak lagi memenuhi. Jika terjadi kesalahan dalam
penulisan kode, looping tidak akan berhenti dan menimbulkan error.
Dalam visual Basic 2008 terdapat beberapa perintah yang dapat digunakan
untuk perulangan, yaitu:
a.
For … Next
b.
Do … Loop
c.
While…End While
Setiap perulangan mempunyai kelebihan masing-masing, sehingga dapat dipilih
sesuai dengan masalah yang dihadapi.
For … Next Statement
Loop dengan perintah For...Next cocok digunakan untuk perulangan dengan
jumlah yang pasti.
Bentuk Penulisan:
For Var = [Mulai]
to [Selesai] Step [Lompatan]
Statement
Next
Contoh:
Membuat
Teks “Visual Basic” sebanyak 10 pada Objek ListBox
Dim i As Integer
listbox1.Items.Clear()
For i = 1 to TXTBIL.TEXT
listbox1.Items.Add(“Visual
Basic”)
Next
Membuat
Deret angka 1 sampai 10
Dim i As Integer
listbox1.Items.Clear()
For i = 1 to 10
listbox1.Items.Add(i)
Next
Do … Loop Statement
Perulangan Do…Loop digunakan untuk perulangan yang jumlah perulangannya
tidak diketahui. Perulangan ini akan dijalankan sesuai kondisi yang telah
ditetapkan.
Pemeriksaan Kondisi pada Do…Loop dapat dilakukan diawal dan diakhir.
Kondisi akan dijalankan pada dua keadaan yaitu Until dan While.
Do…Loop dengan Pemeriksaan diawal
1. Do Until …
Loop
Perulangan akan
dilakukan ketika kondisi bernilai salah dan berhenti sampai ketika kondisi
bernilai benar.
BP:
Do Until
<kondisi>
statement
Loop
Contoh:
Membuat Deret
angka 1 sampai 10
Dim i As Integer
i = 1
listbox1.Items.Clear()
Do Until i
> 10
listbox1.Items.Add(i)
i=i+1
Loop
2. Do While …
Loop
Loop dengan do
While cocok digunakan pada perulangan yang terjadi selama kondisi tertentu
memenuhi syarat (selama kondisi benar, statement akan dijalankan terus).
BP:
Do While
<kondisi>
statement
Loop
Contoh:
Membuat Deret
angka 1 sampai 10
Dim i As Integer
i = 1
listbox1.Items.Clear()
Do While i <=
10
listbox1.Items.Add(i)
i=i+1
Loop
Do…Loop dengan Pemeriksaan diakhir
1. Do … Loop
Until
Perulangan akan
dilakukan ketika kondisi bernilai salah dan berhenti sampai ketika kondisi
bernilai benar.
BP:
Do
statement
Loop until <kondisi>
Contoh:
Membuat Deret
angka 1 sampai 10
Dim i As Integer
i = 1
listbox1.Items.Clear()
Do
listbox1.Items.Add(i)
i=i+1
Loop Until i > 10
2. Do … Loop
While
Loop dengan do
While cocok digunakan pada perulangan yang terjadi selama kondisi tertentu memenuhi
syarat (selama kondisi benar, statement akan dijalankan terus).
BP:
Do
statement
Loop While <kondisi>
Contoh:
Membuat Deret
angka 1 sampai 10
Dim i As Integer
i = 1
listbox1.Items.Clear()
Do
listbox1.Items.Add(i)
i = i + 1
Loop While i <= 10
While … End
While
Perulangan
While…End While tidak jauh berbeda dengan perulangan do … loop digunakan untuk
perulangan yang jumlah perulangannya tidak diketahui. Perulangan ini akan
dijalankan sesuai kondisi yang telah ditetapkan.
BP:
While <kondisi>
statement
End While
Contoh:
Membuat Deret
angka 1 sampai 10
Dim i As Integer
i = 1
ListBox1.Items.Clear()
While i
<= 10
ListBox1.Items.Add(i)
i = i + 1
End While