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

GetKey-InKey.bas

Uploader:RedakteurMOD
Datum/Zeit:15.05.2010 17:55:02

Dim As UShort Result, Result2
Dim As UByte A, B, A2, B2
Dim As String temp

Print "Taste druecken.",

Result = GetKey

Print "Ergebnisse fuer GetKey:"
Print "+------++------+"
Print Bin(Result,16) & " (dezimal: " & Result & ")"

A = (Result And &HFF)
B = (Result And &HFF00) Shr 8

Print
Print "Beide Bytes einzeln:"
Print Bin(A,8) & " = " & A
Print Bin(B,8) & " = " & B

Print "#################################"
Print
Print "Taste nochmal druecken.",

Sleep

Do
    temp = InKey
Loop While temp = ""
If Len(temp) = 2 Then
    Result2 = Val("&B" & Bin(Asc(Right(temp,1)),8) & Bin(Asc(Left(temp,1)),8))
Else
    Result2 = Val("&B" & Bin(0,8) & Bin(Asc(Left(temp,1)),8))
EndIf

Print "Ergebnisse fuer InKey:"
Print "+------++------+"
Print Bin(Result2,16) & " (dezimal: " & Result2 & ")"

A2 = (Result2 And &HFF)
B2 = (Result2 And &HFF00) Shr 8

Print
Print "Beide Bytes einzeln:"
Print Bin(A2,8) & " = " & A2
Print Bin(B2,8) & " = " & B2

Print "#################################"
Print

Print "GetKey und InKey unterscheiden sich dadurch, dass GetKey einen Zahlenwert und"
Print "InKey einen String zurueckgibt, die Werte sind allerdings die gleichen. Zudem"
Print "wartet InKey im Gegensatz zu GetKey nicht explizit auf einen Tastendruck, nach"
Print "dem Motto: kein Tastendruck ist auch ein Tastendruck."

Sleep