Fungsi Select Case

Select Case merupakan fungsi pengambilan keputusan hampir sama dengan If  Then Else.
Contoh :
Select case Variabel
Case <Kondisi 1>
<Keputusan 1>
Case <Kondisi 2>,<Kodisi 3>,<Kondisi 4>
<Keputusan 2>
End Select

• Percobaan

Buatlah 1 buah Timer dengan interval = 1000 dan 1 buah Label dengan nama Label1.

Sehingga menjadi seperti ini : <Klik untuk memperbesar>

Dan tulis kode berikut pada timer :

Static nilai As Integer

nilai = nilai + 1

Select Case nilai

    Case Is < 10

        Label1.Caption = "Angka " & nilai & " Kurang Dari 10"

    Case 10

        Label1.Caption = "Angka " & nilai & " berjumlah 10"

    Case 11, 12, 13, 14, 15

        If nilai Mod 2 = 0 Then

            Label1.Caption = "Angka " & nilai & " Adalah Genap"

        Else

            Label1.Caption = "Angka " & nilai & " Adalah Ganjil"

        End If

    Case Is > 15

        Label1.Caption = "Angka " & nilai & " Lebih Dari 15"

    Case 20

        nilai = 0

End Select

Lalu jalankan aplikasi denga  menekan tombol F5.

Download Projectnya Disini