Pernyataan Bersyarat SELECT CASE dan Perulangan FOR NEXT

praktek modul VI

pada praktek kali ini kita akan membahas tentang pemakaian
pernyataan bersyarat:SELECT CASE dan perulangan FOR-NEXT.

1.SELECT CASE
Struktur Select Case bekerja dengan suatu percobaan tunggal yang hanya
dievaluasi satu kali pada bagian atas struktur. Visual Basic then membandingkan
hasil ekspresi dengan nilai pada setiap Case didalam struktur tersebut, jika ada
yang sesuai, akan dijalankan blok statement yang sesuai.

Select Case ekspresi yang dicoba
[Case ekspresi1
[blok pernyataan-1]]
[Case ekspresi2
[blok pernyataan-2]]
…
[Case Else
[blok pernyataan-n]
End Select

2.FOR-NEXT
For…Next menggunakan suatu variabel yang disebut counter yang mana akan
bertambah atau berkurang pada setiap perulangan.
Syntaxnya adalah:

For counter = start To end [Step increment]

statements

Next [counter]

latihan 6.1

pada latihan kali ini kita akan mencoba menggunakan penggabungan keduanya:
-rancang antar muka sebagai berikut:
-dan berikan nama kepada setiap objek yang telah kita buat.

-doubel kilk FORM1 maka dan tuliskan 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

-langkah 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

-kemudian klik menu RUN maka hasilnya sesudah dieksekusi adalah sbb:


-dari program ini yanga kita dapatkan adalah merubah nilai angka menjadi nilai huruf
dengan menggunakan fungsi pernyataan bersyarat SELECT-CASE dan perulangan FOR-NEXT.

latihan 6.2

-buka proyek baru STANDAR EXE
-kemudian rancang antar muka sbb:
-dobel klik form1 dan masukan program berikut:

Private Sub Form_Load()

txtbesar.Text = ""
txtbil.Text = ""

End Sub

-kemudian dobel klik objek txtbesar dan masukan kode program sbb:
-ganti event menjadi keypress.

Private Sub txtbesar_KeyPress(KeyAscii As Integer)
txtbil.Text = txtbesar.Text
Dim i As Byte
Dim ket As String * 15
i = KeyAscii

Select Case i
Case 49: ket = "satu"
Case 50: ket = "dua"
Case 51: ket = "tiga"
Case 52: ket = "empat"
Case 53: ket = "lima"
Case 54: ket = "enam"
Case 55: ket = "tujuh"
Case 56: ket = "delapan"
Case 57: ket = "sembilan"

Case Else
ket = "silahkan tunggu"
End Select
txtbil.Text = ket
End Sub

-langkah selanjutnya adalah klik menu RUN, maka hasilnya adalah sbb:
-masukan data sesuai contoh,jika kita masukan angka satu, maka yang akan
muncul dibawah adalah satu,coba angka lain.
-catatan: angka yang dimasukan maksimal sampai 9.

-gampang kan.....SELAMAT MENCOBA.....