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

Standardised on using controlsensor = A and range = 5

Browse Source 
r2695 | ffr | 2008-09-18 14:12:24 +1000 (Thu, 18 Sep 2008) | 2 lines
This commit is contained in:
Ferdi Franceschini
2008-09-18 14:12:24 +10:00
committed by Douglas Clowes
parent cc640e2fb0
commit 70f194fe85
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
site_ansto/instrument/config/environment/temperature/lakeshore340_common.tcl
View File

@@ -3,7 +3,7 @@ namespace eval ::environment::temperature {
array set tc_dfltPar { array set tc_dfltPar {
tolerance 1 tolerance 1
settle 30 settle 30
range 2 range 5
upperlimit 500 upperlimit 500
lowerlimit 4 lowerlimit 4
} }
@@ -17,10 +17,10 @@ namespace eval ::environment::temperature {
proc ::environment::temperature::mkls340sim {temp_sobj} { proc ::environment::temperature::mkls340sim {temp_sobj} {
EvFactory new $temp_sobj sim EvFactory new $temp_sobj sim
sicslist setatt $temp_sobj numsensors 4 sicslist setatt $temp_sobj numsensors 4
# sicslist setatt $temp_sobj controlsensor sensora sicslist setatt $temp_sobj controlsensor sensora
sicslist setatt $temp_sobj sensorlist sensora,sensorb,sensorc,sensord sicslist setatt $temp_sobj sensorlist sensora,sensorb,sensorc,sensord
sicslist setatt $temp_sobj heateron 1 sicslist setatt $temp_sobj heateron 1
# sicslist setatt $temp_sobj range 2 sicslist setatt $temp_sobj range 5
sicslist setatt $temp_sobj units kelvin sicslist setatt $temp_sobj units kelvin
sicslist setatt $temp_sobj klass @none sicslist setatt $temp_sobj klass @none
} }
@@ -33,7 +33,7 @@ proc ::environment::temperature::mkls340sim {temp_sobj} {
proc ::environment::temperature::mkls340 {temp_sobj IP port} { proc ::environment::temperature::mkls340 {temp_sobj IP port} {
Makeasyncqueue ${temp_sobj}_AsyncQ LS340 $IP $port Makeasyncqueue ${temp_sobj}_AsyncQ LS340 $IP $port
${temp_sobj}_AsyncQ timeout 2000 ${temp_sobj}_AsyncQ timeout 2000
EvFactory new $temp_sobj ls340 ${temp_sobj}_AsyncQ 1 D ABCD EvFactory new $temp_sobj ls340 ${temp_sobj}_AsyncQ 1 A ABCD
sicslist setatt $temp_sobj units kelvin sicslist setatt $temp_sobj units kelvin
sicslist setatt $temp_sobj klass @none sicslist setatt $temp_sobj klass @none
} }