FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-01 13:29:26 +00:00
Code Issues Releases Wiki Activity

89_VCONTROL.pm: new conv method 1ByteUx10Conv and fix 1BytUConv

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@7189 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
adamwit 2014-12-11 20:25:34 +00:00
parent 2bd4ceae33
commit a2cf159dfa
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fhem/FHEM/89_VCONTROL.pm
View File

@ -83,6 +83,7 @@ sub VCONTROL_ModusParse($);
sub VCONTROL_DateParse($); sub VCONTROL_DateParse($);
sub VCONTROL_1ByteUConv($); sub VCONTROL_1ByteUConv($);
sub VCONTROL_1ByteSConv($); sub VCONTROL_1ByteSConv($);
sub VCONTROL_1ByteUx10Conv($);
sub VCONTROL_2ByteUConv($); sub VCONTROL_2ByteUConv($);
sub VCONTROL_2ByteSConv($); sub VCONTROL_2ByteSConv($);
sub VCONTROL_DateConv($); sub VCONTROL_DateConv($);
@ -724,6 +725,9 @@ VCONTROL_Set($@)
elsif ($$_[3] eq "1ByteS"){ elsif ($$_[3] eq "1ByteS"){
$send_additonal_param=VCONTROL_1ByteSConv($value); $send_additonal_param=VCONTROL_1ByteSConv($value);
} }
elsif ($$_[3] eq "1ByteUx10"){
$send_additonal_param=VCONTROL_1ByteUx10Conv($value);
}
elsif ($$_[3] eq "2ByteU"){ elsif ($$_[3] eq "2ByteU"){
$send_additonal_param=VCONTROL_2ByteUConv($value); $send_additonal_param=VCONTROL_2ByteUConv($value);
} }
@ -1033,7 +1037,7 @@ sub VCONTROL_DateParse($){
sub VCONTROL_1ByteUConv($) sub VCONTROL_1ByteUConv($)
{ {
my $convvalue = shift; my $convvalue = shift;
return (sprintf "%X", $convvalue); return (sprintf "%02X", $convvalue);
} }
##################################### #####################################
sub VCONTROL_1ByteSConv($) sub VCONTROL_1ByteSConv($)
@ -1048,6 +1052,12 @@ sub VCONTROL_1ByteSConv($)
} }
} }
##################################### #####################################
sub VCONTROL_1ByteUx10Conv($)
{
my $convvalue = shift;
return (sprintf "%02X", $convvalue*10);
}
#####################################
sub VCONTROL_2ByteUConv($) sub VCONTROL_2ByteUConv($)
{ {
my $convvalue = shift; my $convvalue = shift;