Quiz - Input Falsch?

Übersicht

BlitzBasic

Beginners-Corner

Gehe zu Seite Zurück 1, 2, 3

	Thoth	So, März 13, 2005 17:06 Antworten mit Zitat
Hab schon wieder ne' Frage : Wie kann ich im folgenden Code noch ein "Else" einfügen (und zwar bei den antwort strings, dass wenn man einen andern buchstaben eingibt dass da dann z.b kommt: Falsche Eingabe! oderso. ): Graphics 800,600,32,2 Global lied, hg lied = PlayMusic ("musik.mid") hg = LoadImage ("landschaft.bmp") DrawBlock hg, 0,0 If hg = 0 Then Color 255,0,0: Print "Grafikfehler": Delay 2000: End Color 0,0,0 Text 310,50,"Welche Stadt ist größer?" Delay 2500 Text 340,70,"a, für Waldkirch" Delay 1000 Text 340,90,"b, für Kollnau" Print " Delay 750 Dim antwort$(5) Locate 340,110 antwort$(1) = Input ("a, oder b: ") If antwort$(1) = "a" Then Color 0,255,0: Text 340,130,"Richtig": Delay 2500: Color 0,0,0 If antwort$(1) = "b" Then Color 255,0,0: Text 340,130,"Falsch": Delay 2500: Color 0,0,0 Cls DrawBlock hg, 0,0 Locate x,y Text 310,50,"Wann fiel die Mauer zur DDR?" Delay 2500 Text 340,70,"a, für 1991" Delay 1000 Text 340,90,"b, für 1989" Print " Delay 750 Locate 340,110 antwort$(2) = Input ("a, oder b: ") If antwort$(2) = "a" Then Color 255,0,0: Text 340,130,"Falsch": Delay 2500: Color 0,0,0 If antwort$(2) = "b" Then Color 0,255,0: Text 340,130,"Richtig": Delay 2500: Color 0,0,0 Danke!! mfG

Thoth

So, März 13, 2005 17:06
Antworten mit Zitat

Hab schon wieder ne' Frage Very Happy

:

Wie kann ich im folgenden Code noch ein "Else" einfügen (und zwar bei den antwort strings, dass wenn man einen andern buchstaben eingibt dass da dann z.b kommt: Falsche Eingabe! oderso. ):

Graphics 800,600,32,2

Global lied, hg
lied = PlayMusic ("musik.mid")
hg = LoadImage ("landschaft.bmp")
DrawBlock hg, 0,0
If hg = 0 Then Color 255,0,0: Print "Grafikfehler": Delay 2000: End

Color 0,0,0
Text 310,50,"Welche Stadt ist größer?"
Delay 2500
Text 340,70,"a, für Waldkirch"
Delay 1000
Text 340,90,"b, für Kollnau"
Print "
Delay 750
Dim antwort$(5)
Locate 340,110
antwort$(1) = Input ("a, oder b: ")
If antwort$(1) = "a" Then Color 0,255,0: Text 340,130,"Richtig": Delay 2500: Color 0,0,0
If antwort$(1) = "b" Then Color 255,0,0: Text 340,130,"Falsch": Delay 2500: Color 0,0,0

Cls
DrawBlock hg, 0,0
Locate x,y

Text 310,50,"Wann fiel die Mauer zur DDR?"
Delay 2500
Text 340,70,"a, für 1991"
Delay 1000
Text 340,90,"b, für 1989"
Print "
Delay 750
Locate 340,110
antwort$(2) = Input ("a, oder b: ")
If antwort$(2) = "a" Then Color 255,0,0: Text 340,130,"Falsch": Delay 2500: Color 0,0,0
If antwort$(2) = "b" Then Color 0,255,0: Text 340,130,"Richtig": Delay 2500: Color 0,0,0

Danke!!

mfG

	Artemis	So, März 13, 2005 17:10 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Locate 340,110 antwort$(1) = Input (\"a, oder b: \") Select antwort$(1) Case \"a\" Color 0,255,0: Text 340,130,\"Richtig\" Case \"b\" Color 255,0,0: Text 340,130,\"Falsch\" Default Color 255,255,255: Text 340,130,\"Falsche Eingabe\" End Select Delay 2500 Color 0,0,0 so ists besser und richtig bitte tu es demnäxt als bbcode

Artemis

So, März 13, 2005 17:10
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]

Locate 340,110
antwort$(1) = Input (\"a, oder b: \")
Select antwort$(1)
  Case \"a\"
    Color 0,255,0: Text 340,130,\"Richtig\"
  Case \"b\"
    Color 255,0,0: Text 340,130,\"Falsch\"
  Default
    Color 255,255,255: Text 340,130,\"Falsche Eingabe\"
End Select
Delay 2500
Color 0,0,0

so ists besser und richtig
bitte tu es demnäxt als bbcode

	Thoth	So, März 13, 2005 17:11 Antworten mit Zitat
okay, danke!

Thoth

So, März 13, 2005 17:11
Antworten mit Zitat

okay, danke!

Gehe zu Seite Zurück 1, 2, 3

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Quiz - Input Falsch?

Thoth

Artemis

Thoth