Files
sea/tcl/drivers/fluke45.tcl
2022-08-18 15:04:28 +02:00

32 lines
518 B
Tcl

namespace eval fluke45 {} {
}
proc stdConfig::fluke45 {{expr {X * 1}} {unit V}} {
variable name
controller std "\n" 5 ">"
prop startcmd "*IDN?"
GraphAdd $name $unit $name auto
obj Fluke45 rd
prop readcmd "MEAS?"
prop update fluke45::update
prop readfmt "%g"
prop expr $expr
kids "$name (fluke 45)" {
node raw upd
}
}
proc fluke45::update {} {
scan [sct result] "%f" x
updateval [sct]/raw $x
set cmd [string map {X $x} "expr [sct expr]"]
sct update [eval $cmd]
return idle
}