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: 

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: 
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