CONTOH PENGGUNAAN PERULANGAN DO 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 DO WHILE … LOOP
Label1	Text	Angka
TextBox1	Name	TxtAngka
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 X%

        X = TxtAngka.Text

        Do

            X = X Mod 2

            If X = 0 Then

                MsgBox("Bilangan Genap")

                Exit Do

            ElseIf X = 1 Then

                MsgBox("Bilangan Ganjil")

                Exit Do

            End If

        Loop While Not X

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