NAME

Device::DSE::Q1573 - Read data from DSE Q1573 Digital Multimeter

SYNOPSIS

  use Device::DSE::Q1573;
  my $meter = Device::DSE::Q1573->new("/dev/ttyS0");
  my $reading = $meter->read();
  my $reading = $meter->rawread();

DESCRIPTION

Sets up a connection to a DSE Q1573 or Metex ME-22 Digital Multimeter, and allows you to read measurements from it. The data return is 14 bytes of the format:

Type:Data:Units eg reading when temperature is selected on the meter will return

"TE 0019 C "

USAGE

new(serialport)

 Usage     : my $meter=Device::DSE::Q1573->new("/dev/ttyS0")
 Purpose   : Opens the meter on the specified serial port
 Returns   : object of type Device::DSE::Q1573
 Argument  : serial port
 

rawread();

 Usage     : my $meter->rawread()
 Purpose   : Returns the 14 byte string from the meter.

read();

 Usage     : my $meter->read()
 Purpose   : Returns a hash of values for the reading:
 
                                { 
                                        setting => setting eg TE for temperature
                                        value => value read eg 14
                                        units => units read eg C for celsius 
                                        
                                }
 
 

EXAMPLE

use Device::DSE::Q1573;

my $meter = Device::DSE::Q1573->new( "/dev/ttyS0" );

while(1) { my $data = $meter->read(); print $data->{value} . "\n"; sleep(1); }

AUTHOR

    David Peters
    CPAN ID: DAVIDP
    davidp@electronf.com
    http://www.electronf.com

COPYRIGHT

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included with this module.

SEE ALSO

perl(1).