QBasic "IF ... THEN" Befehl

Seite:

1 2

Autor

Beitrag

DrSoong

Beitrag verfasst: 31.03.2007, 17:26 Uhr

Globaler Moderator

Anmeldedatum: 15.08.2002
441 Posts und 2 Themen.

Machs besser so (ganzer Code nochmal):

Code:

1 2 3 4 5 6 7 8 INPUT a! INPUT b$ INPUT c! IF b$ = "" THEN PRINT "Ungültig!" IF b$ = "+" THEN LET d! = a! + c! IF b$ = "-" THEN LET d! = a! - c! IF b$ = "*" THEN LET d! = a! * c! IF b$ = "/" THEN LET d! = a! / c!

Wenn b$ keinen Wert hat, kommt jetzt die Meldung.

Der Doc!

____________________
Zur Information: Ich beantworte keine Fragen, die per Mail an mich gesandt werden. Bei Kontaktaufnahme einen Post ins Forum setzen oder mich nach Aufforderung per VPM anschreiben.

Nach Oben

Siggy

Beitrag verfasst: 31.03.2007, 18:07 Uhr

[ Gastposter ]

Zitat von DrSoong

Wenn b$ keinen Wert hat, kommt jetzt die Meldung.

Ich will aber, dass die Meldung kommt wenn etwas anderes eingegeben wurde als '+',...!

Siggy

Nach Oben

DrSoong

Beitrag verfasst: 31.03.2007, 20:41 Uhr

Globaler Moderator

Anmeldedatum: 15.08.2002
441 Posts und 2 Themen.

Dann einfach diese Zeile verwenden:

Code:

`1`	`IF b$ <> "+" OR b$ <> "-" OR b$ <> "/" OR b$ <> "*" THEN PRINT "Ungültig!"`

Der Doc!

____________________
Zur Information: Ich beantworte keine Fragen, die per Mail an mich gesandt werden. Bei Kontaktaufnahme einen Post ins Forum setzen oder mich nach Aufforderung per VPM anschreiben.

Nach Oben

Siggy

Beitrag verfasst: 31.03.2007, 20:53 Uhr

[ Gastposter ]

Mann, du bist genial, danke für deine Hilfe!!!

Siggy

Nach Oben

Siggy

Beitrag verfasst: 01.04.2007, 11:10 Uhr

[ Gastposter ]

Hallo,

mir fällt gerade auf, dass er jetzt auch die Fehlermeldung gibt, auch wenn mann ein z.B. '+' eingegeben hat! Gibt es noch ne' andere Möglichkeit?

Siggy

Nach Oben

DrSoong

Beitrag verfasst: 01.04.2007, 14:35 Uhr

Globaler Moderator

Anmeldedatum: 15.08.2002
441 Posts und 2 Themen.

Sorry, kleiner Fehler, sollte so sein:

Code:

`1`	`IF b$ <> "+" AND b$ <> "-" AND b$ <> "/" AND b$ <> "*" THEN PRINT "Ungültig!"`

Nach Oben

Siggy

Beitrag verfasst: 01.04.2007, 17:51 Uhr

[ Gastposter ]

Hallo,

danke so klappt's!

Aber wie kann ich machen, dass wenn etwas falsch eingegeben wurde, dass er dann die Eingabe wiederholt bis sie richtig eingegeben wurde? (wie bei Passwörtern!)

Siggy

Nach Oben

DrSoong

Beitrag verfasst: 01.04.2007, 21:08 Uhr

Globaler Moderator

Anmeldedatum: 15.08.2002
441 Posts und 2 Themen.

Die alten Basic-Versionen hatten noch kein Prozedurdesign, daher waren Sprünge mit Goto notwendig (bei VB heute sollte man die maximal für Fehlerroutinen verwenden). Man definiert eine Sprungmarke und kann dann jederzeit dorthin springen. Die Sprungmarken selbst werden im Code übergangen und erst bei einem Sprung dorthin vom System bemerkt. In deinem Fall sollte das so aussehen.

Code:

1 2 3 4 5 6 7 8 9 10 11 12 eingabe: INPUT a! INPUT b$ INPUT c! IF b$ <> "+" AND b$ <> "-" AND b$ <> "/" AND b$ <> "*" THEN PRINT "Ungültig!" GOTO eingabe END IF IF b$ = "+" THEN LET d! = a! + c! IF b$ = "-" THEN LET d! = a! - c! IF b$ = "*" THEN LET d! = a! * c! IF b$ = "/" THEN LET d! = a! / c!

Das findet sich aber auch auf der QB-Seite, die ich dir ein paar Posts vorher genannt habe.

Der Doc!

____________________
Zur Information: Ich beantworte keine Fragen, die per Mail an mich gesandt werden. Bei Kontaktaufnahme einen Post ins Forum setzen oder mich nach Aufforderung per VPM anschreiben.

Nach Oben

Siggy

Beitrag verfasst: 03.04.2007, 10:47 Uhr

[ Gastposter ]

DANKE, ich hatte es auch schon mit GOTO versucht nur es hat irgendwie nicht geklappt!
NAJA, danke nochmal!

Siggy

1 x geändert, zuletzt am 03.04.2007 von

Nach Oben

Die Domain www.v-basic.de steht zum Verkauf: Interesse?

QBasic "IF ... THEN" Befehl