Debug enabled wird ausgeschalten und nichts funktioniert meh

Übersicht

BlitzBasic

Allgemein

	jubb Betreff: Debug enabled wird ausgeschalten und nichts funktioniert meh	Sa, Nov 13, 2004 10:43 Antworten mit Zitat
Ich hebe den Debug enabled an und wenn ich ihn aus mache flimmert es nur noch. ich hoffe ihr könnt mir helfen. hier der code: Graphics 640,480 Cls SetBuffer BackBuffer() font = LoadFont("Times New",20) SetFont font song = LoadSound("Songhauptmenu.wav") hinter = LoadImage("hinter1.bmp") Siegsong = LoadSound("Siegmelodie.mp3") font2 = LoadFont("Courier",20) TileBlock hinter PlaySound(song) Dim Fragen1$(4) Dim Fragen2$(4) Dim Fragen3$(4) Dim Fragen4$(4) Dim Fragen5$(3) Dim Fragen6$(3) Dim Fragen7$(2) Text 150,300, "Hinweis: Wenn es in diesem Programm nicht weiter geht" Text 150,350, "Enter drücken!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" Text 150,400, "Viel Spaß!!!!!!!" Dim Spruch$(5) Spruch$(1) = "Herzlich Willkommen hier im Quizstudio von Julian Kissel." Spruch$(2) = "Sind sie bereit, für 7 Fragen ,die sie Wahrheitsgemäß " Spruch$(3) = "berantworten müssen." Spruch$(4) = "Bestätigen sie ,indem sie j eingeben und danach enter drücken" Spruch$(5) = "Wenn sie nicht wollen mit einem n" X=20 Y=20 For J=1 To 5 For I=1 To Len(Spruch$(J)) For K=1 To J-1 Text X, Y + K 20, Spruch$(K) Next Text X, Y+J20, Mid$(Spruch$(J),1,I) Flip Delay 25 Next Next Anfang$ = Input$("Was wollen sie machen: ") ; bestädigung If Anfang$=j Then Text 200,200, "Los geht es" WaitKey EndIf If Anfang$=n Then Print "Tschüss und Aufwiedersehen" WaitKey End EndIf WaitKey Cls TileBlock hinter Name$ = Input$("Nennen sie mir bitte ihren Namen: ") Text 100,200, "Herzlich Willkommen " + Name$ + " in der 2 Millionen Show von Julian Kissel." WaitKey Cls TileBlock hinter Geld = 0 Text 400,50, "Geld: " + Geld Data "Wer war der erste präsident von der USA? 1. George W.Bush 2. George Washington", "Wie heißt das erste Band von Harry Potter? 1.und der Stein der Weisen 2.und der Gefangene von Askaban", "Die Hauptstadt von Argentienien ist ...? 1. Rosario 2.Buenos Aires", "Wo liegt der Kongo? 1. Afrika 2. Asien" For I=1 To 4 Read Fragen1$(I) Next SeedRnd MilliSecs() Fragens = Rand(1,4) If Fragens=1 Then Print "Frage 1: " Print Fragen1$(1) doq$ = Input$("Welche Zahl ist richtig: ") If doq$=2 Then Text 100,200, "Ja erste Frage geschaft " + Name$ PlaySound(Siegsong) Geld = Geld+500 EndIf If doq$=1 Or doq$<>2 Then Text 100,200, "Schade " + Name$ WaitKey End EndIf EndIf If Fragens=2 Then Print "Frage 1: " Print Fragen1$(2) dow$ = Input$("Welche Zahl ist richtig: ") If dow$=1 Then Text 100,200, "Ja erste Frage geschaft " + Name$ PlaySound(Siegsong) Geld = Geld+500 EndIf If dow$=2 Or dow$<>1 Then Text 100,200, "Schade " + Name$ WaitKey End EndIf EndIf If Fragens=3 Then Print "Frage 1: " Print Fragen1$(3) doe$ = Input$("Welche Zahl ist richtig: ") If doe$=2 Then Text 100,200, "Ja erste Frage geschaft " + Name$ PlaySound(Siegsong) Geld = Geld+500 EndIf If doe$=1 Or doe$<>2 Then Text 100,200, "Schade " + Name$ WaitKey End EndIf EndIf If Fragens=4 Then Print "Frage 1: " Print Fragen1$(4) dor$ = Input$("Welche Zahl ist richtig: ") If dor$=1 Then Text 100,200, "Ja erste Frage geschaft " + Name$ PlaySound(Siegsong) Geld = Geld+500 EndIf If dor$=2 Or dor$<>1 Then Text 100,200, "Schade " + Name$ WaitKey End EndIf EndIf WaitKey Cls TileBlock hinter Text 400,50, "Geld: " + Geld Data "Wann war der Mauer fall von Deutschland? 1.9 Novermber 1989 2.9 November 1990", "Wann starb Julius Cesar? 1. 15.März 2. 15 April", "Was bedeutet Revision?1.man an ein höheres Gericht gehen will2.man in einer Gerichtsverhandlung aufgibt", "Wer war Amadeus Mozart? 1. Eine Rocklegende 2. Ein Genialer Musiker" For I=1 To 4 Read Fragen2$(I) Next SeedRnd MilliSecs() Fragens2 = Rand(1,4) If Fragens2=1 Then Print "Frage 2: " Print Fragen2$(1) don$ = Input$("Welche Zahl ist richtig: ") If don$=1 Then Text 100,200, "Ja, zweite Frage geschaft!!! " + Name$ PlaySound(Siegsong) Geld = Geld+2500 EndIf If don$=2 Or don$<>1 Then Text 100,200, "Schade " + Name$ + ". Mit 500 Euro geht es hier heim." WaitKey End EndIf EndIf If Fragens2=2 Then Print "Frage 2: " Print Fragen2$(2) dot$ = Input$("Welche Zahl ist richtig: ") If dot$=1 Then Text 100,200, "Ja, zweite Frage geschaft!!! " + Name$ PlaySound(Siegsong) Geld = Geld+2500 EndIf If dot$=2 Or dot$<>1 Then Text 100,200, "Schade " + Name$ + ". Mit 500 Euro geht es hier heim." WaitKey End EndIf EndIf If Fragens2=3 Then Print "Frage 2: " Print Fragen2$(3) doz$ = Input$("Welche Zahl ist richtig: ") If doz$=1 Then Text 100,200, "Ja, zweite Frage geschafft!!! " + Name$ PlaySound(Siegsong) Geld = Geld+2500 EndIf If doz$=2 Or doz$<>1 Then Text 100,200, "Schade " + Name$ + ". Mit 500 Euro geht es hier heim." WaitKey End EndIf EndIf If Fragens2=4 Then Print "Frage 2: " Print Fragen2$(4) dou$ = Input$("Welche Zahl ist richtig: ") If dou$=2 Then Text 100,200, "Ja, die zweite Frage geschafft!!! " + Name$ PlaySound(Siegsong) Geld = Geld+2500 EndIf If dou$=1 Or dou$<>2 Then Text 100,200, "Schade " + Name$ + ". Mit 500 Euro geht es hier heim." WaitKey End EndIf EndIf WaitKey Cls TileBlock hinter Text 400,50, "Geld: " + Geld Data "Aus wie viel Prozent Sauerstoff besteht Luft?1.35% 2.21% 3.15%", "Wer ist keine Sängerin?1.Silke B. 2.Sarah C.", "Wohin springt eine Ampel, wenn nur Gelb da ist?1.Grün 2.Rot 3.Gelb", "Von welchem Tier werden die Borsten einer Zahnbürste gemacht?1. Schweinart 2. Vogelart 3. Igelart" For I=1 To 4 Read Fragen3$(I) Next SeedRnd MilliSecs() Fragens3 = Rand(1,4) If Fragens3=1 Then Print "Frage 3: " Print Fragen3$(1) doi$ = Input$("Welche Zahl ist richtig: ") If doi$=2 Then Text 100,200, "Ja, die dritte Frage geschafft!!! " + Name$ PlaySound(Siegsong) Geld = Geld+12000 EndIf If doi$<>2 Then Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim." WaitKey End EndIf EndIf If Fragens3=2 Then Print "Frage 3: " Print Fragen3$(2) doo$ = Input$("Welche Zahl ist richtig: ") If doo$=1 Then Text 100,200, "Ja, die dritte Frage geschafft!!! " + Name$ PlaySound(Siegsong) Geld = Geld+12000 EndIf If doo$<>1 Then Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim." WaitKey End EndIf EndIf If Fragens3=3 Then Print "Frage 3: " Print Fragen3$(3) dop$ = Input$("Welche Zahl ist richtig: ") If dop$=2 Then Text 100,200, "Ja, die dritte Frage geschafft!!! " + Name$ PlaySound(Siegsong) Geld = Geld+12000 EndIf If dop$<>2 Then Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim." WaitKey End EndIf EndIf If Fragens3=4 Then Print "Frage 3: " Print Fragen3$(4) doü$ = Input$("Welche Zahl ist richtig: ") If doü$=1 Then Text 100,200, "Ja, die dritte Frage geschafft!!! " + Name$ PlaySound(Siegsong) Geld = Geld+12000 EndIf If doü$<>1 Then Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim." WaitKey End EndIf EndIf WaitKey Cls TileBlock hinter Text 400,50, "Geld: " + Geld Data "Was ist schwerer 1kg Federn oder 1kg Eisen? 1. Eisen 2. Federn 3. Gleich", "Warum nannte man die Eisenzeit, Eisenzeit? 1. Wegen dem gefundenen Eisen 2. Wegen der Mineralien", "Wo liegen die Pyramieden?1. Ägypten 2. Irak 3. Israel 4.Afganistan", "Von wann bis wann war das Mittelalter?1.500-etwa1000 2.500-et.800 3.500-et.1600 4.500-et.1800" For I=1 To 4 Read Fragen4$(I) Next SeedRnd MilliSecs() Fragens4 = Rand(1,4) If Fragens4=1 Then Print "Frage 4: " Print Fragen4$(1) doa$ = Input$("Welche Zahl ist richtig: ") If doa$=3 Then Text 100,200, "Ja, die vierte Frage geschafft!!! " + Name$ PlaySound(Siegsong) Geld = Geld+55000 EndIf If doa$<>3 Then Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim." WaitKey End EndIf EndIf If Fragens4=2 Then Print "Frage 4: " Print Fragen4$(2) dos$ = Input$("Welche Zahl ist richtig: ") If dos$=1 Then Text 100,200, "Ja, die vierte Frage geschafft!!! " + Name$ PlaySound(Siegsong) Geld = Geld+55000 EndIf If dos$<>1 Then Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim." WaitKey End EndIf EndIf If Fragens4=3 Then Print "Frage 4: " Print Fragen4$(3) dod$ = Input$("Welche Zahl ist richtig: ") If dod$=1 Then Text 100,200, "Ja, die vierte Frage geschafft!!! " + Name$ PlaySound(Siegsong) Geld = Geld+55000 EndIf If dod$<>1 Then Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim." WaitKey End EndIf EndIf If Fragens4=4 Then Print "Frage 4: " Print Fragen4$(4) dof$ = Input$("Welche Zahl ist richtig: ") If dof$=3 Then Text 100,200, "Ja, die vierte Frage geschafft!!! " + Name$ PlaySound(Siegsong) Geld = Geld+55000 EndIf If dof$<>3 Then Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim." WaitKey End EndIf EndIf Text 90,380, "Sehr gut " + Name$ + ". Schon bei " + Geld + " Euro. Text 90,400, "Ich hätte noch nicht einmal die erste lösen können. Weiter viel Glück." WaitKey Cls TileBlock hinter Text 400,50, "Geld: " + Geld Data "Wer war kein Bundeskanzler?1. Helmut Schmitt 2. Helmut Kohl 3. Helmut Brand", "Bei welchem Verein spielte Franz Beckenbauer nie?1. Kosmos New York 2. Schalke 3. HSV 4.Bay. Mün.", "Wie heißt der Helfer von Robinson Kruso?1. Donnerstag 2. Samstag 3. Freitag For I=1 To 3 Read Fragen5$(I) Next SeedRnd MilliSecs() Fragens5 = Rand(1,3) If Fragens5=1 Then Print "Frage 5: " Print Fragen5$(1) dog$ = Input$("Welche Zahl ist richtig: ") If dog$=3 Then Text 100,200, "Ja, die fünfte Frage geschafft!!! " + Name$ PlaySound(Siegsong) Geld = Geld+80000 EndIf If dog$<>3 Then Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim." WaitKey End EndIf EndIf If Fragens5=2 Then Print "Frage 5: " Print Fragen5$(2) doh$ = Input$("Welche Zahl ist richtig: ") If doh$=2 Then Text 100,200, "Ja, die fünfte Frage geschafft!!! " + Name$ PlaySound(Siegsong) Geld = Geld+80000 EndIf If doh$<>2 Then Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim." WaitKey End EndIf EndIf If Fragens5=3 Then Print "Frage 5: " Print Fragen5$(3) doj$ = Input$("Welche Zahl ist richtig: ") If doj$=3 Then Text 100,200, "Ja, die fünfte Frage geschafft!!! " + Name$ PlaySound(Siegsong) Geld = Geld+80000 EndIf If doj$<>3 Then Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim." WaitKey End EndIf EndIf Text 100, 300, "Nur noch 2 Fragen " + Name$ WaitKey Cls TileBlock hinter Text 400,50, "Geld: " + Geld Data "Wer wurde 1979 deutscher Fußballmeister?1. B. M. 2.HSV 3.Schalke", "Welche Stadt liegt nicht am Rhein?1.Straßburg 2.Basel3.Köln", "Wenn 2 Eier 5 Minuten brauchen wie lange brauchen dann 4 Eier?1.10M 2.20M 3.5M" For I=1 To 3 Read Fragen6$(I) Next SeedRnd MilliSecs() Fragens6 = Rand(1,3) If Fragens6=1 Then Print "Frage 6: " Print Fragen6$(1) dok$ = Input$("Welche Zahl ist richtig: ") If dok$=2 Then Text 100,200, "Ja, die sechste Frage geschafft!!! " + Name$ PlaySound(Siegsong) Geld = Geld+850000 EndIf If dok$<>2 Then Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim." WaitKey End EndIf EndIf If Fragens6=2 Then Print "Frage 6: " Print Fragen6$(2) dol$ = Input$("Welche Zahl ist richtig: ") If dol$=1 Then Text 100,200, "Ja, die sechste Frage geschafft!!! " + Name$ PlaySound(Siegsong) Geld = Geld+850000 EndIf If dol$<>1 Then Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim." WaitKey End EndIf EndIf If Fragens6=3 Then Print "Frage 6: " Print Fragen6$(3) dom$ = Input$("Welche Zahl ist richtig: ") If dom$=3 Then Text 100,200, "Ja, die sechste Frage geschafft!!! " + Name$ PlaySound(Siegsong) Geld = Geld+850000 EndIf If dom$<>3 Then Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim." WaitKey End EndIf EndIf Text 100,350, "Ja nur noch eine dann hast du 2.000.000 Euro." WaitKey Cls TileBlock hinter Text 400,50, "Geld: " + Geld Data "Wer erfand das Fax?1.China 2.Japan 3.USA 4.England 5.Deuntschland", "Wie hieß der erste Zug in Deutschland?1.Habischt 2.Adler 3.Taube 4.x5" For I=1 To 2 Read Fragen7$(I) Next SeedRnd MilliSecs() Fragens7 = Rand(1,2) If Fragens7=1 Then Print "Frage 7: " Print Fragen7$(1) dov$ = Input$("Welche Zahl ist richtig: ") If dov$=5 Then Text 100,200, "Ja, die siebte Frage geschafft!!! " + Name$ + " du bist am besten." PlaySound(Siegsong) Geld = Geld+1000000 EndIf If dov$<>5 Then Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim." WaitKey End EndIf EndIf If Fragens7=2 Then Print "Frage 7: " Print Fragen7$(2) doy$ = Input$("Welche Zahl ist richtig: ") If doy$=2 Then Text 100,200, "Ja, die siebte Frage geschafft!!! " + Name$ + " du bist am besten." PlaySound(Siegsong) Geld = Geld+1000000 EndIf If doy$<>2 Then Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim." WaitKey End EndIf EndIf Cls TileBlock hinter Text 400,50, "Geld: " + Geld Text 100,100, "You are the best player of all!!!!!!! " + Name$ SetFont font2 Text 100,200, "Prgrammierung: Julian Kissel" Text 100,250, "Idee: Julian Kissel" Text 100,500, "Besonderen Dank an: Jan Bettinger WaitKey

jubb

Betreff: Debug enabled wird ausgeschalten und nichts funktioniert meh

Sa, Nov 13, 2004 10:43
Antworten mit Zitat

Ich hebe den Debug enabled an und wenn ich ihn aus mache flimmert es nur noch. ich hoffe ihr könnt mir helfen.
hier der code:
Graphics 640,480
Cls
SetBuffer BackBuffer()
font = LoadFont("Times New",20)
SetFont font
song = LoadSound("Songhauptmenu.wav")
hinter = LoadImage("hinter1.bmp")
Siegsong = LoadSound("Siegmelodie.mp3")
font2 = LoadFont("Courier",20)
TileBlock hinter
PlaySound(song)

Dim Fragen1$(4)
Dim Fragen2$(4)
Dim Fragen3$(4)
Dim Fragen4$(4)
Dim Fragen5$(3)
Dim Fragen6$(3)
Dim Fragen7$(2)

Text 150,300, "Hinweis: Wenn es in diesem Programm nicht weiter geht"
Text 150,350, "Enter drücken!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
Text 150,400, "Viel Spaß!!!!!!!"

Dim Spruch$(5)
Spruch$(1) = "Herzlich Willkommen hier im Quizstudio von Julian Kissel."
Spruch$(2) = "Sind sie bereit, für 7 Fragen ,die sie Wahrheitsgemäß "
Spruch$(3) = "berantworten müssen."
Spruch$(4) = "Bestätigen sie ,indem sie j eingeben und danach enter drücken"
Spruch$(5) = "Wenn sie nicht wollen mit einem n"
X=20
Y=20
For J=1 To 5
For I=1 To Len(Spruch$(J))
For K=1 To J-1
Text X, Y + K *20, Spruch$(K)
Next
Text X, Y+J*20, Mid$(Spruch$(J),1,I)
Flip
Delay 25
Next
Next

Anfang$ = Input$("Was wollen sie machen: ")

; bestädigung

If Anfang$=j Then
Text 200,200, "Los geht es"
WaitKey
EndIf
If Anfang$=n Then
Print "Tschüss und Aufwiedersehen"
WaitKey
End
EndIf
WaitKey

Cls
TileBlock hinter

Name$ = Input$("Nennen sie mir bitte ihren Namen: ")
Text 100,200, "Herzlich Willkommen " + Name$ + " in der 2 Millionen Show von Julian Kissel."
WaitKey
Cls
TileBlock hinter

Geld = 0
Text 400,50, "Geld: " + Geld

Data "Wer war der erste präsident von der USA? 1. George W.Bush 2. George Washington", "Wie heißt das erste Band von Harry Potter? 1.und der Stein der Weisen 2.und der Gefangene von Askaban", "Die Hauptstadt von Argentienien ist ...? 1. Rosario 2.Buenos Aires", "Wo liegt der Kongo? 1. Afrika 2. Asien"

For I=1 To 4
Read Fragen1$(I)
Next

SeedRnd MilliSecs()
Fragens = Rand(1,4)

If Fragens=1 Then
Print "Frage 1: "
Print Fragen1$(1)
doq$ = Input$("Welche Zahl ist richtig: ")
If doq$=2 Then
Text 100,200, "Ja erste Frage geschaft " + Name$
PlaySound(Siegsong)
Geld = Geld+500
EndIf
If doq$=1 Or doq$<>2 Then
Text 100,200, "Schade " + Name$
WaitKey
End
EndIf
EndIf

If Fragens=2 Then
Print "Frage 1: "
Print Fragen1$(2)
dow$ = Input$("Welche Zahl ist richtig: ")
If dow$=1 Then
Text 100,200, "Ja erste Frage geschaft " + Name$
PlaySound(Siegsong)
Geld = Geld+500
EndIf
If dow$=2 Or dow$<>1 Then
Text 100,200, "Schade " + Name$
WaitKey
End
EndIf
EndIf

If Fragens=3 Then
Print "Frage 1: "
Print Fragen1$(3)
doe$ = Input$("Welche Zahl ist richtig: ")
If doe$=2 Then
Text 100,200, "Ja erste Frage geschaft " + Name$
PlaySound(Siegsong)
Geld = Geld+500
EndIf
If doe$=1 Or doe$<>2 Then
Text 100,200, "Schade " + Name$
WaitKey
End
EndIf
EndIf

If Fragens=4 Then
Print "Frage 1: "
Print Fragen1$(4)
dor$ = Input$("Welche Zahl ist richtig: ")
If dor$=1 Then
Text 100,200, "Ja erste Frage geschaft " + Name$
PlaySound(Siegsong)
Geld = Geld+500
EndIf
If dor$=2 Or dor$<>1 Then
Text 100,200, "Schade " + Name$
WaitKey
End
EndIf
EndIf
WaitKey

Cls

TileBlock hinter
Text 400,50, "Geld: " + Geld

Data "Wann war der Mauer fall von Deutschland? 1.9 Novermber 1989 2.9 November 1990", "Wann starb Julius Cesar? 1. 15.März 2. 15 April", "Was bedeutet Revision?1.man an ein höheres Gericht gehen will2.man in einer Gerichtsverhandlung aufgibt", "Wer war Amadeus Mozart? 1. Eine Rocklegende 2. Ein Genialer Musiker"

For I=1 To 4
Read Fragen2$(I)
Next

SeedRnd MilliSecs()
Fragens2 = Rand(1,4)

If Fragens2=1 Then
Print "Frage 2: "
Print Fragen2$(1)
don$ = Input$("Welche Zahl ist richtig: ")
If don$=1 Then
Text 100,200, "Ja, zweite Frage geschaft!!! " + Name$
PlaySound(Siegsong)
Geld = Geld+2500
EndIf
If don$=2 Or don$<>1 Then
Text 100,200, "Schade " + Name$ + ". Mit 500 Euro geht es hier heim."
WaitKey
End
EndIf
EndIf

If Fragens2=2 Then
Print "Frage 2: "
Print Fragen2$(2)
dot$ = Input$("Welche Zahl ist richtig: ")
If dot$=1 Then
Text 100,200, "Ja, zweite Frage geschaft!!! " + Name$
PlaySound(Siegsong)
Geld = Geld+2500
EndIf
If dot$=2 Or dot$<>1 Then
Text 100,200, "Schade " + Name$ + ". Mit 500 Euro geht es hier heim."
WaitKey
End
EndIf
EndIf

If Fragens2=3 Then
Print "Frage 2: "
Print Fragen2$(3)
doz$ = Input$("Welche Zahl ist richtig: ")
If doz$=1 Then
Text 100,200, "Ja, zweite Frage geschafft!!! " + Name$
PlaySound(Siegsong)
Geld = Geld+2500
EndIf
If doz$=2 Or doz$<>1 Then
Text 100,200, "Schade " + Name$ + ". Mit 500 Euro geht es hier heim."
WaitKey
End
EndIf
EndIf

If Fragens2=4 Then
Print "Frage 2: "
Print Fragen2$(4)
dou$ = Input$("Welche Zahl ist richtig: ")
If dou$=2 Then
Text 100,200, "Ja, die zweite Frage geschafft!!! " + Name$
PlaySound(Siegsong)
Geld = Geld+2500
EndIf
If dou$=1 Or dou$<>2 Then
Text 100,200, "Schade " + Name$ + ". Mit 500 Euro geht es hier heim."
WaitKey
End
EndIf
EndIf
WaitKey

Cls
TileBlock hinter
Text 400,50, "Geld: " + Geld

Data "Aus wie viel Prozent Sauerstoff besteht Luft?1.35% 2.21% 3.15%", "Wer ist keine Sängerin?1.Silke B. 2.Sarah C.", "Wohin springt eine Ampel, wenn nur Gelb da ist?1.Grün 2.Rot 3.Gelb", "Von welchem Tier werden die Borsten einer Zahnbürste gemacht?1. Schweinart 2. Vogelart 3. Igelart"

For I=1 To 4
Read Fragen3$(I)
Next

SeedRnd MilliSecs()
Fragens3 = Rand(1,4)

If Fragens3=1 Then
Print "Frage 3: "
Print Fragen3$(1)
doi$ = Input$("Welche Zahl ist richtig: ")
If doi$=2 Then
Text 100,200, "Ja, die dritte Frage geschafft!!! " + Name$
PlaySound(Siegsong)
Geld = Geld+12000
EndIf
If doi$<>2 Then
Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim."
WaitKey
End
EndIf
EndIf

If Fragens3=2 Then
Print "Frage 3: "
Print Fragen3$(2)
doo$ = Input$("Welche Zahl ist richtig: ")
If doo$=1 Then
Text 100,200, "Ja, die dritte Frage geschafft!!! " + Name$
PlaySound(Siegsong)
Geld = Geld+12000
EndIf
If doo$<>1 Then
Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim."
WaitKey
End
EndIf
EndIf

If Fragens3=3 Then
Print "Frage 3: "
Print Fragen3$(3)
dop$ = Input$("Welche Zahl ist richtig: ")
If dop$=2 Then
Text 100,200, "Ja, die dritte Frage geschafft!!! " + Name$
PlaySound(Siegsong)
Geld = Geld+12000
EndIf
If dop$<>2 Then
Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim."
WaitKey
End
EndIf
EndIf

If Fragens3=4 Then
Print "Frage 3: "
Print Fragen3$(4)
doü$ = Input$("Welche Zahl ist richtig: ")
If doü$=1 Then
Text 100,200, "Ja, die dritte Frage geschafft!!! " + Name$
PlaySound(Siegsong)
Geld = Geld+12000
EndIf
If doü$<>1 Then
Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim."
WaitKey
End
EndIf
EndIf
WaitKey

Cls
TileBlock hinter
Text 400,50, "Geld: " + Geld

Data "Was ist schwerer 1kg Federn oder 1kg Eisen? 1. Eisen 2. Federn 3. Gleich", "Warum nannte man die Eisenzeit, Eisenzeit? 1. Wegen dem gefundenen Eisen 2. Wegen der Mineralien", "Wo liegen die Pyramieden?1. Ägypten 2. Irak 3. Israel 4.Afganistan", "Von wann bis wann war das Mittelalter?1.500-etwa1000 2.500-et.800 3.500-et.1600 4.500-et.1800"

For I=1 To 4
Read Fragen4$(I)
Next

SeedRnd MilliSecs()
Fragens4 = Rand(1,4)

If Fragens4=1 Then
Print "Frage 4: "
Print Fragen4$(1)
doa$ = Input$("Welche Zahl ist richtig: ")
If doa$=3 Then
Text 100,200, "Ja, die vierte Frage geschafft!!! " + Name$
PlaySound(Siegsong)
Geld = Geld+55000
EndIf
If doa$<>3 Then
Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim."
WaitKey
End
EndIf
EndIf

If Fragens4=2 Then
Print "Frage 4: "
Print Fragen4$(2)
dos$ = Input$("Welche Zahl ist richtig: ")
If dos$=1 Then
Text 100,200, "Ja, die vierte Frage geschafft!!! " + Name$
PlaySound(Siegsong)
Geld = Geld+55000
EndIf
If dos$<>1 Then
Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim."
WaitKey
End
EndIf
EndIf

If Fragens4=3 Then
Print "Frage 4: "
Print Fragen4$(3)
dod$ = Input$("Welche Zahl ist richtig: ")
If dod$=1 Then
Text 100,200, "Ja, die vierte Frage geschafft!!! " + Name$
PlaySound(Siegsong)
Geld = Geld+55000
EndIf
If dod$<>1 Then
Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim."
WaitKey
End
EndIf
EndIf

If Fragens4=4 Then
Print "Frage 4: "
Print Fragen4$(4)
dof$ = Input$("Welche Zahl ist richtig: ")
If dof$=3 Then
Text 100,200, "Ja, die vierte Frage geschafft!!! " + Name$
PlaySound(Siegsong)
Geld = Geld+55000
EndIf
If dof$<>3 Then
Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim."
WaitKey
End
EndIf
EndIf

Text 90,380, "Sehr gut " + Name$ + ". Schon bei " + Geld + " Euro.
Text 90,400, "Ich hätte noch nicht einmal die erste lösen können. Weiter viel Glück."

WaitKey

Cls
TileBlock hinter
Text 400,50, "Geld: " + Geld

Data "Wer war kein Bundeskanzler?1. Helmut Schmitt 2. Helmut Kohl 3. Helmut Brand", "Bei welchem Verein spielte Franz Beckenbauer nie?1. Kosmos New York 2. Schalke 3. HSV 4.Bay. Mün.", "Wie heißt der Helfer von Robinson Kruso?1. Donnerstag 2. Samstag 3. Freitag

For I=1 To 3
Read Fragen5$(I)
Next

SeedRnd MilliSecs()
Fragens5 = Rand(1,3)

If Fragens5=1 Then
Print "Frage 5: "
Print Fragen5$(1)
dog$ = Input$("Welche Zahl ist richtig: ")
If dog$=3 Then
Text 100,200, "Ja, die fünfte Frage geschafft!!! " + Name$
PlaySound(Siegsong)
Geld = Geld+80000
EndIf
If dog$<>3 Then
Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim."
WaitKey
End
EndIf
EndIf

If Fragens5=2 Then
Print "Frage 5: "
Print Fragen5$(2)
doh$ = Input$("Welche Zahl ist richtig: ")
If doh$=2 Then
Text 100,200, "Ja, die fünfte Frage geschafft!!! " + Name$
PlaySound(Siegsong)
Geld = Geld+80000
EndIf
If doh$<>2 Then
Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim."
WaitKey
End
EndIf
EndIf

If Fragens5=3 Then
Print "Frage 5: "
Print Fragen5$(3)
doj$ = Input$("Welche Zahl ist richtig: ")
If doj$=3 Then
Text 100,200, "Ja, die fünfte Frage geschafft!!! " + Name$
PlaySound(Siegsong)
Geld = Geld+80000
EndIf
If doj$<>3 Then
Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim."
WaitKey
End
EndIf
EndIf

Text 100, 300, "Nur noch 2 Fragen " + Name$

WaitKey

Cls
TileBlock hinter
Text 400,50, "Geld: " + Geld

Data "Wer wurde 1979 deutscher Fußballmeister?1. B. M. 2.HSV 3.Schalke", "Welche Stadt liegt nicht am Rhein?1.Straßburg 2.Basel3.Köln", "Wenn 2 Eier 5 Minuten brauchen wie lange brauchen dann 4 Eier?1.10M 2.20M 3.5M"

For I=1 To 3
Read Fragen6$(I)
Next
SeedRnd MilliSecs()
Fragens6 = Rand(1,3)

If Fragens6=1 Then
Print "Frage 6: "
Print Fragen6$(1)
dok$ = Input$("Welche Zahl ist richtig: ")
If dok$=2 Then
Text 100,200, "Ja, die sechste Frage geschafft!!! " + Name$
PlaySound(Siegsong)
Geld = Geld+850000
EndIf
If dok$<>2 Then
Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim."
WaitKey
End
EndIf
EndIf

If Fragens6=2 Then
Print "Frage 6: "
Print Fragen6$(2)
dol$ = Input$("Welche Zahl ist richtig: ")
If dol$=1 Then
Text 100,200, "Ja, die sechste Frage geschafft!!! " + Name$
PlaySound(Siegsong)
Geld = Geld+850000
EndIf
If dol$<>1 Then
Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim."
WaitKey
End
EndIf
EndIf

If Fragens6=3 Then
Print "Frage 6: "
Print Fragen6$(3)
dom$ = Input$("Welche Zahl ist richtig: ")
If dom$=3 Then
Text 100,200, "Ja, die sechste Frage geschafft!!! " + Name$
PlaySound(Siegsong)
Geld = Geld+850000
EndIf
If dom$<>3 Then
Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim."
WaitKey
End
EndIf
EndIf

Text 100,350, "Ja nur noch eine dann hast du 2.000.000 Euro."

WaitKey

Cls
TileBlock hinter
Text 400,50, "Geld: " + Geld

Data "Wer erfand das Fax?1.China 2.Japan 3.USA 4.England 5.Deuntschland", "Wie hieß der erste Zug in Deutschland?1.Habischt 2.Adler 3.Taube 4.x5"

For I=1 To 2
Read Fragen7$(I)
Next

SeedRnd MilliSecs()
Fragens7 = Rand(1,2)

If Fragens7=1 Then
Print "Frage 7: "
Print Fragen7$(1)
dov$ = Input$("Welche Zahl ist richtig: ")
If dov$=5 Then
Text 100,200, "Ja, die siebte Frage geschafft!!! " + Name$ + " du bist am besten."
PlaySound(Siegsong)
Geld = Geld+1000000
EndIf
If dov$<>5 Then
Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim."
WaitKey
End
EndIf
EndIf

If Fragens7=2 Then
Print "Frage 7: "
Print Fragen7$(2)
doy$ = Input$("Welche Zahl ist richtig: ")
If doy$=2 Then
Text 100,200, "Ja, die siebte Frage geschafft!!! " + Name$ + " du bist am besten."
PlaySound(Siegsong)
Geld = Geld+1000000
EndIf
If doy$<>2 Then
Text 100,200, "Schade " + Name$ + ". Mit " + Geld + " Euro geht es hier heim."
WaitKey
End
EndIf
EndIf

Cls
TileBlock hinter
Text 400,50, "Geld: " + Geld

Text 100,100, "You are the best player of all!!!!!!! " + Name$

SetFont font2

Text 100,200, "Prgrammierung: Julian Kissel"
Text 100,250, "Idee: Julian Kissel"
Text 100,500, "Besonderen Dank an: Jan Bettinger

WaitKey

	Hubsi	Sa, Nov 13, 2004 11:01 Antworten mit Zitat
Ich hab mir den Code jetzt nicht komplett angetan, aber durch Verwendung von Schleifen wie:Code: [AUSKLAPPEN] [EINKLAPPEN] While Not KeyHit(1) ; Code Wend oderCode: [AUSKLAPPEN] [EINKLAPPEN] Repeat ; Code Until KeyHit(1) kannst Du das um, sagen wir mal... ähhh... 95% kürzen Wenn Du dann noch einrückst und die "[code]"-Tags nutzt wirds sogar leserlich. Aber mit dem jetzigen Gestrüp aus Cls und rumgeprinte wunderts mich niht das Du da nicht mehr durchblickst. Ist nicht böse gemeint, jeder hat mal mit rumspielen und forschen angefangen, aber der Stil ist die Autobahn zur Hölle
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Sa, Nov 13, 2004 11:01
Antworten mit Zitat

Ich hab mir den Code jetzt nicht komplett angetan, aber durch Verwendung von Schleifen wie:Code: [AUSKLAPPEN]

While Not KeyHit(1)
; Code
Wend

oderCode: [AUSKLAPPEN]

Repeat
; Code
Until KeyHit(1)

kannst Du das um, sagen wir mal... ähhh... 95% kürzen Wink

Wenn Du dann noch einrückst und die "[code]"-Tags nutzt wirds sogar leserlich. Aber mit dem jetzigen Gestrüp aus Cls und rumgeprinte wunderts mich niht das Du da nicht mehr durchblickst.

Ist nicht böse gemeint, jeder hat mal mit rumspielen und forschen angefangen, aber der Stil ist die Autobahn zur Hölle Very Happy

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	Ralf	So, Nov 14, 2004 0:25 Antworten mit Zitat
Hallo, Mensch ist das unübersichtlich...... Der Fehler dürfte wohl daran liegen, das du den Text immer im Backbuffer schreibst, und dann kein Flip setzt. Mach mal vor jedem WaitKey ein Flip, dann hast Du die meisten Grafik-Fehler schon mal behoben. Ralf

Ralf

So, Nov 14, 2004 0:25
Antworten mit Zitat

Hallo,

Mensch ist das unübersichtlich......

Der Fehler dürfte wohl daran liegen, das du den Text immer im Backbuffer schreibst, und dann kein Flip setzt.
Mach mal vor jedem WaitKey ein Flip, dann hast Du die meisten Grafik-Fehler schon mal behoben.

Ralf