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
Next
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)
Next
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 Application2. 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:
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
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
No
|
Object
|
Property
|
Nilai
|
1
|
Form
|
Text
|
Perulangan While – End While
|
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()
While i <= 10
LboxHasil.Items.Add(i)
i += 1
End While
End Sub
5. Jalankan program dengan menekan tombol pada keyboard F5
6. Hasil program :
Yuk kita coba kerjain soalnya
biar kita terbiasa
yang digunakan adalah :
label (10)
combox (1)
textbox(8)
button(4)
listview
setelah itu kita masukkan kodenya (alur program)
