fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Illustration für GETKEY-Code

Uploader:	Sebastian
Datum/Zeit:	15.05.2010 16:37:21

DIM AS ZSTRING*3 A, B, C

DIM AS USHORT SA, SB, SC



A = CHR(255,72) '=Pfeil-Taste-Oben

B = CHR(65)

PRINT "Jetzt Pfeil-Taste-Oben druecken."



SC = GETKEY



SA = *(CAST(USHORT PTR,@A))

SB = *(CAST(USHORT PTR,@B))



PRINT "Bsp:"

PRINT "+------++------+"

PRINT BIN(SA,16) & " (" & SA & ")"

PRINT BIN(SB,16) & " (" & SB & ")"

PRINT

PRINT "Ergebnis von GETKEY:"

PRINT BIN(SC,16) & " (" & SC & ")"

PRINT "\______/"

PRINT " = " & VAL("&B"+LEFT(BIN(SC,16),8))



SLEEP

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.