Materi Mengenai Perulangan (For .. Next, Nested For .. Next, dan While .. End While)

Struktur FOR .... NEXT

    Struktur for ... next digunakan untuk mengulang perintah dalam jumlah yang sudah ditentukan. Pada struktur for ... next kita tidak perlu menuliskan kondisi yang akan diuji tetapi hanya perlu menuliskan nilai awal dan akhir variabel penghitung. Nilai variabel penghitung akan secara otomatis bertambah atau berkurang setiap kali suatu pengulangan dikerjakan.

Bentuk Struktur for ... next :

            For counter = awal to akhir step pertambahan

                        …ekspresi…

            next counter

Keterangan :

Ø  Counter: variabel integer yang digunakan untuk melakukan proses pengulangan

Ø  Awal: nilai awal suatu variabel untuk menentukan awal pengulangan

Ø  Akhir: nilai suatu variabel untuk menentukan akhir dari pengulangan

Ø  Pertambahan: besarnya perubahan nilai dari nilai awal sampai nilai akhir.

Jika pengulangannya menurun  yaitu dari besar menuju terkecil, maka perubahannya harus bernilai negatif. Nilai standar perubahan vb 6.0 adalah 1.(bisa diubah sesuai keinginan)

Ø Ekspresi: blok perintah yang akan dikerjakan jika kondisi dari pengulangan memenuhi syarat.

Contoh: 

Dim x As Integer

For x = 1 To 10

    Listbox1.Items.Add(x)

Next x

Struktur Nested For ... Next

        Terkadang di dalam perulangan struktur for-next diletakan pula struktur for-next lainnya. Bentuk semacam ini dinamakan nested for. Pada proses semacam ini setiap satu proses pengulangan di struktur for-next bagian luar akan mengerjakan proses pengulangan di struktur for-next bagian dalam sekian kali, sesuai dengan seberapa banyak pengulangan tersebut dilakukan.

Bentuk penulisan dari nested...for seperti berikut:

for counter_1 = awal_1 to akhir_1 step pertambahan

                 for counter_2 = awal_2 to akhir_2 step pertambahan

…ekspresi…

     next counter

next counter

Contoh :

     Dim x, y As Integer

     For x = 1 To 3

     For y = 1 To 2

          ListBox1.Items.Add(x & y)

        Next y

     Next x

Struktur While - End While

     While - End While merupakan salah satu perulangan yang dapat digunakan selain For Next. Logikanya sama saja seperti For..Next, proses perulangan akan terus dilakukan sampai kondisi perulangan mencapai nilai True.
Berikut Contohnya :
    Dim x as Integer
    x = 1
    While x < = 10\
        ListBox1.Items.Add(x)
        x = x + 1
    End While

Keterangan:     • Ketika program dijalankan maka hal yang pertama kali dikerjakan adalah menguji kondisi.

     • Jika kondisi While bernilai benar maka ekspresi akan dijalankan sampai dengan perintah End While, maka akan dikembalikan lagi ke kondisi While untuk diuji kembali kondisi yang sama.
     • Jika kondisinya masih benar maka prosesnya akan diulang, sedangkan jika kondisinya salah maka program akan dilanjutkan dengan menjalankan perintah dibawah End While.