Perulangan atau Looping Pada Visual Basic
Perulangan atau Looping Pada Visual Basic
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.
Bentuk Penulisan:
For Var = [Mulai] to [Selesai] Step [Lompatan]
Statement
Next
Contoh:
Membuat Teks “Visual Basic” sebanyak 10 pada Objek ListBox
Desain Program
Kode Program
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
Dim i As Integer
ListBox1.Items.Clear()
For i = 1 To TxtBil.Text
ListBox1.Items.Add("Visual Basic")
Next
End Sub
Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtnTutup.Click
End
End Sub
Hasil Program
Contoh:
Membuat Deret angka 1 sampai 10
Desain Program
Kode Program
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
Dim i As Integer
ListBox1.Items.Clear()
For i = 1 To 10
ListBox1.Items.Add(i)
Next
End Sub
Private Sub BtnTutup_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtnTutup.Click
End
End Sub
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
Desain Program
Kode Program
Dim i As Integer
i = 1
listbox1.Items.Clear()
Do Until i > 10
listbox1.Items.Add(i)
i=i+1
Loop
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
Desain Program
Kode Program
Dim i As Integer
i = 1
listbox1.Items.Clear()
Do While i <= 10
listbox1.Items.Add(i)
i=i+1
Loop
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
Desain Program
Kode Program
Dim i As Integer
i = 1
listbox1.Items.Clear()
Do
listbox1.Items.Add(i)
i=i+1
Loop Until i > 10
Hasil Program
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
Desain Program
Kode Program
Dim i As Integer
i = 1
listbox1.Items.Clear()
Do
listbox1.Items.Add(i)
i = i + 1
Loop While i <= 10
Hasil Program
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
Desain Program
Kode Program
Dim i As Integer
i = 1
ListBox1.Items.Clear()
While i <= 10
ListBox1.Items.Add(i)
i = i + 1
End While
Hasil Program
Demikina tutorial Perulangan pada Visual Basic, semoga bermanfaat bagi Teamn-teman semua. Terimakasih~

Komentar
Posting Komentar