Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [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!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Programm beenden (SDL)

Uploader:MitgliedPMedia
Datum/Zeit:18.10.2007 02:43:39

#include  "SDL\SDL.bi"

Dim event As SDL_Event
Dim ende as integer

If (SDL_Init(SDL_INIT_VIDEO) < 0) Then
    Print "Couldn't initialize SDL: "; *SDL_GetError()
    End 1
End If

If (SDL_SetVideoMode(320, 240, 8, 0) = NULL) Then
    Print "Couldn't set 320x240x8 video mode: "; *SDL_GetError()
    End 1
End If

do while ende = 0
    do while (SDL_PollEvent(@event))
        if (event.type = SDL_QUIT_) Then
            ende = 1
        end if
    loop
loop