Menggunakan Struktur Looping For, While, Do, Dkk #tutorialvb.net – priacoding. Pada postingan kali ini akan membahas tentang bagaimana cara Menggunakan Struktur looping For, While, Do Dan Kawan-kawan pada VB.Net.
Looping adalah pengulangan sesuatu atau serangkaian “kerja” dari program. Penggunaan looping pada program sangatlah penting guna dan tujuan untuk melakukan pekerjaan yang berulang-ulang dengan menggukan syntax yang singkat dan pada VB.Net ada banyak syntax looping di antaranya:
1. For … NextPengulangan bentuk For … Next dapat digunakan apabila diketahui sampai berapa kali pengulangan akan dilakukan. Itu karena pada pengulangan bentuk ini, harus ditentukan nilai awal dan nilai akhir dari pengulangan yang akan dilakukan. Awal dan nilai akhir inilah menjadi kondisi pada pengulangan bentuk for … Next.
Pada Looping for … Next kita akan membuat Looping untuk menampilkan Tahun pada sebuah ComboBox.
Contoh 1 :Masukan satu buah ComboBox pada project anda setelah itu silahkan pastekan Coding dibawah..

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim i As Integer
        For i = 2010 To Year(Now)
            ComboBox1.Items.Add(i)
        Next
    End Sub

Maka akan menghasilkan..

Penjelasan :
i → Merupakan variable yang memiliki type data integer
For i = 2010 To Year(Now) → Coding untuk menampilkan tahun, artinya tahun yang akan di tampilkan mulai dari 2010 sampai tahun sekarang (2019)
ComboBox1.Items.Add(i) → Coding untuk menempatkan variable tahun yang akan ditampilkan kedalam ComboBox
Selain menggunakan pecahan naik atau positif, bentuk ini contoh penggunaan dari bentuk pengulangan for … Next dengan pecahan turun atau negatif.
Contoh 2 :Silahkan pastekan Coding dibawah..

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim i As Integer
        For i = Year(Now) To 2010 Step -1
            ComboBox1.Items.Add(i)
        Next
    End Sub

Maka akan menghasilkan..

Step -1 → Merupakan Coding untuk menampilkan urutan menurun atau negatif, hasilnya akan berbeda jika tanda (-) dihilangkan.
2. For Each … NextPengulangan For Each mirip dengan pengulangan For … Next, kecuali variabel yang diperlukan bukan numerik melainkan array atau collection. Pengulangan For Each akan mengulang untuk setiap elemen dalam array atau collection.
Contoh :Masih seputar ComboBox, masukan satu buah ComboBox pada project anda setelah itu silahkan pastekan Coding dibawah..

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim namasiswa As String
        Dim nama() As String = {"Budi", "Andi", "Dewi", "Dila", "Iqbal"}
        For Each namasiswa In nama
            ComboBox1.Items.Add(namasiswa )
        Next
    End Sub

Maka akan menghasilkan..

Penjelasan :
namasiswa → Merupakan variable yang memiliki type data string
nama() → Merupakan variable yang memiliki type data string yang didalamnya terdapat beberapa nama siswa di antaranya Budi, Andi, Dewi, Dila, Iqbal
For Each namasiswa In nama → Coding untuk mengentrikan variable nama kedalam variable namasiswa
ComboBox1.Items.Add(namasiswa) → Coding untuk menempatkan variable namasiswa ke dalam ComboBox
3. While … End WhileBentuk pengulangan While … End While berhenti jika kondisi telah bernilai salah (false). Kondisi dari bentuk pengulangan ini diletakkan diawal.
Contoh :Masih seputar ComboBox, kali ini kita akan menampilkan deret angka kedalamnya, masukan satu buah ComboBox pada project anda setelah itu silahkan pastekan Coding dibawah..

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim i As Integer
        i = 0
        While i < 10
            i = i + 1
            ComboBox1.Items.Add(i)
        End While
    End Sub

Maka akan menghasilkan..

Penjelasan :
i → Merupakan variable yang memiliki type data integer
i = 0 → Coding untuk menetapkan nilai variable i untuk petama kali
While i < 10 → Coding untuk menentukan variable i akan dilakukan pengulangan berapa kali, pada kasus ini pengulangannya 10 kali dan nilainya kecil dari 10
i = i + 1 → Coding untuk mengkondisikan nilai i kembali
ComboBox1.Items.Add(i) → Coding untuk menempatkan variable i ke dalam ComboBox
4. Do While … loopPengulangan Do While … Loop merupakan loop yang sangat mirip dengan While … End While.Yang membedakan Do While … Loop dengan While … End While adalah perintah Exit Do. Perintah tersebut adalah perintah untuk memaksa program menghentikan pengulangan sebelum pengulangan berakhir pada bentuk pengulangan Do While … Loop.Perintah ini digunakan pada kondisi tertentu saja. Jika menggunakan perintah ini harus ada kondisi yang mendahuluinya.
Contoh :Masih seputar ComboBox, menampilkan deret angka kedalamnya, silahkan pastekan Coding dibawah..

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim i As Integer = 0
        Do While i < 10
            i = i + 1
            ComboBox1.Items.Add(i)
            If i = 5 Then
                Exit Do
            End If
        Loop
    End Sub

Maka akan menghasilkan..

Penjelasan :
Dim i As Integer = 0 → Merupakan variable yang memiliki type data integer dan nilainya 0
Do While i < 10 → Coding untuk menentukan variable i akan dilakukan pengulangan berapa kali, pada kasus ini pengulangannya 10 kali dan nilainya kecil dari 10
i = i + 1 → Coding untuk mengkondisikan nilai i kembali
ComboBox1.Items.Add(i) → Coding untuk menempatkan variable i ke dalam ComboBox
If i = 5 Then → Coding untuk mengkondisikan nilai i, pada kasus ini jika nilai i = 5
Exit Do → Coding untuk menghentikan pengulangan (Looping)
Pada contoh tersebut walaupun pengulangan harus dilakukan sampai 10 kali, tetapi dengan menggunakan perintah Exit Do, pengulangan hanya dilakukan sampai 5 kali saja.
5. Do Until … LoopBentuk pengulangan Do Until … Loop hampir sama dengan pengulangan While … End While dan Do While … Loop. Perbedaannya adalah kalau pada pengulangan bentuk While … End While dan Do While … Loop pengulangan dihentikan pada waktu kondisi bernilai salah (false), sedangkan pada bentuk Do Until … Loop pengulangan dihentikan pada waktu kondisi bernilai benar (true).
Contoh :Masih seputar ComboBox, menampilkan deret angka kedalamnya, silahkan pastekan Coding dibawah..

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim i As Integer = 0
        Do Until i >= 10
            i = i + 1
            ComboBox1.Items.Add(i)
        Loop
    End Sub

Maka akan menghasilkan..

Penjelasan :
Dim i As Integer = 0 → Merupakan variable yang memiliki type data integer dan nilainya 0
Do Until i >= 10 → Coding untuk menentukan variable i akan berhenti jika nilai i lebih besar dari 10
i = i + 1 → Coding untuk mengkondisikan nilai i kembali
ComboBox1.Items.Add(i) → Coding untuk menempatkan variable i ke dalam ComboBox
Seperti yang telah di jelaskan diatas tadi, untuk pengulangan Do Until … Loop pengulangan berhenti jika kondisi bernilai salah (false), pada kasus ini pengulangan berhenti jika lebih besar dari 10.
6. Do … Loop WhileBentuk pengulangan Do … Loop While berhenti jika kondisi telah bernilai salah (false). Selama kondisi masih bernilai benar (true), pengulangan akan dilakukan terus. Bentuk pengulangan Do … Loop While merupakan bentuk pengulangan yang kondisinya terletak di akhir pengulangan.
Contoh :Masih seputar ComboBox, menampilkan deret angka kedalamnya, silahkan pastekan Coding dibawah..

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim i As Integer = 0
        Do
            i = i + 1
            ComboBox1.Items.Add(i)
        Loop While i < 10
    End Sub

Maka akan menghasilkan..

Penjelasan :
Dim i As Integer = 0 → Merupakan variable yang memiliki type data integer dan nilainya 0
i = i + 1 → Coding untuk mengkondisikan nilai i kembali
ComboBox1.Items.Add(i) → Coding untuk menempatkan variable i ke dalam ComboBox
Loop While i < 10 → Coding untuk pengulangan nilai i
Pada bentuk pengulangan Do … Loop While bagian pengulangan minimal akan dieksekusi sebanyak satu kali. karena bagian pengulangan dijalankan terlebih dahulu baru kemudian bagian kondisi pengulangan diperiksa.
7. Do … Loop UntilBentuk pengulangan Do … Loop Until sama dengan bentuk Do … Loop While. Pengulangan berhenti jika kondisi telah bernilai benar (true). Jadi selama kondisi masih bernilai salah (false), pengulangan akan dilakukan terus. Bentuk pengulangan Do … Loop While merupakan pengulangan yang memeriksa kondisinya terletak di akhir pengulangan sehingga pengulangan minimal dilakukan 1 kali (mirip dengan Do … Loop While).
Contoh :Masih seputar ComboBox, menampilkan deret angka kedalamnya, silahkan pastekan Coding dibawah..

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim i As Integer = 0
        Do
            i = i + 1
            ComboBox1.Items.Add(i)
        Loop Until i >= 10
    End Sub

Maka akan menghasilkan..

Penjelasan :
Dim i As Integer = 0 → Merupakan variable yang memiliki type data integer dan nilainya 0
i = i + 1 → Coding untuk mengkondisikan nilai i kembali
ComboBox1.Items.Add(i) → Coding untuk menempatkan variable i ke dalam ComboBox
Loop Until i >= 10 → Coding untuk melakukan pemberhentian looping, pada kasus ini pengulangan akan berhenti jika nilai i diatas 10

Demikianlah tutorial Menggunakan Struktur Looping For, While, Do, Dkk pada VB.Net. semoga bermanfaat dan berfungsi dengan baik. 😀 

Menggunakan Struktur Looping For, While, Do, Dkk

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *