linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge from Quokka hvcommands.tcl and pulser.tcl

Browse Source
This commit is contained in:
Douglas Clowes
2014-06-25 16:08:16 +10:00
parent ba16ebb992
commit 5b48df31ba
2 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
site_ansto/instrument/config/commands/hvcommands.tcl
View File

@@ -23,7 +23,7 @@ proc SetVolt {volt} {
}
proc GetVolt {} {
pulser send VOLT:OFFS?
pulser transact VOLT:OFFS?
}
proc SingleVolt {volt oscno} {
@@ -47,7 +47,7 @@ proc SetDC {} {
pulseroff
#NOTE: Setting FUNC DC generates a remote ctrl error if the
# burst mode happens to be on
set resp [pulser send "BURS:STAT OFF;:FUNC DC;:VOLT:OFFS 0; OFFS?"]
set resp [pulser transact "BURS:STAT OFF;:FUNC DC;:VOLT:OFFS 0; OFFS?"]
pulseron
}
@@ -311,7 +311,7 @@ proc PulserBurst {} {
PulserOn
pulser send "*TRG;:BURS:NCYC?"
while {1} {
set sval [pulser send *OPC?]
set sval [pulser transact *OPC?]
if {[string first 1 $sval] >-1} {break}
}
PulserOff