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

continue do fehler

Uploader:Mitgliedfrebas
Datum/Zeit:04.01.2009 20:52:04

#include "fbgfx.bi"
screen 20,,,&H08 or &H04
IF SCREENPTR = 0 THEN
   PRINT "Bildschirmmodus nicht initialisiert!"
   sleep
   END
END IF
windowtitle "test"
declare sub maus
dim shared as integer mausx, mausy,maustaste
dim shared as byte maustl,maustr,maustm
dim as integer freeram
threadcreate (cast(any ptr, @maus))
freeram=FRE/(1024*1024)
print freeram;" MB RAM frei"
sleep 3000,1
do
    screenlock
    cls
    print maustaste
    if maustl=1 then print "linke Maustaste"
    if maustr=1 then print "rechte Maustaste"
    if maustm=1 then print "mittlere Maustaste"
    print mausx,mausy
    if multikey(&h01) then end
    if inkey = CHR(255) + "k" then end
    screenunlock
    sleep 1,1
loop

sub maus
    do
        sleep 1,1
    do
        getmouse mausx, mausy,,maustaste

    if maustaste=-1 then continue do

        if maustaste >= 0 then
        if bit(maustaste,0)then
        maustl=1
        else
        maustl=0
        endif

        getmouse mausx, mausy,,maustaste
        if bit(maustaste,1)then
        maustr=1
        else
        maustr=0
        endif

        getmouse mausx, mausy,,maustaste
        if bit(maustaste,2)then
        maustm=1
        else
        maustm=0
        endif
        endif
        sleep 1,1
    loop
    sleep 1,1
    loop
end sub

end