Modul VII

Tujuannya:
-Memahami Pernyataan Berulang

Terdapat 3 jenis pernyataan dari sisi pengerjaannya,yaitu :
-Pernyataan berurut (sequential satement)
-pernyataan bercabang (conditional statement)
-Pernyataan berulang lopping statement)

1.Pernyataan Berulang
Pernyataan Berulang yaitu pernyataan yang digunakan untuk menyimpan pengerjaan pada suatu pernyataan.
Pernyataan berulang di visual basic terbagi atas 3 jenis,yaitu :
- For-Next
- While-wend
- Do-while

1.For-Next
Pernyataan berulang For – Next digunakan bila diinginkan pengulangan pengerjaan pernyataan secara pasti.
Ditetapkan suatu variabel pencacah perulangan.
Selama pencacah perulangan masih dalam range Ekspresi1 dan Ekspresi2 maka pernyataan diantara For dan Next akan dikerjakan.

Syntak For-Next:

For Var=Expresi1 To Expresi2 [Step Expresi2]

Next Var

Contoh For-Next:
1.Rancang antar muka seperti berikut:

2.Dobel klik form Ketikkan kode berikut.

Private Sub Form_Load()
Dim I As Byte
Randomize (50)
For I = 1 To 10 Step 1
lstangka.AddItem (Rnd(10) * (10))
Next I

End Sub

3.Lalu tekan Ran
4.Hasilnya seperti berikut.


program ini berfungsi untuk merandom angka 10 yang dikali dengan 10 lompat-lompat 1.

Contoh Kedua dari For-next :
1.Rancang antar muka seperti berikut:

2.Dobel klik di CMDOK Ketikkan kode berikut.

Private Sub CMDOK_Click()
Dim I, N As Byte
N = Val(TXTN.Text)
LSTBIL.Clear
For I = 1 To N Step 1
LSTBIL.AddItem (Str(I))
Next I
End Sub

3.Dobel klik di Option ganjil Ketikkan kode berikut.

Private Sub OPTGANJIL_Click()
Dim I As Byte
For I = 0 To LSTBIL.ListCount - 1
If (LSTBIL.List(I) Mod 2 <> 0) Then
LSTHASIL.AddItem (LSTBIL.List(I))
End If
Next I
End Sub

4.Dobel klik di Option Genap Ketikkan kode berikut.

Private Sub OPTGENAP_Click()
Dim I As Byte
For I = 0 To LSTBIL.ListCount - 1
If (LSTBIL.List(I) Mod 2 = 0) Then
LSTHASIL.AddItem (LSTBIL.List(I))
End If
Next I
End Sub


5.Dobel klik di Option Semua Ketikkan kode berikut.

Private Sub OPTSEMUA_Click()
Dim I As Byte
For I = 0 To LSTBIL.ListCount - 1

LSTHASIL.AddItem (LSTBIL.List(I))

Next I
End Sub

6.Lalu tekan Ran
7.Klik tombol OK,perhatikan hasilnya

8.Klik tombol ganjil.


9.Klik tombol genap.

10.Klik tombol semua.

11.Hasilnya seperti berikut.

Program ini berfungsi untuk menampilka angka 1 sampai 10 di Text Box,mengetahui angka ganjil,genap dan angka semua yang dimulai dari angka 1 sampai 10.

2.While-Wend
Berulang sampai suatu kondisi tidak terpenuhi
Format penulisan:

While kondisi
[baris perintah]
Wend

3.Do-While
Pernyataan ini untuk mengulang suatu blok pernyataan untuk jumlah pengulangan tidak
pasti selama kondisi terpenuhi.
Format Penulisan :

Do [while | until] kondisi
Statement
End Do
Statement
Loop