Aplikasi Perulangan Do Until – Loop dengan Visual Basic 2008

Aplikasi Perulangan Do Until – Loop dengan Visual Basic 2008 - Pada tutorial ini saya akan memberikan contoh perulangan Do Until - Loop, hasil perulangan akan di tampilkan pada ListBox. Berikut langkah - langkah membuat aplikasi perulangan dengan Do Until - Loop:

1. Buat lah project baru Windows Form Application
2. Masukkan kontrol – kontrol berikut

No	Object	Property	Nilai
1	Form	Text	Perulangan Do Until – Loop
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 As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Dim i As Integer

        i = 1

        LboxHasil.Items.Clear()

        Do Until i > 10

            LboxHasil.Items.Add(i)

            i += 1

        Loop

End Sub

5. Jalankan program dengan menekan tombol pada keyboard F5

6. Hasil program :