Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [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

Noch besser ;p

Uploader:Mitgliedcsde_rats
Datum/Zeit:13.10.2007 20:20:22

' Seit wann gibts 'var' in FB!?
'So läuft es auf alle Fälle unter FB0.181f
'Ohne zusätzliche Compilerschalter
dim as integer LockMode, DateiNr
LockMode=0
DateiNr=FREEFILE
Open "lock" For Binary As #DateiNr
    Input #DateiNr, LockMode
Close #DateiNr
Print *IIF(Lockmode, @"Block", @"OK")

If LockMode=0 Then
  OPEN "lock" For Output As #DateiNr
    Print #DateiNr, 1
  Close #DateiNr
End If

Sleep
If LockMode=0 Then Kill "lock"
'..
End