Perulangan For Next pada vb net

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

Pada 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 :

1. Langsung saja buka Microsoft Visual Studio 2010 anda.
2. Muncul “Form1”, masukkan Label, TextBox, ListBox dan juga Button yang terdapat di ToolBox dengan cara double klik ToolBox yang dipilih.
3. 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 Form1

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

5.  Setelah itu klik “Start Debugging (F5)”
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 !!!

Related Posts by Categories