mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-03-10 09:16:53 +00:00
132 lines
2.9 KiB
Perl
132 lines
2.9 KiB
Perl
#
|
|
#
|
|
# 09_BS.pm
|
|
# written by Dr. Boris Neubert 2009-06-20
|
|
# e-mail: omega at online dot de
|
|
#
|
|
##############################################
|
|
package main;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
#############################
|
|
sub
|
|
BS_Initialize($)
|
|
{
|
|
my ($hash) = @_;
|
|
|
|
$hash->{Match} = "^81..(04|0c)..0101a001a5cf";
|
|
$hash->{DefFn} = "BS_Define";
|
|
$hash->{UndefFn} = "BS_Undef";
|
|
$hash->{ParseFn} = "BS_Parse";
|
|
$hash->{AttrList} = "do_not_notify:1,0 showtime:0,1 ".
|
|
"ignore:1,0 model:BS loglevel:0,1,2,3,4,5,6";
|
|
|
|
}
|
|
|
|
#############################
|
|
sub
|
|
BS_Define($$)
|
|
{
|
|
my ($hash, $def) = @_;
|
|
my @a = split("[ \t][ \t]*", $def);
|
|
|
|
my $u= "wrong syntax: define <name> BS <sensor> [[RExt] luxOffset]";
|
|
return $u if((int(@a)< 3) || (int(@a)>5));
|
|
|
|
my $name = $a[0];
|
|
my $sensor = $a[2];
|
|
if($sensor !~ /[123456789]/) {
|
|
return "erroneous sensor specification $sensor, use one of 1..9";
|
|
}
|
|
$sensor= "0$sensor";
|
|
|
|
my $RExt = 50000; # default is 50kOhm
|
|
$RExt= $a[3] if(int(@a)>=4);
|
|
my $luxOffset= 0; # default is no offset
|
|
$luxOffset= $a[4] if(int(@a)>=5);
|
|
$hash->{SENSOR}= "$sensor";
|
|
$hash->{RExt}= $RExt;
|
|
$hash->{luxOffset}= $luxOffset;
|
|
|
|
my $dev= "a5cf $sensor";
|
|
$hash->{DEF}= $dev;
|
|
|
|
$modules{BS}{defptr}{$dev} = $hash;
|
|
AssignIoPort($hash);
|
|
}
|
|
|
|
#############################
|
|
sub
|
|
BS_Undef($$)
|
|
{
|
|
my ($hash, $name) = @_;
|
|
|
|
delete($modules{BS}{defptr}{$hash->{DEF}});
|
|
return undef;
|
|
}
|
|
|
|
#############################
|
|
sub
|
|
BS_Parse($$)
|
|
{
|
|
my ($hash, $msg) = @_; # hash points to the FHZ, not to the BS
|
|
|
|
|
|
# Msg format:
|
|
# 01 23 45 67 8901 2345 6789 01 23 45 67
|
|
# 81 0c 04 .. 0101 a001 a5cf xx 00 zz zz
|
|
|
|
my $sensor= substr($msg, 20, 2);
|
|
my $dev= "a5cf $sensor";
|
|
|
|
my $def= $modules{BS}{defptr}{$dev};
|
|
if(!defined($def)) {
|
|
$sensor =~ s/^0//;
|
|
Log 3, "BS Unknown device $sensor, please define it";
|
|
return "UNDEFINED BS_$sensor BS $sensor";
|
|
}
|
|
|
|
my $name= $def->{NAME};
|
|
return "" if(IsIgnored($name));
|
|
|
|
my $t= TimeNow();
|
|
|
|
my $flags= hex(substr($msg, 24, 1)) & 0xdc;
|
|
my $value= hex(substr($msg, 25, 3)) & 0x3ff;
|
|
|
|
my $RExt= $def->{RExt};
|
|
my $luxOffset= $def->{luxOffset};
|
|
my $brightness= $value/10.24; # Vout in percent of reference voltage 1.1V
|
|
|
|
# brightness in lux= 100lux*(VOut/RExt/1.8muA)^2;
|
|
my $VOut= $value*1.1/1024.0;
|
|
my $temp= $VOut/$RExt/1.8E-6;
|
|
my $lux= 100.0*$temp*$temp;
|
|
$lux+= $luxOffset; # add lux offset
|
|
|
|
my $state= sprintf("brightness: %.2f lux: %.0f flags: %d",
|
|
$brightness, $lux, $flags);
|
|
|
|
$def->{CHANGED}[0] = $state;
|
|
$def->{STATE} = $state;
|
|
$def->{READINGS}{state}{TIME} = $t;
|
|
$def->{READINGS}{state}{VAL} = $state;
|
|
Log GetLogLevel($name, 4), "BS $name: $state";
|
|
|
|
$def->{READINGS}{brightness}{TIME} = $t;
|
|
$def->{READINGS}{brightness}{VAL} = $brightness;
|
|
$def->{READINGS}{lux}{TIME} = $t;
|
|
$def->{READINGS}{lux}{VAL} = $lux;
|
|
$def->{READINGS}{flags}{TIME} = $t;
|
|
$def->{READINGS}{flags}{VAL} = $flags;
|
|
|
|
return $name;
|
|
|
|
}
|
|
|
|
#############################
|
|
|
|
1;
|