view release on metacpan or  search on metacpan

lib/Device/GPIB/Generic.pm  view on Meta::CPAN

# Set a new address to talk to
sub setAddress()
{
    my ($self, $address) = @_;

    $self->{Address} = $address;
}

# Return the device ID, or undef if nothing at the address
sub id($)
{
    my ($self) = @_;
    
    $self->{Id} = $self->sendAndRead('ID?');

    if (!$self->{Id})
    {
	warn "No GPIB device at address $self->{Address}";
	return;
    }

lib/Device/GPIB/Tektronix/LA1240.pm  view on Meta::CPAN

	722 => 'End auto-run',
	723 => 'End of KEY',
	724 => 'End auto-run, memories equal',
	725 => 'End auto-run, memories not equal',
	731 => 'Diagnostics test complete',
	
    };
    return $self;
}

sub id($)
{
    my ($self) = @_;

    my $id = $self->sendAndRead('ID?');
    if ($id eq 'STATUS 41') # restarted
    {
	$id = $self->sendAndRead('ID?');
    }
    return $id;
}

lib/Device/GPIB/Tektronix/PS5010.pm  view on Meta::CPAN

    {
	$self->send('OUT ON');
    }
    else
    {
	$self->send('OUT OFF');
    }
    return;
}

sub on($)
{
    my ($self) = @_;

    return $self->output(1);
}

sub off($)
{
    my ($self) = @_;