Text löschen
Übersicht
BlitzBasic Beginners-Corner
|
maboxBetreff: Text löschen |
 Do, März 29, 2007 16:53Antworten mit Zitat 
|
|---|---|---|
|
Hallo, wie kriege ich Text den ich anzeigen lasse wieder weg?
mit "cls" geht es irgenwie nicht, vielleicht schreibe ich es an die falsche Stelle ?! Code: [AUSKLAPPEN] ;Intro
Graphics 1024,768,16,0 SetBuffer BackBuffer() AppTitle ("mausoft Intro") Ms = MilliSecs() schrift_x = 1024 schrift_y = 290 rot = 0 gruen = 0 blau = 0 schrift = LoadFont ("bauer.ttf",150) SetFont schrift Color 180,0,0 ;Schleife While Not rot >= 255 Timescale = MilliSecs() - Ms Ms = MilliSecs() schrift_x = (schrift_x -20 + 0.001 * Timescale) If schrift_x <= 50 Then schrift_x = 50 rot = (rot +30 +0.001 * Timescale) gruen = (gruen +30 +0.001 * Timescale) blau = (blau +30 +0.001 * Timescale) EndIf ClsColor rot,gruen,blau Text schrift_x,schrift_y, "mausoft" Flip Cls Wend Cls Delay 3000 End |
||
|
Fujitsu-Siemens Laptop, 2Ghz Intel Core2Duo Prozessor, 2GB Ram, 120GB Festplatte, ATI Mobility Radeon X1400, Windows Vista Ultimate
www.mausoft.de.tl Dönerfresser Homepage |
||
|
Axe |
Do, März 29, 2007 17:05 Antworten mit Zitat
|
|---|---|---|
|
Cls() löscht den aktuellen BackBuffer. In der Hauptschleife hast du es korrekt verwendet. Am Ende des Codes fehlt hinter Cls noch Flip (in der Annahme, dass du in den letzten drei Sek. einen schwarzen Bildschirm zeigen willst).
MfG Axe |
||
|
Projekte:
Ping Pong 2D Version 2.1 Weitere Infos: axesite.de |
||
Beatenvoy |
Do, März 29, 2007 17:12 Antworten mit Zitat
|
|
|---|---|---|
|
Ich denke mal du willst danach den Hauptcode laufen lassen :
Code: [AUSKLAPPEN] Graphics 1024,768,16,0
SetBuffer BackBuffer() AppTitle ("mausoft Intro") Ms = MilliSecs() schrift_x = 1024 schrift_y = 290 rot = 0 gruen = 0 blau = 0 schrift = LoadFont ("bauer.ttf",150) SetFont schrift Color 180,0,0 ;Schleife While Not rot >= 255 Timescale = MilliSecs() - Ms Ms = MilliSecs() schrift_x = (schrift_x -20 + 0.001 * Timescale) If schrift_x <= 50 Then schrift_x = 50 rot = (rot +30 +0.001 * Timescale) gruen = (gruen +30 +0.001 * Timescale) blau = (blau +30 +0.001 * Timescale) EndIf ClsColor rot,gruen,blau Text schrift_x,schrift_y, "mausoft" Flip Cls Wend Delay 2000 While Not KeyHit(1) Cls Text 10,10,"HUHUUUUUUUUUU" Flip Wend End |
||
|
|
maboxBetreff: OK |
Do, März 29, 2007 17:17 Antworten mit Zitat
|
|---|---|---|
| Ok, Danke jetzt gehts. | ||
|
Fujitsu-Siemens Laptop, 2Ghz Intel Core2Duo Prozessor, 2GB Ram, 120GB Festplatte, ATI Mobility Radeon X1400, Windows Vista Ultimate
www.mausoft.de.tl Dönerfresser Homepage |
||
Übersicht
BlitzBasic Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group