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

11
site_ansto/instrument/config/commands/pulser.tcl
View File

@@ -11,13 +11,14 @@ proc PulserOff {} {
proc PulserTTLOn {} {
#NOTE: Setting FUNC DC generates a remote ctrl error if the
# burst mode happens to be on
pulser send "BURS:STAT OFF;:FUNC DC;:VOLT:OFFS 5; OFFS?"
# Set 5.2 Volts to get about 5.1. (5 actually gives 4.8)
pulser send "BURS:STAT OFF;:FUNC DC;:VOLT:OFFS 5.2; OFFS?"
PulserOn
}
proc PulserSin {Freq Volt} {
set resp [pulser send FUNC?]
set resp [pulser transact FUNC?]
if {[string first "SIN" $resp ] == -1 } {
pulser send "FUNC SIN;:FUNC?"
}
@@ -28,7 +29,7 @@ proc PulserSin {Freq Volt} {
}
proc PulserSquare {Freq Volt} {
set resp [pulser send FUNC?]
set resp [pulser transact FUNC?]
if {[string first "SQU" $resp ] == -1 } {
pulser send "FUNC SQU;:FUNC?"
}
@@ -39,7 +40,7 @@ proc PulserSquare {Freq Volt} {
}
proc PulserSquareOffs {Freq Volt Offs} {
set resp [pulser send FUNC?]
set resp [pulser transact FUNC?]
if {[string first "SQU" $resp ] == -1 } {
pulser send "FUNC SQU;:FUNC?"
}
@@ -53,7 +54,7 @@ proc PulserSquareOffs {Freq Volt Offs} {
proc PulserDC {Volt} {
#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 $Volt; OFFS?"]
set resp [pulser transact "BURS:STAT OFF;:FUNC DC;:VOLT:OFFS $Volt; OFFS?"]
broadcast $resp
}