<?PHP:
#!/usr/bin/perl
use POSIX;
use Time::HiRes qw(gettimeofday);
#
# Set terminal parameters of the TTY that the optocoupler is connected to
#
sub init_tty {
my $fd = fileno(shift);
my $termios = POSIX::Termios->new();
$termios->getattr($fd) or die "Can't get terminal parameters for $dev";
$termios->setispeed(B2400);
$termios->setiflag(0);
$termios->setlflag(0);
$termios->setattr($fd, TCSANOW);
}
#
# Read next (complete) binary string from the optocoupler
#
sub next_bin_str {
my $bin_str;
while (!eof(USB_TTY) and length($bin_str) != 14 * 4) {
my $byte = getc(USB_TTY);
my $nibble_number = ord($byte) >> 4 & 0xf;
$bin_str .= substr(unpack("B*", $byte), 4);
length($bin_str) == $nibble_number * 4 or $bin_str = "";
}
$bin_str;
}
#
# Decode the measured data from the binary string
#
sub decode_bin_str {
my ($AC, $DC, $auto, $unknown1,
$minus, $digi1, $dot1, $digi2, $dot2, $digi3, $dot3, $digi4,
$micro, $unknown2, $kilo, $diode_test,
$milli, $percent, $mega, $cont_check,
$unknown3, $ohm, $rel, $hold,
$amp, $volt, $hz, $unknown4,
$min, $unknown5, $celsius, $max) = shift =~
/^(.)(.)(.)(.)(.)(.{7})(.)(.{7})(.)(.{7})(.)(.{7})
(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.)(.) *$/x;
my %digi = (
"1111101" => 0,
"0000101" => 1,
"1011011" => 2,
"0011111" => 3,
"0100111" => 4,
"0111110" => 5,
"1111110" => 6,
"0010101" => 7,
"1111111" => 8,
"0111111" => 9,
);
my $val = ($minus ? "-" : "") . $digi{$digi1} . ($dot1 ? "." : "") .
$digi{$digi2} . ($dot2 ? "." : "") .
$digi{$digi3} . ($dot3 ? "." : "") .
$digi{$digi4};
my $test = ($minus ? "-" : "") .$digi{$digi1} . ($dot1 ? "," : "") .
$digi{$digi2} . ($dot2 ? "," : "") .
$digi{$digi3} . ($dot3 ? "," : "") .
$digi{$digi4};
my $flags = join(" ", $AC ? "AC" : (),
$DC ? "DC" : (),
$auto ? "auto" : (),
$diode_test ? "diode_test" : (),
$cont_check ? "cont_check" : (),
$rel ? "rel" : (),
$hold ? "hold" : (),
$min ? "min" : (),
$max ? "max" : ());
my $unit = ($micro ? "u" : "") .
($kilo ? "k" : "") .
($milli ? "m" : "") .
($mega ? "M" : "") .
($percent ? "%" : "") .
($ohm ? "Ohm" : "") .
($amp ? "A" : "") .
($volt ? "V" : "") .
($hz ? "Hz" : "") .
($celsius ? "C" : "");
$val, $test, $flags, $unit;
}
sub help {
print "\n";
print "Usage:\n";
print "multimeter -p Port -d Delay\n";
print "\n";
print "Port: The port that the optocoupler is connected. Default Port is /dev/ttyUSB0\n";
print "Delay: Delay time (seconds) between measurements. Default Delay is 0 sec\n";
print "\n";
print "Example:\n";
print "multimeter -p /dev/ttyUSB1 -d 1\n";
print "\n";
print "-h or --help: This message.\n";
print "\n";
exit;
}
################################################################################
$numArgs = $#ARGV + 1;
$delay=0;
$dev = "/dev/ttyUSB0";
foreach $argnum (0 .. $#ARGV) {
if ($ARGV[$argnum] eq "-p") {
$dev = $ARGV[$argnum + 1];
} elsif ($ARGV[$argnum] eq "-d") {
$delay = $ARGV[$argnum + 1];
} elsif ($ARGV[$argnum] eq "-h" or $ARGV[$argnum] eq "--help") {
help;
}
}
open USB_TTY, $dev or die "Can't open $dev";
init_tty(\*USB_TTY);
# force immediate flushing to stdout
$| = 1;
my $last_timestamp;
while ($bin_str = next_bin_str) {
my ($val, $test, $flags, $unit) = decode_bin_str($bin_str);
$last_timestamp ||= gettimeofday;
my $timestamp = gettimeofday;
printf "%7.2f\t%9.3f\t%s\t%s\n", $timestamp - $last_timestamp, $val, $unit, $flags;
# $last_timestamp = $timestamp;
sleep $delay
}
Ο αρχικός κώδικας υπάρχει 
Απάντηση με παράθεση
.Απλα οταν εβγαλα το αλλο απλο πολυμετρο απο τον ανιχνευτη στατικου ηλεκτρισμου ,και εβαλα το VA18B ειδα τις ιδιες ενδειξης ,και λεω ειμαστε οκ.
Αρχικό μήνυμα από weather1967
