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-Zeichencode zerlegen

Uploader:AdministratorSebastian
Datum/Zeit:15.05.2010 16:44:10

DIM AS USHORT Result
DIM AS UBYTE A, B

PRINT "Taste druecken."

Result = 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

SLEEP