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
Nex
t

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

Postingan populer dari blog ini

Fungsi IF dan Case Pada Visual Basic

Struktur Keputusan Pada Visual Basic

TIPE DATA DAN VARIABEL