The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

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).