Struktur Perulangan di VB 2005

Struktur pengulangan/looping digunakan untuk menjalankan satu atau banyak baris kode secara berulang-ulang. Jenisnya adalah Do…Loop, While…End While, For…Next dan For…Each…Next. Pernyataan Do…Loop dapat anda gunakan jika belum tahu berapa kali pengulangan blok pernyataan. Jika Anda sudah tahu berapa kalo pengulangan blok pernyataan digunakan For…Next.

Do…Loop

Do…Loop memungkinkan anda mengeksekusi serangkaian pernyataan berulang-ulang selama kondisi pengujian tetap benar. VB akan mengevaluasi ekspresi dan jika bernilai benar, pernyataan akan dijalankan. Ketika sampai pada bagian akhir blok, ekspresi akan diuji lagi dan jika bernilai benar maka pernyataan akan diulang. Namun jika ekspresi bernilai salah maka program akan dilanjutkan ke pernyataan setelah loop. Ada empat variari Do…Loop, dua yang pertama memiliki model yang sama. Pengualan akan dilakukan ketika kondisi bernilai benar atau sampai kondisinya bernilai benar. Keduai variasi menggunakan kata kunci While dan Until untuk menunjukkan berapa lama kondisi menjadi benar. Untuk menjalankan blok pernyataan While kondisi bernilai benar digunakan sintaks berikut.

Do While Kondisi

BlokPernyataan

Loop

Untuk menjalankan blok pernyataan Until kondisi menjadi benar digunakan sintaks berikut ini:

Do Until Kondisi

BlokPernyataan

Loop

Ketika VB menjalankan pengulangan di atas, yang pertama dilakukan adalah menguji kondisi, jika kondisi bernilai salah pernyataan pengulangan Do While akan dilewati tetapi pengulangan Do Until akan dijalankan. Ketika sampai pernyataan Loop, VB akan menguji ekspresi lagi dan mengulang blok pernyataan dari pengulangan Do While jika ekspresi bernilai salah dan pengulangan Do until jika ekspresi bernilai benar. Jika While akan berulang selama pengujian ekspresinya benar, sedangkan Until akan berulang selama kondisi ekspresinya salah.

Contoh Do While

Dim Nilai As Integer = 0

Do While Nilai < 100

Nilai += 5

Loop

‘Hasilnya 5, 10, 15, 20, … sampai 100

Contoh Do Until

Dim Nilai As Integer = 0

Do Until Nilai >= 100

Nilai += 5

Loop

‘Hasilnya sama seperti Do While di atas

Variasi lain dari pengulangan Do Loop adalah menjalankan pernyataan dulu dan
menguji kondisi setelah pernyataan dijalankan. Sintaksnya:

Do

BlokPernyataan

Loop While Kondisi

Atau

Do

BlokPernyataan

LoopUntil Kondisi

Contoh Loop While:

Dim Nilai As Integer = 0

Do

Nilai += 5

Loop While Nilai < 100

Contoh Loop Until

Dim Nilai As Integer = 0

Do

Nilai += 5

Loop Until Nilai >= 100

While…End While

Pengulangan While…End While akan menjalankan suatu blok pernyataan selama kondisi bernilai benar. Sintaksnya sebagai berikut:

While Kondisi

BlokPernyataan

End While

Jika kondisi bernilai benar, semua blok pernyataan akan dijalankan dan ketika mencapai End While, kontrol akan dikembalikan ke pernyataan While dan menguji kembali kondisi. Jika masih benar prosesnya akan diulang. Jika kondisinya bernilai salah, program akan dilanjutkan pada pernyataan setelah End While. Contoh kode berikut untuk menghitung faktorial dari nilai. Lihat Program berikut ini;

While (Nilai > 1)

Jumlah *= Nilai

Nilai -= 1

End While

For… Next

Pada pengulangan For…Next, Anda harus mengetahui berapa kali pernyataan dalam pengulangan akan dijalankan. Pengulangan For…Next menggunakan suatu variabel (disebut counter) yang nilainya akan bertambah atau berkurang selama proses tiap pengulangan dari loop. Pengulangan For…Next memiliki sintaks sebagai berikut:

For Counter = awal To Akhir [Step penambahan/pengurangan]

Pernyataan

Next [counter]

Argumen counter, awal, akhir dan penambahan/pengurangan semuanya adalah numerik. Pengulangan akan terus dijalankan sampai mencapai nilai counter. Contoh pengulangan For…Next adalah sebagai berikut:

Dim n As Integer

For n = 1 To 10 Step 2

‘Menambahkan item ke daftar ListBox

lstData.Items.Add(“Item ke ” & n)

Next

For Each…Next

Pernyataan For Each mirip dengan pernyataan For…Next, kecuali variable pengulangan yang diperlukan bukan numerik melainkan array dan collection. Pernyataan For Each akan mengulang untuk tiap-tiap elemen dalam array atau collection. Sintaksnya sebagai berikut:

For Each elemen In grup

[pernyataan]

[Exit For]

[Pernyataan]

Next

Elemen harus sama tipe datanya dengan tiap-tiap item dalam array atau collection. Grup adalah array atau collection. Langkah pengulangan secara otomatis melalui tiap-tiap elemen dalam array atau collection dan keluar dari pengulangan setelah mencapai akhir dari array atau collection. Contoh:

Dim NamaHewan As String

Dim Hewan() As String={“Kucing”, “Anjing”, “Monyet”} ‘Array

For Each NamaHewan In Hewan

‘tambahkan masing-masing data ke listbox

LstHasil.Items.Add(NamaHewan)

Next

  1. Leave a comment

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: