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

add progress reminder at changing temperature and field

Browse Source 
r3399 | jgn | 2012-02-27 12:13:47 +1100 (Mon, 27 Feb 2012) | 1 line
This commit is contained in:
Jing Chen
2012-02-27 12:13:47 +11:00
committed by Douglas Clowes
parent a24420bf69
commit 5b4b52c627
1 changed files with 50 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

64
site_ansto/instrument/config/environment/magneticField/sct_oxford_labview.tcl
View File

@@ -70,6 +70,7 @@ proc ::scobj::magnetic::rdFieldStateFunc {basePath} {
} elseif {[string first "read timeout" $replyStr] != -1} {
broadcast "Error: read timeout on the connectiion to the Oxford Labview server"
} else {
debug_log "Magnetic Current: $replyStr"
debug_log [expr $replyStr/10.0]
hset $basePath/magneticField $replyStr
}
@@ -108,6 +109,16 @@ proc ::scobj::magnetic::rdTempStateFunc {basePath} {
return idle
}
proc OxfordSetTemp {temp} {
set NAME "magnetic"
hset /sics/$NAME/TempSetTarget $temp
set comm "setT $temp\r\n"
sct_magnetic send $comm
}
publish OxfordSetTemp user
##
# @brief Make a Magnetic Controller
#
@@ -148,9 +159,37 @@ proc ::scobj::magnetic::mkMagnetic {argList} {
hfactory /sics/$pa(NAME)/start_temperature_s3 plain user float
hfactory /sics/$pa(NAME)/end_temperature_s3 plain user float
# Setting Magnetic field
hfactory /sics/$pa(NAME)/setPoint plain user float
hfactory /sics/$pa(NAME)/setRate plain user float
hfactory /sics/$pa(NAME)/setTemp plain user float
# Setting Temperature
hfactory /sics/$pa(NAME)/TempSetTarget plain user float
hfactory /sics/$pa(NAME)/TempSetPoint plain user float
# Initialise properties required for generating the API for GumTree and to save data
::scobj::hinitprops $pa(NAME) start_magnetic end_magnetic magneticField
::scobj::hinitprops $pa(NAME) start_temperature_s1 end_temperature_s1 Temp_s1
::scobj::hinitprops $pa(NAME) start_temperature_s2 end_temperature_s2 Temp_s2
::scobj::hinitprops $pa(NAME) start_temperature_s3 end_temperature_s3 Temp_s3
sicslist setatt $pa(NAME) klass environment
# proc ::histogram_memory::pre_count "{fPath $pa(NAME)}" {
# hset /sics/$fPath/start_magnetic [hval /sics/$fPath/magneticField]
# hset /sics/$fPath/start_temperature_s1 [hval /sics/$fPath/Temp_s1]
# hset /sics/$fPath/start_temperature_s2 [hval /sics/$fPath/Temp_s2]
# hset /sics/$fPath/start_temperature_s3 [hval /sics/$fPath/Temp_s3]
# }
# proc ::histogram_memory::post_count "{fPath $pa(NAME)}" {
# hset /sics/$fPath/end_magnetic [hval /sics/$fPath/magneticField]
# hset /sics/$fPath/end_temperature_s1 [hval /sics/$fPath/Temp_s1]
# hset /sics/$fPath/end_temperature_s2 [hval /sics/$fPath/Temp_s2]
# hset /sics/$fPath/end_temperature_s3 [hval /sics/$fPath/Temp_s3]
# }
# Initialise properties required for generating the API for GumTree and to save data
::scobj::hinitprops $pa(NAME) start_magnetic end_magnetic magneticField
@@ -205,12 +244,19 @@ proc ::scobj::magnetic::mkMagnetic {argList} {
}
proc OxfordSetField {setPoint} {
proc OxfordSetField {setPoint {mode ""} args} {
set NAME "magnetic"
hset /sics/$NAME/setPoint $setPoint
set comm "setF $setPoint\r\n"
sct_magnetic send $comm
if {$mode == ""} {
set comm "setF $setPoint\r\n"
sct_magnetic send $comm
} elseif {$mode == "P"} {
set comm "setF $setPoint Pers\r\n"
sct_magnetic send $comm
} else {
broadcast "Wrong parameters being provided, check!"
}
}
proc OxfordSetRate {setRate} {
@@ -221,16 +267,6 @@ proc OxfordSetRate {setRate} {
sct_magnetic send $comm
}
proc OxfordSetTemp {temp} {
set NAME "magnetic"
hset /sics/$NAME/setTemp $temp
set comm "setT $temp\r\n"
sct_magnetic send $comm
}
publish OxfordSetField user
publish OxfordSetRate user
publish OxfordSetTemp user