Looping pada VB.NET

Belajar Looping pada VB.net

Cara menampilakan bilangan yang pembaginya 4 dan 7 sisa baginya 0.

Pada contoh looping kali ini, saya akan mencoba dengan 1 textbox yang diproses dengan menggunakan Botton dengan menampilakan hasil pada listbox.

Langkah awal yang kita buat adalah membuat form yang terdiri dari 1botton untuk proses, 1 textbox untuk input nilai dan 1 listbox untuk menampilkan hasilnya.

Karna untuk langkah dalam membuat form udah ada pada materi sebelumnya, jadi pada contoh kali ini kita langsung pada tampilan yang sudah ada desain.

Berikut adalah contoh desain :

Untuk keterangan properties pada control dasar semua Name-nya silahkan atur sendiri sesuai pada pembelajaran pada materi sebelumnya. Tentu masih ingat dong……

Nah setelah kita buat Desain pada Form, langkah berikutnya adalah memasukan coding.

Coding pada desain ini hanya ada pada control Botton aja, Karena Botton disini kita jadikan sebagai pengeksekusi.

Caranya gampang ko’, klick aja pada Botton lalu akan terlihat tampilan sebagai berikut :

Untuk lebih jelasnya Ni…..:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i As Integer

ListBox1.Items.Clear()

For i = 1 To Val(TextBox1.Text)

If (i Mod 7 = 0) And (i Mod 4 = 0) Then

ListBox1.Items.Add(i)

End If

Next

End Sub

End Class

Karena pada kesempatan kali ini kita akan menampilkan bilangan yang hasil pembaginya 0 jika pembaginya 4 dan 7 dari bilangan 1 sampai 100, maka…..

Silahkan masukan coding sesuai pada tampilan diatas tanpa merubah sedikit kata apapun.

Kecuali mau menampilkan dengan hasil yang beda.

Setelah semua tertulis dengan benar, maka mari kita Running.

Jika g’ ada yang ERROR maka hasil tampilannya akan seperti berikut ini :

Pada contoh berikutnya saya akan mencoba membuat contoh yang jika pembaginya 4 sisa hasilnya adalah 3.

Caranya sama ko’ seperti pada contoh looping sebelumnya, nah..pada contoh yang akan kita buat ini kita akan pakai desain yang sama seperti contoh sebelumnya. Setelah desain jadi, langkah berikutnya yaitu memasukan coding pada Button dan Masukan Coding berikut ini :

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i As Integer

ListBox1.Items.Clear()

For i = 1 To Val(TextBox1.Text)

If i Mod 4 = 3 Then

ListBox1.Items.Add(i)

End If

Next

End Sub

End Class

Maka pada Listbox akan menampilkan hasil seperti dibawah ini :

3 7 11 15 19 23 27 31 35 39 43 47 51 55 59 63 67 71 75 79 83 87 91 95 99

Note :

ListBox1.Items.Clear() artinya untuk membersihkan nilai yang ada di ListBox1.

For I = 1 To Val (TextBox1.Text) artinya untuk looping dari 1 sampai nilai di ListBox1

Mudah dan Gampang Kan........he...he....he....