Kleines Menü mit Auswahl per Tastatur

Übersicht

BlitzBasic

Codearchiv

	brian Betreff: Kleines Menü mit Auswahl per Tastatur	Do, Mai 20, 2004 18:30 Antworten mit Zitat
Ich hab mal ein kleines Menü programmiert, in dem man per Tastatur den entsprechenden Punlt auswählen kann. Nix besonderes, erspart aber vielleicht einigen ne halbe Stunde überlegen. Einfach Menü.bb , Neu.bb und Laden.bb in einem Ordner abspeichern und die Menü.bb ausführen. Anstatt der Neu.bb und der Laden.bb kann man natürlich seine eigene Programm-laden-, bzw. Spiel-starten-Routine einfügen Menü.bb BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600 Menuepunkt = 1 Arial = LoadFont(Arial,24) SetFont(Arial) Repeat SetBuffer BackBuffer() Cls Locate 0,0 If Menuepunkt = 1 Color 255,0,0 ElseIf Not Menuepunkt = 1 Color 255,255,255 EndIf Text 400,200,"Spiel starten",1,0 If Menuepunkt = 2 Color 255,0,0 ElseIf Not Menuepunkt = 2 Color 255,255,255 EndIf Text 400,230,"Spiel laden",1,0 If Menuepunkt = 3 Color 255,0,0 ElseIf Not Menuepunkt = 3 Color 255,255,255 EndIf Text 400,260,"Spiel beenden",1,0 If KeyHit(208) = 1 If Menuepunkt < 3 Menuepunkt = Menuepunkt + 1 EndIf ElseIf KeyHit(200) = 1 If Menuepunkt > 1 Menuepunkt = Menuepunkt -1 EndIf ElseIf KeyHit(28) = 1 If Menuepunkt = 1 Include "Neu.bb" WaitKey End ElseIf Menuepunkt = 2 Include "Laden.bb" WaitKey End ElseIf Menuepunkt = 3 WaitKey End EndIf EndIf Flip Delay 1 Until KeyDown(1) = 1 End Laden.bb BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600 Font = LoadFont(Arial,72) SetFont(Font) Text 400,300,"LADEN",1,1 WaitKey End Neu.bb BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600 Font = LoadFont(Arial,72) SetFont(Font) Text 400,300,"NEU",1,1 WaitKey End

brian

Betreff: Kleines Menü mit Auswahl per Tastatur

Do, Mai 20, 2004 18:30
Antworten mit Zitat

Ich hab mal ein kleines Menü programmiert, in dem man per Tastatur den entsprechenden Punlt auswählen kann. Nix besonderes, erspart aber vielleicht einigen ne halbe Stunde überlegen. Einfach Menü.bb , Neu.bb und Laden.bb in einem Ordner abspeichern und die Menü.bb ausführen. Anstatt der Neu.bb und der Laden.bb kann man natürlich seine eigene Programm-laden-, bzw. Spiel-starten-Routine einfügen

Menü.bb
BlitzBasic: [AUSKLAPPEN]


Graphics 800,600
Menuepunkt = 1
Arial = LoadFont(Arial,24)
SetFont(Arial)
Repeat
SetBuffer BackBuffer()
Cls
Locate 0,0
If Menuepunkt = 1
	Color 255,0,0
ElseIf Not Menuepunkt = 1
	Color 255,255,255
EndIf
Text 400,200,"Spiel starten",1,0
If Menuepunkt = 2
	Color 255,0,0
ElseIf Not Menuepunkt = 2
	Color 255,255,255
EndIf
Text 400,230,"Spiel laden",1,0
If Menuepunkt = 3
	Color 255,0,0
ElseIf Not Menuepunkt = 3
	Color 255,255,255
EndIf
Text 400,260,"Spiel beenden",1,0
If KeyHit(208) = 1
	If Menuepunkt < 3
		Menuepunkt = Menuepunkt + 1
	EndIf
ElseIf KeyHit(200) = 1
	If Menuepunkt > 1
		Menuepunkt = Menuepunkt -1
	EndIf
ElseIf KeyHit(28) = 1
	If Menuepunkt = 1
		Include "Neu.bb"
		WaitKey
		End
	ElseIf Menuepunkt = 2
		Include "Laden.bb"
		WaitKey
		End
	ElseIf Menuepunkt = 3
		WaitKey
		End
	EndIf
EndIf
Flip
Delay 1
Until KeyDown(1) = 1
End

Laden.bb
BlitzBasic: [AUSKLAPPEN]


Graphics 800,600
Font = LoadFont(Arial,72)
SetFont(Font)
Text 400,300,"LADEN",1,1
WaitKey
End

Neu.bb
BlitzBasic: [AUSKLAPPEN]


Graphics 800,600
Font = LoadFont(Arial,72)
SetFont(Font)
Text 400,300,"NEU",1,1
WaitKey
End

	sbrog	Do, Mai 20, 2004 20:21 Antworten mit Zitat
An sich nciht schlecht, aber wiso benutzt du für so kleine Files includes ?

sbrog

Do, Mai 20, 2004 20:21
Antworten mit Zitat

An sich nciht schlecht, aber wiso benutzt du für so kleine Files includes ?

	brian	Do, Mai 20, 2004 21:02 Antworten mit Zitat
Die kleinen Files sind ja nur als Beispiel da, anstatt der Neu.bb müsste man da ja eigentlich das richtige Spiel einfügen

brian

Do, Mai 20, 2004 21:02
Antworten mit Zitat

Die kleinen Files sind ja nur als Beispiel da, anstatt der Neu.bb müsste man da ja eigentlich das richtige Spiel einfügen Wink

	Kabelbinder Sieger des WM-Contest 2006	Do, Mai 20, 2004 23:15 Antworten mit Zitat
Schönes und vor allem auch praktisches Hilfsmittel! Ich hab sowas auch mal gemacht, ich glaub mit 7 oder 8 Menüpunkten, da hab ich mir ne menge Arbeit erspart, indem ich ne For-Schleif genommen hab und die Eigenschaften der Einzelnen Punkte mit Data eingelesen habe.
<Wing Avenger Download> ◊◊◊ <Macrophage Download>

Kabelbinder

Sieger des WM-Contest 2006

Do, Mai 20, 2004 23:15
Antworten mit Zitat

Schönes und vor allem auch praktisches Hilfsmittel! Ich hab sowas auch mal gemacht, ich glaub mit 7 oder 8 Menüpunkten, da hab ich mir ne menge Arbeit erspart, indem ich ne For-Schleif genommen hab und die Eigenschaften der Einzelnen Punkte mit Data eingelesen habe.

	Markus2	Fr, Mai 21, 2004 1:13 Antworten mit Zitat
Hier das ganze mal in schön BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,16,2 SetBuffer BackBuffer() Arial = LoadFont(Arial,24) SetFont(Arial) Local Menu$[5] Menu[1]="Spiel starten" Menu[2]="Spiel beenden" Menu[3]="Menü 3" Menu[4]="Menü 4" Menu[5]="Menü 5" Menuepunkt = 1 Repeat Cls y=200 For i=1 To 5 If Menuepunkt = i Then Color 255,0,0 Else Color 255,255,255 Text 400,y,Menu[i],1,0 :y=y+30 Next If KeyHit(208) = 1 Then Menuepunkt = Menuepunkt + 1 : If Menuepunkt > 5 Then Menuepunkt=1 If KeyHit(200) = 1 Then Menuepunkt = Menuepunkt - 1 : If Menuepunkt < 1 Then Menuepunkt=5 If KeyHit(28) = 1 Then Exit Flip Delay 20 Until KeyDown(1) = 1 FlushKeys Cls Select Menuepunkt Case 1:Text 0,0,"Start" ;Hier die Funktion dafür aufrufen Case 2:Text 0,0,"Ende" Case 3:Text 0,0,"3" Case 4:Text 0,0,"4" Case 5:Text 0,0,"5" End Select Text 0,30,"Drücke eine Taste" Flip WaitKey End

Markus2

Fr, Mai 21, 2004 1:13
Antworten mit Zitat

Hier das ganze mal in schön Wink

BlitzBasic: [AUSKLAPPEN]


Graphics 800,600,16,2 
SetBuffer BackBuffer() 

Arial = LoadFont(Arial,24) 
SetFont(Arial) 

Local Menu$[5]
Menu[1]="Spiel starten"
Menu[2]="Spiel beenden"
Menu[3]="Menü 3"
Menu[4]="Menü 4"
Menu[5]="Menü 5"
Menuepunkt = 1 

Repeat 
 Cls 
 y=200 
 For i=1 To 5 
  If Menuepunkt = i Then Color 255,0,0 Else Color 255,255,255 
  Text 400,y,Menu[i],1,0 :y=y+30 
 Next 

 If KeyHit(208) = 1 Then Menuepunkt = Menuepunkt + 1 : If Menuepunkt > 5 Then Menuepunkt=1 
 If KeyHit(200) = 1 Then Menuepunkt = Menuepunkt - 1 : If Menuepunkt < 1 Then Menuepunkt=5 
 If KeyHit(28) = 1 Then Exit 

 Flip 
 Delay 20 
Until KeyDown(1) = 1 

FlushKeys 
Cls 
Select Menuepunkt 
Case 1:Text 0,0,"Start" ;Hier die Funktion dafür aufrufen 
Case 2:Text 0,0,"Ende" 
Case 3:Text 0,0,"3" 
Case 4:Text 0,0,"4" 
Case 5:Text 0,0,"5" 
End Select 
Text 0,30,"Drücke eine Taste" 
Flip 
WaitKey 
End

Zuletzt bearbeitet von Markus2 am Fr, Mai 21, 2004 22:36, insgesamt einmal bearbeitet

	Mr.Keks	Fr, Mai 21, 2004 8:20 Antworten mit Zitat
Zitat: Select i Case 1:m$="Spiel starten" Case 2:m$="Spiel beenden" Case 3:m$="Menü 3" Case 4:m$="Menü 4" Case 5:m$="Menü 5" End Select Text 400,y,m$,1,0 :y=y+30 schonmal was von arrays gehört?
MrKeks.net

Mr.Keks

Fr, Mai 21, 2004 8:20
Antworten mit Zitat

Zitat:

Select i
Case 1:m$="Spiel starten"
Case 2:m$="Spiel beenden"
Case 3:m$="Menü 3"
Case 4:m$="Menü 4"
Case 5:m$="Menü 5"
End Select
Text 400,y,m$,1,0 :y=y+30

schonmal was von arrays gehört? Smile

MrKeks.net

	Markus2	Fr, Mai 21, 2004 15:53 Antworten mit Zitat
...

Markus2

Fr, Mai 21, 2004 15:53
Antworten mit Zitat

...

Zuletzt bearbeitet von Markus2 am Fr, Mai 21, 2004 22:38, insgesamt einmal bearbeitet

	Edlothiol	Fr, Mai 21, 2004 15:57 Antworten mit Zitat
BlitzArrays kannst du auch Local machen. Nur kannst du sie nicht in der Größe verändern. BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Local Array[4]

Edlothiol

Fr, Mai 21, 2004 15:57
Antworten mit Zitat

BlitzArrays kannst du auch Local machen. Nur kannst du sie nicht in der Größe verändern.
BlitzBasic: [AUSKLAPPEN]

Local Array[4]

	Markus2	Fr, Mai 21, 2004 22:37 Antworten mit Zitat
@Inarie & @Edlothiol so besser @brian Danke für deine Idee des Menüs Einfach und doch so nützlich .

Markus2

Fr, Mai 21, 2004 22:37
Antworten mit Zitat

@Inarie & @Edlothiol so besser Smile

@brian
Danke für deine Idee des Menüs Wink

Einfach und doch so nützlich .

	brian	Fr, Mai 21, 2004 23:41 Antworten mit Zitat
Ich freu mich, wenn ich helfen kann

brian

Fr, Mai 21, 2004 23:41
Antworten mit Zitat

Ich freu mich, wenn ich helfen kann Smile

	Edlothiol	Sa, Mai 22, 2004 11:40 Antworten mit Zitat
Markus2 hat Folgendes geschrieben: @Inarie & @Edlothiol so besser Ausser dass du ein Array - Element verschenkst, schon...

Edlothiol

Sa, Mai 22, 2004 11:40
Antworten mit Zitat

Markus2 hat Folgendes geschrieben:

@Inarie & @Edlothiol so besser Smile

Ausser dass du ein Array - Element verschenkst, schon...

	Markus2	Sa, Mai 22, 2004 12:51 Antworten mit Zitat
@Edlothiol Das ist Absicht und logischer , so wie man halt auf den Screen die Menüs durch zählen würde . Aber da könnte man ein Extra Menü unter bringen für den Programmierer , quasi versteckt

Markus2

Sa, Mai 22, 2004 12:51
Antworten mit Zitat

@Edlothiol
Das ist Absicht und logischer , so wie man halt auf den Screen
die Menüs durch zählen würde .
Aber da könnte man ein Extra Menü unter bringen für den
Programmierer , quasi versteckt Smile

Übersicht

BlitzBasic

Codearchiv

Nach Oben

BlitzBasic Portal

Kleines Menü mit Auswahl per Tastatur

Betreff: Kleines Menü mit Auswahl per Tastatur