modul VI

1.SELECT CASE
SELECT Case digunakan untuk menguji ekspresi apakah berada dalam nilai tertentu.
Penggunaan pernyatan bersyarat IF sangat sesuai bila pengujian dilakukan pada banyak nilai.

Syntax Select Case :

SELECT CASE (Ekspresi)

CASE Ekspresi :
CASE Ekspresi :
CASE Else :

END SELECT

2.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.

Syntax for-next :
For Var=Expresi1 To Expresi2 [Step Expresi2]



Next Var


Latihan Penggunaan Select Case & For-Next :

1.Rancang antar muka seperti berikut :



2.doubel kilk FORM1 maka dan ketikkan kode program berikut:

Private Sub Form_Load()
Dim I As Byte
For I = 1 To 10 Step 1
cbobil.AddItem (Str(I))
Next I
cbobil.ListIndex = 0
End Sub

3.angkah selanjutnya adalah dobel klik pada tombol CMDbil dan masukan kode program berikut:

Private Sub cmdbil_Click()
Dim ket As String * 10
Dim angka As Byte
angka = Val(cbobil.List(cbobil.ListIndex))
Select Case (angka)

Case 1: ket = "Satu"
Case 2: ket = "Dua"
Case 3: ket = "Tiga"
Case 4: ket = "Empat"
Case 5: ket = "lima"
Case 6: ket = "Enam"
Case 7: ket = "Tujuh"
Case 8: ket = "Delapan"
Case 9: ket = "Sembilan"
Case 10: ket = "Sepuluh"

End Select
txtket.Text = ket

End Sub


4.Klik menu Run
5.Hasilnya seperti berikut


dari program ini kita bisa mengetahui cara merubah nilai angka menjadi nilai huruf
dengan menggunakan fungsi pernyataan bersyarat SELECT-CASE dan perulangan FOR-NEXT.