Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Tutorial

Eventsystem

von RedakteurMODSeite 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

 

Gehe zu Seite Gehe zu Seite  1  2  3  4  5  
Zusätzliche Informationen und Funktionen
  • Das Tutorial wurde am 19.03.2010 von RedakteurMOD angelegt.
  • Die aktuellste Version wurde am 25.04.2010 von RedakteurMOD gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen