text ändern
Übersicht
BlitzBasic Beginners-Corner
|
MikeDeeBetreff: text ändern |
 Sa, Jun 07, 2008 19:02Antworten mit Zitat 
|
|---|---|---|
|
wenn man nach oben drückt ändert sich die farbe des Würfels.
gleichzeitig soll auch dortstehen welche farben es hat, was es nicht macht. Code: [AUSKLAPPEN] Graphics 320,200,0,2 SetBuffer BackBuffer() SeedRnd MilliSecs() Global Arial =LoadFont("Arial",24) Color 0,0,0 Rect 150,50,100,100 Repeat Cls If KeyDown(200) Then rgb=Rand(0,8) If rgb=0 Then r=r+5 rot% = rot% + 5 If rgb=1 Then r=r+0 rot% = rot% + 0 If rgb=2 Then r=r-5 rot% = rot% - 5 If rgb=3 Then g=g+5 grn% = grn% + 5 If rgb=4 Then g=g+0 grn% = grn% + 0 If rgb=5 Then g=g-5 grn% = grn% - 5 If rgb=6 Then b=b+5 blau% = blau% + 5 If rgb=7 Then b=b+0 blau% = blau% + 0 If rgb=8 Then b=b-5 blau% = blau% - 5 If r>255 Then r=255 If g>255 Then g=255 If b>255 Then b=255 If r<0 Then r=0 If g<0 Then g=0 If b<0 Then b=0 EndIf Color r,g,b Rect 150,50,100,100 Color 255,0,0 SetFont Arial Text 0,0,"rot " + rot% Color 0,255,0 SetFont Arial Text 0,20,"grn " + grn% Color 0,0,255 SetFont Arial Text 0,40,"blau " + blau% Flip Until KeyHit(1) End |
||
| Nicht wenige benutzen die Anonymität des Internets um berühmt zu werden. | ||
|
ToeB |
Sa, Jun 07, 2008 19:18 Antworten mit Zitat
|
|---|---|---|
|
Gib mal stat Text rot Text r ein...
mfg ToeB |
||
|
Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat.
Race-Project - Das Rennspiel der etwas anderen Art SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt! |
||
|
DAK |
Sa, Jun 07, 2008 19:25 Antworten mit Zitat
|
|---|---|---|
|
jo, außerdem scheinst du ein kleines missverständniss bei den if-anweisungen zu haben. ich erklärs dir mal:
Code: [AUSKLAPPEN] ;wenn a=1 wird 1 geschrieben
If a=1 Then Print "1" ;egal was a ist, 2 wird geschrieben Print "2" ;wenn a=2 ist, wird 3 und 4 geschrieben If a=2 Then Print "3" Print "4" EndIf ich glaub, du hastas nicht ganz verstanden, weil z.b. das hier: Code: [AUSKLAPPEN] If rgb=0 Then r=r+5
rot% = rot% + 5 absolut sinnlos ist. Da wird egal was rgb ist, rot% um 5 erhöht. Durch die darauffolgenden Zeilen wird der Effekt dann wieder rückgängig gemacht. noch eins: a = 5 ist das selbe wie a% = 5... Das % ist unnötig |
||
| Gewinner der 6. und der 68. BlitzCodeCompo | ||
|
|
MikeDee |
Sa, Jun 07, 2008 19:35 Antworten mit Zitat
|
|---|---|---|
|
also mit dem Text klappts nun, aber es werden auch Farbanteile wie 240 angezeigt, obwohl das es doch eigendlich verhindern sollte
Code: [AUSKLAPPEN] If r>255 Then r=255
If g>255 Then g=255 If b>255 Then b=255 If r<0 Then r=0 If g<0 Then g=0 If b<0 Then b=0 code 2 Code: [AUSKLAPPEN] Graphics 320,200,0,2 SetBuffer BackBuffer() SeedRnd MilliSecs() Global Arial =LoadFont("Arial",24) Color 0,0,0 Rect 150,50,100,100 Repeat Cls If KeyDown(200) Then rgb=Rand(0,8) If rgb=0 Then r=r+5 If rgb=1 Then r=r+0 If rgb=2 Then r=r-5 If rgb=3 Then g=g+5 If rgb=4 Then g=g+0 If rgb=5 Then g=g-5 If rgb=6 Then b=b+5 If rgb=7 Then b=b+0 If rgb=8 Then b=b-5 EndIf If r>255 Then r=255 If g>255 Then g=255 If b>255 Then b=255 If r<0 Then r=0 If g<0 Then g=0 If b<0 Then b=0 Color r,g,b Rect 150,50,100,100 Color 255,0,0 SetFont Arial Text 0,0,"rot " + r Color 0,255,0 SetFont Arial Text 0,20,"grn " + g Color 0,0,255 SetFont Arial Text 0,40,"blau " + b Flip Until KeyHit(1) End |
||
| Nicht wenige benutzen die Anonymität des Internets um berühmt zu werden. | ||
|
Tankbuster |
Sa, Jun 07, 2008 19:40 Antworten mit Zitat
|
|---|---|---|
| Ich sehe im Code nichts was r=240 verbietet..... sry <.< | ||
|
Twitter
Download Jewel Snake! Windows|Android |
||
|
|
MikeDee |
Sa, Jun 07, 2008 19:54 Antworten mit Zitat
|
|---|---|---|
|
wieso? da steht doch
wenn r größer als 255 dann r ist gleich 255 (frei übersetzt.) |
||
| Nicht wenige benutzen die Anonymität des Internets um berühmt zu werden. | ||
|
|
Tankbuster |
Sa, Jun 07, 2008 19:54 Antworten mit Zitat
|
|---|---|---|
240>255 ???^^
|
||
|
Twitter
Download Jewel Snake! Windows|Android |
||
|
|
MikeDee |
Sa, Jun 07, 2008 23:33 Antworten mit Zitat
|
|---|---|---|
|
omg, bin ich blöd-.-
hat lange gedauert bis ich den "Fehler" gemerkt habe.
|
||
| Nicht wenige benutzen die Anonymität des Internets um berühmt zu werden. | ||
Übersicht
BlitzBasic Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group