Variable bei For-Schleife erhöht sich nicht

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

 

huii

Betreff: Variable bei For-Schleife erhöht sich nicht

BeitragFr, Nov 05, 2004 21:18
Antworten mit Zitat
Benutzer-Profile anzeigen
Hallo,

ich mach grade ein kleines Quiz, aber habe ein großes Problem. Schaut euch einfach die Kommentare an:

Code: [AUSKLAPPEN]

; code

For nummer = 1 To 10 ; <--- HIER FÄNGT DIE SCHLEIFE MIT "nummer" AN.

; code

Text 140,47,"Frage"
Text 160,70,nummer ; <--- BEI JEDEM DURCHLAUF SOLLTE DIE IMMER UM 1 ERHÖHEN. DIE BLEIBT BEI 1!!

; code

Next ; <--- HIER SPRINGT DIE WIEDER ZUM ANFANG. ABER WENN ICH "nummer" AUSGEBE, KOMMT IMMER 1


MfG huii 8)



EDIT: Immer wenn ich mein Quelltext reinposte, ist mir das irgendwie peinlich. Geht das nur mir so?

EDIT2: Wenn ich den Code durch "; code" ersetzte, geht es auf einmal. Menno Evil or Very Mad

EDIT3: Hier ist der ganze Code: http://www.sucox.art-fx.org/Bl...ode_id=518

Rallimen

Sieger des 30-EUR-Wettbewerbs

BeitragFr, Nov 05, 2004 22:50
Antworten mit Zitat
Benutzer-Profile anzeigen
Habe mir das angesehen, und es geht normalerweise!
welche BB Version haste denn?
[BB2D | BB3D | BB+]
 

David

BeitragFr, Nov 05, 2004 22:55
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi!

Code: [AUSKLAPPEN]

AppTitle "Universum-Quiz"
Graphics 640,480,32,2
verdana1 = LoadFont("Verdana",25,1,0,0)
verdana2 = LoadFont("Verdana",15,2,0,0)
SeedRnd MilliSecs()

For nummer = 1 To 10 ; <--- HIER FÄNGT DIE SCHLEIFE MIT "nummer" AN.
    Cls
    Color 255,255,255
   
    For xx = 1 To 500
        x = Rand(1,640)
        y = Rand(1,480)
        Plot x,y
    Next
   
    Color 91,91,91
    Rect 137,50,380,400
    Color 120,120,120
   
    For xx = 1 To 120
        x = Rand(137,380)
        y = Rand(50,400)
        Plot x,y
    Next
   
    Color 255,100,50
   
    For xx = 1 To 80
        x1 = Rand(140,500)
        x2 = Rand(110,160)
        y1 = Rand(515,515)
        y2 = Rand(50,50)
        Line x1,x2,y1,y2
    Next
   
    Color 255,100,50
    SetFont verdana2
    Oval 150,200,25,15
    Oval 150,220,25,15
    Oval 150,240,25,15
    Oval 150,260,25,15
    Color 255,255,255
    Text 157,200,"1"
    Text 157,220,"2"
    Text 157,240,"3"
    Text 157,260,"4"
   
    ;datei$ = "fragen/" + Rand(1,2) + ".txt"
    ;frage = ReadFile(datei$)
    Color 255,255,255
    SetFont verdana1
    Text 140,47,"Frage"
    Text 160,70,nummer ; <--- BEI JEDEM DURCHLAUF SOLLTE DIE IMMER UM 1 ERHÖHEN. DIE BLEIBT BEI 1!!
    Color 200,200,200
    SetFont verdana2
    Text 240,50,"Punkte: " + punkte
    Color 200,200,200
    ;Text 157,170,ReadLine(frage)
    Color 255,255,255
    ;Text 180,200,ReadLine(frage)
    ;Text 180,220,ReadLine(frage)
    ;Text 180,240,ReadLine(frage)
    ;Text 180,260,ReadLine(frage)
    ;taste = ReadLine(frage)
    WaitKey
   
    If KeyHit(taste) = 1 Then
        punkte = punkte + 1
    EndIf
   
Next ; <--- HIER SPRINGT DIE WIEDER ZUM ANFANG. ABER WENN ICH "nummer" AUSGEBE, KOMMT IMMER 1

End


Ich hab die Dateioperationen ausgeklammert, weil ich die Dateien nicht besitze... Wink
Aber irgendwie gehts bei mir!

Edit: Code Formatiert bei Rallimen's Code Formatter. Wink

grüße
http://bl4ckd0g.funpic.de
 

huii

BeitragFr, Nov 05, 2004 23:03
Antworten mit Zitat
Benutzer-Profile anzeigen
Hat sich erledigt! Die Freunde aus dem BlitzBasic chat haben mir geholfen. Ist wohl ein BlitzPlus-Bug. Mit Blitz3D geht es nämlich.

MfG huii 8)

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group