\npackage tekpower;<\/p>\nuse Device::SerialPort;
\nuse Data::Dumper;
\nuse strict;<\/p>\n
sub new {
\n my $self = {};
\n my $type = shift;
\n my $port = shift;<\/p>\n
$self->{'debug'} = 0;
\n $self->{'port'} = $port;
\n $self->{'dev'} = Device::SerialPort->new($port, 1) || die \"Failed to open $port\";
\n $self->{'dev'}->baudrate(2400);
\n $self->{'dev'}->parity('none');
\n $self->{'dev'}->databits(8);
\n $self->{'dev'}->stopbits(1);
\n $self->{'dev'}->dtr_active(1);<\/p>\n
$self->{'dev'}->debug($self->{'debug'}) if($self->{'debug'});
\n $self->{'dev'}->write_settings;
\n $self->{'dev'}->read_const_time(3000);
\n my $r = bless($self, $type);<\/p>\n
return $r;
\n}<\/p>\n
sub read {
\n my $self = shift;
\n $self->{'dev'}->reset_error;
\n my ($count,$buf) = $self->{'dev'}->read(64);
\n print \"count: $count\\n\" if($self->{'debug'});
\n my @array = split(\/\/,$buf);
\n my $notOk = 1;
\n while($notOk && @array) {
\n my $z = shift(@array);<\/p>\n
print \"z: \" . ord($z) if($self->{'debug'});<\/p>\n
my $checksum = (ord($z) & 0xF0) >> 4;
\n print \"checksum: $checksum\\n\" if($self->{'debug'});
\n if($checksum == 1) {
\n unshift(@array,$z);
\n $notOk = 0;
\n }
\n }
\n my @v_array;
\n # first check high order bits
\n my ($i, $checksum);
\n for($i=0;$i<14;$i++) {\n $checksum = ord($array[$i]) & 0xF0;\n $v_array[$i] = ord($array[$i]) & 0x0F;\n $checksum = $checksum >> 4;
\n if($checksum != ($i+1)) {
\n print \"Checksum mismatch at $i ($checksum)\\n\" if($self->{'debug'});
\n return undef;
\n }<\/p>\n
}<\/p>\n
# second decode reading;
\n my $mode;<\/p>\n
$self->{'smode'} = \"AC\" if($v_array[0] & 8);
\n $self->{'smode'} = \"DC\" if($v_array[0] & 4);
\n # bit 2 is auto ranging, do we care?
\n # bit 1 is RS232, um, if you don't know that, what are you doing here?
\n $self->{'sign'} = \"+\";
\n $self->{'sign'} = \"-\" if($v_array[1] & 8);
\n $self->{'digit1'} = $self->convert_digit($v_array[1], $v_array[2], 0 );
\n $self->{'digit2'} = $self->convert_digit($v_array[3], $v_array[4], 1 );
\n $self->{'digit3'} = $self->convert_digit($v_array[5], $v_array[6], 1 );
\n $self->{'digit4'} = $self->convert_digit($v_array[7], $v_array[8], 1 );<\/p>\n
$self->{'number'} = $self->{'sign'} . $self->{'digit1'} . $self->{'digit2'} . $self->{'digit3'} . $self->{'digit4'};<\/p>\n
$self->{'range'} = 'u' if($v_array[9] & 8);
\n $self->{'number'} *= 0.000001 if($v_array[9] & 8);<\/p>\n
$self->{'range'} = 'n' if($v_array[9] & 4);
\n $self->{'number'} *= 0.000000001 if($v_array[9] & 4);
\n $self->{'range'} = 'k' if($v_array[9] & 2);
\n $self->{'number'} *= 1000 if($v_array[9] & 2);<\/p>\n
# 1 is diode, do we care?
\n $self->{'range'} = 'm' if($v_array[10] & 8);
\n $self->{'number'} *= 0.001 if($v_array[10] & 8);<\/p>\n
$self->{'range'} = '%' if($v_array[10] & 4);
\n $self->{'range'} = 'M' if($v_array[10] & 2);
\n $self->{'number'} *= 1000000 if($v_array[10] & 2);<\/p>\n
$self->{'mode'} = \"farad\" if($v_array[11] & 8);
\n $self->{'mode'} = \"ohm\" if($v_array[11] & 4);
\n $self->{'mode'} = \"delta\" if($v_array[11] & 2);<\/p>\n
# bit 1 is hold, do we care?<\/p>\n
$self->{'mode'} = \"amps\" if($v_array[12] & 8);
\n $self->{'mode'} = \"volts\" if($v_array[12] & 4);
\n $self->{'mode'} = \"hz\" if($v_array[12] & 2);<\/p>\n
return $self->{'smode'} . ' ' . $self->{'mode'} . \" \" . $self->{'sign'} . \" \" . $self->{'digit1'} . $self->{'digit2'} . $self->{'digit3'} . $self->{'digit4'} . ' ' . $self->{'range'};<\/p>\n
}<\/p>\n
sub convert_digit {
\n my $self = shift;
\n my $lhs = shift;
\n my $rhs = shift;
\n my $include_decimal = shift;
\n my $decimal;<\/p>\n
if($include_decimal) {
\n if($lhs & 8) {
\n $decimal = \".\";
\n } else {
\n $decimal = \"\";
\n }
\n }<\/p>\n
$lhs = $lhs & 7;<\/p>\n
my $d;<\/p>\n
# 000 0101 = 1
\n if($lhs == 0 && $rhs == 5) {
\n $d = 1;
\n # 101 1011 = 2
\n } elsif($lhs == 5 && $rhs == 11) {
\n $d = 2;
\n # 001 1111 = 3
\n } elsif($lhs == 1 && $rhs == 15) {
\n $d = 3;
\n # 010 0111 = 4
\n } elsif($lhs == 2 && $rhs == 7) {
\n $d = 4;
\n # 011 1110 = 5
\n } elsif($lhs == 3 && $rhs == 14) {
\n $d = 5;
\n # 111 1110 = 6
\n } elsif( $lhs == 7 && $rhs == 14) {
\n $d = 6;
\n # 001 0101 = 7
\n } elsif($lhs == 1 && $rhs == 5) {
\n $d = 7;
\n # 111 1111 = 8
\n } elsif($lhs == 7 && $rhs == 15) {
\n $d = 8;
\n # 011 1111 = 9
\n } elsif($lhs == 3 && $rhs == 15 ) {
\n $d = 9;
\n # 111 1101 = 0
\n } elsif($lhs == 7 && $rhs == 13 ) {
\n $d = 0;
\n } elsif($lhs == 6 && $rhs == 8) {
\n $d = \"L\";
\n } else {
\n return undef;
\n }<\/p>\n
my $v = $decimal . $d;
\n print \"V: $v\\n\" if($self->{'debug'});
\n return $v;
\n}<\/p>\n
1;
\n<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"
I didn’t see one of these lying around so I banged this together in a few minutes to be able to use the TP4000ZC with a raspberry pi.. the intention is to use this to monitor the main bus voltage of my solar array. This is provided, obviously, with no warranty, and is based on […]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"_links":{"self":[{"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/posts\/3630"}],"collection":[{"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/comments?post=3630"}],"version-history":[{"count":3,"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/posts\/3630\/revisions"}],"predecessor-version":[{"id":3636,"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/posts\/3630\/revisions\/3636"}],"wp:attachment":[{"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/media?parent=3630"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/categories?post=3630"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.sheer.us\/weblogs\/wp-json\/wp\/v2\/tags?post=3630"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}