brauche Hilfe beim Prog

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

ssj-goku

Betreff: brauche Hilfe beim Prog

 BeitragSa, Dez 10, 2005 12:01
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi Leute

ich habe wieder spass am programieren bekommen und habe mal ein Programm geschrieben: ein Bank Automat
Nur mein Problem ist ich weis nicht Recht wieso das nicht funktioniert hier ma der Code:

BlitzBasic: [AUSKLAPPEN] 

Graphics 800,600,16,2
SetBuffer BackBuffer()

Global kapital  = 0
Global programm = 0
Global pw1      = "2231"
Global user1    = "inu"

Repeat 

Cls

Print "Bank Automat"
Print "____________"
user = Input("Benutzername: ")
pw   = Input("Kennwort: ")

If (user = user1 And pw = pw1) Then

Print "Willkommen " + user + " !"
Print "_________________________"
Print "1- Geld abheben"
Print "2- Kontostand "
Print "3- Geld zuweisen"
Print "4- Beenden"

wahl = Input("Menue Punkt: ")

Select wahl

Case 1 
abheben = Input("Betrag eingeben: ")
kapital = kapital - abheben

Case 2  
Print "Ihr Kontostand: " + kapital + " EUR"

Case 3  
zuweisen = Input("Betrag eingeben: ")
kapital = kapital + zuweisen

Case 4 
programm = 1

Default 
Print "Bitte den Menuepunkt von 1 - 4 eingeben!!!"

End Select 

Flip

Until programm = 1

End


PS: Das Prog ist nicht rdy und sehr sehr low Level geschrieben Wink

SoNenTyp

 BeitragSa, Dez 10, 2005 12:04
Antworten mit Zitat
Benutzer-Profile anzeigen
Dir fehlt ein Endif


Wenn du den Code richtig Formatierst also einrückst fällt so etwas sofort auf.
Gruss Der Typ.

User posted image

ssj-goku

 BeitragSa, Dez 10, 2005 12:07
Antworten mit Zitat
Benutzer-Profile anzeigen
besten Dank Very Happy und danke für den Tipp

Dante

 BeitragSa, Dez 10, 2005 12:10
Antworten mit Zitat
Benutzer-Profile anzeigen
BlitzBasic: [AUSKLAPPEN] 
Graphics 800,600,16,2 
SetBuffer BackBuffer() 

Global kapital  = 0 
Global programm = 0 
Global pw1      = "2231" 
Global user1    = "inu" 

Repeat 

Cls 

Print "Bank Automat" 
Print "____________" 
user = Input("Benutzername: ") 
pw   = Input("Kennwort: ") 

If (user = user1 And pw = pw1) Then 

	Print "Willkommen " + user + " !" 
	Print "_________________________" 
	Print "1- Geld abheben" 
	Print "2- Kontostand " 
	Print "3- Geld zuweisen" 
	Print "4- Beenden" 

	wahl = Input("Menue Punkt: ") 

		Select wahl 

			Case 1 
				abheben = Input("Betrag eingeben: ") 
				kapital = kapital - abheben 

			Case 2  
				Print "Ihr Kontostand: " + kapital + " EUR" 

			Case 3  
				zuweisen = Input("Betrag eingeben: ") 
				kapital = kapital + zuweisen 

			Case 4 
				programm = 1 

			Default 
				Print "Bitte den Menuepunkt von 1 - 4 eingeben!!!" 

		End Select 
EndIf ;Das Fehlte^^

Flip 

Until programm = 1 

End

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group