From 3980091319f6b2e4c8c278ca312f45e4807adfd9 Mon Sep 17 00:00:00 2001 From: Philipp Klaus Date: Thu, 13 Apr 2017 14:21:20 +0200 Subject: [PATCH] adopting the HUBER .db / .proto files to our CC-405 and needs --- .../HUBER_COOLINGApp/Db/Huber_Unistate_425.db | 40 +++++++++++++------ .../protocols/Huber_Unistate_425.proto | 40 ++++++++++--------- 2 files changed, 49 insertions(+), 31 deletions(-) diff --git a/HUBER_COOLING/HUBER_COOLINGApp/Db/Huber_Unistate_425.db b/HUBER_COOLING/HUBER_COOLINGApp/Db/Huber_Unistate_425.db index a0574ba..4ccc085 100644 --- a/HUBER_COOLING/HUBER_COOLINGApp/Db/Huber_Unistate_425.db +++ b/HUBER_COOLING/HUBER_COOLINGApp/Db/Huber_Unistate_425.db @@ -17,7 +17,7 @@ record (ai, "$(sys):$(sub):COOLING:$(csys):SetpointMom") { field (DTYP, "stream") - field (INP, "@Huber_Unistate_425.proto getDesVal $(PORT)") + field (INP, "@Huber_Unistate_425.proto getDesVal $(PORT)") field (PINI, "YES") field (EGU, "°C") field (PREC, "2") @@ -25,12 +25,14 @@ record (ai, "$(sys):$(sub):COOLING:$(csys):SetpointMom") { field (MDEL, "0.05") field (ASLO, "0.01") field (AOFF, "0") + field (HOPR, "100.0") + field (LOPR, "-50.0") } record (ai, "$(sys):$(sub):COOLING:$(csys):BathTemperatureMom") { field (DTYP, "stream") field (INP, "@Huber_Unistate_425.proto getBathTemp $(PORT)") - field (SCAN, "10 second") + field (SCAN, "2 second") field (FLNK, "$(sys):$(sub):COOLING:$(csys):ExternalTemperatureMom") field (EGU, "°C") field (PREC, "2") @@ -38,41 +40,51 @@ record (ai, "$(sys):$(sub):COOLING:$(csys):BathTemperatureMom") { field (MDEL, "0.05") field (ASLO, "0.01") field (AOFF, "0") - + field (HOPR, "100.0") + field (LOPR, "-50.0") + field (HIGH, "30.0") + field (HIHI, "35.0") + field (LOW, "-20.0") + field (LOLO, "-25.0") } record (ai, "$(sys):$(sub):COOLING:$(csys):ExternalTemperatureMom") { field (DTYP, "stream") field (INP, "@Huber_Unistate_425.proto getExtTemp $(PORT)") + field (FLNK, "$(sys):$(sub):COOLING:$(csys):SetpointMom") field (EGU, "°C") field (PREC, "2") field (ADEL, "0.05") field (MDEL, "0.05") field (ASLO, "0.01") field (AOFF, "0") - field (FLNK, "$(p):$(sub):COOLING:SetpointMom") + field (HOPR, "100.0") + field (LOPR, "-50.0") } #-------------------------------------------------------------------------------- record (ao, "$(sys):$(sub):COOLING:$(csys):Setpoint") { field (DTYP, "stream") - field (OUT, "@Huber_Unistate_425.proto setDesVal $(PORT)") + field (OUT, "@Huber_Unistate_425.proto setDesVal $(PORT)") field (EGU, "°C") field (PREC, "2") field (ADEL, "0.05") field (MDEL, "0.05") field (ASLO, "0.01") field (AOFF, "0") + field (HOPR, "100.0") + field (LOPR, "-50.0") + field (FLNK, "$(sys):$(sub):COOLING:$(csys):SetpointMom") } record (ao , "$(sys):$(sub):COOLING:$(csys):MinimumValue") { field (DTYP, "stream") - field (OUT, "@Huber_Unistate_425.proto setMinVal $(PORT)") + field (OUT, "@Huber_Unistate_425.proto setMinVal $(PORT)") field (EGU, "°C") field (PREC, "2") field (ADEL, "0.05") - field (MDEL, "0.05") + field (MDEL, "0.05") field (ASLO, "0.01") field (AOFF, "0") } @@ -93,11 +105,13 @@ record (bo , "$(sys):$(sub):COOLING:$(csys):TemperatureControl") { field (OUT, "@Huber_Unistate_425.proto setTempCtrl $(PORT)") field (ZNAM, "OFF") field (ONAM, "ON") + field (SCAN, "5 second") + field (FLNK, "$(sys):$(sub):COOLING:$(csys):TemperatureMode") } -record (bo, "$(sys):$(sub):COOLING:$(csys):TemperatureMode") { - field (DTYP, "stream") - field (OUT, "@Huber_Unistate_425.proto setTempMode $(PORT)") - field (ZNAM, "INTERN") - field (ONAM, "EXTERN") -} +#record (bo, "$(sys):$(sub):COOLING:$(csys):TemperatureMode") { +# field (DTYP, "stream") +# field (OUT, "@Huber_Unistate_425.proto setTempMode $(PORT)") +# field (ZNAM, "INTERN") +# field (ONAM, "EXTERN") +#} diff --git a/HUBER_COOLING/protocols/Huber_Unistate_425.proto b/HUBER_COOLING/protocols/Huber_Unistate_425.proto index 941933d..b50ec7d 100644 --- a/HUBER_COOLING/protocols/Huber_Unistate_425.proto +++ b/HUBER_COOLING/protocols/Huber_Unistate_425.proto @@ -26,7 +26,7 @@ ExtraInput = Ignore; getDesVal { # get setpoint # Example of command: - # field (INP, "@Huber_Unistat_425.proto getDesVal $(PORT)") + # field (INP, "@Huber_Unistat_425.proto getDesVal $(PORT)") out "SP?"; in "SP %d"; @@ -35,7 +35,7 @@ getDesVal { getBathTemp { # get bath temperature # Example of command: - # field (INP, "@Huber_Unistat_425.proto getBathTemp $(PORT)") + # field (INP, "@Huber_Unistat_425.proto getBathTemp $(PORT)") out "TI?"; in "TI %d"; @@ -44,7 +44,7 @@ getBathTemp { getExtTemp { # get temperature at external PT100 # Example of command: - # field (INP, "@Huber_Unistat_425.proto getExtTemp $(PORT)") + # field (INP, "@Huber_Unistat_425.proto getExtTemp $(PORT)") out "TE?"; in "TE %d"; @@ -52,13 +52,17 @@ getExtTemp { #-------------------------------------------------------------------------------- +enableCirculation { + out "%(HOPR)7.4f"; +} + setDesVal { # set a new setpoint # Example of command: - # field (OUT, "@Huber_Unistat_425.proto setDesVal $(PORT)") + # field (OUT, "@Huber_Unistat_425.proto setDesVal $(PORT)") - out "SP@ %+05d"; - in "SP %=d"; + out "SP@ %+06d"; + in "SP %=+06d"; @init { out "SP?"; @@ -69,10 +73,10 @@ setDesVal { setMinVal { # set lower limit of setpoint # Example of command: - # field (OUT, "@Huber_Unistat_425.proto setMinVal $(PORT)") + # field (OUT, "@Huber_Unistat_425.proto setMinVal $(PORT)") - out "LL& %+05d"; - in "LL %=d"; + out "LL& %+06d"; + in "LL %=+06d"; @init { out "LL?"; @@ -83,10 +87,10 @@ setMinVal { setMaxVal { # set upper limit of setpoint # Example of command: - # field (OUT, "@Huber_Unistat_425.proto setMaxVal $(PORT)") + # field (OUT, "@Huber_Unistat_425.proto setMaxVal $(PORT)") - out "LH& %+05d"; - in "LH %=d"; + out "LH& %+06d"; + in "LH %=+06d"; @init { out "LH?"; @@ -97,10 +101,10 @@ setMaxVal { setTempCtrl { # switch chiller on/off # Example of command: - # field (OUT, "@Huber_Unistat_425.proto setTempCtrl $(PORT)") + # field (OUT, "@Huber_Unistat_425.proto setTempCtrl $(PORT)") - out "CA@ %+05u"; - in "CA %=u"; + out "CA@ %+06d"; + in "CA %=+06d"; @init { out "CA?"; @@ -111,10 +115,10 @@ setTempCtrl { setTempMode { # set temperature control mode # Example of command: - # field (OUT, "@Huber_Unistat_425.proto setTempMode $(PORT)") + # field (OUT, "@Huber_Unistat_425.proto setTempMode $(PORT)") - out "TM& %+05u"; - in "TM %=u"; + out "TM& %+06d"; + in "TM %=+06d"; @init { out "TM?"; -- 2.43.0