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

fix hfflow config

Browse Source 
+ ccu4: make unused valves invisible
This commit is contained in:
l_samenv
2023-05-24 11:46:56 +02:00
parent 4791ae8693
commit 366ad2d560
2 changed files with 18 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
tcl/drivers/ccu4.tcl
View File

@ -382,12 +382,19 @@ proc stdConfig::ccu4 {{title CCU4} args} {
node ax upd node ax upd
node axs upd node axs upd
node axd upd -int node axd upd -int
} elseif {$a eq "valve"} { } elseif {[string match valve* $a]} {
set nvalve [string range $a 5 end]
for {set ch 1} {$ch <= 12} {incr ch} { for {set ch 1} {$ch <= 12} {incr ch} {
node v$ch upd node v$ch upd
prop enum valve_off,valve_on,no_valve,timeout,timeout1,boost prop enum valve_off,valve_on,no_valve,timeout,timeout1,boost
if {$ch > $nvalve} {
prop visible false
}
node vc$ch out -int node vc$ch out -int
prop enum valve_off,valve_on prop enum valve_off,valve_on
if {$ch > $nvalve} {
prop visible false
}
} }
} elseif {$a ne "multiHe"} { } elseif {$a ne "multiHe"} {
error "ERROR: unknown argument '$a' to ccu4" error "ERROR: unknown argument '$a' to ccu4"

16
tcl/hfflow.config
View File

@ -5,12 +5,12 @@ device stick_menu "flow flow_1"
defineTemperature tt defineTemperature tt
makenv tt -driver 336_lsc -port pstc003:7777 { makenv tt -driver 336_lsc -port pstc003:7777 {
lsc_sensor tm A -sensor x85571 -sensorname evap lsc_sensor tm D -sensor x85571 -sensorname evap
lsc_sensor tsep B -sensor x86021 -sensorname sep lsc_sensor tsep C -sensor x86021 -sensorname sep
# lsc_sensor tcon C -sensor x86028 -sensorname conus lsc_sensor tcon B -sensor x86028 -sensorname conus
lsc_sensor ts C -sensorname sample # lsc_sensor ts A -sensorname sample
lsc_sensor tshd D -sensor pt-1000 -sensorname shield lsc_sensor tshd A -sensor pt-1000 -sensorname shield
lsc_loop set -loop 1 -channel A -maxheater 50W -resist 50Ohm lsc_loop set -loop 1 -channel D -maxheater 25W -resist 50Ohm
lsc_loop setcon -loop 2 -channel C -maxheater 35W -resist 35Ohm lsc_loop setcon -loop 2 -channel C -maxheater 35W -resist 35Ohm
} }
tt set/limit 310 tt set/limit 310
@ -41,7 +41,11 @@ makeobject magnet array
magnet makeitem field magnet makeitem field
#makeNv #makeNv
makenv v -driver ccu4 -port halflow-ts:3003 valves valve6 aux
v fav 1
GraphAdd v.f mbar pump_pressure
GraphAdd v.ax mbar sample_pressure
#makenv hvac -driver pfeiffertpg -port ldmlab1-ts:3013 #makenv hvac -driver pfeiffertpg -port ldmlab1-ts:3013