mirror of
https://github.com/fhem/fhem-mirror.git
synced 2024-06-17 05:40:11 +00:00
efce348c4c
51_RPI_GPIO.pm: removed (en | de) link in Commandref 52_I2C_BME280.pm: removed (en | de) link in Commandref 52_I2C_MCP23008.pm: removed (en | de) link in Commandref 52_I2C_MCP23017.pm: removed (en | de) link in Commandref 52_I2C_MCP342x.pm: removed (en | de) link in Commandref 52_I2C_PCA9532.pm: removed (en | de) link in Commandref 52_I2C_PCA9685.pm: removed (en | de) link in Commandref 52_I2C_PCF8574.pm: removed (en | de) link in Commandref 52_I2C_SHT21.pm: removed (en | de) link in Commandref 53_GHoma.pm: removed (en | de) link in Commandref git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@19551 2b470e98-0d58-463d-a4d8-8e2adae1ed80
611 lines
25 KiB
Perl
611 lines
25 KiB
Perl
##############################################################################
|
|
# $Id$
|
|
#
|
|
##############################################################################
|
|
# Modul for I2C PWM Driver PCA9532
|
|
#
|
|
# define <name> I2C_PCA9532 <I2C-Adresse>
|
|
# set <name> <port> <value>
|
|
#
|
|
# contributed by Klaus Wittstock (2014) email: klauswittstock bei gmail punkt com
|
|
#
|
|
##############################################################################
|
|
|
|
#Inhalte des Hashes:
|
|
#i2caddress 00-127(7F) I2C-Adresse
|
|
#direction i2cread|i2cwrite Richtung
|
|
#reg 00-255|"" Registeradresse (kann weggelassen werden fuer IC's ohne Registeradressierung)
|
|
#nbyte Zahl Anzahl Register, die bearbeitet werden sollen (im mom 0-99)
|
|
#data 00-255 ... Daten die an I2C geschickt werden sollen (muessen, wenn nbyte benutzt wird immer ein Vielfaches Desselben sein)
|
|
#received 00-255 ... Daten die vom I2C empfangen wurden, durch Leerzeichen getrennt (bleibt leer wenn Daten geschrieben werden)
|
|
#pname_SENDSTAT Ok|error zeigt uebertragungserfolg an
|
|
|
|
package main;
|
|
use strict;
|
|
use warnings;
|
|
use SetExtensions;
|
|
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
|
|
#use POSIX;
|
|
use Scalar::Util qw(looks_like_number);
|
|
|
|
my $setdim = ":slider,0,1,255 ";
|
|
|
|
my %setsP = (
|
|
'off' => 0,
|
|
'on' => 1,
|
|
'PWM0' => 2,
|
|
'PWM1' => 3,
|
|
);
|
|
###############################################################################
|
|
sub I2C_PCA9532_Initialize($) {
|
|
my ($hash) = @_;
|
|
$hash->{DefFn} = "I2C_PCA9532_Define";
|
|
$hash->{InitFn} = 'I2C_PCA9532_Init';
|
|
$hash->{UndefFn} = "I2C_PCA9532_Undefine";
|
|
$hash->{AttrFn} = "I2C_PCA9532_Attr";
|
|
$hash->{StateFn} = "I2C_PCA9532_State";
|
|
$hash->{SetFn} = "I2C_PCA9532_Set";
|
|
$hash->{GetFn} = "I2C_PCA9532_Get";
|
|
$hash->{I2CRecFn} = "I2C_PCA9532_I2CRec";
|
|
$hash->{AttrList} = "IODev do_not_notify:1,0 ignore:1,0 showtime:1,0 ".
|
|
"poll_interval T0:slider,0,1,255 T1:slider,0,1,255 OnStartup InputPorts ".
|
|
"OutputPorts:multiple-strict,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 ".
|
|
"$readingFnAttributes";
|
|
}
|
|
###############################################################################
|
|
sub I2C_PCA9532_SetState($$$$) {
|
|
my ($hash, $tim, $vt, $val) = @_;
|
|
|
|
$val = $1 if($val =~ m/^(.*) \d+$/);
|
|
#return "Undefined value $val" if(!defined($it_c2b{$val}));
|
|
return undef;
|
|
}
|
|
###############################################################################
|
|
sub I2C_PCA9532_Define($$) {
|
|
my ($hash, $def) = @_;
|
|
my @a = split("[ \t]+", $def);
|
|
$hash->{STATE} = 'defined';
|
|
if ($main::init_done) {
|
|
eval { I2C_PCA9532_Init( $hash, [ @a[ 2 .. scalar(@a) - 1 ] ] ); };
|
|
return I2C_PCA9532_Catch($@) if $@;
|
|
}
|
|
return undef;
|
|
}
|
|
###############################################################################
|
|
sub I2C_PCA9532_Init($$) {
|
|
my ( $hash, $args ) = @_;
|
|
#my @a = split("[ \t]+", $args);
|
|
my $name = $hash->{NAME};
|
|
if (defined $args && int(@$args) != 1) {
|
|
return "Define: Wrong syntax. Usage:\n" .
|
|
"define <name> I2C_PCA9532 <i2caddress>";
|
|
}
|
|
if (defined (my $address = shift @$args)) {
|
|
$hash->{I2C_Address} = $address =~ /^0.*$/ ? oct($address) : $address;
|
|
} else {
|
|
return "$name I2C Address not valid";
|
|
}
|
|
AssignIoPort($hash);
|
|
#PWM Frequenzen wiederherstellen
|
|
I2C_PCA9532_I2CSet($hash,AttrVal($name, "T0", 0),2);
|
|
I2C_PCA9532_I2CSet($hash,AttrVal($name, "T1", 0),4);
|
|
#PWM Werte wiederherstellen
|
|
I2C_PCA9532_Set($hash, $name,"PWM0", ReadingsVal($name,"PWM0",0) );
|
|
I2C_PCA9532_Set($hash, $name,"PWM1", ReadingsVal($name,"PWM1",0) );
|
|
#Portzustände wiederherstellen
|
|
my @outports = sort(split(/,/,AttrVal($name, "OutputPorts", "")));
|
|
I2C_PCA9532_ResetInputs($hash, @outports);
|
|
foreach (0..15) {
|
|
I2C_PCA9532_Set($hash, $name,"Port".$_, ReadingsVal($name,"Port".$_,0) ) if ( $_ ~~ @outports);
|
|
}
|
|
$hash->{STATE} = 'Initialized';
|
|
return;
|
|
}
|
|
###############################################################################
|
|
sub I2C_PCA9532_Catch($) {
|
|
my $exception = shift;
|
|
if ($exception) {
|
|
$exception =~ /^(.*)( at.*FHEM.*)$/;
|
|
return $1;
|
|
}
|
|
return undef;
|
|
}
|
|
###############################################################################
|
|
sub I2C_PCA9532_State($$$$) { #reload readings at FHEM start
|
|
my ($hash, $tim, $sname, $sval) = @_;
|
|
Log3 $hash, 4, "$hash->{NAME}: $sname kann auf $sval wiederhergestellt werden $tim";
|
|
if ($sname =~ m/^Port([0-9]|1[0-5])$/i) {
|
|
my $po = $sname; #noch ändern
|
|
$po =~ tr/[a-zA-Z]//d; #Nummer aus String extrahieren
|
|
my @outports = sort(split(/,/,AttrVal($hash->{NAME}, "OutputPorts", "")));
|
|
if ( $po ~~ @outports) {
|
|
my %onstart = split /[,=]/, AttrVal($hash->{NAME}, "OnStartup", "");
|
|
if ( exists($onstart{$po}) && exists($setsP{$onstart{$po}})) {
|
|
Log3 $hash, 5, "$hash->{NAME}: $sname soll auf $onstart{$po} gesetzt werden";
|
|
readingsSingleUpdate($hash,$sname, $onstart{$po}, 1);
|
|
} else {
|
|
Log3 $hash, 5, "$hash->{NAME}: $sname soll auf Altzustand: $sval gesetzt werden";
|
|
$hash->{READINGS}{$sname}{VAL} = $sval;
|
|
$hash->{READINGS}{$sname}{TIME} = $tim;
|
|
}
|
|
|
|
} else {
|
|
Log3 $hash, 5, "$hash->{NAME}: $sname ist Eingang";
|
|
}
|
|
} elsif ($sname =~ m/^PWM[0-1]$/i) {
|
|
my %onstart = split /[,=]/, AttrVal($hash->{NAME}, "OnStartup", "");
|
|
if ( exists($onstart{$sname}) && looks_like_number($onstart{$sname}) && $onstart{$sname} >= 0 && $onstart{$sname} < 256 ) {
|
|
Log3 $hash, 5, "$hash->{NAME}: $sname soll auf $onstart{$sname} gesetzt werden";
|
|
readingsSingleUpdate($hash,$sname, $onstart{$sname}, 1);
|
|
} else {
|
|
Log3 $hash, 5, "$hash->{NAME}: $sname soll auf Altzustand: $sval gesetzt werden";
|
|
$hash->{READINGS}{$sname}{VAL} = $sval;
|
|
$hash->{READINGS}{$sname}{TIME} = $tim;
|
|
}
|
|
}
|
|
return undef;
|
|
}
|
|
###############################################################################
|
|
sub I2C_PCA9532_Undefine($$) {
|
|
my ($hash, $arg) = @_;
|
|
if ( defined (AttrVal($hash->{NAME}, "poll_interval", undef)) ) {
|
|
RemoveInternalTimer($hash);
|
|
}
|
|
}
|
|
###############################################################################
|
|
sub I2C_PCA9532_Attr(@) {
|
|
my ($command, $name, $attr, $val) = @_;
|
|
my $hash = $defs{$name};
|
|
my $msg = '';
|
|
if ($command && $command eq "set" && $attr && $attr eq "IODev") {
|
|
if ($main::init_done and (!defined ($hash->{IODev}) or $hash->{IODev}->{NAME} ne $val)) {
|
|
main::AssignIoPort($hash,$val);
|
|
my @def = split (' ',$hash->{DEF});
|
|
I2C_PCA9532_Init($hash,\@def) if (defined ($hash->{IODev}));
|
|
}
|
|
} elsif ($attr && $attr eq 'poll_interval') {
|
|
if (!defined($val) ) {
|
|
RemoveInternalTimer($hash);
|
|
} elsif ( looks_like_number($val) && $val > 0) {
|
|
RemoveInternalTimer($hash);
|
|
InternalTimer(1, 'I2C_PCA9532_Poll', $hash, 0);
|
|
} else {
|
|
$msg = 'Wrong poll intervall defined. poll_interval must be a number > 0';
|
|
}
|
|
} elsif ($attr && $attr =~ m/^T[0-1]$/i) {
|
|
return "wrong value: $val for \"set $name $attr\" use 0-255"
|
|
unless(looks_like_number($val) && $val >= 0 && $val < 256);
|
|
substr($attr,0,1,"");
|
|
my $regaddr = ($attr == 0 ? 2 : 4);
|
|
$msg = I2C_PCA9532_I2CSet($hash,$val,$regaddr);
|
|
################################################################### irgendwann raus damit
|
|
} elsif ($attr && $attr eq "InputPorts") {
|
|
my @inp = split(" ", $val) if defined($val);
|
|
my $oval = 65535;
|
|
foreach (@inp) {
|
|
return "wrong value: $_ for \"attr $name $attr\" use space separated numbers 0-15" unless ($_ >= 0 && $_ < 16);
|
|
$oval -= 1 << $_;
|
|
}
|
|
my $outports = undef;
|
|
foreach (0..15) {
|
|
if ( ($oval & (1 << $_)) != 0 ) {
|
|
$outports .= "," if defined($outports);
|
|
$outports .= $_;
|
|
}
|
|
}
|
|
$msg .= CommandAttr(undef, $name . ' OutputPorts ' . $outports);
|
|
########das noch auf 1 setzen!!!!!!!!!!1
|
|
$val = "" unless defined($val);
|
|
Log3 $hash ,1 , "\"attr $name $attr $val\" will removed in further versions, generated: \"attr $name OutputPorts $outports\" please store it in your config and remove InputPorts";
|
|
###############################################################################################
|
|
} elsif ($attr && $attr eq "OutputPorts") {
|
|
my @inp = split(/,/, $val) if defined($val);
|
|
foreach (@inp) {
|
|
return "wrong value: $_ for \"attr $name $attr\" use comma separated numbers 0-15" unless ($_ >= 0 && $_ < 16);
|
|
}
|
|
if ($main::init_done) {
|
|
$msg = I2C_PCA9532_ResetInputs($hash, @inp) unless $msg;
|
|
}
|
|
} elsif ($attr && $attr eq "OnStartup") {
|
|
if (defined $val) {
|
|
foreach (split (/,/,$val)) {
|
|
my @pair = split (/=/,$_);
|
|
$msg = "wrong value: $_ for \"attr $hash->{NAME} $attr\" use comma separated <port>=on|off|PWM0|PWM1|last or PWM0|PWM1=0..255|last where <port> = 0 - 15 "
|
|
unless ( scalar(@pair) == 2 &&
|
|
(($pair[0] =~ m/^[0-9]|1[0-5]$/i && ( $pair[1] eq "last" || exists($setsP{$pair[1]}) ) ) ||
|
|
( $pair[0] =~ m/^PWM(0|1)$/i && looks_like_number($pair[1]) && $pair[1] >=0 && $pair[1] < 256))
|
|
);
|
|
}
|
|
}
|
|
}
|
|
return ($msg) ? $msg : undef;
|
|
}
|
|
|
|
###############################################################################
|
|
sub I2C_PCA9532_Poll($) {
|
|
my ($hash) = @_;
|
|
my $name = $hash->{NAME};
|
|
# Read values
|
|
I2C_PCA9532_Get($hash, $name);
|
|
my $pollInterval = AttrVal($hash->{NAME}, 'poll_interval', 0);
|
|
if ($pollInterval > 0) {
|
|
InternalTimer(gettimeofday() + ($pollInterval * 60), 'I2C_PCA9532_Poll', $hash, 0);
|
|
}
|
|
}
|
|
###############################################################################
|
|
sub I2C_PCA9532_ResetInputs{
|
|
my ($hash, @outports) = @_;
|
|
my $msg = undef;
|
|
foreach my $LSreg (0..3) { #Nummer des entspechenden LS Registers
|
|
my $regaddr = $LSreg + 6; #Adresse fuer Controlregister berechnen (LS0 = 0x06)
|
|
my $n = $LSreg * 4; #Erster Port in LSx
|
|
my $sbyte = 0;
|
|
foreach (reverse 0..3) { #ensprechendes Controlregister fuellen
|
|
my $portn = $_ + $n;
|
|
if ($portn ~~ @outports) { #output aus dem Reading holen
|
|
my $pval = ReadingsVal($hash->{NAME},'Port'.$portn,"off");
|
|
$sbyte += $setsP{ ($pval =~ m/^(0|1)$/i ? "off" : $pval) } << (2 * $_);
|
|
} else { #wenn Input ist auf rezessiv (high) setzen
|
|
$sbyte += $setsP{"off"} << (2 * $_);
|
|
}
|
|
}
|
|
$msg = I2C_PCA9532_I2CSet($hash,$sbyte,$regaddr);
|
|
last if $msg;
|
|
}
|
|
return defined $msg ? $msg : undef
|
|
}
|
|
###############################################################################
|
|
sub I2C_PCA9532_Set($@) {
|
|
my ($hash, @a) = @_;
|
|
my $name =$a[0];
|
|
my $cmd = $a[1];
|
|
my $val = $a[2];
|
|
my @outports = sort(split(/,/,AttrVal($name, "OutputPorts", "")));
|
|
unless (@a == 3) {
|
|
|
|
}
|
|
my $msg;
|
|
if ( $cmd && $cmd =~ m/^Port((0|)[0-9]|1[0-5])$/i) {
|
|
return "wrong value: $val for \"set $name $cmd\" use one of: " .
|
|
join(',', (sort { $setsP{ $a } <=> $setsP{ $b } } keys %setsP) )
|
|
unless(exists($setsP{$val}));
|
|
substr($cmd,0,4,"");
|
|
return "$name error: Port$cmd is defined as input" unless ( $cmd ~~ @outports ); #Pruefen ob entsprechender Port Input ist
|
|
my $LSreg = int($cmd / 4); #Nummer des entspechenden LS Registers
|
|
my $regaddr = $LSreg + 6; #Adresse fuer Controlregister berechnen (LS0 = 0x06)
|
|
my $n = $LSreg * 4; #Erster Port in LSx
|
|
my $sbyte = 0;
|
|
foreach (reverse 0..3) { #ensprechendes Controlregister fuellen
|
|
my $portn = $_ + $n;
|
|
if (( $portn) == $cmd ) { #->wenn aktueller Port dann neuer Wert
|
|
$sbyte += $setsP{$val} << (2 * $_);
|
|
#next;
|
|
} elsif ($portn ~~ @outports) {#->sonst aus dem Reading holen
|
|
$sbyte += $setsP{ReadingsVal($name,'Port'.$portn,"off")} << (2 * $_);
|
|
} else { #wenn Input ist auf rezessiv (high) setzen
|
|
$sbyte += $setsP{"off"} << (2 * $_);
|
|
}
|
|
}
|
|
$msg = I2C_PCA9532_I2CSet($hash,$sbyte,$regaddr);
|
|
|
|
} elsif ($cmd && $cmd =~ m/^PWM[0-1]$/i) {
|
|
return "wrong value: $val for \"set $name $cmd\" use 0-255"
|
|
unless(looks_like_number($val) && $val >= 0 && $val < 256);
|
|
substr($cmd,0,3,"");
|
|
my $regaddr = ($cmd == 0 ? 3 : 5);
|
|
$msg = I2C_PCA9532_I2CSet($hash,$val,$regaddr);
|
|
|
|
} else {
|
|
my $list = undef;
|
|
foreach (0..15) {
|
|
next unless ( $_ ~~ @outports ); #Inputs ueberspringen
|
|
$list .= "Port" . $_ . ":" . join(',', (sort { $setsP{ $a } <=> $setsP{ $b } } keys %setsP) ) . " ";
|
|
}
|
|
$list .= join($setdim, ("PWM0", "PWM1")) . $setdim;
|
|
$msg = "Unknown argument $a[1], choose one of " . $list;
|
|
}
|
|
return defined $msg ? $msg : undef
|
|
}
|
|
###############################################################################
|
|
sub I2C_PCA9532_I2CSet {
|
|
my ($hash, $regval, $reg) = @_;
|
|
if (defined (my $iodev = $hash->{IODev})) {
|
|
CallFn($iodev->{NAME}, "I2CWrtFn", $iodev, {
|
|
direction => "i2cwrite",
|
|
i2caddress => $hash->{I2C_Address},
|
|
reg => $reg,
|
|
data => $regval,
|
|
}) if (defined $hash->{I2C_Address});
|
|
} else {
|
|
return "no IODev assigned to '$hash->{NAME}'";
|
|
Log3 $hash, 5, "$hash->{NAME} I2CSet: Register: $reg Wert: $regval";
|
|
}
|
|
}
|
|
###############################################################################
|
|
sub I2C_PCA9532_Get($@) {
|
|
my ($hash, @a) = @_;
|
|
my $name =$a[0];
|
|
|
|
my %sendpackage = ( i2caddress => $hash->{I2C_Address}, direction => "i2cread" );
|
|
$sendpackage{reg} = 0x10; #startadresse zum lesen (Adresse 0 mit Auto increment flag)
|
|
$sendpackage{nbyte} = 10;
|
|
return "$name: no IO device defined" unless ($hash->{IODev});
|
|
my $phash = $hash->{IODev};
|
|
my $pname = $phash->{NAME};
|
|
CallFn($pname, "I2CWrtFn", $phash, \%sendpackage);
|
|
|
|
}
|
|
###############################################################################
|
|
sub I2C_PCA9532_I2CRec($@) { # vom physical aufgerufen
|
|
my ($hash, $clientmsg) = @_;
|
|
my $name = $hash->{NAME};
|
|
my $phash = $hash->{IODev};
|
|
my $pname = $phash->{NAME};
|
|
while ( my ( $k, $v ) = each %$clientmsg ) { #erzeugen von Internals fuer alle Keys in $clientmsg die mit dem physical Namen beginnen
|
|
$hash->{$k} = $v if $k =~ /^$pname/ ;
|
|
}
|
|
#hier noch ueberpruefen, ob Register und Daten ok
|
|
if ($clientmsg->{direction} && defined($clientmsg->{reg}) && $clientmsg->{$pname . "_SENDSTAT"} && $clientmsg->{$pname . "_SENDSTAT"} eq "Ok") {
|
|
if ( $clientmsg->{direction} eq "i2cread" && defined($clientmsg->{received}) ) { # =~ m/^[a-f0-9]{2}$/i) {
|
|
#my @rec = @{$clientmsg->{received}}; #bei uebergabe im hash als array
|
|
my @rec = split(" ",$clientmsg->{received}); #bei uebergabe im als skalar
|
|
Log3 $hash, 3, "$name: wrong amount of registers transmitted from $pname" unless (@rec == $clientmsg->{nbyte});
|
|
foreach (reverse 0..$#rec) { #reverse, damit Inputs (Register 0 und 1 als letztes geschrieben werden)
|
|
I2C_PCA9532_UpdReadings($hash, $_ + $clientmsg->{reg} , $rec[$_]);
|
|
}
|
|
readingsSingleUpdate($hash,"state", "Ok", 1);
|
|
} elsif ( $clientmsg->{direction} eq "i2cwrite" && defined($clientmsg->{data}) ) { # =~ m/^[a-f0-9]{2}$/i) {#readings aktualisieren wenn uebertragung ok
|
|
I2C_PCA9532_UpdReadings($hash, $clientmsg->{reg} , $clientmsg->{data});
|
|
readingsSingleUpdate($hash,"state", "Ok", 1);
|
|
|
|
} else {
|
|
readingsSingleUpdate($hash,"state", "transmission error", 1);
|
|
Log3 $hash, 3, "$name: failure in message from $pname";
|
|
Log3 $hash, 3,(defined($clientmsg->{direction}) ? "Direction: " . $clientmsg->{direction} : "Direction: undef").
|
|
(defined($clientmsg->{i2caddress}) ? " I2Caddress: " . sprintf("0x%.2X", $clientmsg->{i2caddress}) : " I2Caddress: undef").
|
|
(defined($clientmsg->{reg}) ? " Register: " . sprintf("0x%.2X", $clientmsg->{reg}) : " Register: undef").
|
|
(defined($clientmsg->{data}) ? " Data: " . sprintf("0x%.2X", $clientmsg->{data}) : " Data: undef").
|
|
(defined($clientmsg->{received}) ? " received: " . sprintf("0x%.2X", $clientmsg->{received}) : " received: undef");
|
|
}
|
|
} else {
|
|
readingsSingleUpdate($hash,"state", "transmission error", 1);
|
|
Log3 $hash, 3, "$name: failure in message from $pname";
|
|
Log3 $hash, 3,(defined($clientmsg->{direction}) ? "Direction: " . $clientmsg->{direction} : "Direction: undef").
|
|
(defined($clientmsg->{i2caddress}) ? " I2Caddress: " . sprintf("0x%.2X", $clientmsg->{i2caddress}) : " I2Caddress: undef").
|
|
(defined($clientmsg->{reg}) ? " Register: " . sprintf("0x%.2X", $clientmsg->{reg}) : " Register: undef").
|
|
(defined($clientmsg->{data}) ? " Data: " . sprintf("0x%.2X", $clientmsg->{data}) : " Data: undef").
|
|
(defined($clientmsg->{received}) ? " received: " . sprintf("0x%.2X", $clientmsg->{received}) : " received: undef");
|
|
#my $cmsg = undef;
|
|
#foreach my $av (keys %{$clientmsg}) { $cmsg .= "|" . $av . ": " . $clientmsg->{$av}; }
|
|
#Log3 $hash, 3, $cmsg;
|
|
}
|
|
#undef $clientmsg;
|
|
}
|
|
###############################################################################
|
|
sub I2C_PCA9532_UpdReadings($$$) {
|
|
my ($hash, $reg, $inh) = @_;
|
|
my $name = $hash->{NAME};
|
|
#$inh = hex($inh);
|
|
Log3 $hash, 5, "$name UpdReadings Register: " .sprintf("0x%.2X", $reg).", Inhalt: ".sprintf("0x%.2X", $inh);
|
|
readingsBeginUpdate($hash);
|
|
if ( $reg < 10 && $reg > 5) { #Wenn PortRegister
|
|
my %rsetsP = reverse %setsP;
|
|
my $LSreg = $reg - 6; #Nummer des entspechenden LS Registers
|
|
my $n = $LSreg * 4; #Erster Port in LSx
|
|
foreach (reverse 0..3) { #Ports aus Controlregister abarbeiten
|
|
my $pval = 3 & ( $inh >> ($_ * 2) );
|
|
my $port = $_ + $n;
|
|
readingsBulkUpdate($hash, 'Port'.$port , $rsetsP{$pval})
|
|
if (ReadingsVal($name, 'Port'.$port,"nix") ne $rsetsP{$pval}); #nur wenn Wert geaendert
|
|
}
|
|
} elsif ( $reg == 3) { #wenn PWM0 Register
|
|
readingsBulkUpdate($hash, 'PWM0' , $inh);
|
|
} elsif ( $reg == 5) { #wenn PWM1 Register
|
|
readingsBulkUpdate($hash, 'PWM1' , $inh);
|
|
} elsif ( $reg == 2) { #wenn Frequenz0 Register
|
|
$hash->{Frequency_0} = sprintf( "%.3f", ( 152 / ($inh + 1) ) ) . " Hz";
|
|
} elsif ( $reg == 4) { #wenn Frequenz0 Register
|
|
$hash->{Frequency_1} = sprintf( "%.3f", ( 152 / ($inh + 1) ) ) . " Hz";
|
|
} elsif ( $reg >= 0 && $reg < 2 ) { #Input Register
|
|
my $j = 8 * $reg;
|
|
my @outports = sort(split( ",",AttrVal($name, "OutputPorts", "")));
|
|
for (my $i = 0; $i < 8; $i++) {
|
|
Log3 $hash, 5, "Register " .sprintf("0x%.2X", $reg)." Forschleife i: $i";
|
|
unless ( ($i + $j) ~~ @outports ) { #nur als Input definierte Ports aktualisieren
|
|
my $sval = $inh & (1 << $i);
|
|
$sval = $sval == 0 ? "0" :"1";
|
|
readingsBulkUpdate($hash, 'Port'.($i + $j) , $sval) if (ReadingsVal($name,'Port'.($i + $j),2) ne $sval);
|
|
}
|
|
}
|
|
}
|
|
readingsEndUpdate($hash, 1);
|
|
return;
|
|
}
|
|
###############################################################################
|
|
|
|
1;
|
|
|
|
=pod
|
|
=item device
|
|
=item summary controls PWM outputs from an via I2C connected PCA9532
|
|
=item summary_DE steuern der PWM Ausgänge eines über I2C angeschlossenen PCA9532
|
|
=begin html
|
|
|
|
<a name="I2C_PCA9532"></a>
|
|
<h3>I2C_PCA9532</h3>
|
|
<ul>
|
|
<a name="I2C_PCA9532"></a>
|
|
Provides an interface to the PCA9532 I2C 16 channel PWM IC.
|
|
The PCA9532 has 2 independent PWM stages and every channel can be attached to on of these stages or directly turned on or off.
|
|
The I2C messages are send through an I2C interface module like <a href="#RPII2C">RPII2C</a>, <a href="#FRM">FRM</a>
|
|
or <a href="#NetzerI2C">NetzerI2C</a> so this device must be defined first.<br>
|
|
<b>attribute IODev must be set</b><br>
|
|
<a name="I2C_PCA9532Define"></a><br>
|
|
<b>Define</b>
|
|
<ul>
|
|
<code>define <name> I2C_PCA9532 <I2C Address></code><br>
|
|
<code><I2C Address></code> may be an 2 digit hexadecimal value (0xnn) or an decimal value<br>
|
|
For example 0x40 (hexadecimal) = 64 (decimal). An I2C address are 7 MSB, the LSB is the R/W bit.<br>
|
|
</ul>
|
|
|
|
<a name="I2C_PCA9532Set"></a>
|
|
<b>Set</b>
|
|
<ul>
|
|
<code>set <name> <port> <value></code><br><br>
|
|
<ul>
|
|
<li>if <code><port></code> is one of Port0 to Port15, then <code><value></code> will be one of:<br>
|
|
<ul>
|
|
<code>
|
|
off<br>
|
|
on<br>
|
|
PWM0 (output is switched with PWM0 frequency and duty cycle)<br>
|
|
PWM1 (output is switched with PWM1 frequency and duty cycle)<br>
|
|
</code>
|
|
</ul>
|
|
</li>
|
|
<li>
|
|
if <code><port></code> is PWM0 or PWM1, then <code><value></code> is an value between 0 and 255 and stands for the duty cycle of the PWM stage.
|
|
</li>
|
|
</ul>
|
|
<br>
|
|
Examples:
|
|
<ul>
|
|
<code>set mod1 Port4 PWM1</code><br>
|
|
<code>set mod1 PWM1 128</code><br>
|
|
</ul><br>
|
|
</ul>
|
|
|
|
<a name="I2C_PCA9532Get"></a>
|
|
<b>Get</b>
|
|
<ul>
|
|
<code>get <name></code>
|
|
<br><br>
|
|
refreshes all readings
|
|
</ul><br>
|
|
|
|
<a name="I2C_PCA9532Attr"></a>
|
|
<b>Attributes</b>
|
|
<ul>
|
|
<li><a name="poll_interval">poll_interval</a><br>
|
|
Set the polling interval in minutes to query the GPIO's level<br>
|
|
Default: -, valid values: decimal number<br><br>
|
|
</li>
|
|
<li><a name="OutputPorts">OutputPorts</a><br>
|
|
Comma separated list of Portnumers that are used as Outputs<br>
|
|
Only ports in this list can be written<br>
|
|
Default: no, valid values: 0 1 2 .. 15<br><br>
|
|
</li>
|
|
<li><a name="OnStartup">OnStartup</a><br>
|
|
Comma separated list of output ports/PWM registers and their desired state after start<br>
|
|
Without this atribut all output ports will set to last state<br>
|
|
Default: -, valid values: <port>=on|off|PWM0|PWM1|last or PWM0|PWM1=0..255|last where <port> = 0 - 15<br><br>
|
|
</li>
|
|
<li><a name="T0">T0</a><br>
|
|
Sets PWM0 to another Frequency. The Formula is: Fx = 152/(Tx + 1) The corresponding frequency value is shown under internals.<br>
|
|
Default: 0 (152Hz), valid values: 0-255<br><br>
|
|
</li>
|
|
<li><a name="T1">T1</a><br>
|
|
Sets PWM1 to another Frequency. The Formula is: Fx = 152/(Tx + 1) The corresponding frequency value is shown under internals.<br>
|
|
Default: 0 (152Hz), valid values: 0-255<br><br>
|
|
</li>
|
|
<li><a href="#IODev">IODev</a></li>
|
|
<li><a href="#ignore">ignore</a></li>
|
|
<li><a href="#do_not_notify">do_not_notify</a></li>
|
|
<li><a href="#showtime">showtime</a></li>
|
|
</ul>
|
|
<br>
|
|
</ul>
|
|
|
|
=end html
|
|
|
|
=begin html_DE
|
|
|
|
<a name="I2C_PCA9532"></a>
|
|
<h3>I2C_PCA9532</h3>
|
|
<ul>
|
|
<a name="I2C_PCA9532"></a>
|
|
Ermöglicht die Verwendung eines PCA9532 I2C 16 Kanal PWM IC.
|
|
Das PCA9532 hat 2 unabhängige PWM Stufen. Jeder Kanal kanne einer der Stufen zugeordnet werden oder direkt auf off/on gesetzt werden.
|
|
I2C-Botschaften werden über ein I2C Interface Modul wie beispielsweise das <a href="#RPII2C">RPII2C</a>, <a href="#FRM">FRM</a>
|
|
oder <a href="#NetzerI2C">NetzerI2C</a> gesendet. Daher muss dieses vorher definiert werden.<br>
|
|
<b>Das Attribut IODev muss definiert sein.</b><br>
|
|
<a name="I2C_PCA9532Define"></a><br>
|
|
<b>Define</b>
|
|
<ul>
|
|
<code>define <name> I2C_PCA9532 <I2C Address></code><br>
|
|
<code><I2C Address></code> kann ein zweistelliger Hex-Wert (0xnn) oder ein Dezimalwert sein<br>
|
|
Beispielsweise 0x40 (hexadezimal) = 64 (dezimal). Als I2C Adresse verstehen sich die 7 MSB, das LSB ist das R/W Bit.<br>
|
|
</ul>
|
|
|
|
<a name="I2C_PCA9532Set"></a>
|
|
<b>Set</b>
|
|
<ul>
|
|
<code>set <name> <port> <value></code><br><br>
|
|
<ul>
|
|
<li>wenn als <code><port></code> Port0 bis Port15 verwendet wird, dann ist <code><value></code> einer dieser Werte:<br>
|
|
<ul>
|
|
<code>
|
|
off<br>
|
|
on<br>
|
|
PWM0 (Port wird auf PWM0 Frequenz- und Pulsweiteneinstellung gesetzt)<br>
|
|
PWM1 (Port wird auf PWM1 Frequenz- und Pulsweiteneinstellung gesetzt)<br>
|
|
</code>
|
|
</ul>
|
|
</li>
|
|
<li>
|
|
wenn als <code><port></code> PWM0 oder PWM1 verwendet wird, ist <code><value></code> ein Wert zwischen 0 und 255 ensprechend der Pulsweite der PWM Stufe.
|
|
</li>
|
|
</ul>
|
|
<br>
|
|
Beispiele:
|
|
<ul>
|
|
<code>set mod1 Port4 PWM1</code><br>
|
|
<code>set mod1 PWM1 128</code><br>
|
|
</ul><br>
|
|
</ul>
|
|
|
|
<a name="I2C_PCA9532Get"></a>
|
|
<b>Get</b>
|
|
<ul>
|
|
<code>get <name></code>
|
|
<br><br>
|
|
Aktualisierung aller Werte
|
|
</ul><br>
|
|
|
|
<a name="I2C_PCA9532Attr"></a>
|
|
<b>Attribute</b>
|
|
<ul>
|
|
<li><a name="poll_interval">poll_interval</a><br>
|
|
Aktualisierungsintervall aller Werte in Minuten.<br>
|
|
Standard: -, gültige Werte: Dezimalzahl<br><br>
|
|
</li>
|
|
<li><a name="OutputPorts">OutputPorts</a><br>
|
|
Durch Komma getrennte Portnummern die als Outputs genutzt werden.<br>
|
|
Nur Ports in dieser Liste können geschrieben werden.<br>
|
|
Standard: no, gültige Werte: 0 1 2 .. 15<br><br>
|
|
</li>
|
|
<li><a name="OnStartup">OnStartup</a><br>
|
|
Durch Komma getrennte Output Ports/PWM Register und ihr gewünschter Status nach dem Start.<br>
|
|
Ohne dieses Attribut werden alle Ausgänge nach dem Start auf den letzten Status gesetzt.<br>
|
|
Standard: -, gültige Werte: <port>=on|off|PWM0|PWM1|last oder PWM0|PWM1=0..255|last wobei <port> = 0 - 15<br><br>
|
|
</li>
|
|
<li><a name="T0">T0</a><br>
|
|
Änderung der Frequenzwerte von PWM0 nach der Formel: Fx = 152/(Tx + 1). Der entsprechende Frequenzwert wird unter Internals angezeigt.<br>
|
|
Standard: 0 (152Hz), gültige Werte: 0-255<br><br>
|
|
</li>
|
|
<li><a name="T1">T1</a><br>
|
|
Änderung der Frequenzwerte von PWM1 nach der Formel: Fx = 152/(Tx + 1). Der entsprechende Frequenzwert wird unter Internals angezeigt.<br>
|
|
Standard: 0 (152Hz), gültige Werte: 0-255<br><br>
|
|
</li>
|
|
<li><a href="#IODev">IODev</a></li>
|
|
<li><a href="#ignore">ignore</a></li>
|
|
<li><a href="#do_not_notify">do_not_notify</a></li>
|
|
<li><a href="#showtime">showtime</a></li>
|
|
</ul>
|
|
<br>
|
|
</ul>
|
|
|
|
=end html_DE
|
|
|
|
=cut
|