menu kreieren mit farben

Übersicht

BlitzBasic

Beginners-Corner

	michele Betreff: menu kreieren mit farben	Mi, Dez 08, 2004 6:08 Antworten mit Zitat
hoi, ich hab eine frage. ich schaffs irgendwie nicht ein menu zu proggen. ich möchte das man mit den keyboardtasten einen neuen menupunkt (also zb: spiel laden) anwählen. sobald der 2. menupunkt mittels cursor down taste aktiviert ist (farbe ändert) soll der erste wieder die normale farbe erhalten wie die anderen auch (zb weiss), angewählter menupunkt blau. so eine menusteuerung ist gar nicht so einfach zum machen. da hab ich mich wohl überschätzt. Ich hab versucht das ganze mit einer for schleife und select case zu lösen. Graphics3D 800,600,32,1 SetBuffer BackBuffer() designmask() Flip WaitKey Function designmask() arial1=LoadFont("Arial",24,False,False,False) SetFont arial1 Color 0,0,255 Text 320,200,"Char generieren" Color 0,0,0 Text 320,220,"Char laden" Text 320,240,"Char Auswahl" ;Text 320,260,"Arena" While Not KeyHit(1) nr=GetKey() Select nr Case 29 Color 0,0,0 Text 320,200,"Char generieren" Color 0,0,255 Text 320,220,"Char laden" Flip Wend End Function danke Michele

michele

Betreff: menu kreieren mit farben

Mi, Dez 08, 2004 6:08
Antworten mit Zitat

hoi,

ich hab eine frage. ich schaffs irgendwie nicht ein menu zu proggen. ich möchte das man mit den keyboardtasten einen neuen menupunkt (also zb: spiel laden) anwählen. sobald der 2. menupunkt mittels cursor down taste aktiviert ist (farbe ändert) soll der erste wieder die normale farbe erhalten wie die anderen auch (zb weiss), angewählter menupunkt blau.

so eine menusteuerung ist gar nicht so einfach zum machen. da hab ich mich wohl überschätzt.

Ich hab versucht das ganze mit einer for schleife und select case zu lösen.

Graphics3D 800,600,32,1
SetBuffer BackBuffer()
designmask()
Flip
WaitKey

Function designmask()

arial1=LoadFont("Arial",24,False,False,False)

SetFont arial1
Color 0,0,255
Text 320,200,"Char generieren"
Color 0,0,0
Text 320,220,"Char laden"
Text 320,240,"Char Auswahl"
;Text 320,260,"Arena"

While Not KeyHit(1)
nr=GetKey()

Select nr
Case 29
Color 0,0,0
Text 320,200,"Char generieren"
Color 0,0,255
Text 320,220,"Char laden"
Flip

Wend

End Function

danke

Michele

	Klip	Mi, Dez 08, 2004 8:22 Antworten mit Zitat
Du brauchst eine Variable, die zum Beispiel Menuepunkt heißt. Code: [AUSKLAPPEN] [EINKLAPPEN] Select Menuepunkt case 1 ; wähle Menüpunkt eins case 2 ; Menüpunkt zwei ... If KeyHit(down) Menuepunkt = Menuepunkt - 1 EndIf ... If Menuepunkt < 0 Or Menuepunkt > 2 Menuepunkt = 1 EndIf Das ist die Grundidee, jedenfalls löse ich das immer so. Obwohl mich auch eine bessere Lösung interessieren würde.

Klip

Mi, Dez 08, 2004 8:22
Antworten mit Zitat

Du brauchst eine Variable, die zum Beispiel Menuepunkt heißt.

Code: [AUSKLAPPEN]

Select Menuepunkt
case 1
; wähle Menüpunkt eins
case 2
; Menüpunkt zwei

...

If KeyHit(down)
Menuepunkt = Menuepunkt - 1
EndIf

...

If Menuepunkt < 0 Or Menuepunkt > 2
Menuepunkt = 1
EndIf

Das ist die Grundidee, jedenfalls löse ich das immer so. Obwohl mich auch eine bessere Lösung interessieren würde.

	Michi	Mi, Dez 08, 2004 15:51 Antworten mit Zitat
so mache ich das auch, ist - so weit ich das weis - auch die einzige Lösung. Nur sollte man Code: [AUSKLAPPEN] [EINKLAPPEN] If Menuepunkt < 0 Or Menuepunkt > 2 Menuepunkt = 1 EndIf zu Zitat: If Menuepunkt<0 Then Menuepunkt=2 If Menuepunkt>2 Then Menuepunkt=0 umformen, fände ich besser.
Aber..Wozu soll er gut sein??? IBM-Ingeneur über die Idee des Mikroprozessors, 1968 Code: [AUSKLAPPEN] [EINKLAPPEN] __ <_/__\_> <--- die Wayne-Zeichnung