Select-Case-Default-EndSelect

Schnelle bedingte Verzweigung und Programmausführung mit Konstantenvergleich. Ist ein Vergleich zutreffend, wird die Sektion nach ausführen des enthaltenen Programmcodes automatisch Verlassen und springt zum ende des gesamten Bedingungsblocks.

Syntax:

• Select Case Ausdruck
• Case Konstante[, KonstanteN]
  • Programmcode wenn Vergleich wahr
• [Case Konstante[, KonstanteN]]
  • Programmcode wenn Vergleich wahr
• [Default]
  • Programmcode wenn alle Anderen Vergleiche unwahr.
• EndSelect

Ab 2013.R1 zusätzliche Bereichsprüfung möglich:

  select case a
  case 100 to 200,33,600 to 1000
    ...
  end select

  dim a,b as byte
  dim c as word
  dim d as long
 
' Manchmal kann es sinnvoll sein, einen Datentyp vorzugeben, z.B. Byte()
'  select case Byte(a+b)
  select case (a+b) 'Ausdrücke erlaubt
  case 1
    ' Programmcode
  case "A","B"  ' auch Zeichenketten zulässig (1 Zeichen)
    ' Programmcode
  case 2,3,0b10101010
    ' Programmcode
  case 0x33
    ' Programmcode
  default
    ' Programmcode
  endselect
 
  'word vergleichen
  select case c
  case 1
    ' Programmcode
  case "AB","xy"  ' auch Zeichenketten zulässig ab build 3815 (2 Zeichen)
    ' Programmcode
  default
    ' Programmcode
  endselect
 
  'long vergleichen
  select case c
  case 1
    ' Programmcode
  case "ABCD","wxyz"  ' auch Zeichenketten zulässig ab build 3815 (4 Zeichen)
    ' Programmcode
  default
    ' Programmcode
  endselect

  dim s as string
 
  select case s
  case "A"
    ' Programmcode
  case "B","C","D"
    ' Programmcode
  case "Super!"
    ' Programmcode
  default
    ' Programmcode
  endselect