25 lines
357 B
Tcl
25 lines
357 B
Tcl
# DTM pressure sensors
|
|
namespace eval dtm {} {
|
|
}
|
|
|
|
proc stdConfig::dtm {fact} {
|
|
controller std "\r" 5
|
|
prop startcmd "IDN?"
|
|
|
|
pollperiod 1
|
|
obj dtm rd -float
|
|
prop read dtm::read $fact
|
|
|
|
}
|
|
|
|
proc dtm::read {fact} {
|
|
sct send "PRES?"
|
|
return "dtm::update $fact"
|
|
}
|
|
|
|
proc dtm::update {fact} {
|
|
sct update [expr [sct result] * $fact]
|
|
return idle
|
|
}
|
|
|