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:
For Next
Do Loop
WhileEnd 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 10
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 DoLoop digunakan untuk perulangan yang jumlah perulangannya
tidak diketahui. Perulangan ini akan dijalankan sesuai kondisi yang
telah ditetapkan.
Pemeriksaan Kondisi pada DoLoop dapat dilakukan diawal dan diakhir.
Kondisi akan dijalankan pada dua keadaan yaitu Until dan While.
DoLoop 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
DoLoop 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 WhileEnd 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
