Seite 1 von 4
Text farblich verschwinden lassen
Verfasst: 11.01.2005 22:23
von 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....
Verfasst: 11.01.2005 22:37
von 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.
Verfasst: 11.01.2005 22:38
von captain third
danke ich versuchs
Verfasst: 11.01.2005 22:57
von 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.
Verfasst: 11.01.2005 23:10
von captain third
danke,mein rechner is nämlich grade abgestürzt...
dadurch
Verfasst: 11.01.2005 23:11
von 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
Verfasst: 11.01.2005 23:37
von captain third
PureGolf??? hab ich da richtig gelesen?
.oO(ich brauch unbedingt mehr kaffee
) wiso golf???
Verfasst: 11.01.2005 23:47
von 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
Verfasst: 11.01.2005 23:56
von captain third
achso lol des findsch ja ma gail....rofl....merk ich mir (mus sowiso noch viel lernen
)
Verfasst: 12.01.2005 00:13
von Ynnus
CloseScreen() & End hättest du aber auch noch rauslassen können.
