Variable geht nicht auf Null

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

 

Svolf

Betreff: Variable geht nicht auf Null

BeitragFr, Apr 14, 2006 17:48
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi leute,
ich habe da ne Frage kann mir jemand sagen wie ich Fragen wieder auf Null bekomme also wenn man Game abricht, dass wenn msn normal zogg nicht fragen weiter zählt.

Hier der follgende Code:

BlitzBasic: [AUSKLAPPEN]


Graphics 640,480,16,1
SetBuffer BackBuffer()

Intro=OpenMovie("Videos\Firma.mpg")
Repeat
Cls
DrawMovie(Intro, 0,0)
Flip
Until MoviePlaying(Intro) = 0
CloseMovie Intro
Include "Menu.bb"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(Menu.bb)
FreeSound sound3
StopChannel(kanal)

Graphics 640,480,16,1
SetBuffer BackBuffer()

stars = LoadImage("Bilder\stars.bmp") ;
Sound1=LoadSound ("Musik\Holzchopf - Silence Association.ogg")
Sound2=LoadSound ("Musik\Holzchopf - Trance Syndrome.ogg")
Channel=PlaySound(Sound1)
LoopSound sound1

For q = 1 To 400
Cls

x_star = x_star + 1
If x_star = 201 Then x_star = 1
TileImage stars, x_star, 1

If breite < 100 Then r = 0 : g = 255 : b = 0
If breite < 100 Then r = 255 : g = 255 : b = 0
If breite < 200 Then r = 255 : g = 127.7 : b = 0
If breite < 300 Then r = 255 : g = 0 : b = 0

breite = breite + 1

Color 0,255,0
If breite < 40 Then Text 280,420, "Loading"
If breite < 40 Then Text 280,420, "Loading ."
If breite < 80 Then Text 280,420, "Loading .."
If breite < 120 Then Text 280,420, "Loading ..."
If breite < 160 Then Text 280,420, "Loading ...."
If breite < 200 Then Text 280,420, "Loading ....."
If breite < 240 Then Text 280,420, "Loading ......"
If breite < 280 Then Text 280,420, "Loading ......."
If breite < 320 Then Text 280,420, "Loading ........"
If breite < 360 Then Text 280,420, "Loading ........."
If breite < 400 Then Text 280,420, "Loading .........."

Color 0,255,0
Text 320,190,breite/4 + "%"

Color r,g,b
Rect 120,230,breite,30
Color 255,255,255
Rect 120,230,400,30, False

Flip
Next


Flip

Include "include.bb"

HidePointer
Repeat
Timer = MilliSecs()
Moveback()

DrawImage title, 320, 50
If Drawbutton(Start, Startover, 320-88, 150)
FreeSound sound1
StopChannel(kanal)
Include "start.bb"
End If

If Drawbutton(Credits, Creditsover, 320-88, 250)
FreeSound sound1
StopChannel(kanal)
breite = 0
Include "Credits.bb"
End If

If Drawbutton(Ende, Endeover, 320-88, 350) End
DrawImage Maus, MouseX(), MouseY()
FlushMouse()

Repeat
Until MilliSecs() => Timer + 10
;Text 0,0,Timer - MilliSecs()
Flip
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(Include.bb)
Data 50
;1
Data "Wer war Adenauer?
Data ""
Data "Rechtsanwalt"
Data "Bundeskanzler"
Data "Präsident"
Data "Wissenschaftler"
Data 2
;2
Data "Was ist ein Samurai?"
Data ""
Data "Japaner der Krieger"
Data "Ein Gottes Mann"
Data "Ein Gläubiger"
Data "Schwertkunsmeister"
Data 1
;3
Data "Wozu dient eine Longe?"
Data ""
Data "Enpfangen von Daten"
Data "Zum Kopieren "
Data "aulösen einer Reaktion"
Data "Als Leitseil für Pferde"
Data 4
;4
Data "Mit welchem Wunsch begrüßen sich"
Data " die Bergleute? "
Data "Huhu!"
Data "Hi! "
Data "Glück auf!"
Data "Wie gehts?"
Data 3
;5
Data "Was ist ein Banner? "
Data ""
Data "Ein Buttom"
Data "Ein Werbeband"
Data "gesperrte Seite"
Data "Ein Aufkleber"
Data 2
;6
Data "Was misst man in Dioptrien? "
Data ""
Data "Genauigkeit"
Data "Fehlsichtigkeit"
Data "Geschwindigkeit"
Data "ein Maß"
Data 2
;7
Data "Was ist ein Matador? "
Data ""
Data "Ein Maler"
Data "Ein Geologe"
Data "Ein Tierarzt"
Data "Ein Stierkämpfer"
Data 4
;8
Data "An welchem Meer liegt Helsinki?"
Data ""
Data "Meerbusen"
Data "Nordsee"
Data "Schwarzes Meer"
Data "Ostsee"
Data 1
;9
Data "Wie heißt das Parlament Israels?"
Data ""
Data "Der Stern"
Data "Charles De Gaulle "
Data "Knesset"
Data "Nester"
Data 3
;10
Data "Wer gründete Scientology? "
Data ""
Data "Ron Hubbard "
Data "Ronald Biggs "
Data "Nelson Mandela"
Data "Lisa Maria Presley"
Data 1
;11
Data "Was schlägt ohne Hände? "
Data ""
Data "Ein Tier "
Data "Die Uhr "
Data "Der Tag"
Data "Eine Glocke"
Data 2
;12
Data "Was ist Marabu?"
Data ""
Data "Ein Gewürz "
Data "Ein Land "
Data "Eine Sprache "
Data "Ein Kropfstorch "
Data 4
;13
Data "Was ist ein Nabo?"
Data ""
Data "Ein Speisegericht "
Data "Ein Berg "
Data "Ein Kraftfahrzeug "
Data "Ein Dichter "
Data 2
;14
Data "Womit arbeitet ein?"
Data "binäres Signal"
Data "links, rechts "
Data "X und Y "
Data "0 und 1 "
Data "auf und ab "
Data 4
;15
Data "Schutzdamm am "
Data "Meer?"
Data "Deich "
Data "Bodden "
Data "Holzpfähler "
Data "Sandhügel "
Data 1
;16
Data "Stadt in"
Data "Japan?"
Data "Peking "
Data "Warschau "
Data "Yokohama "
Data "Prag "
Data 3
;17
Data "Wertpapier?"
Data ""
Data "Geld "
Data "Aktie "
Data "Pappe "
Data "Adzen "
Data 2
;18
Data "Was bedeutet das Wort "
Data "Advent?"
Data "Versönung "
Data "Glauben "
Data "Feiern "
Data "Ankunft"
Data 4
;19
Data "Was ist ein Pager? "
Data ""
Data "Funkrufempfänger "
Data "Ein Signal "
Data "Eine Frequenz "
Data "Elektronenzähler"
Data 1
;20
Data "Was war die Hanse?"
Data ""
Data "Städtebund"
Data "Eine Religeon "
Data "Ein Volk"
Data "Ein Aufstandt"
Data 1
;21
Data "Was nennt man beim"
Data "Wein Bukett?"
Data "Die Flüssigkeit"
Data "Den Geschmack "
Data "Die Farbe"
Data "Den Duft"
Data 4
;22
Data "Was sind die Geschäfte"
Data "eines Buchmachers?"
Data "Läden"
Data "Wetten "
Data "Industrien"
Data "Ausverkäufe"
Data 2
;23
Data "Welcher Stein raucht?"
Data ""
Data "Bleistein"
Data "der Schornstein "
Data "Teerstein"
Data "Betonstein"
Data 2
;24
Data "Welcher Ring ist nicht"
Data "rund?"
Data "Goldring"
Data "Herzring "
Data "Hering"
Data "Kreuzring"
Data 3
;25
Data "Hauptstadt Russlands?"
Data ""
Data "Moskau"
Data "London "
Data "Paris"
Data "Washington"
Data 1
;26
Data "Wie heißt der längste Fluss Europas?"
Data ""
Data "Uralfluss"
Data "Elbe "
Data "Nil"
Data "Wolga"
Data 4
;27
Data "An welchem Fluss liegt"
Data " Berlin?"
Data "Mosel"
Data "Spree"
Data "Elbe"
Data "Weser"
Data 2
;28
Data "Was ist das größte arktisch"
Data " Raubtier?"
Data "Esel"
Data "Eisbär"
Data "Löwe."
Data "Elefant"
Data 2
;29
Data "Wie heißt Konstantinopel"
Data " heute?"
Data "Venedig"
Data "Troja"
Data "Istanbul "
Data "Hammel"
Data 3
;30
Data "In welcher Stadt gibt es Grachten? "
Data ""
Data "Amsterdam"
Data "Prag"
Data "Pecking "
Data "Moskau"
Data 1
;31
Data "Welches ist die leichteste aller Holzarten"
Data ""
Data "Balsaholz"
Data "Eichenholz"
Data "Buchholz "
Data "Kiefernholz"
Data 1
;32
Data "Edelmetall im Hals"
Data " "
Data "Trüffel"
Data "Mars"
Data "Praliene "
Data "Rachengold"
Data 4
;33
Data "Was ist eine Persiflage?"
Data " "
Data "Nachdruck"
Data "Eine Verarschung"
Data "Ein Zwitter"
Data "Verhängnis"
Data 2
;34
Data "Wer entdeckte: "

Data "Das Dynamit? "
Data "Heinrich Hertz "
Data "James Watt "
Data "Alfred Nobel"
Data "Galileo Galilei "
Data 3
;35
Data "Entdecke die Möglichkeiten: "

Data ""
Data "IKEA "
Data "Praktiker "
Data "OBI"
Data "Hellweg "
Data 1
;36
Data "Was ist ein Jeton? "

Data ""
Data "Eine Spielmarke "
Data "Ein Trumpf "
Data "Ein Verein"
Data "Ein Spiel "
Data 1
;37
Data " Was ist ein Kollier? "

Data ""
Data "Ein Tier "
Data "Posträger "
Data "Halsband"
Data "Halsgeschmeide "
Data 4
;38
Data " Planet mit Ringen? "

Data ""
Data "Jupiter "
Data "Pluto "
Data "Saturn "
Data "Mars "
Data 3
;39
Data "größter Planet? "

Data ""
Data "Pluto "
Data "Jupiter "
Data "Erde "
Data "Venus "
Data 2
;40
Data "Welcher Stern ist der "

Data "Erde am nächsten? "
Data "Michstraße "
Data " Sonne "
Data "Mond "
Data "Lichstern "
Data 2
;41
Data " Wann beginnt der Sabbat? "
Data " "
Data "Am Montag "
Data "Am Samstag "
Data "Am Freitag "
Data "Am Mittwoch "
Data 3
;42
Data " Musikalisches Getreide "
Data " "
Data "Gerste "
Data "Häfe "
Data "Roggenbass "
Data "Popcorn "
Data 4
;43
Data " Hier werden Sie geholfen "
Data " "
Data "Siemens "
Data "DB "
Data "BvG "
Data "Auskunft "
Data 4
;44
Data " Was heißt Hosianna? "
Data " "
Data "ich bete zu dir "
Data "danke oh Herr "
Data "danke Gott "
Data "hilf doch oh Gott "
Data 4
;45
Data " Was sind Satelliten? "
Data " "
Data "Himmelskörper "
Data "Daten "
Data "Spione "
Data "Träger "
Data 1
;46
Data " Wie viel Karten hat ein "
Data " Skartspiel? "
Data "32 Karten "
Data "62 Karten "
Data "52 Karten "
Data "54 Karten "
Data 1
;47
Data " Hat eine Kugel eine "
Data " Manetlfläche? "
Data "Nein "
Data "Ja "
Data "teilweise "
Data "hat Punkte "
Data 2
;48
Data " Was ist keine "
Data " Firma? "
Data "Windows "
Data "Siemens "
Data "Microsoft "
Data "Futura "
Data 1
;49
Data " Wie nennt man einen "
Data "Briefmarkensammler? "
Data "Philatelist "
Data "Prophet "
Data "Dekan "
Data "Denker "
Data 1
;50
Data " Von welcher Firma ist "
Data "das Spiel hier (Quizie)? "
Data "Microsoft "
Data "Sony "
Data "Three Circle "
Data "EA-Games "
Data 3

Global x_star1
Global x_star2
Global x_star3

Graphics 640, 480, 16,1
SetBuffer BackBuffer()


Type Fragen
Field Frage1$, Frage2$, Antwort1$, Antwort2$, Antwort3$, Antwort4$, RiAntwort
End Type

Cls
Text 0,0, "Fragen werden Eingelesen..."
Flip

Read AnzahlFragen

For Frage = 1 To AnzahlFragen
Fragen.Fragen = New Fragen
Read Fragen\Frage1$, Fragen\Frage2$, Fragen\Antwort1$, Fragen\Antwort2$, Fragen\Antwort3$,Fragen\Antwort4$, Fragen\RiAntwort
Next
Frage =0
Cls
Text 0,0, "Bilder werden geladen..."
Flip
Global stars1 = LoadImage("img\back1.bmp")
Global stars2 = LoadImage("img\back2.bmp")
Global stars3 = LoadImage("img\back3.bmp")
Global Maus = LoadImage("img\mouse.bmp")
MaskImage Maus, 255, 0, 255
Creditsscr = LoadImage("Img\Credits.png")

;Buttons
Start = LoadImage("Img\Menu\Start.png")
Startover = LoadImage("Img\Menu\Startover.png")
Credits = LoadImage("Img\Menu\Credits.png")
Creditsover = LoadImage("Img\Menu\Creditsover.png")
Ende = LoadImage("Img\Menu\Ende.png")
Endeover = LoadImage("Img\Menu\Endeover.png")
title = LoadImage("Img\title.png")
button = LoadImage("Img\Menu\button.png")
buttonover = LoadImage("Img\Menu\buttonover.png")

MaskImage Start, 255,0,255
MaskImage Startover, 255,0,255
MaskImage Credits, 255,0,255
MaskImage Creditsover, 255,0,255
MaskImage Ende, 255,0,255
MaskImage Endeover, 255,0,255
MaskImage button, 255,0,255
MaskImage buttonover, 255,0,255
MaskImage title, 255,0,255
MaskImage Creditsscr, 255,0,255
MidHandle title
MidHandle button
MidHandle buttonover
Cls
Text 0,0, "Schriftarten werden geladen"
Flip
Bigfont = LoadFont("Arial", 40)
Smallfont = LoadFont("Arial", 25)
SetFont Smallfont

;Drawbutton
Function Drawbutton(Button,Buttonover, X, Y)
If ImagesCollide (Maus, MouseX(), MouseY(), 0, Button, x, y, 0)
DrawImage Buttonover, X, Y
If MouseHit(1)=1 Then Return 1
Else
DrawImage Button, X, Y
End If
End Function

Function Moveback(Speed#=1)
x_star1 = x_star1 + 3 * Speed#
x_star2 = x_star2 + 2 * Speed#
x_star3 = x_star3 + 1 * Speed#
If x_star1 > 200 Then x_star1=0
If x_star2 > 200 Then x_star2=0
If x_star3 > 200 Then x_star3=0

TileBlock stars1, x_star1, 1
TileImage stars2, x_star2, 1
TileImage stars3, x_star3, 1
End Function
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(Start.bb)
Sound1=LoadSound ("Musik\Holzchopf - Hot Gears.ogg")
Sound2=LoadSound ("Musik\Holzchopf - Trance Syndrome.ogg")
Channel=PlaySound(Sound2)
LoopSound sound2



For Fragen.fragen=Each fragen
Frage = Frage + 1
Timer = MilliSecs()
Color 255,255,255
SetFont Bigfont
For Speed# = 1 To 20 Step 0.1
Timer = MilliSecs()
Moveback(speed#)
Text 320, 190, "Auf zur nächsten Frage...", 1, 1
Text 320, 290, "Frage " + Frage, 1, 1

DrawImage Maus, MouseX(), MouseY()
Repeat
Until MilliSecs() => Timer + 10
Flip
Next
For Speed# = 20 To 1 Step -0.1
Timer = MilliSecs()
Moveback(speed#)
Text 320, 190, "Auf zur nächsten Frage...", 1, 1
Text 320, 290, "Frage " + Frage, 1, 1
DrawImage Maus, MouseX(), MouseY()
Repeat
Until MilliSecs() => Timer + 10
Flip
Next

Repeat
Moveback()
Color 255,255,255
SetFont Bigfont
Text 320, 50, Fragen\Frage1$, 1, 1
Text 320, 100, Fragen\Frage2$, 1, 1

If Drawbutton(Button, Buttonover, 150,240) Then antwort = 1
If Drawbutton(Button, Buttonover, 470,240) Then antwort = 2
If Drawbutton(Button, Buttonover, 150,340) Then antwort = 3
If Drawbutton(Button, Buttonover, 470,340) Then antwort = 4
If Drawbutton(Ende, Endeover, 320-88, 400) Then Antwort = 10
Color 128,0,0
SetFont Smallfont
Text(150,240, Fragen\Antwort1$,1,1)
Text(470,240, Fragen\Antwort2$,1,1)
Text(150,340, Fragen\Antwort3$,1,1)
Text(470,340, Fragen\Antwort4$,1,1)

DrawImage Maus, MouseX(), MouseY()
Flip
Until antwort
SetFont smallfont
If Antwort = 10 Then Exit
If Antwort = Fragen\RiAntwort Then
Color 0,255,0
Punkte = Punkte + 1
Ri = Ri + 1
Timer = MilliSecs()
Repeat
Moveback()
Text 320,190, "Die Antwort war Richtig.", 1, 1
Text 320,290, "Du hast jetzt "+ punkte + " Punkte.", 1, 1
DrawImage Maus, MouseX(), MouseY()
Flip
Until MilliSecs() > timer + 2000
Else
Color 255,0,0
Timer = MilliSecs()
Punkte = Punkte - 1
Fa = Fa + 1
Repeat
Moveback()
Text 320,190, "Die Antwort war Leider Falsch.", 1, 1
Text 320,290, "Du hast jetzt "+ punkte + " Punkte.", 1, 1
DrawImage Maus, MouseX(), MouseY()
Flip
Until MilliSecs() > timer + 2000
End If
antwort = 0
Next
SetFont Smallfont
Color 255,255,255
Repeat
Timer = MilliSecs()
Moveback()
Text 320,50, "Das Spiel ist Vorbei.", 1, 1
Text 320,100, "Du hast insgesammt " + Punkte + " Punkte erreicht,", 1, 1
Text 320,150, "indem du " + ri + " Fragen Richtig beantwortet hast", 1, 1
Text 320,200, "und " + fa + " Fragen falsch.", 1, 1
Text 320,250, "Hoffentlich hat dir das Spiel gefallen.", 1, 1
Text 320,300, "Maustaste drücken, um weiterzukommen.", 1, 1
DrawImage Maus, MouseX(), MouseY()
Repeat
Until MilliSecs() > timer + 10
Flip
Until MouseHit(1)
FreeSound Sound2
StopChannel(kanal)
Channel=PlaySound(Sound1)


man müsste es bei der Start.bb machen aber wnen ich da schreibe Fragen = 0 dann geht er ins game und gleich wieder raus,...

Hellfront

Betreff: Re: Variable geht nicht auf Null

BeitragFr, Apr 14, 2006 18:20
Antworten mit Zitat
Benutzer-Profile anzeigen
Svolf hat Folgendes geschrieben:
Hi leute,
ich habe da ne Frage kann mir jemand sagen wie ich Fragen wieder auf Null bekomme also wenn man Game abricht, dass wenn msn normal zogg nicht fragen weiter zählt.

man müsste es bei der Start.bb machen aber wnen ich da schreibe Fragen = 0 dann geht er ins game und gleich wieder raus,...


Was ist los? Nimm dir mal die Zeit und erläutere dein Problem mal: Aus deinem rumgestammel wird ja keiner Schlau!!! und nimm die ganzen Fragen aus dem Code (Data...) das nervt nur und man braucht es net.

s_m_w

BeitragFr, Apr 14, 2006 19:07
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich sehe den Fehler gleich am code highlighting:
BlitzBasic: [AUSKLAPPEN]
;1
Data "Wer war Adenauer?
Data ""
Data "Rechtsanwalt"
Data "Bundeskanzler"
Data "Präsident"
Data "Wissenschaftler"
Data 2


Data "Wer war Adenauer?"
Sheep Happens
 

Svolf

BeitragFr, Apr 14, 2006 19:16
Antworten mit Zitat
Benutzer-Profile anzeigen
ne das meien ich nicht, ist nur grad hier naja wenn er erzählt ja auf zu nächsten frage und zählt die dann und wenn man beendet und es wieder startet ist man wieder bei der letzt fragen zum Beispiel man was 34 und man kommt dann 35. Er behält so gesagt den wert,..
 

Dreamora

BeitragFr, Apr 14, 2006 20:26
Antworten mit Zitat
Benutzer-Profile anzeigen
da gibts keinen Fehler im Highlight. Du hast nur den ersten String nicht geschlossen (sieht man schon an der grünen Textfarbe"
Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

x-pressive

BeitragSa, Apr 15, 2006 8:26
Antworten mit Zitat
Benutzer-Profile anzeigen
@svolf: Ich würde die ganzen Fragen nicht direkt in den Quellcode stopfen (das wäre so, als würdest du bei einem Auto die Reifen fest mit dem Motor verbinden, so das du bei einem Reifenwechsel immer den gesamten Motor ausbauen musst!), sondern einfach in eine seperate Textdatei. Die kannst du in deinem Programm dann Zeile für Zeile einlesen -und am besten in Types speichern:

Code: [AUSKLAPPEN]
Type TFrage
    Field frage$
    Field antworten$[10]
    Field richtigeAntwort%
End Type


Ein gutes Quiz hat einige hundert Fragen (mindestens!). Das alles direkt in den Programmcode zu stopfen ist wahnsinn. Und vielleicht möchtest du später ja noch einige hinzufügen, ohne dann jedesmal das ganze Programm neu kompilieren zu müssen.

Damit der User die Fragen und Antworten im Textfile nicht lesen kann, kannst du eine einfache Verschlüsselungsfunktion benutzen (suche mal nach "Highscore" und "verschlüsseln", da gibt es einige nützliche Beiträge).
• BLITZ SHOWCASE:
PARTICLE CANDY • PARTICLE CANDY FOR iPHONE • SPRITE CANDY • DON'T GET ANGRY! 2-3 • CLICK CLACK XL

s_m_w

BeitragSo, Apr 16, 2006 16:42
Antworten mit Zitat
Benutzer-Profile anzeigen
Zitat:
da gibts keinen Fehler im Highlight. Du hast nur den ersten String nicht geschlossen (sieht man schon an der grünen Textfarbe"

Ich meinte, das erkennt man am Highlight
Sheep Happens

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group