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

Inkey-Test

Uploader:Redakteurytwinky
Datum/Zeit:25.08.2007 21:24:35

Const Esc=27
Dim Mode As uInteger
?"F10 funktioniert in Screen 0"
Input"Screen-Modus:", Mode
Screen Mode
Dim c As String
Do
  Do
    c=Inkey
    Sleep 1
  Loop Until c<>""
  ?c[0] &" " &IIF(Len(c)>1, Asc(Mid(c, 2)), 32) &" ";
Loop Until c[0]=Esc