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


Oleh: Aguzrybudy,

Tanggal: 18 September 2019

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 lansung 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 pemahan Anda mari kita praktekan

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 langka 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.

Tags

Share Article