Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-07 22:29:19 +00:00
Code

37_harmony.pm: small keyboard fixes

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@6817 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme-1968 2014-10-27 09:17:33 +00:00
parent 0086efd7d4
commit b4647a89fa
1 changed files with 50 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
fhem/FHEM/37_harmony.pm
View File

@ -503,7 +503,23 @@ use constant { CTRL => 0x01,
RIGHT_GUI => 0x80, RIGHT_GUI => 0x80,
}; };
my %keys = ( '!' => '0700001E', my %keys = ( '1' => '0702001E',
'2' => '0702001F',
'3' => '07020020',
'4' => '07020021',
'5' => '07020022',
'6' => '07020023',
'7' => '07020024',
'8' => '07020025',
'9' => '07020026',
'0' => '07020027',
'\\n'=> '07000028',
'\\e'=> '07000029',
'\\t'=> '0700002B',
' ' => '0700002C',
'!' => '0702001E',
'"' => '0702001F', '"' => '0702001F',
'§' => '07020020', '§' => '07020020',
'$' => '07020021', '$' => '07020021',
@ -521,7 +537,7 @@ my %keys = ( '!' => '0700001E',
'#' => '07000031', '#' => '07000031',
'ö' => '07000033', 'ö' => '07000033',
'ä' => '07000034', 'ä' => '07000034',
'^' => '07000035', '<' => '07000035',
',' => '07000036', ',' => '07000036',
'.' => '07000037', '.' => '07000037',
'-' => '07000038', '-' => '07000038',
@ -533,10 +549,40 @@ my %keys = ( '!' => '0700001E',
"'" => '07020031', "'" => '07020031',
'Ö' => '07020033', 'Ö' => '07020033',
'Ä' => '07020034', 'Ä' => '07020034',
'>' => '07020035',
';' => '07020036', ';' => '07020036',
':' => '07020037', ':' => '07020037',
'_' => '07020038', '_' => '07020038',
);
'F1' => '0700003A',
'F2' => '0700003B',
'F3' => '0700003C',
'F4' => '0700003D',
'F5' => '0700003E',
'F6' => '0700003F',
'F7' => '07000040',
'F8' => '07000041',
'F9' => '07000042',
'F10' => '07000043',
'F11' => '07000044',
'F12' => '07000045',
'KP/' => '07000054',
'KP*' => '07000055',
'KP-' => '07000056',
'KP+' => '07000057',
'KP\\n' => '07000058',
'KP1' => '07000059',
'KP2' => '0700005A',
'KP3' => '0700005C',
'KP4' => '0700005C',
'KP5' => '0700005D',
'KP6' => '0700005E',
'KP7' => '0700005F',
'KP8' => '07000060',
'KP9' => '07000061',
'KP0' => '07000062',
);
sub sub
@ -546,17 +592,7 @@ harmony_char2hid($)
Log 1, $char; Log 1, $char;
my $ret; my $ret;
if( $char eq ' ' ) { if( $char ge '1' && $char le '9' ) {
$ret = '0700002C';
} elsif( $char eq '\\n' ) {
$ret = '07000028';
} elsif( $char eq '\\e' ) {
$ret = '07000029';
} elsif( $char eq '\\t' ) {
$ret = '0700002B';
} elsif( $char eq '0' ) {
$ret = '07000027';
} elsif( $char ge '1' && $char le '9' ) {
$ret = sprintf( "070000%02X", 0x1E + ord($char) - ord('1') ); $ret = sprintf( "070000%02X", 0x1E + ord($char) - ord('1') );
} elsif( $char ge 'a' && $char le 'z' ) { } elsif( $char ge 'a' && $char le 'z' ) {
$ret = sprintf( "070000%02X", 0x04 + ord($char) - ord('a') ); $ret = sprintf( "070000%02X", 0x04 + ord($char) - ord('a') );