diff --git a/fhem/CHANGED b/fhem/CHANGED index dd7c93b84..f709f8f5d 100644 --- a/fhem/CHANGED +++ b/fhem/CHANGED @@ -1,5 +1,7 @@ # Add changes at the top of the list. Keep it in ASCII - SVN + - feature: new module 35_SWAP_0000002200000003 for panstamp rgb led driver + board with ir and dmx support - feature: 95_remotecontrol does not require a weblink anymore (UliM) - feature: optional sleep parameter quiet - feature: additional buttons for use with 95_remotecontrol diff --git a/fhem/FHEM/35_SWAP_0000002200000003.pm b/fhem/FHEM/35_SWAP_0000002200000003.pm new file mode 100755 index 000000000..f164b2a1a --- /dev/null +++ b/fhem/FHEM/35_SWAP_0000002200000003.pm @@ -0,0 +1,428 @@ + +# $Id$ +package main; + +use strict; +use warnings; + +use Color; + +use constant CMD_REG => '0F'; + +use constant { CMD_NOOP => '00', + RET_OK => '05', + RET_ERR => '06', + CMD_On => '10', + CMD_Off => '11', + CMD_DimUp => '12', + CMD_DimDown => '13', + CMD_OnForTimer => '14', + CMD_Toggle => '20', + CMD_GetIR => '30', + CMD_SetIR => '31', + CMD_LearnIR => '32', + CMD_GetFade => '40', + CMD_SetFade => '41', + CMD_StartFade => '42', + CMD_RESET => 'FF', }; + +my %dim_values = ( + 0 => "dim06%", + 1 => "dim12%", + 2 => "dim18%", + 3 => "dim25%", + 4 => "dim31%", + 5 => "dim37%", + 6 => "dim43%", + 7 => "dim50%", + 8 => "dim56%", + 9 => "dim62%", + 10 => "dim68%", + 11 => "dim75%", + 12 => "dim81%", + 13 => "dim87%", + 14 => "dim93%", +); + + +sub +SWAP_0000002200000003_Initialize($) +{ + my ($hash) = @_; + + require "$attr{global}{modpath}/FHEM/34_SWAP.pm"; + require "$attr{global}{modpath}/FHEM/31_HUEDevice.pm"; + + $hash->{SWAP_SetFn} = "SWAP_0000002200000003_Set"; + $hash->{SWAP_SetList} = { off => 0, on => 0, "on-for-timer" => 1, fadeTo => 2, + "rgb:colorpicker,RGB" => 1, + toggle => 0, + dimUp => 0, dimDown => 0, + getIR => 1, setIR => 2, learnIR => 1, storeIR => 3, + getFade => 1, setFade => 3, startFade => 2, + reset => 0 }; + $hash->{SWAP_GetFn} = "SWAP_0000002200000003_Get"; + $hash->{SWAP_GetList} = { devStateIcon => 0, rgb => 0, RGB => 0, pct => 0, + listIR => 0, + listFade => 0 }; + $hash->{SWAP_ParseFn} = "SWAP_0000002200000003_Parse"; + + my $ret = SWAP_Initialize($hash); + + $hash->{AttrList} .= " color-icons:1,2"; + + #$hash->{FW_summaryFn} = "SWAP_0000002200000003_summaryFn"; + + $data{webCmdFn}{colorpicker} = "FHEM_colorpickerFn"; + $data{FWEXT}{"/"}{SCRIPT} = "/jscolor/jscolor.js"; + + return $ret; +} + +sub +SWAP_0000002200000003_devStateIcon($@) +{ + my($hash,$state) = @_; + $hash = $defs{$hash} if( ref($hash) ne 'HASH' ); + + return undef if( !$hash ); + + my $name = $hash->{NAME}; + my $rgb = CommandGet("","$name rgb"); + $rgb = $state if( $state ); + $state = ReadingsVal($name,"state","off") if( !$state ); + + return undef if( !defined($attr{$name}{ProductCode}) ); + return undef if( $attr{$name}{ProductCode} ne '0000002200000003' ); + + return undef if( $state eq "off" ); + + my ($pct,$RGB) = SWAP_0000002200000003_rgbToPct($rgb); + my $s = $dim_values{int($pct/7)}; + + return ".*:$s@#".$RGB.":toggle" if( $pct < 100 && AttrVal($name, "color-icons", 0) == 2 ); + return ".*:on@#".$rgb.":toggle" if( AttrVal($name, "color-icons", 0) != 0 ); + + return ".*:on@#".$rgb.":toggle"; + + return '
'; +} + +sub +SWAP_0000002200000003_summaryFn($$$$) +{ + my ($FW_wname, $d, $room, $pageHash) = @_; # pageHash is set for summaryFn. + my $hash = $defs{$d}; + my $name = $hash->{NAME}; + + return SWAP_0000002200000003_devStateIcon( $hash ); +} + +sub +SWAP_0000002200000003_Watchdog($) +{ + my ($hash) = @_; + readingsSingleUpdate($hash, "state", "off", 1); +} + +sub +SWAP_0000002200000003_Parse($$$$) +{ + my ($hash, $reg, $func, $data) = @_; + my $name = $hash->{NAME}; + + if( $reg == 0x00 ) { + my $productcode = $data; + $attr{$name}{devStateIcon} = '{(SWAP_0000002200000003_devStateIcon($name),"toggle")}' if( $productcode eq '0000002200000003'&& !defined( $attr{$name}{devStateIcon} ) ); + $attr{$name}{webCmd} = 'rgb:rgb ff0000:rgb 00ff00:rgb 0000ff:toggle:on:off' if( $productcode eq '0000002200000003'&& !defined( $attr{$name}{webCmd} ) ); + } elsif( $reg == hex(CMD_REG) ) { + if( defined($hash->{waiting_for_ir_cmd}) ) { + my $ir_reg = $hash->{ir_reg}->[$hash->{waiting_for_ir_cmd}]; + $ir_reg->{command} = $data; + delete($hash->{waiting_for_ir_cmd}); + } else { + my $cmd = substr( $data, 0, 2 ); + if( $cmd eq "30" ) { + my $reg = substr( $data, 2, 2 ); + my $ir_value = substr( $data, 4, 8 ); + my %ir_reg; + $ir_reg{ir_value} = $ir_value; + $hash->{ir_reg}->[hex($reg)] = \%ir_reg; + $hash->{waiting_for_ir_cmd} = hex($reg); + } + elsif( $cmd eq CMD_GetFade || $cmd eq CMD_SetFade ) { + my $reg = substr( $data, 2, 2 ); + my $fade_rgb = substr( $data, 4, 6 ); + my $fade_time = substr( $data, 10, 2 ); + my %fade_reg; + $fade_reg{fade_rgb} = $fade_rgb; + $fade_reg{fade_time} = $fade_time; + $hash->{fade_reg}->[hex($reg)] = \%fade_reg; + } + } + } elsif( $reg == 0x0B ) { + CommandTrigger( "", "$name RGB: $data" ); + } + + RemoveInternalTimer($hash); + InternalTimer(gettimeofday()+hex($hash->{'SWAP_0A-PeriodicTxInterval'})+10, "SWAP_0000002200000003_Watchdog", $hash, 1) if( defined $hash->{'SWAP_0A-PeriodicTxInterval'} ); +} + +sub +SWAP_0000002200000003_Set($@) +{ + my ($hash, $name, $cmd, $arg, $arg2, $arg3) = @_; + + InternalTimer(gettimeofday()+10, "SWAP_0000002200000003_Watchdog", $hash, 1); + + #$cmd = (ReadingsVal( $name, "0B-RGBlevel", "FFFFFF" ) eq "000000" ? "on" :"off") if( $cmd eq "toggle" ); + + if( $cmd eq "on" ) { + return( "regSet", CMD_REG, CMD_On."FFFFFF0000" ); + } elsif( $cmd eq "on-for-timer" ) { + return( "regSet", CMD_REG, CMD_OnForTimer. sprintf( "%04X",$arg ) ."000000" ) if( $arg =~ /^\d{1,4}$/ ); + return (undef, "$arg not a valid time" ); + } elsif( $cmd eq "off" ) { + return( "regSet", CMD_REG, CMD_Off."0000000000" ); + } elsif( $cmd eq "toggle" ) { + return( "regSet", CMD_REG, CMD_Toggle."0000000000" ); + } elsif( $cmd eq "rgb" ) { + return( "regSet", CMD_REG, CMD_On.$arg."0000" ) if( $arg =~ /^[\da-f]{6}$/i ); + return (undef, "$arg is not a valid rgb color" ); + } elsif( $cmd eq "fadeTo" ) { + return (undef, "$arg2 not a valid time" ) if( $arg2 !~ /^\d{1,2}$/ ); + return( "regSet", CMD_REG, CMD_On.$arg.sprintf( "%02X",$arg2 )."00" ) if( $arg =~ /^[\da-f]{6}$/i ); + return (undef, "$arg is not a valid rgb color" ); + } elsif( $cmd eq "dimUp" ) { + return( "regSet", CMD_REG, CMD_DimUp."0000000000" ); + } elsif( $cmd eq "dimDown" ) { + return( "regSet", CMD_REG, CMD_DimDown."0000000000" ); + } elsif( $cmd eq "getIR" ) { + if( $arg eq "all" ) { + for( my $reg = 0; $reg <= 0xF; ++$reg) { + SWAP_Send($hash, $hash->{addr}, "02", CMD_REG, CMD_GetIR."0".sprintf("%1X",$reg)."00000000" ); + } + return undef; + } + return( "regSet", CMD_REG, CMD_GetIR."0".sprintf("%1X",$arg)."00000000" ) if( $arg =~ /^(\d|0\d|1[0-5])$/ ); + return (undef, "$arg is not a valid ir register number" ); + } elsif( $cmd eq "setIR" ) { + return (undef, "$arg2 not a valid ir value" )if( $arg2 !~ /^[\da-f]{8}$/i ); + return( "regSet", CMD_REG, CMD_SetIR."0".sprintf("%1X",$arg).$arg2 ) if( $arg =~ /^(\d|0\d|1[0-5])$/ ); + return (undef, "$arg is not a valid ir register" ); + } elsif( $cmd eq "learnIR" ) { + return( "regSet", CMD_REG, CMD_LearnIR."0".sprintf("%1X",$arg)."00000000" ) if( $arg =~ /^(\d|0\d|1[0-5])$/ ); + return (undef, "$arg is not a valid ir register number" ); + } elsif( $cmd eq "storeIR" ) { + return (undef, "$arg is not a valid ir register number" ) if( $arg !~ /^(\d|0\d|1[0-5])$/ ); + return (undef, "$arg2 not a valid ir value" )if( $arg2 !~ /^[\da-f]{8}$/i ); + return (undef, "$arg3 not a valid command" ) if( $arg3 !~ /^[\da-f]{12}$/i ); + SWAP_Send($hash, $hash->{addr}, "02", CMD_REG, CMD_SetIR."0".sprintf("%1X",$arg).$arg2 ); + SWAP_Send($hash, $hash->{addr}, "02", CMD_REG, $arg3 ); + return( "regSet", CMD_REG, CMD_GetIR."0".sprintf("%1X",$arg)."00000000" ); + } elsif( $cmd eq "getFade" ) { + if( $arg eq "all" ) { + for( my $reg = 0; $reg <= 0xF; ++$reg) { + SWAP_Send($hash, $hash->{addr}, "02", CMD_REG, CMD_GetFade."0".sprintf("%1X",$reg)."00000000" ); + } + return undef; + } + return( "regSet", CMD_REG, CMD_GetFade."0".sprintf("%1X",$arg)."00000000" ) if( $arg =~ /^(\d|0\d|1[0-5])$/ ); + return (undef, "$arg is not a valid fade register number" ); + } elsif( $cmd eq "setFade" ) { + return (undef, "$arg2 not a valid rgb value" ) if( $arg2 !~ /^[\da-f]{6}$/i ); + return (undef, "$arg3 not a valid time value" ) if( $arg3 !~ /^[\da-f]{1,3}$/i ); + return( "regSet", CMD_REG, CMD_SetFade."0".sprintf("%1X",$arg).$arg2.sprintf( "%02X",$arg3 ) ) if( $arg =~ /^(\d|0\d|1[0-5])$/ ); + return (undef, "$arg not a valid fade register" ); + } elsif( $cmd eq "startFade" ) { + return (undef, "$arg is not a valid fade register number" ) if( $arg !~ /^(\d|0\d|1[0-5])$/ ); + return( "regSet", CMD_REG, CMD_StartFade."0".sprintf("%1X",$arg)."0".sprintf( "%1X",$arg2 )."000000" ) if( $arg2 =~ /^(\d|0\d|1[0-5])$/ ); + return (undef, "$arg2 not a valid fade register number" ); + } elsif( $cmd eq "reset" ) { + return( "regSet", CMD_REG, CMD_RESET."0000000000" ); + } + + return undef; +} + +sub +SWAP_0000002200000003_max($@) +{ + my ($max, @vars) = @_; + for (@vars) { + $max = $_ if $_ > $max; + } + return $max; +} + +sub +SWAP_0000002200000003_rgbToPct($) +{ + my ($rgb) = @_; + + $rgb = "000000" if( $rgb eq "off" ); + $rgb = "FFFFFF" if( $rgb eq "on" ); + + if( $rgb =~ m/([\da-f]{2})([\da-f]{2})([\da-f]{2})/i ) { + my( $r, $g, $b ) = (hex($1), hex($2), hex($3)); + my $f = SWAP_0000002200000003_max($r,$g,$b); + my $p = $f / 2.55; + $f = 255.0 / $f if( $f > 0 ); + return (int($p), sprintf( "%02x%02x%02x", $f*$r, $f*$g, $f*$b )); + } + + return (0,undef) ; +} +sub +SWAP_0000002200000003_Get($@) +{ + my ($hash, $name, $cmd, @a) = @_; + + if( $cmd eq 'rgb' ) { + return ReadingsVal( $name, "0B-RGBlevel", undef ); + } elsif( $cmd eq 'RGB' ) { + my ($pct,$RGB) = SWAP_0000002200000003_rgbToPct(ReadingsVal( $name, "0B-RGBlevel", undef)); + return $RGB; + } elsif( $cmd eq 'pct' ) { + my ($pct,$RGB) = SWAP_0000002200000003_rgbToPct(ReadingsVal( $name, "0B-RGBlevel", undef)); + return $pct + " "; + } elsif( $cmd eq 'devStateIcon' ) { + return SWAP_0000002200000003_devStateIcon( $hash ); + } elsif( $cmd eq 'listIR' ) { + my $ret = "no ir registers known"; + + if( defined($hash->{ir_reg}) ) { + $ret = "known ir registers:\n"; + $ret .= sprintf( "%s\t%s\t%s\n", "reg", "ir_value", "command" ); + + for( my $reg = 0; $reg <= 0xF; ++$reg) { + if( defined($hash->{ir_reg}->[$reg]) ) { + $ret .= sprintf( "%02i\t%8s\t%s\n", $reg, $hash->{ir_reg}->[$reg]->{ir_value}, $hash->{ir_reg}->[$reg]->{command} ); + } + } + } + + return $ret; + } elsif( $cmd eq 'listFade' ) { + my $ret = "no fade registers known"; + + if( defined($hash->{fade_reg}) ) { + $ret = "known fade registers:\n"; + $ret .= sprintf( "%s\t%s\t%s\n", "reg", "rgb", "time" ); + + for( my $reg = 0; $reg <= 0xF; ++$reg) { + if( defined($hash->{fade_reg}->[$reg]) ) { + $ret .= sprintf( "%02i\t%6s\t%4s\n", $reg, $hash->{fade_reg}->[$reg]->{fade_rgb}, $hash->{fade_reg}->[$reg]->{fade_time} ); + } + } + } + + return $ret; + } + + return undef; +} + +1; + +=pod +=begin html + + +

SWAP_0000002200000003

+ + +=end html +=cut diff --git a/fhem/MAINTAINER.txt b/fhem/MAINTAINER.txt index a5392dc26..931179fa6 100644 --- a/fhem/MAINTAINER.txt +++ b/fhem/MAINTAINER.txt @@ -87,6 +87,7 @@ FHEM/32_SYSSTAT.pm justme1968 http://forum.fhem.de Unterst FHEM/32_speedtest.pm justme1968 http://forum.fhem.de Sonstiges FHEM/34_panStamp.pm justme1968 http://forum.fhem.de Sonstiges Systeme FHEM/34_SWAP.pm justme1968 http://forum.fhem.de Sonstiges Systeme +FHEM/35_SWAP_0000002200000003.pm justme1968 http://forum.fhem.de Sonstiges Systeme FHEM/40_RFXCOM.pm wherzig http://forum.fhem.de RFXTRX FHEM/41_OREGON.pm wherzig http://forum.fhem.de Sonstiges FHEM/42_RFXMETER.pm wherzig http://forum.fhem.de RFXTRX