was passt nicht???
Übersicht
BlitzBasic Allgemein
blitzBetreff: was passt nicht??? |
 Do, März 31, 2005 17:05Antworten mit Zitat 
|
|
|---|---|---|
|
farben sollen sich ändern
x=100 y=50 c=100 Repeat If x=255 Then x=0 If y=255 Then y=0 If c=255 Then c=0 Flip ClsColor x,y,c Cls Color y,c,x Locate 70,100 Print "Installation erfolgreich beendet!" Locate 70,170 Print "Bitte drücken Sie eine Taste, um die" Locate 70,240 Print "Installation abzuschließen" If KeyDown(1) = 1 Then End Forever was ist falsch???? |
||
|
BladeRunnerModerator |
Do, März 31, 2005 17:10 Antworten mit Zitat
|
|---|---|---|
| du änderst nirgends was an deinen Variablen. | ||
|
Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92 |
||
|
Kryan |
Fr, Apr 01, 2005 12:07 Antworten mit Zitat
|
|---|---|---|
|
und ich wuerde dazu noch schreiben:
If x>255 Then x=x-255 If y>255 Then y=y-255 If z>255 Then z=z-255 If x<0 Then x=x+255 If y<0 Then y=y+255 If z<0 Then z=z+255 |
||
|
Webspaceanbieter?
Klick hier! Kultige Spieleschmiede? Klick hier! |
||
|
|
BladeRunnerModerator |
Fr, Apr 01, 2005 15:00 Antworten mit Zitat
|
|---|---|---|
|
... und würdest damit immer noch nichts an seinem Problem ändern. Zumal du noch andere Varnamen verwendest als er.
@blitz: wie gesagt: wenn du willst dass sich die Farben ändern musst du innerhalb deiner Schleife auch die Werte der Vars dafür ändern. dann wirds auch gehen 
|
||
|
Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92 |
||
|
KabelbinderSieger des WM-Contest 2006 |
Di, Apr 05, 2005 15:26 Antworten mit Zitat
|
|---|---|---|
|
Ja, genau. Etwa so:
Code: [AUSKLAPPEN] x=100
y=50 c=100 Repeat If x<255 Then x=x+1 If x<255 Then y=y+1 If x<255 Then c=c+1 Flip ClsColor x,y,c Cls Color x,255-c,y Locate 70,100 Print "Installation erfolgreich beendet!" Locate 70,170 Print "Bitte drücken Sie eine Taste, um die" Locate 70,240 Print "Installation abzuschließen" If KeyDown(1) = 1 Then End Forever zum Beispiel. |
||
| <Wing Avenger Download> ◊◊◊ <Macrophage Download> | ||
Übersicht
BlitzBasic Allgemein
Powered by phpBB © 2001 - 2006, phpBB Group