Das deutsche QBasic- und FreeBASIC-Forum

[studio]

Hallo!

Ich habe eine INPUT Variable -> Menge$. Diese sollte nach Eingabe
auf Ihren Inhalt geprüft werden. Es dürfen nur Zahlen enthalten sein.
Ansonsten sollte eine entsprechende Fehlermeldung ausgegeben werden.

Folgendes hatte ich mir gedacht:
--
LOCATE 2,4 : INPUT "Menge:",Menge$
IF Menge$ = "" OR VAL(VMenge$) = 0 THEN
BEEP ,,2,0
LOCATE 2,6 : PRINT "FALSCHE MENGENANGABE"
END IF
--
Mit VAL erreiche ich leider nicht das gewünschte Ziel.
z.B. Benutzereingabe:
-------------------------
Menge: 123 -> Resultat = 123 (ok)
Menge: CCC -> Resultat mit VAL = 0 (ok)
Menge: 1CC -> Resultat mit VAL = 1 (nicht ok)

Hat jemand eine Idee wie ich das Problem angehen könnte?

Im Voraus schon einmal vielen Dank für Eure Mühe.

Gruß
studio

[Dusky_Joe]

Hier könnte dir INSTR helfen. INSTR gibt die Position eines Strings innerhalb eines anderen vor. Du könntest prüfen, ob die ASCII-Zeichen 0-47 bzw 58-255 in Menge$ vorkommt:

[Tomtitom]

Wieso liest du eigentlich nicht gleich die Variable als Zahl ein, dann verhindert QB sowieso jegliche Eingabe, die keine Zahl ist:

[studio]

Hallo!

Erst einmal vielen Dank für Eure schnellen Antworten.
Bisdato habe ich mich für die Variante von Dusky_Joe entschieden.

Tomtitom Deine Variante funktioniert bei mir nicht ganz wie gewünscht.
Du hast eigentlich die entscheidende Abkürzung genannt -> "QB".
Ich verwende hier ein anderes BASIC Derivat -> BHT-Basic (für MDE Geräte).
Einge QB-Befehle gibt es erst garnicht und andere funktionieren ganz anders.
In meinem Fall bekomme ich eine "Syntax Error"-Meldung, wenn ich Menge ohne "$" angebe.

Vielen Dank Euch beiden für Eure Hilfe.

Gruß
studio

[jb]

Was muss ich da sehen? Ein GOTO???

Das geht auch ohne:

[Dusky_Joe]

Herrje, wieder einer von den Stil-Aposteln
Natürlich hast du recht, und im Endeffekt wäre es sogar um ein paar Takte schneller, aber... soooo unpraktisch ist Goto ja auch nicht, zumindest solange das Label im selben Bildschirmausschnitt ist und dort die einzige ist

However, studio: Passe deinen Code nach jb's Vorschlag an, und vor allem: Steig auf freeBASIC um!
_________________
fully biological degradable

Once, the big wave arrives, you've got two ways, you can go:
Either, you ride it, or you don't do.
But, if you don't ride, you'll never know wether you'd have gone wet.

[jb]

[studio]

Hallo!

[stef]

Normalerweise lagert man solche Tests in Funktionen aus:

[studio]

Hallo stef,

vielen Dank für Deinen Vorschlag. Ich finde die Idee die Prüfung in eine
Funktion auszulagern sehr interessant und werde meinen Code entsprechend
anpassen und somit wird das Ganze auch etwas übersichtlicher.

Vielen Dank an alle .... und bis demnächst.

Gruß
studio

[Skilltronic]

Hallo

Der Vorschlag gleich von vornherein nur Zahlentasten zuzulassen hatte ich ja ganz ähnlich schon im anderen, fast gleichlautenden Thread gemacht. Vielleicht hätte man den ja auch einfach weiterführen können...

Aber zur Sache - im Sinne der Benutzerfreundlichkeit finde ich die Lösung, die Eingabe nach dem dritten Zeichen automatisch zu beenden, dann die Prüfung vorzunehmen und gegebenenfalls eine neue Eingabe zu fordern nicht besonders gut. Wenn die MDE zur Inventur eingesetzt wird, kommt es ja nicht zuletzt auf Geschwindigkeit an.

Als erstes sollte durch eine Bestätigung wie ENTER o.ä. die Eingabe abgeschlossen werden. So könnten ein- und zweistellige Zahlen ohne führende Nullen eingegeben werden. Zum anderen wäre eine Korrektur über eine BackSpace-Taste, die ebenfalls eingebaut werden sollte, auch bei der dritten Zahl möglich. Eine solche Korrekturmöglichkeit sollte dem Nutzer gegeben werden, damit er gleich reagieren kann, wenn er merkt, dass er sich vertippt hat. So kann man sich eine umständliche Löschprozedur im Anschluss sparen.

Gibt es irgendwo eine Liste dieser BHT-Basicbefehle wo evtl. auch die Unterschiede zu QBasic aufgeführt sind? Das wäre beim erstellen konkreter Lösungsvorschläge sehr hilfreich.

Gruss
Skilltronic
_________________
Elektronik und QB? www.skilltronics.de !

[studio]

Hallo!

Eine Übersicht der Befehle findet man unter folgender URL:
http://www.denso-id.de/
-> Products -> Downloads -> "Choose a category" -> "Programmers Manual" -> BHT-8000 Programmers Manual

Chapter14 Statement Reference
Chapter15 Function Reference

Gruß
studio

[ZaPPa]

ehm laut programmers manual sollte ' INPUT "Blubb";Zahl% ' aber funktionieren oder nich?
_________________
--- ICH BIN DAGEGEN! ---

[ytwinky]

Hi AlleMann,
@studio:
Du kannst es dir aber auch einfacher machen:

[Sebastian]

[Thomas Antoni]

Der folgende Artikel-Entwurf für die QB-MosterFAQ zeigt, wie man das Gewünschte prinzipiell machen kann:

-------------------------------------------------------------------------------------

Frage:
--------
Wie ermögliche ich eine Zahleneingabe mit Komma statt Dezimalpunkt?

(( Gleich nach diesem Beitrag steht eine Möglichkeit zur Anzeige von Zahlen mit
Komma ))


Wenn man über INPUT eine Zahl in eine Variable eingeben will, zum Beispiel INPUT
"Eine Zahl:";zahl", und man gibt eine Zahl mit Komma ein, etwa 1,2 , dann gibt
QB sofort eine Meldung aus, dass man die Eingabe wiederholen soll. Man muss die
Zahl mit einem Dezimalpunkt statt einem Komma eingeben. Das ist für
deutschsprachige Benutzer ungewohnt. Wie kann man nun eine Komma-Zahl, ohne dass
eine Fehlermeldung erscheint, gleich nach der Eingabe in eine Zahl gemäß QB-
Konventionen (mit Dezimalpunkt) umwandeln, so dass man auch Zahlen mit Komma
eingeben kann?



Antwort 2
~~~~~~~~~~
[ von Stefan ( mailto:stef_0815@web.de )im QB-Forum, 5.3.2004 ]

Wenn mehrere Variablen eingegeben werden sollen, dann kann man dies tun indem
man sie durch ein Komma trennt. Wenn Du schreibst 7,5 dann wird 7 in der ersten
und 5 in der zweiten Variable abgespeichert. Da Dein Programm aber nur eine
Variable erwartet kommt es zu diesem Fehler.

Am besten Du machst Die Eingabe mit Hilfe von INKEY$ statt INPUT gemäß meinem
folgenden Programm:.

'************************************************************
' KOMMAINP.BAS = Zahleneingabe mit Komma statt Dezimalpunkt
' ============
' Dieses QBasic-Programm gestattet eine Eingabe von Zahlen
' mit Komma statt Dezimalpunkt.
'
' Funktionsweise:
' Mit INKEY$ wird ermittelt welche Taste gedrueckt worden
' ist. Wenn keine Taste gedrueckt wurde, dann wird ein
' Leerstring uebergeben. Die eingetippten Textzeichen werden
' wie folgt zu einem String zusammengebaut: Mit SELECT CASE
' wird ausgewertet, was gedrueckt worden ist, und
' dementsprechend die Textvariable veraendert. Ein Komma
' wird sofort in einen Dezimalpunkt umgewandelt. Mit der
' Backspace-Taste ist ein Editieren des Eingabewerts moeglich
' Sobald Enter gedrueckt wurde, wird die Schleife
' verlassen. Danach muss noch der Text mit VAL in eine Zahl
' gewandelt werden.
'
' Momentan wird der Text am Anfang der 2. Bildschirmzeile
' ausgegeben. Man muesste natuerlich die Locate-Befehle
' entsprechend abaendern um die Anzeige an einer anderen
' Stelle zu platzieren
'
' (c) Stefab ( stef_0815@web.de ), 5.3.04
'************************************************************
'
DIM text AS STRING
DIM Eing AS STRING
CLS
'
PRINT "Gib eine Zahl mit Komma ein";
LOCATE 2, 1, 1 'Cursor anzeigen
DO
Eing = INKEY$
'
SELECT CASE Eing
'--- Ziffer ---
CASE "0" TO "9", "d", "D", "e", "E", "-"
text = text + Eing
LOCATE 2, 1
PRINT text;
LOCATE , , 1 'Cursor anzeigen
'
'--- Komma ---
CASE ".", ","
text = text + "."
LOCATE 2, 1
PRINT text;
LOCATE , , 1 'Cursor anzeigen
'
'--- Ruecksetztaste (Backspace) ---
'loescht das letzte Zeichen
CASE CHR$(8)
IF LEN(text) THEN
text = LEFT$(text, LEN(text) - 1)
LOCATE 2, 1
PRINT text + " ";
LOCATE , POS(0) - 1, 1 'Cursor anzeigen
END IF
END SELECT
'
LOOP UNTIL Eing = CHR$(13)
'--- Schleife verlassen, wenn Enter gedrueckt worden ist ---
variable = VAL(text) 'String in numerischen Zahlenwert wandeln
PRINT
PRINT
PRINT variable

(( KOMMAINP.BAS bereits in /progs/neu/ ))

-------------------------------------------------------------------------------------
_________________
+++ Die beliebte QBasic CD-ROM von QBasic.de - 670 MB QBasic-Stuff mit komfortabler HTML-Oberfläche. Für nur 5 EUR bestellbar auf www.antonis.de/qbcdueb.htm +++