Tutorial Part#4 Jenis Operator perulangan di vb.net

Tutorial Part#4 Jenis Operator perulangan di Visual Basic

kembali lagi pada tutorial vb.net Part #4, pada materi tutorial kali ini kita akan membahas jenis-jenis atau operator perulangan yang ada pada bahasa pemrograman visual basic (VB.Net), dan kita akan simulasikan cara penggunaan operator perulangan ini dalam kasus sederhana yang di harapkan dapat menggambarkan bagai mana cara penggunaannya dan kapan harus di gunakan operator perulangan ini, dan berikut tipe operator Perunagan nya.

jeni jenis Perulangan pada Vb.Net

Persiapan .

buat project baru atau lanjutkan pada project yang sudah ada, tambahkan sebuah form baru dan buat design sebagai berikut

Toolbox Component	Fungsi
RichTextBox	Untuk menampilkan hasil perulangan
Button 1	Untuk memanggil fungsi perulangan For Next
Button 2	Untuk memanggil fungsi perulangan For Each
Button 3	Untuk memanggil fungsi perulangan While End While
Button 4	Untuk memanggil fungsi perulangan While Loop
Button 5	Untuk memanggil fungsi perulangan Do Loop Until
Button 6	Untuk memanggil fungsi perulangan Nested

1.For ... Next

Penjelasan:

Digunakan ketika jumlah iterasi sudah diketahui sebelumnya.
Memiliki variabel penghitung yang secara otomatis ditingkatkan atau dikurangi pada setiap iterasi.
Dapat menggunakan parameter Step untuk menentukan kenaikan atau penurunan variabel penghitung.

Kapan Menggunakan:

Ketika iterasi dilakukan untuk jumlah langkah tetap.
Cocok untuk perulangan berdasarkan indeks atau nilai tertentu.
Contoh Kasus Penggunaan:
Menampilkan angka dari 1 hingga 10.
Mengakses elemen array berdasarkan indeks.

code syntax :

Private Sub cm01Fornext()
    Dim total As Integer = 10

    'Bersihkan terlebih dahulu text 

    RichTextBox1.Text = ""

    For i As Integer = 1 To total

        ' tampilkan hasil dan beri newline untuk membuat hasil nya ke bawah
        RichTextBox1.Text += "Total: " & i & vbNewLine
    Next
    'Console.WriteLine("Total: " & total)

  End Sub

2.For Each...Next

Penjelasan:

Digunakan untuk mengiterasi elemen dalam koleksi atau array tanpa perlu mengetahui indeksnya.
Bersifat sederhana dan aman karena secara otomatis melintasi setiap elemen.

Kapan Menggunakan:

Ketika Anda ingin membaca semua elemen dalam koleksi, seperti array, daftar, atau Dictionary.
Ketika Anda tidak perlu memodifikasi elemen atau menghitung indeks secara manual.

Contoh Kasus Penggunaan:

Menampilkan semua elemen dalam array.
Mengiterasi objek dalam koleksi.

code syntax :

Private Sub cm02ForEachNext()

    ' Array List string
    Dim namaBuah As String() = {"Apel", "Jeruk", "Mangga"}

    RichTextBox1.Text = ""
    For Each buah In namaBuah

        'Jika menampilkan di konsol windows
        'Console.WriteLine(buah)

        ' Menampilkan Hasil dari List Buah
        RichTextBox1.Text += "buah: " & buah & vbNewLine
    Next
End Sub

3.While...End While

Penjelasan:

Digunakan ketika kondisi harus dicek sebelum perulangan dijalankan.
Perulangan berhenti jika kondisi bernilai False.

Kapan Menggunakan:

Ketika Anda tidak tahu pasti berapa kali perulangan akan dilakukan.
Ketika perulangan bergantung pada perubahan kondisi di dalam loop.

Contoh Kasus Penggunaan:

Menunggu input pengguna hingga mereka mengetik "exit".
Memproses data hingga tidak ada lagi data yang tersedia.

code syntax :


Private Sub cm03WhileandWhile()
    Dim Target As Integer = 10
    Dim nilai As Integer = 0

    RichTextBox1.Text = ""
    While nilai < Target

        'Mengunbah nilai jadi + 1 setiap step nya
        nilai += 1

        'Menampilkan Hasil
        RichTextBox1.Text += nilai.ToString & vbNewLine


        If nilai = Target Then
            Exit While
        End If
    End While

End Sub

4.Do...Loop

Penjelasan:

Digunakan ketika perulangan harus selalu berjalan setidaknya satu kali, karena kondisi dapat dicek di akhir (Do...Loop While) atau di awal (Do While...Loop).
Memberikan fleksibilitas untuk menentukan kapan kondisi diperiksa.

Kapan Menggunakan:

Ketika Anda perlu menjamin perulangan dilakukan minimal sekali.
Ketika kondisi logika perulangan lebih kompleks.

Contoh Kasus Penggunaan:

Memvalidasi input pengguna minimal satu kali.
Melakukan operasi hingga kondisi tertentu terpenuhi.

code syntax :


Private Sub cm04DoWhilwLoop()
    Dim Target As Integer = 10
    Dim nilai As Integer = 0

    RichTextBox1.Text = ""
    Do While nilai < Target

        'Mengunbah nilai jadi + 1 setiap step nya
        nilai += 1


        'Menampilkan Hasil
        RichTextBox1.Text += nilai.ToString & vbNewLine


        If nilai = Target Then
            Exit Do
        End If
    Loop
End Sub

6. Nested Loop (Perulangan Bersarang)

Penjelasan:

Nested Loop adalah perulangan yang terdapat di dalam perulangan lainnya.
Perulangan di bagian luar disebut outer loop, dan perulangan di bagian dalam disebut inner loop.
Inner loop akan selesai sepenuhnya untuk setiap iterasi dari outer loop.
Nested loop sering digunakan untuk menangani data dalam struktur yang berlapis, seperti matriks, tabel, atau daftar bertingkat.

Kapan Menggunakan Nested Loop:

Ketika Anda perlu bekerja dengan data yang memiliki dimensi lebih dari satu (seperti array 2D atau tabel).
Ketika Anda ingin mengulangi operasi dalam satu perulangan untuk setiap iterasi perulangan luar.

contoh kasus membuat membuat perkalian angka 3

code syntax :


private Sub cm05NestedLoop()

        RichTextBox1.Text = ""
        For i As Integer = 1 To 3
            For j As Integer = 1 To 3
                Console.WriteLine(i & " x " & j & " = " & (i * j))


                'Menampilkan Hasil
                RichTextBox1.Text += i & " x " & j & " = " & (i * j) & vbNewLine

            Next
        Next

    End Sub

maka secara keselurahan koding dari form perulangan kita sebagai berikut

full code :


Public Class frmPerlurangan

#Region " form Evnt "

#End Region

#Region " Custome Methods "

    Private Sub cm01Fornext()
        Dim total As Integer = 10

        'Bersihkan terlebih dahulu text 

        RichTextBox1.Text = ""

        For i As Integer = 1 To total

            ' tampilkan hasil dan beri newline untuk membuat hasil nya ke bawah
            RichTextBox1.Text += "Total: " & i & vbNewLine
        Next
        'Console.WriteLine("Total: " & total)

    End Sub

    Private Sub cm02ForEachNext()

        ' Array List string
        Dim namaBuah As String() = {"Apel", "Jeruk", "Mangga"}

        RichTextBox1.Text = ""
        For Each buah In namaBuah

            'Jika menampilkan di konsol windows
            'Console.WriteLine(buah)

            ' Menampilkan Hasil dari List Buah
            RichTextBox1.Text += "buah: " & buah & vbNewLine
        Next
    End Sub

    Private Sub cm03WhileandWhile()
        Dim Target As Integer = 10
        Dim nilai As Integer = 0

        RichTextBox1.Text = ""
        While nilai < Target

            'Mengunbah nilai jadi + 1 setiap step nya
            nilai += 1

            'Menampilkan Hasil
            RichTextBox1.Text += nilai.ToString & vbNewLine


            If nilai = Target Then
                Exit While
            End If
        End While

    End Sub

    Private Sub cm04DoWhilwLoop()
        Dim Target As Integer = 10
        Dim nilai As Integer = 0

        RichTextBox1.Text = ""
        Do While nilai < Target

            'Mengunbah nilai jadi + 1 setiap step nya
            nilai += 1


            'Menampilkan Hasil
            RichTextBox1.Text += nilai.ToString & vbNewLine


            If nilai = Target Then
                Exit Do
            End If
        Loop
    End Sub

    Private Sub cm05NestedLoop()

        RichTextBox1.Text = ""
        For i As Integer = 1 To 3
            For j As Integer = 1 To 3
                Console.WriteLine(i & " x " & j & " = " & (i * j))


                'Menampilkan Hasil
                RichTextBox1.Text += i & " x " & j & " = " & (i * j) & vbNewLine

            Next
        Next

    End Sub

#End Region

#Region " Control Evnt "

    Private Sub btnforNext_Click(sender As Object, e As EventArgs) Handles btnforNext.Click
        cm01Fornext()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        cm02ForEachNext()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        cm03WhileandWhile()
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        cm04DoWhilwLoop()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        cm05NestedLoop()
    End Sub

#End Region

End Class

hasil :

sampai disini kita telah beralajar menggenai jenis jenis operator perulangan yang ada di vb.net , mungkin tidak semua jenis nya akan tetapi beberapa contoh di atas yang sering dan banyak di gunakan. jika kalian ada menngunakan jenis perluanngan lain yang ada di vb.net bisa share di kolom komentar ya.

Jika ada masukan dan saran mengenai postingan ini bisa berikan di kolom Komentar..

Sekian Dan Terima kasih...

#Happy Coding

Incoming search terms:

Nested Loop VB.Net Tutorial
Contoh Nested Loop di Visual Basic
Penjelasan Nested Loop dan Contoh Kode VB.Net
Cara Membuat Pola Bintang dengan Nested Loop VB.Net
Penggunaan Do While Loop Bersarang di VB.Net
Contoh Nested Loop untuk Array 2D di VB.Net
Membuat Segitiga dengan Nested Loop VB.Net
Fungsi Nested Loop untuk Matriks VB.Net
Belajar Nested Loop VB.Net untuk Pemula
Tutorial VB.Net Nested Loop dengan Studi Kasus

AK Studio

Tutorial Part#4 Jenis Operator perulangan di vb.net

0 Response to "Tutorial Part#4 Jenis Operator perulangan di vb.net"

Posting Komentar

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel