54 lines
797 B
Tcl
54 lines
797 B
Tcl
proc PulserOn {} {
|
|
pulser send "OUTP ON"
|
|
|
|
}
|
|
|
|
proc PulserOff {} {
|
|
pulser send "OUTP OFF"
|
|
|
|
}
|
|
|
|
proc PulserSin {Freq Volt} {
|
|
pulser send FUNC SIN
|
|
pulser send VOLT $Volt
|
|
pulser send FREQ $Freq
|
|
pulser send VOLT:OFFS 0
|
|
|
|
}
|
|
|
|
proc PulserSquare {Freq Volt} {
|
|
pulser send FUNC SQU
|
|
pulser send VOLT $Volt
|
|
pulser send FREQ $Freq
|
|
pulser send VOLT:OFFS 0
|
|
|
|
}
|
|
|
|
proc PulserSquareOffs {Freq Volt Offs} {
|
|
pulser send FUNC SQU
|
|
pulser send VOLT $Volt
|
|
pulser send FREQ $Freq
|
|
pulser send VOLT:OFFS $Offs
|
|
|
|
}
|
|
|
|
|
|
proc PulserDC {Volt} {
|
|
set resp [pulser send FUNC?]
|
|
broadcast $resp
|
|
if {$resp != "DC"} {
|
|
pulser send FUNC DC
|
|
}
|
|
pulser send VOLT:OFFS $Volt
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
publish PulserOn user
|
|
publish PulserOff user
|
|
publish PulserSin user
|
|
publish PulserSquare user
|
|
publish PulserDC user
|
|
publish PulserSquareOffs user |