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!

fb:porticula NoPaste

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

Nur so

Uploader:MitgliedEmporea1997
Datum/Zeit:24.09.2011 22:25:47

Screen 18
#Include "fbgfx.bi"
Dim As Integer x = 25
Dim As FB.EVENT Ptr event1
Do
    cls
    COLOR &hFF0000, &hFF0000
    Cls
    Sleep x,1
    COLOR &h7CFC00, &h7CFC00
    Cls
    Sleep x,1
    COLOR &hFF00FF, &hFF00FF
    Cls
    Sleep x,1

    If (ScreenEvent(event1)) Then
        Select Case event1->Type
            Case FB.EVENT_WINDOW_CLOSE
                End
        End Select
    End If

Loop