package Keithley6517AwithAutoRangeBug
@ISA = qw()

sub BEGIN

sub new
my ($module, @args) = @_;
return $this;

sub DESTROY
my $this = shift;

sub GetFunctions
return "|DCISource|DCVSource|DCIMeasure|DCVMeasure|ACVMeasure|ACIMeasure|";

sub Initialize
my ($this) = @_;

sub Finish
my ($this) = @_;

sub Clear
my ($this) = @_;

sub Reset
my ($this) = @_;

sub GetId
my ($this) = @_;
return $this->read();

sub Measure2
my ($this) = @_;
return $ValueStr if(abs($ValueStr) < 1.0e5);

sub Measure
my ($this) = @_;
return $ValueStr if(abs($ValueStr) < 1.0e5);
return undef;

sub MeasureAveraged
my ($this, $nAverage) = @_;
return undef if($ValueStr > 1.0e5);
return $avrI / $nAverage;

sub SetDCCurrentMode
my ($this, $ZeroCheck) = @_;

sub SetSourceVoltage
my ($this, $V) = @_;

sub SetVSourceOutput
my ($this, $f) = @_;

sub SetVSourceLimit
my ($this, $VSourceLimit) = @_;

sub SetIMeasureLimit
my ($this, $limit) = @_;

sub SetVMeasureLimit
my ($this, $limit) = @_;

sub SetIReference
my ($this, $f) = @_;

sub SetVReference
my ($this, $f) = @_;

sub SetCurrentRange
my ($this, $v) = @_;

sub SetAutoRangeForCurrent
my ($this, $f) = @_;

sub MeterConnect
my ($this, $f) = @_;