Text löschen

Übersicht

BlitzBasic

Beginners-Corner

	BigPingu Betreff: Text löschen	So, Jul 16, 2006 1:25 Antworten mit Zitat
Hi, hab ein Problem und weil meine Kumpels es nicht verstanden hab was ich wollte hier mein Problem mit Bildern. Die erste Frage wird gestellt. Mit der 2. Frage erscheint ein Text ... die 1. Frage und Antwort bleiben aber erhalten! 3. Frage erscheint der rotmarkierte Text muss weg aber die 1. und 2. Frage muss bleiben. Hab es versucht durch "infotext" den text zu ersetzten aber er kann ja nicht ersetzt werden da ich das ganze nicht in einer schleife machen kann. So hier noch der Code. BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function GameHerstellen() Repeat Cls mx = MouseX() my = MouseY() Layout() SetFont fntnormal Text 64,140, ("Spiel herstellen") If RectsOverlap(mx,my,1,1, 63,139,80,20) Then Rect 63,139,80,20,0 If MouseHit(1) Then Repeat fertig = 0 Locate 64,170 game_name[dimnummer] = Input ("Spielname: ") Text 300,170, ("1-Action") infotext$ = "Wähle die nummer aus und schreibe sie" Text 400,170, (infotext) Repeat Locate 64,200 game_genre[dimnummer] = Input ("Genre: ") Until game_genre[dimnummer] >0 infotext$ = "Niedrig = gut teuer = schlecht" Locate 64,230 game_kosten[dimnummer] = Input ("Preise: ") Until fertig = 1 EndIf EndIf Flip Until KeyHit (1) End Function

BigPingu

Betreff: Text löschen

So, Jul 16, 2006 1:25
Antworten mit Zitat

Hi,
hab ein Problem und weil meine Kumpels es nicht verstanden hab was ich wollte Laughing

hier mein Problem mit Bildern.

Die erste Frage wird gestellt.
user posted image

Mit der 2. Frage erscheint ein Text ... die 1. Frage und Antwort bleiben aber erhalten!
user posted image

3. Frage erscheint der rotmarkierte Text muss weg aber die 1. und 2. Frage muss bleiben.
user posted image

Hab es versucht durch "infotext" den text zu ersetzten aber er kann ja nicht ersetzt werden da ich das ganze nicht in einer schleife machen kann.
So hier noch der Code.

BlitzBasic: [AUSKLAPPEN]

Function GameHerstellen()

	Repeat
	Cls
		mx = MouseX()
		my = MouseY()	
		Layout()
		SetFont fntnormal
		Text 64,140, ("Spiel herstellen")
		If RectsOverlap(mx,my,1,1, 63,139,80,20) Then
			Rect 63,139,80,20,0
			If MouseHit(1) Then 
				Repeat
					fertig = 0
					Locate 64,170
					game_name[dimnummer] = Input ("Spielname: ")
					Text 300,170, ("1-Action")
					infotext$ = "Wähle die nummer aus und schreibe sie"
					Text 400,170, (infotext)
				
					Repeat 
						Locate 64,200
						game_genre[dimnummer] = Input ("Genre: ")
					Until game_genre[dimnummer] >0
				
					infotext$ = "Niedrig = gut teuer = schlecht"
					
					Locate 64,230
					game_kosten[dimnummer] = Input ("Preise: ")
				Until fertig = 1
			EndIf
		EndIf
			
	Flip	
	Until KeyHit (1)
	
End Function

	Lunatix	So, Jul 16, 2006 1:33 Antworten mit Zitat
jetz hab ich s kapert du kannst Viewport nehmen Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,32,2 SetBuffer BackBuffer () Color 255,0,0 Rect 0,0,800,600 Flip WaitKey Viewport 400,400,40,40 Cls Viewport 0,0,800,600 Flip WaitKey End erstelle einfach einen Viewport wo dein text steht und zeichen das hintergrund zeug neu - es wird nur dort etwas ausgegeben wo der viewport ist
[size=9]Pro\|gram\|mier\|er: Ein Organismus, der Koffein in Software umwandelt. Geben Sie eine beliebige 11-stellige Primzahl ein, um fortzusetzen...

Lunatix

So, Jul 16, 2006 1:33
Antworten mit Zitat

jetz hab ich s kapert Very Happy

du kannst Viewport nehmen

Code: [AUSKLAPPEN]

Graphics 800,600,32,2

SetBuffer BackBuffer ()

Color 255,0,0
Rect 0,0,800,600

Flip

WaitKey
Viewport 400,400,40,40
Cls
Viewport 0,0,800,600

Flip
WaitKey
End

erstelle einfach einen Viewport wo dein text steht und zeichen das hintergrund zeug neu - es wird nur dort etwas ausgegeben wo der viewport ist

[size=9]Pro|gram|mier|er: Ein Organismus, der Koffein in Software umwandelt.
Geben Sie eine beliebige 11-stellige Primzahl ein, um fortzusetzen...

	BigPingu	So, Jul 16, 2006 1:53 Antworten mit Zitat
Alles klar das hat sich dann

BigPingu

So, Jul 16, 2006 1:53
Antworten mit Zitat

Alles klar das hat sich dann Laughing

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Text löschen

BigPingu

Betreff: Text löschen

Lunatix

BigPingu