CPYMSG Eingabe
Moderator: messtronik
-
Andrethe
- Beiträge: 3
- Registriert: Do Apr 13, 2023 7:11 pm
CPYMSG Eingabe
Wie kann ich eine Abfrage erstellen die zwingend eine Eingabe vorsieht die nur Alpabetisch sein darf. Wenn dann Zahlen eingegeben werden zurück springt auf die Eingabe
-
messtronik
- Beiträge: 72
- Registriert: Mo Feb 22, 2021 6:12 pm
Re: CPYMSG Eingabe
Hallo,
Du liest eine String (~CHR), diesen untersuchst Du auf "Zahl".
Wenn Zahl ja; Konvertieren String nach REA
Nein, spring nach oben, erneut einlesen und testen.
Vor Jahren haben wir ein simple Anweisung gebastelt TESTNUM.
Hier grob der Code:
die Hilfe dazu
Wahrscheinlich gibt es heute bessere Ideen/Anweisungen.
Idee hinter dem Test:
Schneide erstes Zeichen ab, vergleiche es mit Ziffer 0 bis 9
=> Wenn JA, dann Zahlen-Eingabe - Nein - kein Ergebnis
Idee klar? Ich helfe gern weiter!
Gruss Jörg
DO INDEX$, 0, 9, 1
CVREACHS ~INDEX$, INDEX$, 1, 0
TESTSTR ~BOOLEAN$, ~STRING$, 1, 1, ~INDEX$, 1, 1
IFTHEN ~BOOLEAN$, 1, EQ
TESTQUE TESTCV$, CHS:~REALVAR$
IFTHEN TESTCV$, 1, EQ
CVSTRREA ~REALVAR$, ~STRING$
ENDIF
UNWIND , , 2
ENDIF
ENDDO
Du liest eine String (~CHR), diesen untersuchst Du auf "Zahl".
Wenn Zahl ja; Konvertieren String nach REA
Nein, spring nach oben, erneut einlesen und testen.
Vor Jahren haben wir ein simple Anweisung gebastelt TESTNUM.
Hier grob der Code:
- TestNum_Vergleiche STR-REA.jpg (144.11 KiB) 37226 mal betrachtet
- TESTNUM_HLP.jpg (137.9 KiB) 37226 mal betrachtet
Idee hinter dem Test:
Schneide erstes Zeichen ab, vergleiche es mit Ziffer 0 bis 9
=> Wenn JA, dann Zahlen-Eingabe - Nein - kein Ergebnis
Idee klar? Ich helfe gern weiter!
Gruss Jörg
DO INDEX$, 0, 9, 1
CVREACHS ~INDEX$, INDEX$, 1, 0
TESTSTR ~BOOLEAN$, ~STRING$, 1, 1, ~INDEX$, 1, 1
IFTHEN ~BOOLEAN$, 1, EQ
TESTQUE TESTCV$, CHS:~REALVAR$
IFTHEN TESTCV$, 1, EQ
CVSTRREA ~REALVAR$, ~STRING$
ENDIF
UNWIND , , 2
ENDIF
ENDDO