Penggunaan Fungsi WHILE WEND pada Visual Basic

Fungsi Prulangan While-Wend
pada praktek kali ini kita akan belajar menggunakan fungsi perulangan
WHILE-WEND.While – Wend digunakan untuk mengeksekusi suatu blok statement
dengan jumlah perulangan yang tak terhingga.
Berikut ini adalah statement While –Wend, yang dijalankan selama kondisi benar :
syntaksnya adalah:

While (condition)



Wend

Ketika menjalankan While ini, pertama kali akan di coba kondisinya, jika
kondisi False (zero), akan diloncati semua statement yang mengikuti kondisi
tersebut. Program akan menjalankan statement jika kondisi benar dan kembali ke
While berikutnya.

latihan 8.1:

menampilkan kelipatan 5 mulai dari 0,5,10......100.
-langkah pertama yang kita lakukan adalah:
-buka proyek baru STANDAR EXE
-double klik form tersebut maka akan muncul program berikut dilayar:
private sub form-load(), kita akan mengubah event form_load, yaitu dengan cara:
1.lakukan seperti gambar berikut:2.kemudian masukan kode program seperti berikut:

Private Sub Form_Activate()
Dim i As Byte
i = 0
While (i <= 100) Print i, i * 5, i * 2, i + 3 i = i + 5 Wend End Sub -kemudian tekan menu RUN atau tombol F5 pada keyboard.hasilnya sebagai berikut: latihan 8.2
-buka proyek baru,dan doubel klik form
-kemudian pilih event "ACTIVATE"
-dan masukan kode program berikut:

Private Sub Form_Activate()
Dim a As Byte
a = 1
While (a <= 10) Print "1"; "*"; a; "="; a * 1, "2"; "*"; a; "="; a * 2, "3"; "*"; a; "="; a * 3, a = a + 1 Wend End Sub -kemudian tekan tombol F5 untuk melihat hasilnya..nah..hasilnya sebagai berikut:
-maksud dari program tersebut adalah menampilkan perkalian 1 sampai 3.

latihan 8.3
-buka proyek baru
-kemudian double klik form
-pilih event ACTIVATE
-dan masukan kode program berikut:
Private Sub Form_Activate()
Dim a As Byte
a = 20
While (a >= 1)
Print a
a = a - 1

Wend
End Sub

-kemudian tekan tombol F5
-maka hasilnya adalah sebagai berikut:

-maksud dari program tersebut adalah mengurutkan bilngan dari yang terbesar sampai kecil.

latihan 8.4
-buka proyek baru
-kemudian double klik form
-pilih event ACTIVATE
-dan masukan kode program berikut:
Private Sub Form_Activate()
Dim a, b As Byte
a = 1
b = 1
For a = 1 To 9 Step 1

For b = 1 To a Step 1

Print a;

Next b

'Print turun kebawah

Print
Next a

End Sub

-klik tombol F5, maka hasilnya adalah sbb:

-program tersebut menggunakan fungsi perulangan FOR didalam FOR

2.REFERENSI
Alam, M. Agus. J. 1999. Belajar Sendiri Microsoft Visual Basic 6.0. Elex Media
Komputindo. Jakarta.