view release on metacpan or  search on metacpan

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

    return $self->getGeneric('VLOG');
}

sub setILogic($$)
{
    my ($self, $value) = @_;

    return $self->setGeneric('ILOG', $value);
}

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

    return $self->getGeneric('ILOG');
}

sub setVTrack($$)
{
    my ($self, $value) = @_;

    return $self->setGeneric('VTRA', $value);
}

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

    return $self->getGeneric('VTRA');
}

sub setITrack($$)
{
    my ($self, $value) = @_;

    return $self->setGeneric('ITRA', $value);
}

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

    return $self->getGeneric('ITRA');
}

sub output($$)
{
    my ($self, $value) = @_;

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

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

    return $self->output(1);
}

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

    return $self->output(0);
}

1;