package TR6143_Dummy
@ISA = qw()

sub BEGIN

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

sub DESTROY
my $this = shift;

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

sub Initialize
my ($this) = @_;

sub Finish
my ($this) = @_;

sub Clear
my ($this) = @_;

sub Reset
my ($this) = @_;

sub GetId
return "TR6143(Dummy module)";

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

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

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

sub SetSourceDCCurrentMode
my ($this, $Range) = @_;

sub SetMeasureDCCurrentMode
my ($this, $Range) = @_;

sub SetCurrentLimit
my ($this, $I) = @_;

sub SetSourceCurrent
my ($this, $I) = @_;
return $I;

sub SetSourceDCVoltageMode
my ($this, $Range) = @_;

sub SetMeasureDCVoltageMode
my ($this, $Range) = @_;

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

sub SetVSource
my ($this, $V) = @_;
return $this->SetSourceVoltage($V);

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

sub Measure
my ($this, $V) = @_;
return $V * (1.0 + (rand() - 0.5) * 0.1);