[gelöst] String mit "select Case" auswerten

[PicNick]

However, folgendes funktioniert:

Dim Instrg As String * 20
Do
Instrg = "Eins"
Gosub Check

Instrg = "Zwei"
Gosub Check

Loop


End                                                         'end program
'-------------------------------
Check:
Select Case Instrg
Case "Eins" : Print "One"
Case "Zwei" : Print "Two"
Case Else : Print "?"
End Select
Return

Aupassen, irgendwelche Leer/sonder-zeichen im String siehst du zwar am LCD nicht, trotzdem erkennt er das dann nicht