#============================================================
# Keithley6517A_Dummy
#============================================================
package Keithley6517A_Dummy;
use Device::DeviceObject;
@ISA = qw(DeviceObject);

#公開したいサブルーチン
@EXPORT = qw();

use strict;
use Deps;

#============================================================
#　コンストラクタ、デストラクタ
#============================================================
BEGIN { }

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

sub DESTROY
{
	my $this = shift;
	$this->Finish();
}

#============================================================
#　変数取得関数
#============================================================
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) = @_;
	$this->{V} = $V;
}

sub SetVSourceOutput
{
}

sub SetVSourceLimit
{
}

sub SetAutoRangeForCurrent
{
}

1;