Willkommen bei meinem neuen Tutorial über die Grundlagen von Blitz Plus!

 

Als erstes kommen wir mal zu den Grundlagen. Du benötigst mindestens die Blitz plus Demo www.blitzbasic.com , ein wenig Zeit und Spaß am Programmieren. In meinen Blitz Plus Tutorials geht es in erster Linie um die GUI Funktionen die Blitz Plus beherrscht. Wir beginnen mit der erstellung eines einfachen Fenster das man Schließen, Minimieren, Maximieren etc. kann.

Const Window_Close = $803

Wir erstellen eine Const Variable die wir später nutzen da mit wir das Fenster mit dem Kreuz rechts oben schließen können. Die $803 ist hierbei die Blitz Plus ID womit wir das Kreuz ansprechen können.

 

 

window = CreateWindow("Test",100,100,500,500,0,15)

Wir erstellen unser Fenster. Ich erläutere den Befehl CreateWindow mal ganz schnell.

CreateWindow(title$,x,y,width, height,group, style)

title$ = Name der Titel leiste

x = X position des Fensters

y = Y position des Fensters

width = X Größe des Fenster

height = Y Größe des Fensters

group = Optionaler Gadget Handle

style = Style des Fenster, auch Optional

Da lohnt es sich noch den style Parameter genauer unter die Lupe zu nehmen. Es gibt ziemlich viele möglichkeiten wie euer window aussehen kann.

1 = Das Fenster hat eine titel Leiste

2 = Das Fenster ist vergrößerbar.

4 = Das Fenster hat ein Menü

8 = Das Fenster hat eine Status bar

16 = Das Fenster ist ein Tool Fenster

Wie ihr gemerkt habt, habe ich dort eine 15 stehen. Das heißt, ich habe die ersten 4 Sachen zusammengenommen 1+2+4+8 Ergibt also 15 und ein Fenster mit allem drum und dran.

 

 

 

While Not KeyHit(1)

Hier fängt die Haupt schleife des Programms an. Die Schleife wird beendet wen man die Escape Taste drückt

 

 

Select WaitEvent()

Eine einfache Select...Case abfrage. Hiermit Fragen wir nach, was der Benutzer des Programms gerade mit dem Fenster macht. Ob er es Minimiert, Maximiert, Schließen will etc.

 

 

Case Window_Close
End

Unsere Abfrage. Wir Fragen nach, ob der Benutzer gerade das Fenster mit Hilfe des Kreuzes oben rechts schließen will. Wen er es macht, Beenden wir das Programm mit dem Befehl end

 

 

End Select

Ende der Select..Case abfrage. Mehr als das Programm beenden wen das Fenster geschlossen wird wollen wir ja noch nicht.

 

 

Wend

Ende der schleife.

 

Das war's auch schon. Wir haben ein Fenster erstellt und können es entweder mit Escape beenden oder indem man das Kreuz oben Rechts mit der Maus anklickt. Am Schluss werde ich immer das ganze Programm ans Ende schreiben. Viel Spaß noch und bis zum nächsten mal!

 

 

Const Window_Close = $803


window = CreateWindow("Test",100,100,500,500,0,15)


While Not KeyHit(1)

Select WaitEvent()

Case Window_Close
End

End Select

Wend

 

 

Mfg Suco-X