PERULANGAN (LOOPING) _ Modul - 7

PERULANGAN (LOOPING)

•  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 1:

Membuat Teks “Visual Basic” sebanyak 10 pada Objek ListBox

1. Desain Awal

2. Kode Program
Double Click Tombol Proses
Public Class Form1

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Dim i As Integer
        ListBox1.Items.Clear()
        For i = 1 To 10
            ListBox1.Items.Add("Visual Basic")
        Next
    End Sub
End Class
3. Tampilan hasil program

Membuat Deret angka 1 sampai 10
1. Desain Awal

2. Kode Program
Double Click tombol proses
Public Class Form1

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Dim i As Integer
        ListBox1.Items.Clear()
        For i = 1 To 10
            ListBox1.Items.Add(i)
        Next
    End Sub
End Class

3. Tampilan 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
Kode Program
Public Class Form1

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Dim i As Integer
        i = 1

        ListBox1.Items.Clear()
        Do Until i > 10
            ListBox1.Items.Add(i)
            i = i + 1
        Loop

    End Sub
End Class
Tampilan 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
 Kode Program
Public Class Form1

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Dim i As Integer
        i = 1

        ListBox1.Items.Clear()
        Do While i <= 10
            ListBox1.Items.Add(i)
            i = i + 1
        Loop

    End Sub
End Class
Tampilan 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