Contoh Program Pengulangan For dan While VB.Net

For dan while adalah metode pengulangan yang bisa digunakan pada VB.Net, pada postingan kali ini Saya ingin membuat looping dengan for secara naik dan turun begitu pula dengan while.


  • Pertama sediakan project VB.Net
  • Buat form seperti gambar berikut ini, gunakanlah 4 Button dan 4 Listbox
Contoh Program Pengulangan For dan While VB.Net


  • Kemudian copy script berikut ini, ganti semua script bawaan form.


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i As Integer = 0 To 10 ' looping i dari 0 sampai 10
            'setiap looping pada for menambah nilai variabel sebanyak 1
            ListBox1.Items.Add(i) 'menambah item/isi dari listbox yang bernilai i setiap pengulangan
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        For i As Integer = 10 To 0 Step -1
            'Looping menurun atau nilai berkurang dapat menggunakan Step
            'Step dapat digunakan pada looping keatas juga, bila ingin looping kelipatan 2,3 dan lain2
            'pengulangan for akan menambah nilai variabel sebanyak 1 setiap pengulangan
            ListBox2.Items.Add(i)
        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim i As Integer = 0 'deklarasi i dan memberi nilai awal 0
        While i < 10
            'pengulangan while akan berhenti jika sudah tidak memenuhi syarat, pada contoh disini jika i sudah tidak lebih kecil dari 10 maka pengulangan berhenti
            'jadi pengulangan hanya sampai 9 disini, karena jikka i = 10 tentu 10 tidak lebih kecil dari 10, maka tidak terjadi looping lagi
            ListBox3.Items.Add(i)
            i += 1 'sama maksudnya dengan i = i + 1 yaitu nilai i, sama dengan i ditambah 1
        End While
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim i As Integer = 10 'deklarasi i dan memberi nilai awal 10
        While i > 0
            'looping akan terjadi selama i masih lebih besar dari 0
            ListBox4.Items.Add(i)
            i -= 1 'sama maksudnya dengan i = i - 1 yaitu nilai i, sama dengan i dikurang 1
        End While
    End Sub
End Class


  • Kemudian coba run atau jalankan program yang kita buat barusan, jika menampilkan hasil seperti gambar di bawah maka berhasil dan selesai. 

Contoh Program Pengulangan For dan While VB.Net


Sekian yang dapat Saya bagikan pada postingan kali ini, semoga dapat bermanfaat. Terima kasih telah berkunjung.


Rewrite dan dikembangkan dari : VB.NET While Loop dan Pengulangan For Secara Naik dan Turun

Terimakasih telah berkunjung dan membaca artikel di Blog ini. Tinggalkan kritik, saran, dan pertanyaan pada kolom komentar.