Farben

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

mk

Betreff: Farben

BeitragFr, Okt 29, 2004 9:06
Antworten mit Zitat
Benutzer-Profile anzeigen
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 Smile

www.marcelkroener.de.vu

Mein Arcor Webspace =)
 

David

BeitragFr, Okt 29, 2004 9:11
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragFr, Okt 29, 2004 9:17
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragFr, Okt 29, 2004 9:23
Antworten mit Zitat
Benutzer-Profile anzeigen
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 Smile

www.marcelkroener.de.vu

Mein Arcor Webspace =)

Jan_

Ehemaliger Admin

BeitragFr, Okt 29, 2004 9:30
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragFr, Okt 29, 2004 9:30
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragFr, Okt 29, 2004 11:57
Antworten mit Zitat
Benutzer-Profile anzeigen
MilliSecs() ist dafür genau das richtige:Code: [AUSKLAPPEN]
Graphics 640,480,16,2
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
MilliSecs()-Funktionsweise siehe Onlinehilfe.
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Jan_

Ehemaliger Admin

BeitragFr, Okt 29, 2004 11:59
Antworten mit Zitat
Benutzer-Profile anzeigen
Hubsi,
erst lesen, dann posten.

lese mal 2 beiträge weiter oben,
der gleiche (fast) quelltext!
between angels and insects

Hubsi

BeitragFr, Okt 29, 2004 12:01
Antworten mit Zitat
Benutzer-Profile anzeigen
Embarassed Upsala Embarassed War der vorhin auch schon da? Very Happy Total übersehen.
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

mk

BeitragFr, Okt 29, 2004 13:17
Antworten mit Zitat
Benutzer-Profile anzeigen
Trotzdem Danke, Hubsi.
Ich habe jetzt den richtigen Quelltext.
Danke. Very Happy

Ich finde es richtig gut, das ich endlich herausgefunden habe wie man die Textgrösse festlegt.
Smile


schrift=LoadFont ("Times New Roman",150,False,False,True)
Schriftart Grösse,Fett,Kursiv,Unterstrichen.

Toll. Laughing
Pentium 4 2,6 GHz | 256 MB RAM | 120 GB Festplatte | DVD-ROM Laufwerk (48 Fach) |


I am a noob Smile

www.marcelkroener.de.vu

Mein Arcor Webspace =)

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group