FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 03:06:37 +00:00
Code Issues Releases Wiki Activity

89_VCONTROL.pm: init_every_poll attrib, update_only_changes attrib, register conv Method

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@8021 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
adamwit 2015-02-17 19:30:53 +00:00
parent 69840dac03
commit 6a5543ff71
1 changed files with 104 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

103
fhem/FHEM/89_VCONTROL.pm
View File

@ -92,12 +92,15 @@ sub VCONTROL_2ByteUConv($);
sub VCONTROL_2ByteSConv($);
sub VCONTROL_DateConv($);
sub VCONTROL_TimerConv($$);
sub VCONTROL_RegisterConv($);
sub VCONTROL_Clear($);
sub VCONTROL_Read($);
sub VCONTROL_Ready($);
sub VCONTROL_Parse($$$$);
sub VCONTROL_Poll($);
sub VCONTROL_CmdConfig($);
sub VCONTROL_ReInit($);
sub
VCONTROL_Initialize($)
@ -115,7 +118,7 @@ VCONTROL_Initialize($)
$hash->{GetFn} = "VCONTROL_Get";
$hash->{StateFn} = "VCONTROL_SetState";
$hash->{ShutdownFn} = "VCONTROL_Shutdown";
$hash->{AttrList} = "disable:0,1 setList closedev:0,1 ". $readingFnAttributes;
$hash->{AttrList} = "disable:0,1 init_every_poll:0,1 update_only_changes:0,1 setList closedev:0,1 ". $readingFnAttributes;
}
#####################################
@ -283,7 +286,12 @@ VCONTROL_Poll($)
Log3 $name, 5, "VCONTROL: Poll disabled!";
}
else
{$poll_now=POLL_ACTIVE;}
{ $poll_now=POLL_ACTIVE;
if( AttrVal($name, "init_every_poll", 0 ) == 1 )
{
VCONTROL_ReInit($hash);
}
}
$poll_duration = gettimeofday();
Log3 $name, 4, "VCONTROL: Start of Poll !";
my $timer = gettimeofday()+$hash->{INTERVAL};
@ -608,8 +616,10 @@ VCONTROL_Parse($$$$)
my $systime="$year-$plotmonth-$plotmday"."_"."$plothour:$plotmin:$plotsec";
#Start Update Readings
my $update_only_changes = AttrVal($pn, "update_only_changes", "0");
readingsBeginUpdate ($hash);
readingsBulkUpdate ($hash, "$valuename", $value);
if ( $update_only_changes == 0 || ($update_only_changes == 1 && (ReadingsVal($pn,"$valuename",0) ne $value)))
{ readingsBulkUpdate ($hash, "$valuename", $value)};
#calculate Kumulation Readings and Day Readings
@ -790,7 +800,17 @@ VCONTROL_Set($@)
@get_timer_cmd_list = @timer_cmd_list;
$get_timer_now = GET_TIMER_ACTIVE;
}
elsif ($$_[3] eq "Register"){
$send_additonal_param=VCONTROL_RegisterConv($value);
if ($send_additonal_param eq "")
{
Log3 $pn, 1, "VCONTROL: Register falsch eingegeben: $value";
return "";
}
else {
Log3 $pn, 1, "VCONTROL: Register gesetzt: $value (01F427$send_additonal_param)";
}
}
return "";
}
}
@ -848,6 +868,56 @@ sub VCONTROL_Get($@) {
return "";
}
sub
VCONTROL_ReInit($)
{
my $hash = shift;
my $name = $hash->{NAME};
my $dev = $hash->{DeviceName};
delete $hash->{USBDev};
delete $hash->{FD};
DevIo_CloseDev($hash);
$hash->{PARTIAL} = "";
#Opening USB Device
Log3($name, 3, "VCONTROL ReInit VCONTROL device $dev");
my $ret = undef;
my $po;
###USB
if ($^O=~/Win/) {
require Win32::SerialPort;
$po = new Win32::SerialPort ($dev);
} else {
require Device::SerialPort;
$po = new Device::SerialPort ($dev);
}
if(!$po) {
my $msg = "Can't open $dev: $!";
Log3($name, 3, $msg) if($hash->{MOBILE});
return $msg if(!$hash->{MOBILE});
$readyfnlist{"$name.$dev"} = $hash;
return "";
}
Log3($name, 3, "VCONTROL opened VCONTROL device $dev");
$hash->{USBDev} = $po;
if( $^O =~ /Win/ ) {
$readyfnlist{"$name.$dev"} = $hash;
} else {
$hash->{FD} = $po->FILENO;
delete($readyfnlist{"$name.$dev"});
$selectlist{"$name.$dev"} = $hash;
}
#Initialize to be able to receive data
VCONTROL_DoInit($hash, $po);
return $ret;
}
#####################################
#####################################
## Load Config
@ -1092,7 +1162,7 @@ sub VCONTROL_1ByteSConv($)
my $convvalue = shift;
my $cnvstrvalue = (sprintf "%02X", $convvalue);
if ($convvalue <0){
return substr($cnvstrvalue,6,2);
return substr($cnvstrvalue,length($cnvstrvalue)-2,2);
}
else {
return $cnvstrvalue;
@ -1192,6 +1262,29 @@ sub VCONTROL_TimerConv($$){
return $suffix;
}
#####################################
sub VCONTROL_RegisterConv($)
{
my $convvalue = shift;
if (length($convvalue)==4 || (length($convvalue)==5 && substr($convvalue,2,1)eq"-"))
{
my $register=substr($convvalue,0,2);
my $value=substr($convvalue,2,3);
my $hexvalue=sprintf "%02X", $value;
if ($value <0)
{
$hexvalue = substr($hexvalue,length($hexvalue)-2,2);
}
return $register."01".$hexvalue;
}
else
{
return "";
}
}
1;
=pod