Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

added dimUp and dimDown commands (idea by daduke)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@4295 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme-1968 2013-11-28 19:24:47 +00:00
parent 63d6679401
commit 593fcbae14
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
FHEM/31_HUEDevice.pm
View File

@ -210,6 +210,22 @@ HUEDevice_SetParam($$@)
$obj->{'on'} = JSON::true; $obj->{'on'} = JSON::true;
$obj->{'bri'} = 0+$value; $obj->{'bri'} = 0+$value;
$obj->{'transitiontime'} = $value2 / 10 if( defined($value2) ); $obj->{'transitiontime'} = $value2 / 10 if( defined($value2) );
} elsif($cmd eq "dimUp") {
my $bri = ReadingsVal($name,"bri","0");
$bri += 25;
$bri = 254 if( $bri > 254 );
$obj->{'on'} = JSON::true;
$obj->{'bri'} = 0+$bri;
$obj->{'transitiontime'} = 1;
#$obj->{'transitiontime'} = $value / 10 if( defined($value) );
} elsif($cmd eq "dimDown") {
my $bri = ReadingsVal($name,"bri","0");
$bri -= 25;
$bri = 0 if( $bri < 0 );
$obj->{'on'} = JSON::true;
$obj->{'bri'} = 0+$bri;
$obj->{'transitiontime'} = 1;
#$obj->{'transitiontime'} = $value / 10 if( defined($value) );
} elsif($cmd eq "ct") { } elsif($cmd eq "ct") {
$obj->{'on'} = JSON::true; $obj->{'on'} = JSON::true;
$obj->{'ct'} = 0+$value; $obj->{'ct'} = 0+$value;
@ -321,6 +337,7 @@ HUEDevice_Set($@)
my $list = "off:noArg on:noArg toggle:noArg statusRequest:noArg"; my $list = "off:noArg on:noArg toggle:noArg statusRequest:noArg";
$list .= " pct:slider,0,1,100 bri:slider,0,1,254 alert:none,select,lselect" if( AttrVal($name, "subType", "colordimmer") =~ m/dimmer/ ); $list .= " pct:slider,0,1,100 bri:slider,0,1,254 alert:none,select,lselect" if( AttrVal($name, "subType", "colordimmer") =~ m/dimmer/ );
$list .= " dimUp:noArg dimDown:noArg" if( AttrVal($name, "subType", "colordimmer") =~ m/dimmer/ );
#$list .= " dim06% dim12% dim18% dim25% dim31% dim37% dim43% dim50% dim56% dim62% dim68% dim75% dim81% dim87% dim93% dim100%" if( AttrVal($hash->{NAME}, "subType", "colordimmer") =~ m/dimmer/ ); #$list .= " dim06% dim12% dim18% dim25% dim31% dim37% dim43% dim50% dim56% dim62% dim68% dim75% dim81% dim87% dim93% dim100%" if( AttrVal($hash->{NAME}, "subType", "colordimmer") =~ m/dimmer/ );
$list .= " rgb:colorpicker,RGB color:slider,2000,1,6500 ct:slider,154,1,500 hue:slider,0,1,65535 sat:slider,0,1,254 xy effect:none,colorloop" if( AttrVal($hash->{NAME}, "subType", "colordimmer") =~ m/color/ ); $list .= " rgb:colorpicker,RGB color:slider,2000,1,6500 ct:slider,154,1,500 hue:slider,0,1,65535 sat:slider,0,1,254 xy effect:none,colorloop" if( AttrVal($hash->{NAME}, "subType", "colordimmer") =~ m/color/ );
return SetExtensions($hash, $list, $name, @aa); return SetExtensions($hash, $list, $name, @aa);
@ -684,6 +701,8 @@ HUEDevice_GetUpdate($)
set colortemperature to &lt;value&gt; kelvin.</li> set colortemperature to &lt;value&gt; kelvin.</li>
<li>bri &lt;value&gt;<br> <li>bri &lt;value&gt;<br>
set brighness to &lt;value&gt;; range is 1-254.</li> set brighness to &lt;value&gt;; range is 1-254.</li>
<li>dimUp</li>
<li>dimDown</li>
<li>ct &lt;value&gt;<br> <li>ct &lt;value&gt;<br>
set colortemperature to &lt;value&gt; mireds; range is 154-500.</li> set colortemperature to &lt;value&gt; mireds; range is 154-500.</li>
<li>hue &lt;value&gt;<br> <li>hue &lt;value&gt;<br>