Tujuan

Memberikan pemahaman tentang perulangan dan penggunaannya sesuai perintah.

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.

For … Next. Digunakan untuk mengulangi suatu perintah dalam jumlah yang telah ditentukan. Dengan menggunakan For-Next anda dapat menentukan berapa kali pengulangan akan dilakukan. Bentuk sintaxnya adalah sebagai berikut :
For cacah = Awal to Akhir
Aksi
Next

Bentuk Penulisan:

For Var = [Mulai] to [Selesai] Step [Lompatan]

Statement

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

contoh :

Aplikasi Perulangan For – Next dengan Visual Basic 2008 - Pada tutorial ini saya akan memberikan contoh perulangan For - Next, hasil perulangan akan di tampilkan pada ListBox. Berikut langkah - langkah membuat aplikasi perulangan dengan For - Next :
1. Buat lah project baru Windows Form Application

2. Masukkan kontrol – kontrol berikut

No	Object	Property	Nilai
1	Form	Text	Perulangan For – Next
2	ListBox1	Name	LboxHasil
3	Button	Name Text	BtnProses Proses

3. Desain project sesuai dengan gambar berikut :

4. Masukkan kode program berikut pada tombol Proses dengan Event Click

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtnProses.Click

Dim i As Integer

LboxHasil.Items.Clear()

For i = 1 To 10

LboxHasil.Items.Add(i)

End Sub

5. Jalankan program dengan menekan tombol pada keyboard F5

6. Hasil program :

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

Aplikasi Perulangan Do Until – Loop dengan Visual Basic 2008

Aplikasi Perulangan Do Until – Loop dengan Visual Basic 2008 - Pada tutorial ini saya akan memberikan contoh perulangan Do Until - Loop, hasil perulangan akan di tampilkan pada ListBox. Berikut langkah - langkah membuat aplikasi perulangan dengan Do Until - Loop:

1. Buat lah project baru Windows Form Application
2. Masukkan kontrol – kontrol berikut

No	Object	Property	Nilai
1	Form	Text	Perulangan Do Until – Loop
2	ListBox1	Name	LboxHasil
3	Button1	Name Text	BtnProses Proses

3. Desain project sesuai dengan gambar berikut :

. Masukkan kode program berikut pada tombol Proses dengan Event Click

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtnProses.Click

Dim i As Integer

i = 1

LboxHasil.Items.Clear()

Do Until i > 10

LboxHasil.Items.Add(i)

i += 1

Loop

End Sub

5. Jalankan program dengan menekan tombol pada keyboard F5

6. Hasil program

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

Aplikasi Perulangan Do While – Loop dengan Visual Basic 2008 - Pada tutorial ini saya akan memberikan contoh perulangan Do While - Loop, hasil perulangan akan di tampilkan pada ListBox. Berikut langkah - langkah membuat aplikasi perulangan dengan Do While - Loop:

1. Buat lah project baru Windows Form Application

2. Masukkan kontrol – kontrol berikut

No	Object	Property	Nilai
1	Form	Text	Perulangan Do While – Loop
2	ListBox1	Name	LboxHasil
3	Button1	Name Text	BtnProses Proses

3. Desain project sesuai dengan gambar berikut :

4. Masukkan kode program berikut pada tombol Proses dengan Event Click

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtnProses.Click

Dim i As Integer

i = 1

LboxHasil.Items.Clear()

Do While i <= 10

LboxHasil.Items.Add(i)

i += 1

Loop

End Sub

5. Jalankan program dengan menekan tombol pada keyboard F5

6. Hasil program :

Do…Loop dengan Pemeriksaan diakhir

1. Do … Loop Until

Perulangan akan dilakukan ketika kondisi bernilai salah dan berhenti sampai ketika kondisi bernilai benar.

BP:

statement

Loop until <kondisi>

Contoh:

Membuat Deret angka 1 sampai 10

Dim i As Integer

i = 1

listbox1.Items.Clear()

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:

statement

Loop While <kondisi>

Contoh:

Membuat Deret angka 1 sampai 10

Dim i As Integer

i = 1

listbox1.Items.Clear()

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

Aplikasi Perulangan While - End While dengan Visual Basic 2008 - Pada tutorial ini, saya akan membuat contoh perulangan While - End While. Pada contoh ini hasil dari perulangan akan ditampilkan pada ListBox. Berikut langkah - langkah aplikasi perulangan dengan While - End While:

1 Buat lah project baru Windows Form Application

2. Masukkan kontrol – kontrol berikut