Pengulangan For, Do While, Do Until dan While di VB.NET

Perulangan

adalah proses mengulang-ulang eksekusi blok kode tanpa henti, selama kondisi yang dijadikan acuan terpenuhi. Biasanya disiapkan variabel untuk iterasi atau variabel penanda kapan perulangan akan diberhentikan.

Pada tutorial ini kita akan membahas perulangan For, Do While, Do Until dan While di VB.NET, Oke langsung saja.

For-Next

For Next – For… Next merupakan perintah pengulangan yang menggunakan variabel konter untuk menaikan atau menurunkan suatu nilai selama proses perulangan masih berlangsung. Dimana variabel konter merupakan variabel yang menyatakan pengulangan bertipe numerik.

For konter = (nilai awal) to (nilai akhir)
Statemen
Next (konter)

Do While - Loop

Do While – merupakan perintah pengulangan yang menggunakan variabel konter untuk menaikan atau menurunkan suatu nilai selama proses perulangan masih berlangsung selama kondisi masih bernilai true. Dimana variabel konter merupakan variabel yang menyatakan pengulangan bertipe numerik.

Do While = (nilai awal) to (nilai akhir)
Statemen
Loop (konter)

Do Until - Loop

Do Until – merupakan perintah pengulangan yang menggunakan variabel konter untuk menaikan atau menurunkan suatu nilai selama proses perulangan masih berlangsung selama kondisi masih bernilai true. Dimana variabel konter merupakan variabel yang menyatakan pengulangan bertipe numerik.

Do Until = (nilai awal) to (nilai akhir)
Statemen
Loop (konter)

While - End While

While - End While - merupakan perintah pengulangan yang menggunakan variabel konter untuk menaikan atau menurunkan suatu nilai selama proses perulangan masih berlangsung selama kondisi masih bernilai true. Dimana variabel konter merupakan variabel yang menyatakan pengulangan bertipe numerik.

While = (nilai awal) to (nilai akhir)
Statemen
End While (konter)

Untuk memperdalam pemahaman Anda mari kita praktekkan.

Langkah Pertama

Sobat buka VB.Net tahun 2010 atau versi lainnya selama dia VB.Net. Pada tutorial ini saya menggunakan VB.Net 2010.

Langkah Kedua

Jika sudah terbuka, Pilih File > New Project > beri nama "tutorial" atau sesuai dengan keinginan Anda > Windows Forms Application > Click Ok.

Langkah Ketiga

Buatlah design form seperti gambar dibawah ini.

Buatlah sebuah ListBox klik dua kali dari toolbox dan beri nama dengan ListBoxData.
Buatlah sebuah Button klik dua kali dari toolbox dan beri nama BtnForNext.
Buatlah sebuah Button klik dua kali dari toolbox dan beri nama BtnDoWhile.
Buatlah sebuah Button klik dua kali dari toolbox dan beri nama BtnDoUntil.
Buatlah sebuah Button klik dua kali dari toolbox dan beri nama BtnWhile.
Buatlah sebuah Button klik dua kali dari toolbox dan beri nama BtnClear.

Langkah Keempat

Setelah selesai langkah Ketiga maka ketiklah kode dibawah ini.

Public Class FormPerulangan
    Dim i As Integer

    Private Sub BtnClear_Click(sender As System.Object, e As System.EventArgs) Handles BtnClear.Click
        ListBoxData.Items.Clear()
    End Sub

    Private Sub BtnWhile_Click(sender As System.Object, e As System.EventArgs) Handles BtnWhile.Click
        ListBoxData.Items.Clear()
        i = 1

        'sama dengan do While
        While i <= 10
            ListBoxData.Items.Add(i)
            i = i + 1
        End While
    End Sub

    Private Sub BtnDoUntil_Click(sender As System.Object, e As System.EventArgs) Handles BtnDoUntil.Click
        ListBoxData.Items.Clear()
        i = 1

        'kondisi i > 15 adalah false karena i = 1 karena itu program akan berkerja hingga kondisi true
        Do Until i > 15
            ListBoxData.Items.Add(i)
            i = i + 1
        Loop
    End Sub

    Private Sub BtnDoWhile_Click(sender As System.Object, e As System.EventArgs) Handles BtnDoWhile.Click
        ListBoxData.Items.Clear()
        i = 1

        'kondisi i <= 20 true jadi program akan berkerja selama kondisi masih true
        Do While i <= 20
            ListBoxData.Items.Add(i)
            i = i + 1
        Loop
    End Sub

    Private Sub BtnForNext_Click(sender As System.Object, e As System.EventArgs) Handles BtnForNext.Click
        ListBoxData.Items.Clear()

        'Pengulangan dilakukan dari 1 sampai 25
        For Me.i = 1 To 25
            ListBoxData.Items.Add(i)
        Next
    End Sub

End Class

Langkah Kelima

Jalankan Program dengan menekan tombol play warna hijau atau dengan menekan f5 pada keyboard, Anda akan melihat hasilnya seperti gambar dibawah ini.

Sampai disini dulu tutorial dari kita, semoga tutorial ini bermanfaat bagi anda dan jika bermanfaat jangan lupa di share, atas segala kekuranganya mohon dimaafkan, jika ada yang ingin ditanyakan silahkan tinggalkan komentar.