mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

WinMatic virtual key simulation (orig. by Frank)

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@918 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
pest
2011-06-23 19:40:58 +00:00
parent 171a5d4aec
commit 97d8768338
1 changed files with 71 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
fhem/FHEM/10_CUL_HM.pm
View File

@@ -580,7 +580,7 @@ my %culHmSubTypeSets = (
remote => remote =>
{ text => "<btn> [on|off] <txt1> <txt2>" }, { text => "<btn> [on|off] <txt1> <txt2>" },
winMatic => winMatic =>
{ matic => "<btn>" }, { matic => "<btn>", read => "<btn>", config => "<btn> <txt1> <txt2>", create => "<txt>" },
); );
my %culHmModelSets = ( my %culHmModelSets = (
"HM-CC-TC"=> "HM-CC-TC"=>
@@ -764,6 +764,75 @@ CUL_HM_Set($@)
$sndcmd = sprintf("++B03E%s%s%s40%02X%s", $id, $dst, $id, $a[2], $chn); $sndcmd = sprintf("++B03E%s%s%s40%02X%s", $id, $dst, $id, $a[2], $chn);
} elsif($cmd eq "create") { ###################################
$sndcmd = sprintf("++B001%s%s0101%s%02X%s", $id, $dst, $id, $a[2], $chn);
CUL_HM_SendCmd($hash, $sndcmd, 1, 1);
sleep(2);
$sndcmd = sprintf("++A001%s%s0104%s%02X%s", $id, $dst, $id, $a[2], $chn);
} elsif($cmd eq "read") { ###################################
$sndcmd = sprintf("++B001%s%s0104%s%02X03", $id, $dst, $id, $a[2]);
} elsif($cmd eq "config") { #####################################
if ($a[3] eq "tilt") {
$sndcmd = sprintf("++B001%s%s0105%s%02X03", $id, $dst, $id, $a[2]);
CUL_HM_SendCmd ($hash, $sndcmd, 2, 2);
$sndcmd = sprintf("++A001%s%s01080B220D838B228D83", $id, $dst);
sleep (2);
CUL_HM_SendCmd ($hash, $sndcmd, 2, 2);
sleep(2);
$sndcmd = sprintf("++A001%s%s0106", $id, $dst);
} elsif ($a[3] eq "close") {
$sndcmd = sprintf("++B001%s%s0105%s%02X03", $id, $dst, $id, $a[2]);
CUL_HM_SendCmd($hash, $sndcmd, 2, 2);
$sndcmd = sprintf("++A001%s%s01080B550D838B558D83", $id, $dst);
sleep(2);
CUL_HM_SendCmd($hash, $sndcmd, 2, 2);
sleep(2);
$sndcmd = sprintf("++A001%s%s0106", $id, $dst);
} elsif ($a[3] eq "closed") {
$sndcmd = sprintf("++B001%s%s0105%s%02X03", $id, $dst, $id, $a[2]);
CUL_HM_SendCmd($hash, $sndcmd , 2, 2);
$sndcmd = sprintf("++A001%s%s01080F008F00", $id, $dst);
sleep(2);
CUL_HM_SendCmd($hash, $sndcmd , 2, 2);
sleep(2);
$sndcmd = sprintf("++A001%s%s0106", $id, $dst);
} elsif ($a[3] eq "bolt") {
$sndcmd = sprintf("++B001%s%s0105%s%02X03", $id, $dst, $id, $a[2]);
CUL_HM_SendCmd($hash, $sndcmd , 2, 2);
$sndcmd = sprintf("++A001%s%s01080FFF8FFF", $id, $dst);
sleep(2);
CUL_HM_SendCmd($hash, $sndcmd , 2, 2);
sleep(2);
$sndcmd = sprintf("++A001%s%s0106", $id, $dst);
} elsif ($a[3] eq "delete") {
$sndcmd = sprintf("++B001%s%s0102%s%02X%s", $id, $dst, $id, $a[2], $chn);
} elsif ($a[3] eq "speedclose") {
$sndcmd = sprintf("++B001%s%s0105%s%02X03", $id, $dst, $id, $a[2]);
CUL_HM_SendCmd($hash, $sndcmd , 2, 2);
$sndcmd = $a[4]*2;
$sndcmd = sprintf("++A001%s%s010823%02XA3%02X", $id, $dst, $sndcmd, $sndcmd);
sleep(2);
CUL_HM_SendCmd($hash, $sndcmd , 2, 2);
sleep(2);
$sndcmd = sprintf("++A001%s%s0106", $id, $dst);
} elsif ($a[3] eq "speedtilt") {
$sndcmd = sprintf("++B001%s%s0105%s%02X03", $id, $dst, $id, $a[2]);
CUL_HM_SendCmd($hash, $sndcmd , 2, 2);
$sndcmd = $a[4]*2;
$sndcmd = sprintf("++A001%s%s010822%02XA2%02X", $id, $dst, $sndcmd, $sndcmd);
sleep(2);
CUL_HM_SendCmd($hash, $sndcmd , 2, 2);
sleep(2);
$sndcmd = sprintf("++A001%s%s0106", $id, $dst);
}
} }
if($state) { if($state) {