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