FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 12:49:34 +00:00
Code Issues Releases Wiki Activity

FS20_ZDR: Programming support

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@7392 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
klassm 2015-01-01 16:35:20 +00:00
parent 0845ae501c
commit f4125b04f3
1 changed files with 38 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
fhem/contrib/98_FS20_ZDR.pm
View File

@ -89,8 +89,32 @@ fs20_set {
} elsif ($v eq "8") { } elsif ($v eq "8") {
return "no 7_8 device set" if $prog_7_8dev eq ""; return "no 7_8 device set" if $prog_7_8dev eq "";
fhem("set $prog_7_8dev on"); fhem("set $prog_7_8dev on");
} elsif ($v eq "program_1") {
return "no 1_2 device set" if $prog_1_2dev eq "";
fs20_zdr_program($prog_1_2dev, "dimdown");
} elsif ($v eq "program_2") {
return "no 1_2 device set" if $prog_1_2dev eq "";
fs20_zdr_program($prog_1_2dev, "dimup");
} elsif ($v eq "program_3") {
return "no 3_4 device set" if $prog_3_4dev eq "";
fs20_zdr_program($prog_3_4dev, "dimdown");
} elsif ($v eq "program_4") {
return "no 3_4 device set" if $prog_3_4dev eq "";
fs20_zdr_program($prog_3_4dev, "dimup");
} elsif ($v eq "program_5") {
return "no 5_6 device set" if $prog_5_6dev eq "";
fs20_zdr_program($prog_5_6dev, "dimdown");
} elsif ($v eq "program_6") {
return "no 5_6 device set" if $prog_5_6dev eq "";
fs20_zdr_program($prog_5_6dev, "dimup");
} elsif ($v eq "program_7") {
return "no 7_8 device set" if $prog_7_8dev eq "";
fs20_zdr_program($prog_7_8dev, "dimdown");
} elsif ($v eq "program_8") {
return "no 7_8 device set" if $prog_7_8dev eq "";
fs20_zdr_program($prog_7_8dev, "dimup");
} else { } else {
return "unknown set value, choose one of on off toggle volume_up volume_down left right sleep ms 1 2 3 4 5 6 7 8"; return "unknown set value, choose one of on off toggle volume_up volume_down left right sleep ms 1 2 3 4 5 6 7 8 program_1 program_2 program_3 program_4 program_5 program_6 program_7 program_8";
} }
if ($v eq "on" || $v eq "off") { if ($v eq "on" || $v eq "off") {
@ -106,6 +130,18 @@ fs20_set {
return undef; return undef;
} }
sub
fs20_zdr_program($$)
{
my ($deviceName, $command) = @_;
my $toSend = "";
for (my $i=0; $i<30; $i++) {
fhem("sleep 0.15");
fhem("set $deviceName $command");
}
return undef;
}
sub sub
fs20_zdr_Define($$) fs20_zdr_Define($$)
{ {