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

Add ";*IDN?" in SetValue and setPoint functions (after commands that don't elicit a response) to force a response that avoids the timeout and reconnect sequence that gives problems on the LS336

Browse Source 
r3259 | dcl | 2011-10-18 16:13:01 +1100 (Tue, 18 Oct 2011) | 1 line
This commit is contained in:
Douglas Clowes
2011-10-18 16:13:01 +11:00
parent 27cb364855
commit a172bed449
3 changed files with 34 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
site_ansto/instrument/config/environment/temperature/sct_lakeshore_336.tcl
View File

@@ -733,7 +733,7 @@ proc setValue {tc_root nextState cmd {idx ""}} {
set par [sct target]
}
# Talking to a pseudo-node (no equivalent command in the device communication)
sct send "$cmd$par"
sct send "$cmd$par;*IDN?"
} message ]} {
return -code error "in setValue: $message."
}
@@ -800,7 +800,7 @@ proc setPoint {tc_root nextState cmd whichCtrlLoop} {
hsetprop $nodename driving 1
}
#puts "setPoint(wrStatus=$wrStatus): sct send $cmd$par"
sct send "$cmd$par"
sct send "$cmd$par;*IDN?"
} message ]} {
return -code error "in setPoint: $message."
}

4
site_ansto/instrument/config/environment/temperature/sct_lakeshore_340.tcl
View File

@@ -842,7 +842,7 @@ proc setValue {tc_root nextState cmd {idx ""}} {
}
set ::scobj::ls340::ls340_lastWriteCmd "$cmd$par"
# Talking to a pseudo-node (no equivalent command in the device communication)
sct send "$cmd$par"
sct send "$cmd$par;*IDN?"
} message ]} {
return -code error "in setValue: $message. While sending command: $::scobj::ls340::ls340_lastWriteCmd"
}
@@ -912,7 +912,7 @@ proc setPoint {tc_root nextState cmd whichCtrlLoop} {
hsetprop $nodename driving 1
}
#puts "setPoint(wrStatus=$wrStatus): sct send $cmd$par"
sct send "$cmd$par"
sct send "$cmd$par;*IDN?"
} message ]} {
return -code error "in setPoint: $message. Last write command: $::scobj::ls340::ls340_lastWriteCmd"
}