Tutorial vb.net berikut ini adalah belajar tentang algoritma pemrograman pada vb.net khususnya Perulangan For Next, pada kasus ini saya ambil contoh untuk manampilkan angka / bilangan ganjil dan genap dengan program vb.netPada tutorial sebelumnya kita sudah belajar bagaimana validasi menginput angka dalam program vb.net ( Percabangan “Select – Case” ) . Ok langsung saja tutorial vb.net Perulangan For Next untuk manampilkan angka / bilangan ganjil dan genap dalam program vb.net :
- Langsung saja buka Microsoft Visual Studio 2010 anda.
- Muncul “Form1”, masukkan Label, TextBox, ListBox dan juga Button yang terdapat di ToolBox dengan cara double klik ToolBox yang dipilih.
- Ubah Propertiesnya seperti ini :
| Nama Control | Properties | Nilai |
| Label1 | Text | Angka Awal |
| Label2 | Text | Angka Akhir |
| Label3 | Text | Genap |
| Label4 | Text | Ganjil |
| TextBox1 | Text | [Dikosongkan] |
| Name | TxtAngkaAwal | |
| TextBox2 | Text | [Dikosongkan] |
| Name | TxtAngkaAkhir | |
| ListBox1 | Text | [Dikosongkan] |
| Name | LbGenap | |
| ListBox2 | Text | [Dikosongkan] |
| Name | LbGanjil | |
| Button1 | Text | Proses |
| Name | BtnProses |
4. Setelah itu masukkan kode berikut ini :
Public Class Form15. Setelah itu klik “Start Debugging (F5)”
Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
Dim Angka%
For Angka = TxtAngkaAwal.Text To TxtAngkaAkhir.Text
If Angka Mod 2 = 0 Then
LbGenap.Items.Add(Angka)
Else
LbGanjil.Items.Add(Angka)
End If
Next Angka
End Sub
End Class
6. Maka akan tampil form1 dan coba masukkan angka awal dan angka akhir misal 1 dan 20, lalu klik proses, maka yang terjadi pada listbox sebelah kiri tampil angka genap, begitu juga listbox yang kanan akan tampil angka ganjil.
itu adalah algoritma pemrograman Perulangan For Next untuk manampilkan angka / bilangan ganjil dan genap dalam program vb.net, kita akan masih lanjut ke tutorial vb.net berikutnya yang lebih banyak dan seru lagi.
tetap semangat dan lanjut gan !!!
