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

Catch Me if U can

Uploader:MitgliedKey_Frogger
Datum/Zeit:25.09.2009 13:16:02

screen 18
Dim As Integer x, y, buttons





GetMouse (x, y, , buttons)
LINE (140, 80)-(180, 120), 15, BF
IF x = 140-180 then
    cls
    LINE (30, 80)-(70, 120), 15, BF
    sleep 75
end if
IF x = 80-120 then
    cls
    LINE (30, 80)-(70, 120), 15, BF
    sleep 75
end if



IF y = 140-180 then
    CLS
    Line (140, 200)-(180, 250), 15, BF
    sleep 75
end if

IF y = 80-120 then
    CLS
    Line (140, 200)-(180, 250), 15, BF
    sleep 75
end if





sleep