Farben
Übersicht
BlitzBasic Beginners-Corner
ScretchyBetreff: Farben |
 Sa, Okt 23, 2004 19:01Antworten mit Zitat 
|
|
|---|---|---|
|
Graphics 640, 480
Text 140,0, "******************************************" Text 140,10, "*Willkommen bei Scretchys Taschenrechner!*" Text 140,20, "******************************************" WaitKey() .start Cls zahl1 = Input$("Bitte geben sie die erste Zahl ein!") oppera$ = Input$("Bitte geben sie die operration ein!") zahl2 = Input$("Bitte geben sie die zweite Zahl ein!") If oppera = "+" Then Print zahl1 + zahl2 If oppera = "-" Then Print zahl1 - zahl2 If oppera = "*" Then Print zahl1 * zahl2 If oppera = "/" Then Print zahl1 / zahl2 WaitKey() end wie kriege ich das hin das er beim willkommen das schild alle farben durchlaufen lässt! Das muss doch mit einer for next schleife gehen! |
||
|
simi |
Sa, Okt 23, 2004 19:05 Antworten mit Zitat
|
|---|---|---|
|
Code: [AUSKLAPPEN] For r = 0 to 255 for g = 0 to 255 for b = 0 to 255 Color r,g,b Text 140,0, "******************************************" Text 140,10, "*Willkommen bei Scretchys Taschenrechner!*" Text 140,20, "******************************************" flip next next next Ich denke du stellst ein bisschen zu viele Fragen ... 
|
||
Scretchy |
Sa, Okt 23, 2004 19:07 Antworten mit Zitat
|
|
|---|---|---|
|
Da wird der von Schwarz zu Blau und das ist ein bisschen langsam!
Der soll ganz viele Bunte Farben schnell hintereinander machen! |
||
Timo |
So, Okt 24, 2004 10:28 Antworten mit Zitat
|
|
|---|---|---|
|
Code: [AUSKLAPPEN] repeat Color rand(255),rand(255),rand(255) Text 140,0, "******************************************" Text 140,10, "*Willkommen bei Scretchys Taschenrechner!*" Text 140,20, "******************************************" flip until keyhit(1) ; bis esc gedrückt wurde so, das kann hier aber augenkrebs verbreiten *gg* |
||
Übersicht
BlitzBasic Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group