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