32 lines
518 B
Tcl
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
|
|
}
|
|
|