class Pm3500a <UsbTmc
# multimeter
#PICOTEST M3500A

def each_init
	@function="voltage:dc"; @range="auto";  @resolution=0;
end

def idn()
	talk(sprintf("*IDN?"))
	listen()
end
def init()
	talk("*CLS")
end
def reset()
	talk("*RST")
end

def function(str="")
	strs=["voltage:ac", "voltage:dc", "resistance","fresistance",
	"current:ac","current:dc", "frequency","temperature",
	"period","diode","continuity"]
	if strs.include?(str)
		talk(sprintf(":sense:function \"%s\"",str))
		@function=str
	else
		talk(sprintf(":sense:function?"))
		@function=listen() # remove quote
	end
	return @function
end
def range(n="")
	if n==""
		talk(sprintf(":sense:%s:range?",@function))
		@range=listen()
	elsif n=~/auto/i
		talk(sprintf(":sense:%s:range:auto on",@function))
		@range="auto"
	elsif n=~/minimum/i
                talk(sprintf(":sense:%s:range minimum",@function))
		@range="minimum"
	elsif n=~/maximum/i
		talk(sprintf(":sense:%s:range maximum",@function))
		@range="maximum"
	else
#		talk(sprintf(":sense:%s:range:upper %f",@function,n))
		talk(sprintf(":sense:%s:range %.1e",@function,n))
		@range=n
	end
	return @range
end
def resolution(n="")
	if n==""
		talk(sprintf(":sense:%s:resolution?",@function))
		@resulution=listen()
	elsif n=~/min/i
		talk(sprintf(":sense:%s:resolution minimum",@function))
		@resolution="minimum"
	elsif n=~/max/i
		talk(sprintf(":sense:%s:resolution maximum",@function))
		@resolution="maximum"
	else
#		talk(sprintf(":sense:%s:range:upper %f",@function,n))
		talk(sprintf(":sense:%s:resolution %.1e",@function,n))
		@resolution=n
	end
	return @resolution
end
def average(n="")
	if n=~/^moving|repeat$/i
		talk(sprintf(":sense:average:tcontrol %s",n))
	elsif n=~/^on|off$/i
		talk(sprintf(":sense:average:state %s",n))
	else
		talk(sprintf(":sense:average:count %d",n))
	end
end
def thermocouple(n="")
	if n=~/^E|J|K|N|R|S|T$/i
		talk(sprintf(":sense:tcouple:type %s",n))
	else
		talk(sprintf(":sense:tcouple:type?"))
		listen()
	end
end
def temperatureunit(n="")
  strs=["C", "F", "K"]
  if strs.include?(str)
    talk(sprintf(":sense:unit \"%s\"",str))
  else
    talk(sprintf(":sense:unit?"))
    listen()
  end
end
#[SENSe:]TCOuple:RJUNction:RSELect {REAL|SIMulated }
#[SENSe:]TCOuple:RJUNction:SIMulated {<value>|MINimum|MAXimum}
#[SENSe:]TCOuple:RJUNction:SIMulated?
def trigger()
	talk(sprintf(":trigger:delay mimimum"))
	talk(sprintf(":trigger:source immediate"))
end

def measure()
	talk("read?")
#	talk(":fetch?")
#	r=listen(256)
	r=listen()
	return r.to_s.sub(/^\w*/){""}.to_f
end
def read()
	measure()
end

def fetch()
	talk("fetch?")
	r=listen()
	return r.to_s.sub(/^\w*/){""}.to_f
end
def initiate()
	talk("INITIATE")
end

end #class