Farben
Übersicht

![]() |
mkBetreff: Farben |
![]() Antworten mit Zitat ![]() |
---|---|---|
Code: [AUSKLAPPEN] For x = 0 To 255
Color Rand(0,255),Rand(0,255),Rand(0,255) schrift=LoadFont ("Times New Roman",40,False,False,True) SetFont schrift Text 40,40, "Grosse Schrift" Next FreeFont schrift Repeat Until KeyHit (1) Warum bleiben die Farben nach einer weile Stehen? |
||
Pentium 4 2,6 GHz | 256 MB RAM | 120 GB Festplatte | DVD-ROM Laufwerk (48 Fach) |
I am a noob ![]() www.marcelkroener.de.vu Mein Arcor Webspace =) |
David |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Hi!
Weil du die Farben nur 256x änders, danach is Ende der Fahnenstange! Siehe "For - Schleife" in der Onlinehilfe! grüße |
||
http://bl4ckd0g.funpic.de |
![]() |
Jan_Ehemaliger Admin |
![]() Antworten mit Zitat ![]() |
---|---|---|
lol, da hast du bestimmt 1 GB Ram gebraucht, oder?
256 mal Fornext * 5 mb Schriftgröße = 1,25 GB Im RAM so, würde ich es machen. Code: [AUSKLAPPEN] Graphics 640,480,16,2
setbuffer backbuffer() schrift=LoadFont ("Times New Roman",40,False,False,True) SetFont schrift Repeat CLS Color Rand(0,255),Rand(0,255),Rand(0,255) Text 40,40, "Grosse Schrift" flip Until KeyHit (1) FreeFont schrift |
||
between angels and insects |
![]() |
mk |
![]() Antworten mit Zitat ![]() |
---|---|---|
Kann man die Schrift auch langsamer wechseln lassen? | ||
Pentium 4 2,6 GHz | 256 MB RAM | 120 GB Festplatte | DVD-ROM Laufwerk (48 Fach) |
I am a noob ![]() www.marcelkroener.de.vu Mein Arcor Webspace =) |
![]() |
Jan_Ehemaliger Admin |
![]() Antworten mit Zitat ![]() |
---|---|---|
Kleiner Tip noch, am rande, Color bezieht sich auf Text, nicht auf setfont/loadfont
Code: [AUSKLAPPEN] Graphics 640,480,16,2
setbuffer backbuffer() schrift=LoadFont ("Times New Roman",40,False,False,True) SetFont schrift Repeat zeit=millisecs() if zeit > farbzeit+1000 then farbzeit=zeit Color Rand(0,255),Rand(0,255),Rand(0,255) endif CLS Text 40,40, "Grosse Schrift" flip Until KeyHit (1) FreeFont schrift hier wird jede secunde umgeschalten. |
||
between angels and insects |
- Zuletzt bearbeitet von Jan_ am Fr, Okt 29, 2004 9:30, insgesamt einmal bearbeitet
David |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Hi!
Ja, kann man. Du musst einfach nur eine "Bremse" einbauen. Eine Abfrage du schaut wieviel Zeit seit dem letzten Farbwechsel vergangen ist. grüße |
||
http://bl4ckd0g.funpic.de |
![]() |
Hubsi |
![]() Antworten mit Zitat ![]() |
---|---|---|
MilliSecs() ist dafür genau das richtige:Code: [AUSKLAPPEN] Graphics 640,480,16,2
MilliSecs()-Funktionsweise siehe Onlinehilfe.
setbuffer backbuffer() schrift=LoadFont ("Times New Roman",40,False,False,True) SetFont schrift Repeat CLS if millisecs()>timer+150 ; eingefügt timer=millisecs() Color Rand(0,255),Rand(0,255),Rand(0,255) endif Text 40,40, "Grosse Schrift" flip Until KeyHit (1) FreeFont schrift |
||
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn... |
![]() |
Jan_Ehemaliger Admin |
![]() Antworten mit Zitat ![]() |
---|---|---|
Hubsi,
erst lesen, dann posten. lese mal 2 beiträge weiter oben, der gleiche (fast) quelltext! |
||
between angels and insects |
![]() |
Hubsi |
![]() Antworten mit Zitat ![]() |
---|---|---|
![]() ![]() ![]() |
||
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn... |
![]() |
mk |
![]() Antworten mit Zitat ![]() |
---|---|---|
Trotzdem Danke, Hubsi.
Ich habe jetzt den richtigen Quelltext. Danke. ![]() Ich finde es richtig gut, das ich endlich herausgefunden habe wie man die Textgrösse festlegt. ![]() schrift=LoadFont ("Times New Roman",150,False,False,True) Schriftart Grösse,Fett,Kursiv,Unterstrichen. Toll. ![]() |
||
Pentium 4 2,6 GHz | 256 MB RAM | 120 GB Festplatte | DVD-ROM Laufwerk (48 Fach) |
I am a noob ![]() www.marcelkroener.de.vu Mein Arcor Webspace =) |
Übersicht


Powered by phpBB © 2001 - 2006, phpBB Group