wieso klappt denn des net (QBASIC)

[AIC]

Code: Alles auswählen

REM HAndyanbieter
CLS
40
COLOR 4, 7

PRINT "Wollen Sie meine Anbieter mit Zuf„lligen WERTEN"
INPUT "Oder lieber eigene Angaben Schreiben?(7=zufall) oder (8=neu):"; Angabe$
IF Angabe$ = "7" THEN GOTO 10
IF Angabe$ = "8" THEN GOTO 11


10 CLS

PRINT "welchen handyanbieter haben sie(alle Angaben werden mit 50 Sms im Monat"
PRINT "berechnet)"
PRINT "(1) Aldi"
PRINT "(2) D1"
PRINT "(3) D2"
PRINT "(4) telecom"
PRINT "(5) einen anderen"
INPUT men
IF men = 1 THEN GOTO 1
IF men = 2 THEN GOTO 2
IF men = 3 THEN GOTO 3
IF men = 4 THEN GOTO 4
IF men = 5 THEN GOTO 5



1 CLS
PRINT "Aha,Sie sind also beim billigen Aldi;so weit ich das auf dem momentanen Stand sehen kann"
PRINT
PRINT "betr„gt ihre gesamtausgabe f�r 50 SMS im MONAT genau:11 Euro"
PRINT
PRINT "Da die GRundgeb�hr 5 Euro betr„gt und eine Sms nur 0.12 Euro kostet"


2 CLS
PRINT "Aha,ich verstehen;sie sind also bei D1"
PRINT "laut meinen Berechnungen im JAhre 2006,bin ich auf das Ergebnis gekommen,"
PRINT "dass Sie das ausgew„hlte Handy ohne Grungeb�hr,"
PRINT "aber mit SmS-kosten von 0.24 Euro,kostet sie das im MOnat 12 Euro!"


3 CLS
PRINT "Verstehe,dein Anbieter heiát also D2"
PRINT "LAut meinen BErechnungen m�sstest du im Monat eine Grundgeb�hr von 10 Euro bezahlen"
PRINT "daf�r kannst du so viele SMS schreiben wie viele du willst,das sie umsonst sind"
PRINT "somit kostet dich dieser Anbieter genau 10 Euro,momat f�r Monat"
END

4 CLS
PRINT "ich sehe schon,du hast also TElecom gew„hlt"
PRINT "Dieser Anbieter verlangt im MOnat eine Grundgeb�hr von 7 Euro"
PRINT "und SmS-kosten von 0.15 Euro"
PRINT "somit musst du bei 50 Sms im MOant genau:13.5 Euro bezahlen"
END

der comp gibt die ersten 3 anbieter nicht frei und irgentwann auch die andern nicht
dann geht er sofort zu 11 rüber
könnte mir das jemand mal sagen bzw wie man das dann richtig machen
müsste

außerdem hätte ich unten noch ne frage ,ob er das programm wiederholen will oder beenden.
hab schon sehr lange dran gesessen und hab auch schon zur hälfte einiges geschafft aber eben nur zur hälfte

___________
bobobo hat codegetagt

[Kiffi]

@AIC:

was is'n das für 'ne Sprache?

Grüße ... Kiffi

P.S.: In Zukunft bitte aussagekräftigere Betreff verwenden!

[Scream]

das schaut fast aus wie QBasic.....

Scream

[uweb]

Sieht mir auch danach aus.

Vielleicht liegt es daran, daß vor "4 CLS" ein "END" steht und vor "1 CLS",
"2 CLS" und "3 CLS" nicht.

Wenn nicht wäre es nett wenn Du uns die Sprache verrätst. Zu QB habe ich glaube ich noch Bücher im Keller.

wieso klappt denn des net

Nem Baadenea hilfe imma gern.

P.S.

Unter http://www.purebasic.de/ bekommst Du ne Freeware-Version von Purebasic. Für den Anfang kannst Du damit schon einiges machen.

[MVXA]

Für QBasic ist das aber hier irgendwie das falsche Board . Wenn
das mal ein Mod verschieben würde, danke .

[AND51]

Ich habe mich mal mit QBasic befasst, also alles was du da programmiert hast kann ich auch, hehe

Wenn du bitte nochmal den ganzen Code mit Code-Tags posten könntest, würd ich nochmal drübergehen, auch wenn ich schon lange, lange kein QBasic mehr in den Händen hatte...

[bobobo]

try this

Code: Alles auswählen

REM HAndyanbieter
CLS
40
COLOR 4, 7

PRINT "Wollen Sie meine Anbieter mit Zuf„lligen WERTEN"
INPUT "Oder lieber eigene Angaben Schreiben?(7=zufall), (8=neu), (0=beenden):"; Angabe$
If Angabe$ = "7" THEN Goto 10
If Angabe$ = "8" THEN Goto 11
If Angabe$ = "0" THEN End

Goto 40

11 CLS
PRINT "Ich weiá nicht so recht. Hier sollte was anderes stehen."
Goto 40

10 CLS

PRINT "Welchen handyanbieter haben sie? (Alle Angaben werden mit 50 Sms im Monat"
PRINT "berechnet)"
PRINT "(1) Aldi"
PRINT "(2) D1"
PRINT "(3) D2"
PRINT "(4) telecom"
PRINT "(5) einen anderen"
PRINT "(0) Beenden"
INPUT men
If men = 1 THEN Goto 1
If men = 2 THEN Goto 2
If men = 3 THEN Goto 3
If men = 4 THEN Goto 4
REM If men = 5 THEN Goto 5
If men = 0 THEN End
Goto 10

1 CLS
PRINT "Aha,Sie sind also beim billigen Aldi;so weit ich das auf dem momentanen Stand sehen kann"
PRINT
PRINT "betr„gt ihre gesamtausgabe f