Pages

Tuesday 25 October 2011

Struktur Kontrol Select…Case

Struktur logika Select Case tidak jauh berbeda dengan logika if, Select case lebih memungkinkan untuk kondisi lebih banyak dari struktur if 
Bentuk penulisan (syntax) struktur SELECT…CASE :
SELECT CASE <Pilihan>
CASE <Pilihan 1>
    <statement 1>
CASE <Pilihan 2>
    <statement 2>
CASE <Pilihan n>
    <statement n>
[CASE ELSE<Pilihan x>
    <statement x>]
END SELECT

Bila <Pilihan> sesuai dengan <Pilihan 1> maka <statement 1> akan dikerjakan, dst. Tetapi bila <Pilihan> tidak ada yang sesuai dengan <Pilihan 1> s/d <Pilihan n>  maka <statement x> yang akan dikerjakan.


PRAKTIKUM :
Desain Form seperti gambar berikut :
Pada komponen ComboBox Combo1, isi properties list dengan list
Makan
Tidur
Jalan-jalan
Shoping
Chating
Seperti pada gambar berikut :
Kemudian Ketik Listing Program berikut :


Private Sub Command1_Click()
    Dim nm As String
    Dim pil As String
    nm = Text1.Text
    pil = Combo1.ListIndex
    Select Case pil
        Case 0
            Text2.Text = "Hallo " + nm + ", Anda Suka Makan kan??"
        Case 1
            Text2.Text = "Hallo " + nm + ", Anda Suka Tidur kan??"
        Case 2
            Text2.Text = "Hallo " + nm + ", Anda Suka Jalan-jalan kan??"
        Case 3
            Text2.Text = "Hallo " + nm + ", Anda Suka Shoping kan??"
        Case 4
            Text2.Text = "Hallo " + nm + ", Anda Suka Chating kan??"
        Case Else
            Text2.Text = "Hallo " + nm + ", Anda Suka Fban kan??"
    End Select
End Sub



Jalankan Program


 

No comments:

Post a Comment