Fehler in meiner For schleife

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

Snade

Betreff: Fehler in meiner For schleife

BeitragMi, Dez 31, 2008 17:24
Antworten mit Zitat
Benutzer-Profile anzeigen
ich hab gerade mit bb angefangen (vor 3 tagen) und bin gerade dabei ein bank simmulator zu erstellen
Code: [AUSKLAPPEN]
;Start
AppTitle "Bank v1,01"

For bsp=1 To 3
Print "Hallo Wilkommen!"
Print "Wiviel moechten sie abheben?"

 ;Value (abzuhebender Betrag)
 Print "20"
 Print "50"
 Print "100"
 Print "200"
 Print "500"

 ;Input
 Betrag = Input$("Bitte waehlen sie einen Betrag: ")
 Select Betrag

 Case 20  Print "Sie haben 20 Euro gewaehlt"
 Case 50  Print "Sie haben 50 Euro gewaehlt"
 Case 100 Print "Sie haben 100 Euro gewaehlt"
 Case 200 Print "Sie haben 200 Euro gewaehlt"
 Case 500 Print "Sie haben 500 Euro gewaehlt"
 Default Print "Ungueltiger Betrag "
 WaitKey
 End
 End Select
 
 Mehr = Input$("Wollen sie mehr abheben?(y/n) ")
 Select Mehr
 Case "y"
 Print "Ok heben sie noch mehr ab sie BONZE ;)"
 Case "n"
 Print "!!!"
 Default
 Print "WIE MEINEN??"
 End Select

 
Next
 



;ENDE
WaitKey
End


so das ist der source code

wenn ich jetz aber bei Code: [AUSKLAPPEN]
case "n"

"end" eintrage dann kommt immer die fehlermeldung das next ohne for ist oder er printet mir case "y" hin also "Ok heben sie noch mehr ab sie BONZE Wink" hab ihrgendiwe keine ahnung was der von mir will for is doch oben!!
und das 2. problem is auch das erste wenn ich dann z.B. "b" eingebe also im programm dann kommt wieder die nachricht von case "y"
und auch wenn ich "n" eingebe kommt wieder case "y"

hab keine ahnung brauche hilfe xD

mfg. Snade[/code]

Snade

BeitragMi, Dez 31, 2008 17:52
Antworten mit Zitat
Benutzer-Profile anzeigen
KANN closed werden falls welche denn gleichen fehler haben diese problem loest man mit der repeat schlife wahr bloss noch nich soweit *gg*

Code: [AUSKLAPPEN]
 ~DEIN CODE~
Mehr$ = Input$("Wollen sie mehr abheben?(y/n) ")
 Until Mehr$ <> "y"

ToeB

BeitragMi, Dez 31, 2008 17:55
Antworten mit Zitat
Benutzer-Profile anzeigen
Erster ganz klarer fehler :
Code: [AUSKLAPPEN]
Mehr = Input("...")

Wird so nicht kallpen im zusammenhang mit
Code: [AUSKLAPPEN]
Select Mehr
Case "n"
...
End Select


Da Mehr als Integer und nicht als String "gekennzeichnet" wurde... Mach einfach ein "$" hinter mehr :
Code: [AUSKLAPPEN]
Mehr$ = Input("...")
Dann sollte es klappen...


mfg ToeB
Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat.
Race-Project - Das Rennspiel der etwas anderen Art
SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek
Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt!

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group