package Keithley6517A_Dummy
@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

sub Finish

sub Clear

sub Reset

sub GetId
return "Keithley6517A(Dummy module)";

sub SetDCCurrentMode

sub Measure
my ($this) = @_;
return $this->{V} + rand();

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

sub SetVSourceOutput

sub SetVSourceLimit

sub SetAutoRangeForCurrent