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

Tastendruck-freie Mindestzeit abwarten

Uploader:AdministratorSebastian
Datum/Zeit:20.01.2014 15:52:53

Const keyboardFreeInterval = 1.0

Declare Sub WaitUntilKeyboardIsEmpty()

Dim x As String

Print "Drueck nach deinen Eingaben gaaaaanz lange ENTER."
Print "Du wirst sehen, du kommst erst zur naechsten Eingabe, wenn du die ENTER-Taste"
Print "zwischendurch loslaesst."

Input "Dein Name? ", x

WaitUntilKeyboardIsEmpty

' Zweite Eingabe
Input "Wann hast du Geburtstag? ", x

WaitUntilKeyboardIsEmpty

Print "Voila."
Sleep
End






Sub WaitUntilKeyboardIsEmpty()
    Dim As Double  t
    Dim As Integer keyPressed
    Do
        t = Timer
        keyPressed = 0
        Do
            If (Inkey <> "") Then
                keyPressed = 1
            End If
            Sleep 1
        Loop Until (Abs(Timer-t) > keyboardFreeInterval)
    Loop Until (keyPressed = 0)
End Sub