Debug enabled wird ausgeschalten und nichts funktioniert meh
Übersicht

jubbBetreff: Debug enabled wird ausgeschalten und nichts funktioniert meh |
![]() 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 |
![]() Antworten mit Zitat ![]() |
---|---|---|
Ich hab mir den Code jetzt nicht komplett angetan, aber durch Verwendung von Schleifen wie:Code: [AUSKLAPPEN] While Not KeyHit(1)
oderCode: [AUSKLAPPEN] ; Code Wend Repeat
kannst Du das um, sagen wir mal... ähhh... 95% kürzen ; Code Until KeyHit(1) ![]() 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... |
![]() |
Ralf |
![]() 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 |
||
Übersicht


Powered by phpBB © 2001 - 2006, phpBB Group