Aplikasi Perulangan While - End While dengan Visual Basic 2008

Advertisement

Aplikasi Perulangan While - End While dengan Visual Basic 2008 - Pada tutorial ini, saya akan membuat contoh perulangan While - End While. Pada contoh ini hasil dari perulangan akan ditampilkan pada ListBox. Berikut langkah - langkah aplikasi perulangan dengan While - End While:

 

1 Buat lah project baru Windows Form Application

2. Masukkan kontrol – kontrol berikut

No	Object	Property	Nilai
1	Form	Text	Perulangan While – End While
2	ListBox1	Name	LboxHasil
3	Button1	Name Text	BtnProses Proses

3. Desain project sesuai dengan gambar berikut :

 

4. Masukkan kode program berikut pada tombol Proses dengan Event Click

Private Sub BtnProses_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles BtnProses.Click

        Dim i As Integer

        i = 1

        LboxHasil.Items.Clear()

        While i <= 10

            LboxHasil.Items.Add(i)

            i += 1

        End While

End Sub

5. Jalankan program dengan menekan tombol pada keyboard F5

6. Hasil program :