diff --git a/fhem/FHEM/52_I2C_PCF8574.pm b/fhem/FHEM/52_I2C_PCF8574.pm index 041b7a336..fd04b81eb 100644 --- a/fhem/FHEM/52_I2C_PCF8574.pm +++ b/fhem/FHEM/52_I2C_PCF8574.pm @@ -40,10 +40,10 @@ sub I2C_PCF8574_Set($@) { # return "wrong value: $val for \"set $name $cmd\" use one of: off, on" unless(exists($setsP{$val})); substr($cmd,0,4,""); #Nummer aus String extrahieren - return "$name error: Port$cmd is defined as input" if ( $cmd ~~ @inports ); #Prüfen ob entsprechender Port Input ist + return "$name error: Port$cmd is defined as input" if ( $cmd ~~ @inports ); #Pruefen ob entsprechender Port Input ist my $sbyte = 0; foreach (0..7) { - if ($_ == $cmd) { #Port der geändert werden soll + if ($_ == $cmd) { #Port der geaendert werden soll $sbyte += $setsP{$val} << (1 * $_); } elsif ($_ ~~ @inports) {#Port der als Input konfiguriert ist wird auf 1 gesetzt $sbyte += 1 << (1 * $_); @@ -56,7 +56,7 @@ sub I2C_PCF8574_Set($@) { # } else { my $list = undef; foreach (0..7) { - next if ( $_ ~~ @inports ); #Inputs überspringen + next if ( $_ ~~ @inports ); #Inputs ueberspringen $list .= "Port" . $_ . ":" . join(',', (sort { $setsP{ $a } <=> $setsP{ $b } } keys %setsP) ) . " "; } return "Unknown argument $a[1], choose one of " . $list; @@ -89,11 +89,11 @@ sub I2C_PCF8574_Get($@) { #%sendpackage = ( direction => "i2cread", id => (defined( $hash->{ID} )? $hash->{ID} : "00"), i2caddress => $hash->{I2C_Address}); %sendpackage = ( i2caddress => $hash->{I2C_Address}, direction => "i2cread"); return "$name: no IO device defined" unless ($hash->{IODev}); - #neu: über CallFn auf eigene Funktion + #neu: ueber CallFn auf eigene Funktion my $phash = $hash->{IODev}; my $pname = $phash->{NAME}; CallFn($pname, "I2CWrtFn", $phash, \%sendpackage); - #alt: für IOWrite + #alt: fuer IOWrite #IOWrite($hash, \%sendpackage); } ################################### @@ -149,7 +149,7 @@ sub I2C_PCF8574_Init($$) { # return "$name I2C Address not valid"; } - #für die Nutzung von IOWrite + #fuer die Nutzung von IOWrite #my $code = ( defined( $hash->{ID} )? $hash->{ID} : "00" ) . " " . $hash->{I2C_Address}; #my $ncode = 1; #my $name = $a[0]; @@ -199,12 +199,12 @@ sub I2C_PCF8574_Poll($) { #for attr poll_intervall -> readout pin values } } ################################### -sub I2C_PCF8574_I2CRec($@) { # über CallFn vom physical aufgerufen +sub I2C_PCF8574_I2CRec($@) { # ueber CallFn 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 für alle Keys in $clientmsg die mit dem physical Namen beginnen + 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/ ; } my $sval; @@ -233,7 +233,7 @@ sub I2C_PCF8574_I2CRec($@) { # } } ################################### -sub I2C_PCF8574_Parse($$) { #wird über dispatch vom physical device aufgerufen (dispatch wird im mom nicht verwendet) +sub I2C_PCF8574_Parse($$) { #wird ueber dispatch vom physical device aufgerufen (dispatch wird im mom nicht verwendet) my ($hash, $msg) = @_; my($sid, $addr, @msg) = split(/ /,$msg); #Log3 $hash, 4, "Vom Netzerparse $hash->{NAME}: sid: $sid, Msg: @msg"; @@ -351,7 +351,7 @@ sub I2C_PCF8574_Parse($$) { #wird