PERULANGAN

Stuktur Perulangan

Digunakan untuk menggulang sabagian rutin sehingga tidak perlu menulis ulang rutin sebanyak perulangan yang diinginkan.

1. Do ... Loop

Berfungsi untuk menggulang blok perintah sampai jumlah tertentu. Perintah ini dipakai jika tidak tahu pasti berapa kali akan diadakan pengulangan blok perintah.

Sintax :

Visual Basic akan menguji kondisi, jika hasilnya salah maka akan melewati perintah di bawah Do dan meneruskan ke bagian bawah Loop.

Visual Basic akan melakukan perulangan jika hasil pengujian bernilai salah ( false). Pengulangan ini dilakukan minimal 0 kali.

2. While...Wend

Urutan kode while dan wend akan di ulang terus selama kondisi true (benar) masih berlangsung.

3. For ... Next

Dipilih jika sudah tahu berapa kali perulangan yang akan dilakukan dalam blok perintah.

Syntax :

Program Aplikasi Perulangan

Langkah- langkah :

1. Buat Form Aplikasi dan ubah Property

2. Buat Kode Program
   • Klik ganda tombol For..Next

Private Sub Command1_Click()

List1.Clear

For i = 1 To 100

List1.AddItem "angka" & i

Next i

End Sub

· Klik Ganda Tombol Do..Until

Private Sub Command3_Click()

List1.Clear

i = Asc("A")

Do Until i > Asc("Z")

List1.AddItem "huruf" & Chr(i)

i = i + 1

Loop

End Sub

· Klik Ganda Tombol Do..While

Private Sub Command4_Click()

List1.Clear

i = Asc("Z")

Do While i >= Asc("A")

List1.AddItem "huruf" & Chr(i)

i = i - 1

Loop

End Sub

3. Jalankan Program dengan klik tombol Run atau F5

LATIHAN3

1. Buat program dengan output bilangan genap seperti :

( Simapan Di folder Latihan3, folder Latihan3A, Nama File F31.frm, P31.frm)

2. Buat Program untuk menghitung jumlah kata.

(Simapan Di folder Latihan3, folder latihan3B, Nama File F32.frm, P32.frm)