bunter text
Übersicht
BlitzBasic Beginners-Corner
|
mkBetreff: bunter text |
 Sa, Nov 27, 2004 8:35Antworten mit Zitat 
|
|---|---|---|
|
Color Rnd red# (255) green# (255) blue#(255)
Color (red#,green#,blue#) Text 400,300, "Test" oder wie ging das nochmal? |
||
|
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 =) |
||
getlose |
Sa, Nov 27, 2004 8:40 Antworten mit Zitat
|
|
|---|---|---|
|
Code: [AUSKLAPPEN] Color Rnd(255),Rnd(255),Rnd(255) Text 10,10,"blub" |
||
|
Bfox |
Sa, Nov 27, 2004 8:42 Antworten mit Zitat
|
|---|---|---|
|
Wenn du Kommerstellen habe willst musst du statt Rnd Rand eingeben!
Aber das nützt dir bei den Farben glaube ich nicht viel! Also brauchst du keine Floats zu machen, mach lieber Intiger, ist schneller! Aber sonst müsste alles gehen! getlos hat recht! Hab mich vertan! Das Color vor Text musst du auch weggmachen |
||
| Glauben ist Mangel an Wissen! | ||
|
|
mk |
Sa, Nov 27, 2004 9:45 Antworten mit Zitat
|
|---|---|---|
| danke!!! | ||
|
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 =) |
||
|
|
mk |
Sa, Nov 27, 2004 10:22 Antworten mit Zitat
|
|---|---|---|
|
Code: [AUSKLAPPEN] Graphics 800,600
.start Repeat font=LoadFont ("Times New Roman",48) SetFont font For i=1 To 255 Color Rnd(255),Rnd(0),Rnd(0) Next Text 0,0, "Einmaleins" FreeFont font Delay 15 ;damit der Prozessor nicht so viel zu tun hat. Flip Until KeyHit (1) For i=1 To 15 Print "" Next reihe$ = Input ("Mathe-Reihe (1-10)") Print "" Print "" Print "" Print "" Select reihe$ Case "1" eins Case "2" zwei Case "3" drei Case "4" vier Case "5" fuenf Case "6" sechs Case "7" sieben Case "8" acht Case "9" neun Case "10" zehn End Select Function eins() For i=1 To 10 Step 1 Print i Next End Function Function zwei() For i=2 To 20 Step 2 Print i Next End Function Function drei() For i=3 To 30 Step 3 Print i Next End Function Function vier() For i=4 To 40 Step 4 Print i Next End Function Function fuenf() For i=5 To 50 Step 5 Print i Next End Function Function sechs() For i=6 To 60 Step 6 Print i Next End Function Function sieben() For i=7 To 70 Step 7 Print i Next End Function Function acht() For i=8 To 80 Step 8 Print i Next End Function Function neun() For i=9 To 90 Step 9 Print i Next End Function Function zehn() For i=10 To 100 Step 10 Print i Next End Function Print "" Print "" Print "" Print "" Print "" .nochmal nochmal$ = Input$("Nochmal? Ja/Nein: ") Select (nochmal$) Case "Ja" EndGraphics:Graphics 800,600:Goto start Case "Nein" End Case "ja" EndGraphics:Graphics 800,600:Goto start Case "nein" End Case "" Goto nochmal End Select Warum geht das nicht??? |
||
|
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 =) |
||
|
Spikespine |
Sa, Nov 27, 2004 11:09 Antworten mit Zitat
|
|---|---|---|
[EDIT] 
du beziehst das wohl auf den Text... einen effekt gibt es, aber Code: [AUSKLAPPEN] Color Rnd(255),Rnd(0),Rnd(0)
rnd(0)??? entweder Code: [AUSKLAPPEN] Color Rnd(255),0,0
(kürzer) oder Code: [AUSKLAPPEN] Color Rnd(255),Rnd(255),Rnd(255)
(etwas bunter^^) |
||
Apocalyptic |
Sa, Nov 27, 2004 11:16 Antworten mit Zitat
|
|
|---|---|---|
|
mk hat Folgendes geschrieben:
Was soll DAS bringen 
Füg das hier vor jedem Text/Print ein, das eine andere Farbe haben soll: Code: [AUSKLAPPEN] Color Rand(100,255),0,0
(Ich habe den Minimalwert von Rand erhöht... sonst kanns sein, das man einfach nix sieht )
Und lade bitte nix in deiner Hauptschleife 
|
||
|
Suum cuique
[ www.ffs-net.de.vu ] [ Raycaster ] |
||
|
|
mk |
Sa, Nov 27, 2004 12:05 Antworten mit Zitat
|
|---|---|---|
|
Ich wollte eigentlich nur wissen warum das Programm nicht funktioniert.
Die rote schrift klappt ja. |
||
|
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 =) |
||
|
simi |
Sa, Nov 27, 2004 12:23 Antworten mit Zitat
|
|---|---|---|
|
"Leicht" überarbeitet:
Code: [AUSKLAPPEN] Graphics 800,600,2 font=LoadFont ("Times New Roman",48) SetFont font SeedRnd MilliSecs() .start Cls Locate 0,0 Color Rand(100,255),Rand(100,255),Rand(100,255) Print "Einmaleins" Color 255,255,255 reihe$ = Input ("Mathe-Reihe (1-10)") PrintReihe(Int(reihe)) Function PrintReihe(x) For i=x To x*10 Print i i=i+x-1 Next End Function .nochmal nochmal$ = Lower(Input$("Nochmal? Ja/Nein:")) Select nochmal$ Case "ja" Goto start Case "nein" End Default Goto nochmal End Select Schau dir ALLES genau durch, das du alles checkst, sonst hat es keinen Wert!!!!!!!!¨ cu simi |
||
Apocalyptic |
Sa, Nov 27, 2004 12:38 Antworten mit Zitat
|
|
|---|---|---|
|
mk hat Folgendes geschrieben: Ich wollte eigentlich nur wissen warum das Programm nicht funktioniert.
Die rote schrift klappt ja. Hmm... Spikespine sagte in seinem alten Post, dass alles funktioniert... Deswegen bin ich mal davon ausgegangen, dass was mit der Schrift nicht stimmt, hab deinen Code nämlich nicht ausprobiert. |
||
|
Suum cuique
[ www.ffs-net.de.vu ] [ Raycaster ] |
||
Übersicht
BlitzBasic Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group