Lab::Instrument::Lakeshore336 - Lakeshore 336 Temperature controller

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

Index

Code Index:

NAME

Top

Lab::Instrument::Lakeshore336 - Lakeshore 336 Temperature controller

UNGETESTET

SYNOPSIS

Top

    use Lab::Instrument::Lakeshore336;

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

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

DESCRIPTION

Top

The Lab::Instrument::Lakeshore336 class implements an interface to the Lakeshore 336 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.

id

  $id=$sr780->id();

Returns the instruments ID string.

CAVEATS/BUGS

Top

probably many

SEE ALSO

Top

Lab::Instrument

AUTHOR/COPYRIGHT

Top

This is $Id: Lakeshore336.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::Lakeshore336;

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 read_t {

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

sub read_r {

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

sub get_setp {

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

sub set_setp {

    my ($self,$output,$t)= @_;
    $self->{vi}->WRITE("SETP $output,$t");
}


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

              
1;