 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
starki
Anmeldungsdatum: 20.11.2011
Beiträge: 1
|
 Verfasst am: 20.11.2011, 21:56 Titel: Befehl für Tastendruck |
 |
|
Hallo Leute,
ich bin neu bei Freebasic und ich hab gleich mal eine frage: Gibt es einen befehl für Freebasic, bei dem man auf einen Tastendruck vom Benutzer wartet? |
|
| Nach oben |
|
 |
Sebastian
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
|
| Verfasst am: 20.11.2011, 22:12 Titel: |
|
|
Hallo und willkommen im Forum!
Es gibt sogar mehrere Befehle, die das Programm anhalten, bis der Benutzer eine Taste drückt. Der gängigste davon ist SLEEP (siehe Befehlsreferenz):
| Code: | Print "Druecken Sie eine beliebige Taste!"
Print
Sleep 'Beliebig lange auf irgendeine Taste warten.
Print "Na, das klappt doch schon mal prima! Druecken Sie jetzt die Taste X."
Print
Do
Sleep 10 '10ms warten. Dann wieder pruefen, ...
Loop Until UCase(Inkey) = "X" '... ob der Benutzer X gedrueckt hat und ggf. Schleife verlassen
Print "Gut, das war ein X. Druecken Sie jetzt eine beliebige Taste, um fortzufahren."
Print
GetKey 'Beliebig lange auf irgendeine Taste warten.
Print "OK. Jetzt bitte noch mal eine Taste druecken,"
Print "am besten einen Buchstaben oder eine Zahl."
Print
Dim Eingabe As String
Eingabe = Input(1)
Print "Danke! Sie haben "; Eingabe; " gedrueckt (ASCII Code "; Str(Asc(Eingabe)); ")."
Print
Print "Druecken Sie jetzt eine beliebige Taste, um das Programm zu beenden,"
Print "oder warten Sie einfach 7 Sekunden."
Sleep 7000 '7000 ms = 7 s warten (oder bis Taste gedrueckt wird)
End |
Der Code oben zeigt 5 verschiedene Möglichkeiten, auf einen Tastendruck zu warten.
Weitere Informationen gibt es auch in diesem Einsteiger-Tutorial: http://www.freebasic-portal.de/tutorials/anfaengerkurs-1-wichtigste-befehle-7.html
Viele Grüße!
Sebastian
_________________
Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen! |
|
| Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
