Struktur Pengulangan Pada Visual Basic

STRUKTUR PENGULANGAN PADA VISUAL BASIC 6.0

Pengulangan (Looping) dalam proses pembuatan program, umumnya digunakan untuk mengeksekusi satu atau beberapa baris kode program secara berulang-ulang. Banyaknya pengulangan dapat ditentukan sesuai dengan kondisi yang diberikan. Dengan kata lain, pengulangan tersebut akan dilakukan selama kondisi tersebut memenuhi syarat (bernilai True), apabila kondisi tersebut tidak memenuhi syarat (bernilai False) maka pengulangan akan dihentikan. Berikut ini beberapa struktur pengulangan yang umumnya dilibatkan dalam proses pembuatan program aplikasi.

1. Struktur For…Next

Struktur pengulangan ini adalah dimana satu atau beberapa baris kode program akan diulang sebanyak jumlah yang telah ditetapkan. Berikut adalah aturan penulisannya:

For = to Step

Next

Dimana :

· Var adalah variabel numeric sebagai tempat untuk menghitung proses pengulangan.

· Awal adalah nilai awal variabel penghitung.

· Akhir adalah nilai akhir variabel penghitung.

· Penambahan bersifat optional, nilai untuk menentukan penambahan atau pengurangan variabel penghitung.

· Pernyataan berisi datu atau beberapa baris kode program yang akan diulang.

Contoh 1: untuk menampilkan teks “Visual Basic” pada kontrol Combo1 yang akan diulang sebanyak 5 kali :

For a = 1 to 5

Combo1.AddItem “Visual Basic”

Next a

Contoh 2 : untuk menampilkan ukuran Font 8 sampai 24 dengan step penambahan 2:

Hasilnya 8 10 12 14 16 18 20 22 24

For angka = 8 to 24 Step 2

List1.AddItem angka

Next angka

2. Struktur Do While…Loop

Struktur pengulangan ini adalah dimana proses pengulangan tersebut akan berlangsung hingga suatu kondisi bernilai benar (true). Berikut adalah aturan penulisannya:

Do While

Loop

Berikut contoh untuk menampilkan angka 1 sampai 10 pada kontrol ListBox:

Do While angka <= 10

Angka = angka + 1

List1.AddItem angka

Loop

3. Struktur Do Until…Loop

Struktur pengulangan ini adalah kebalikan dari pengulangan Do While…Loop, dimana apabila kondisi pengulangan tidak memenuhi syarat (bernilai False), maka pernyataan didalam kondisi tersebut akan diulang terus menerus sampai (until) kondisi memenuhi syarat (bernilai True). Berikut adalah aturan penulisannya:

Do Until

Loop

Berikut contoh untuk menampilkan angka 1 sampai 5 pada kontrol ListBox:

Do Until angka >= 5

Angka = angka + 1

List1.AddItem angka

Loop

4. Struktur While…Wend

Struktur pengulangan ini mirip dengan struktur pengulangan Do While…Loop, dimana proses pengulangan tersebut akan berlangsung hingga kondisi memenuhi syarat (bernilai True). Berikut adalah aturan penulisannya:

While

Wend

Berikut contoh untuk menampilkan angka 1 sampai 5 pada kontrol ComboBox:

While angka < 5

Angka = angka + 1

Combo1.AddItem angka

Wend