Memilih dengan Select Case

Select Case digunakan untuk memilih pilihan tertentu diatara beberapa pilihan yang ada. Sintaknya adalah:

Select Case VariabelPilih
  Case Is Nilai1
       KodeProgramNilai1
  Case Is Nilai2 
       KodeProgramNilai2
  Case Else
       KodeProgramNilaiLainnya
End Select

Contoh program dibawah ini akang menkonversi nilai angka menjadi nilai huruf dengan bantuan Select Case.

Option Strict On
Module Module1
  Sub Main()
    Dim nilaiAngka As Integer
    Dim nilaiHuruf As String

    Console.WriteLine("Masukkan Nilai Anda: ")
    nilaiAngka = CInt(Console.Read())

    Select Case nilaiAngka
       Case Is >= 90
           nilaiHuruf = "A+"
       Case Is >= 80
           nilaiHuruf = "A"
       Case Is >= 70
           nilaiHuruf = "B+"
       Case Is >= 60
           nilaiHuruf = "B"
       Case Is >= 50
           nilaiHuruf = "C"
       Case Else
           nilaiHuruf = "D"
        End Select
      Console.WriteLine("Nilai Huruf Anda: " + nilaiHuruf)
        System.Threading.Thread.Sleep(2000)
    End Sub
End Module

Jika nilai Anda dalam range tertentu, ganti Is dengan To seperti ini:

Select Case nilaiAngka
  Case 90 To 100
      nilaiHuruf = "A+"
  Case 80 To 89
      nilaiHuruf = "A"
  Case 70 To 79
       nilaiHuruf = "B+"
  Case 60 To 69
       nilaiHuruf = "B"
  Case 50 To 59
       nilaiHuruf = "C"
  Case Else
       nilaiHuruf = "D"
End Select

Memilih dengan Select Case 2018-11-08T23:19:00-08:00 Rating: 4.5 Diposkan Oleh: Good Dreamer