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

Einfacher Mikrotimer

Uploader:AdministratorSebastian
Datum/Zeit:20.03.2009 19:15:28

'"Beilage" zu Forenthread
'http://forum.qbasic.at/viewtopic.php?t=6380

DIM AS UINTEGER T1, T2
Do
    If Inkey = "" Then
        T2 = TIMER*1000
        IF T2 <> T1 Then
            LOCATE 1,1: PRINT T2
            T1 = T2
        End If
    Else
        Exit Do
    End If
    Sleep 1
Loop
End