Lab::Instrument::Lakeshore370 - Lakeshore 370 AC Resistance Bridge

Lab-Instrument documentation Contained in the Lab-Instrument distribution.

Index

Code Index:

NAME

Top

Lab::Instrument::Lakeshore370 - Lakeshore 370 AC Resistance Bridge

SYNOPSIS

Top

    use Lab::Instrument::Lakeshore370;

    my $lake=new Lab::Instrument::Lakeshore370(0,10);

    $temp = $lake->read_t();
    $r = $lake->read_r();

DESCRIPTION

Top

The Lab::Instrument::Lakeshore370 class implements an interface to the Lakeshore 370 AC Resistance Bridge.

CONSTRUCTOR

Top

  $lake=new Lab::Instrument::Lakeshore370($board,$gpib);

METHODS

Top

read_t

  $t = $lake->read_t();

Reads temperature in Kelvin (only possible if temperature curve is available, otherwise returns zero).

read_r

  $r = $lake->read_r();

Reads resistance in ohms.

set_channel

  $lake->set_channel(4);

Sets channel to scan (with autoscan = off); returns channel the bridge was set to.

id

  $id=$lake->id();

Returns the instruments ID string.

CAVEATS/BUGS

Top

probably many

SEE ALSO

Top

Lab::Instrument

AUTHOR/COPYRIGHT

Top

This is $Id: Lakeshore370.pm 650 2010-04-22 19:09:27Z schroeer $

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

Lab-Instrument documentation Contained in the Lab-Instrument distribution. 
package Lab::Instrument::Lakeshore370;

use strict;
use Lab::Instrument;
use Time::HiRes qw (usleep);

our $VERSION = sprintf("0.%04d", q$Revision: 650 $ =~ / (\d+) /);

sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto;
    my $self = {};
    bless ($self, $class);
    $self->{vi}=new Lab::Instrument(@_);
    return $self
}


sub set_channel {
    my ($self,$chan)=@_;
    $self->{vi}->Write("SCAN $chan,0");	# "0" fuer autoscan = off
    my $realchan=$self->{vi}->Query("SCAN?");
    chomp $realchan;
    return "$realchan";
}

sub read_t {

    my ($self,$chan)= @_;
    my $temp=$self->{vi}->Query("RDGK? $chan");
    chomp $temp;
    $temp =~ s/\n//;
    $temp =~ s/\r//;
    return $temp;
}

sub read_r {

    my ($self,$chan)= @_;
    my $r=$self->{vi}->Query("RDGR? $chan");
    chomp $r;
    $r =~ s/\n//;
    $r =~ s/\r//;
    return $r;
}


sub id {
    my $self=shift;
    $self->{vi}->Query('*IDN?');
}

              
1;