Tutorial
Eventsystem
von MOD | Seite 4 von 5 |
Der Code macht ja schon was er machen soll, allerdings stimmt die Syntax noch nicht ganz mit der des Anfangsbeispiels überein. Das können wir mit einigen Kniffen ändern:
'Die Applikation initieren
Dim As EventType APP
'Vereinfachung der Syntax für den User
#Define WindowScreen APP.windowCreate
#Define Button APP.buttonCreate
'Um jetzt noch einen Selbstläufer aus dem ganzen zu machen, definieren wir ein StartMacro
#Macro StartAPP()
Dim As String keyInput
APP.mutex = MutexCreate 'Mutex erstellen
'Hauptschleife des Fensters
Do
MutexLock(APP.mutex)
keyInput = InKey
MutexUnLock(APP.mutex)
Sleep 15
Loop While keyInput <> Chr(255, 107) 'X-Button zum Fenster schließen
APP.terminate = 1 'Thread beenden
ThreadWait(APP.eventSubThread) 'Auf Beendigung warten
MutexDestroy(APP.mutex)
DeAllocate(APP.newButtonArray) 'Gibt den Speicher wieder frei
#EndMacro
Zusätzliche Informationen und Funktionen | |||||||
---|---|---|---|---|---|---|---|
|