Das deutsche QBasic- und FreeBASIC-Forum

[jh35104]

Hallo zusammen mich quält folgende Frage!!!

Wie funktioniert es, bei einer falschen Eingabe bei einem Inputbefehl den Satz " Bitte korrigieren Sie......." an eine beliebiege Stelle des Bildschirms zu setzen?????
_______
CLS
SCREEN 12
LOCATE 1,1: INPUT "Geben Sie die gewünschte Anzahl ein: ", a

'eine falsche Eingabe wäre jetzt z.Bsp.: hklafh
' a darf den wert 0000 bis 9999 haben
' die Begrenzung des Werts habe ich mit IF a >9999 und GOTO + Marke (ja ich weiß GOTO ohje.... ) gemacht
' wenn jetzt z.Bsp.: hklafh (zufällige Tastenauswahl mit ganzer Hand) eingegeben wird zerstörrt die Meldung meinen Bildaufbau
' ich stelle mir so was in der Art vor

LOCATE 24,1: //"FEHLERMELDUNG+Korekturwert"//
Also eine Art Statuszeile in der unteren Bildschirmzeile
Wer hat da Erfahrung und eine einfache umsetzbare Idee für das Problem

DANKE für Eure Hilfe

[XOR]

Hi, ich schreibe zwar immer in FB, das sollte aber auch in QB funzen.
Ich benutze die oberste zeile um eine Message auszugeben.

[nemored]

[jh35104]

Hallo zusammen Danke für die Lösungsvorschläge.

Leider ist mir nicht ganz geholfen. Bei dem Problem geht es um eine Interne QB-Fehler-Meldung wenn ich z.Bsp.: einer SINGLE VARIABLE einen Buchstaben ($) zuordne, was ja logischerweise nicht geht. Also diese Fehlermeldung die dann erscheint zerstört mein Bildaufbau. Wie kann ich diese bändigen?

MfG

[nemored]

Um einen String in eine Zahl zu verwandeln, gibt es den Befehl VAL. Ich habe da in etwa so gearbeitet:

[jh35104]

DANKE!!!

So Funktioniert das?!?
Hat mir sehr weitergeholfen. Ich musste die Bedingung <0 auf <1 ändern weil sonst bei die $Eingabe das Programm ohne Korrekturmöglichkeit weitergelaufen wäre:


'ez=eingabe Zahl
'a$=Stringeingabemöglichkeit


cls
screen 13
neu:
cls
locate 1,1 : input"EINGABE: ";a$
ez = Val(a$)

if ez < 1 or ez >9999 then
goto neu:
end if

cls
locate 2,1 "AUSGABE:", ez
sleep
end




FROHE OSTERN

P.S.: Wie würde das mit ON ERROR // ERR = 13 gehn???

[nemored]

Mit ON ERROR bin ich nicht mehr sonderlich vertraut; geht in etwa so:

[jh35104]

so in der Art hab ich das versucht aber ERR 13 (Datentyp %><$) wurde nicht erkannt sondern immer ERR 20 in diesem FALL kein FEHLER angezeigt

NAJA

Die Lösung mit Umwandeln der $ in % mit VAL geht gut und ist nicht viel Aufwand in meinem speziellen Fall.

DANKE nochmals

[nemored]

Um den "RESUME ohne Fehler" zu vermeiden, darf dein Programm natürlich nicht ohne Fehler in die Fehlerroutine hineinlaufen - also vor der Fehlerroutine das Programm beenden.