Sorry your browser is not supported!

Rem Project: keyboardcodes
Rem Created: 5/1/2005 10:34:31 AM

Rem ***** Main Source File *****
rem Standard Setup Code
sync on : sync rate 0 :
backdrop on
color backdrop rgb(0,0,0) : hide mouse
set text font "arial" : set text size 14 : set text transparent


sw=screen width()/2

do
center text sw,0,"Input the key you wish to find code for."
got=scancode()
got$=inkey$()
if scancode()<>0
center text sw,30,"You have Pressed the "+got$+" key."
center text sw,40,"This has the scancode number of "+str$(scancode())
center text sw,50,"This has the ASCII number of "+str$(asc(got$))
center text sw,60,"This has the BIN of "+bin$(asc(got$))
center text sw,70,"This has the HEX of "+hex$(asc(got$))
endif
sync
loop

Rem Project: keyboardcodes
Rem Created: 5/1/2005 10:34:31 AM

Rem ***** Main Source File *****
rem Standard Setup Code
set window on
set window title "Keyboard code checker"
set window layout 1,1,1
set display mode 600,400,32
sync on : sync rate 0 :
backdrop on
color backdrop rgb(0,0,0) : hide mouse
set text font "arial" : set text size 24 : set text transparent


sw=screen width()/2
th=text height("W")
do
center text sw,0,"Input the key you wish to find code for."
got=scancode()
got$=inkey$()
if scancode()<>0
center text sw,30+th,"You have Pressed the "+got$+" key."
center text sw,30+th*2,"This has the scancode number of "+str$(scancode())
center text sw,30+th*3,"This has the ASCII number of "+str$(asc(got$))
center text sw,30+th*4,"This has the BIN of "+bin$(asc(got$))
center text sw,30+th*5,"This has the HEX of "+hex$(asc(got$))
endif
sync
loop