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