Text farblich verschwinden lassen

[captain third]

ich hab mir gedacht,wenn ich einen text in totalem weis,farblich verschwinden lasse,zu schwarz(hintergrund ist auch schwarz) dann muss ich for und next nehmen,das hab ich jetz ma so jemacht..

Code: Alles auswählen

;-Farbenverschwindentest
rot=255
gruen=255
blau=255
InitSprite()
OpenScreen(640,480,16,"Farb verschwinden test")
InitKeyboard()
Repeat
ClearScreen(0,0,0)
ExamineKeyboard()
StartDrawing(ScreenOutput()) 
FrontColor(rot$,gruen$,blau$) 
 For rot=rot-5 To 0
 For gruen=gruen-5 To 0
 For blau=blau-5 To 0
Locate(300,300) 
BackColor(0,0,0)
DrawText("Dies ist ein Verschwindibus test :D")
StopDrawing()
FlipBuffers()
Delay(20)
Next rot
Next gruen
Next blau
Until KeyboardPushed(#PB_Key_Escape)
CloseScreen()
End

soweit so gut,jetzt kommt aber eine meldung "Zeile 22: bad variable for this"next" " was isn da falsch? in der hilfe steht das so ähnlich auch....

[Donald]

Hi

For rot=rot-5 To 0
For gruen=gruen-5 To 0
For blau=blau-5 To 0
.....
Next rot
Next gruen
Next blau

solltest auch die schleifen in umgekehrter reihenfolge abarbeiten lassen.
Das heißt die zu letzt geöffnete schleife zuerst usw.

also:
For rot=rot-5 To 0
For gruen=gruen-5 To 0
For blau=blau-5 To 0
.....
Next blau
Next gruen
Next rot

Ob der rest stimmt habe ich nicht geprüft.

[captain third]

danke ich versuchs

[Donald]

Hi, hab mirs nochmal angesehen.
ohman kann nicht laufen.
Nimm den Code:

Code: Alles auswählen

;-Farbenverschwindentest 
InitSprite() 
OpenScreen(640,480,16,"Farb verschwinden test") 
InitKeyboard() 
Repeat 
ClearScreen(0,0,0) 
ExamineKeyboard() 
For i=255 To 0 Step -5
rot=i 
gruen=i 
blau=i 
StartDrawing(ScreenOutput()) 
Locate(300,300) 
BackColor(0,0,0) 
FrontColor(i,i,i)
DrawText("Dies ist ein Verschwindibus test :D") 
StopDrawing() 
FlipBuffers() 
Delay(50) 
Next i
Until KeyboardPushed(#PB_Key_Escape) 
CloseScreen() 
End 

habs getestet er läuft.

[captain third]

danke,mein rechner is nämlich grade abgestürzt... dadurch

[freedimension]

Au fein, ein PureGolf-Wettbewerb

Code: Alles auswählen

;-Farbenverschwindentest 
InitSprite() 
OpenScreen(640,480,16,"Farb verschwinden test") 
InitKeyboard() 
Repeat 
ClearScreen(0,0,0) 
ExamineKeyboard() 
For i=255 To 0 Step -5
StartDrawing(ScreenOutput()) 
Locate(300,300) 
BackColor(0,0,0) 
FrontColor(i,i,i)
DrawText("Dies ist ein Verschwindibus test :D") 
StopDrawing() 
FlipBuffers() 
Delay(50) 
Next
Until KeyboardPushed(#PB_Key_Escape) 
CloseScreen() 
End 

[captain third]

PureGolf??? hab ich da richtig gelesen? .oO(ich brauch unbedingt mehr kaffee ) wiso golf???

[Donald]

na er hat 3 Zeile gekürzt, welche ich vergass rauszunehmen.
Bei golf hat doch auch der gewonnen mit den wenigsten schläge,
und bei PureGolf der mit dem kurzesten Code

[captain third]

achso lol des findsch ja ma gail....rofl....merk ich mir (mus sowiso noch viel lernen )

[Ynnus]

CloseScreen() & End hättest du aber auch noch rauslassen können.