Fungsi Perulangan (LOOPING) pada Microsoft Visual Studio 2008

✪ 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

• Tweet
• Share
• Share