Das deutsche QBasic- und FreeBASIC-Forum

[studio]

Hallo!

Es gibt eine Stringvariable "Groesse$".

Folgende Eigenschaften sollte der Inhalt dieser Variable aufweißen:
1. Länge 3 (nicht kleiner nicht größer)
2. Nur Zahlen
3. Es sollte möglich sein 3x die 0 eingeben zu dürfen -> "000".

Bisdato hatte ich mir folgendes ausgedacht:
--
LOCATE 2,8 : INPUT "Grïsse:",Groesse$
IF LEN(Groesse$) <> 3 OR VAL(Groesse$) = 0 THEN
LOCATE 9,8 : PRINT "FEHLER"
END IF
--
Das Problem was ich hierbei habe ist, dass VAL den Stringwert in einen Integerwert
umwandelt und bei "000" ergibt dies nunmal als Integerwert 0 -> Fehler
Dem Benutzer sollte es aber gestattet sein als Größe 3x die Null einzugeben.
VAL erfüllt in diesem Zusammenhang das Abfangen von eingegebenen
Buchstaben oder Sonderzeichen.

Ich hoffe Ihr könnte mir bei meinem Problem weiterhelfen.

Vielen Dank bereits im Voraus für Eure Mühe.

Gruß
studio

[Skilltronic]

Hallo

Du könntest auch nur Zahlentasten bei der Eingabe zulassen und warten bis dreimal eine solche gedrückt wurde.

[studio]

Hi Skilltronic,

vielen Dank für Deine schnelle Antwort. Gibt es nicht eine andere Möglichkeit
mein IF-Konstrukt anders aufzubauen?

Vielen Dank im Voraus.

Gruß
studio

[jb]

Überprüfe halt noch, wenn VAL(Groesse$) = 0 ist, ob 3 Nullen enthalten sind:

[studio]

Hallo jb,

vielen Dank für Deine Antwort ... das ist auch genau die Lösung die ich gesucht hatte.

Allerdings muss ich zu meinem Unvermögen schreiben, dass ich auf die selbe Idee bereits gekommen bin ... nur falsch angewendet bzw. an der falschen Position:
--
IF Groesse$ <> "000" AND LEN(Groesse$) <> 3 OR VAL(Groesse$) = 0 THEN
LOCATE 9,8 : PRINT "FEHLER"
END IF
--
Hier wird das AND in Verbindung mit der Länge gebracht und kann somit auch nicht funktionieren.

Vielen Dank für Eure Mühe.

Gruß
studio

[Dusky_Joe]

Deswegen sollte man Bedingungen immer in Klammern schreiben, damit sie nicht mit den logischen Operatoren in Konflikt treten:

[studio]

Morgen!

@Dusky_Joe:
Danke für den Hinweis.

@Vorstellung:
Es geht hierbei um ein Inventurprogramm für den Schuhhandel. Dieses
Programm wird sich auf einem MDE Gerät wiederfinden. Eigentlich bin ich
im QBasic Bereich falsch angesiedelt, da das BHT sein eigenes Basic
Derivat mitbringt (BHT-Basic).
"Programmers Manual" - Vertreiberfirma: