CONTOH PERULANGAN WHILE PADA VB.NET 2008

1. Buat project baru.
2. desain form seperti pada gambar di bawah ini :

3.  Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form1	Name Text	Form1 Perulangan WHILE
Label1	Text	Batas
Label2	Text	Tampilkan
TextBox1	Name	TxtBatas
ListBox1	Name	ListBox1
Button1	Name Text	Button1 Proses

4.   Klik ganda pada Proses, kemudian ketikkan kode program berikut ini :

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

        Dim angka As Integer

        ListBox1.Items.Clear()

        angka = 1

        While angka <= Val(TxtBatas.Text)

            ListBox1.Items.Add(angka)

            angka = angka + 1

        End While

End Sub

5. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di
    toolbar, atau melalui menu Debug > Start Debuging.
6. Simpan project anda.

hasilnya dapat dilihat pada gambar di bawah ini :

untuk mendownload projectnya klik disini