当前位置：首页 > news >正文

EPICS aSub记录示例2

news 2025/8/3 17:02:43

这个IOC数据库由6个记录组成，一个bo记录，3个calc记录，1个aSub记录和1个waveform记录。

bo记录"$(P)$(R)Enable用于控制3个calc是否使能。

calc记录$(P)$(R)CurrentV01，$(P)$(R)CurrentV02，$(P)$(R)CurrentV03记录每次运行时进行自加，$(P)$(R)CurrentV01通过forward链接触发$(P)$(R)CurrentV02运行，而$(P)$(R)CurrentV02通过forward链接，触发$(P)$(R)CurrentV03运行，$(P)$(R)CurrentV03通过forward链接触发$(P)$(R)ASUB1运行。

aSub记录运行时从$(P)$(R)CurrentV01，$(P)$(R)CurrentV02，$(P)$(R)CurrentV03获取当前值，并且通过属性PP的输出链接将这三个值写到一个waveform记录中。

waveform记录以数组形式保存$(P)$(R)CurrentV01，$(P)$(R)CurrentV02，$(P)$(R)CurrentV03的三个值。

数据库设计如下：

以下是文本形式testASub.db：

record(calc, "$(P)$(R)CurrentV01") {field(SCAN, "1 second")field(SDIS, "$(P)$(R)Enable")field(FLNK, "$(P)$(R)CurrentV02")field(CALC, "A+1")field(INPA, "$(P)$(R)CurrentV01")
}record(calc, "$(P)$(R)CurrentV02") {field(SCAN, "Passive")field(SDIS, "$(P)$(R)Enable")field(FLNK, "$(P)$(R)CurrentV03")field(CALC, "A+0.1")field(INPA, "$(P)$(R)CurrentV02")
}record(calc, "$(P)$(R)CurrentV03") {field(SCAN, "Passive")field(SDIS, "$(P)$(R)Enable")field(FLNK, "$(P)$(R)ASUB1")field(CALC, "A+10")field(INPA, "$(P)$(R)CurrentV03")
}record(bo, "$(P)$(R)Enable") {field(DOL, "Disable")field(ZNAM, "Enable")field(ONAM, "Disable")
}record(aSub, "$(P)$(R)ASUB1") {field(INPA, "$(P)$(R)CurrentV01")field(INPB, "$(P)$(R)CurrentV02")field(INPC, "$(P)$(R)CurrentV03")field(OUTA, "$(P)$(R)RESULT PP")field(SCAN, "Passive")field(LFLG, "IGNORE")field(SNAM, "convert_t")field(PREC, "3")field(FTA, "DOUBLE")field(FTB, "DOUBLE")field(FTC, "DOUBLE")field(FTVA, "DOUBLE")field(NOVA, "3")
}record(waveform, "$(P)$(R)RESULT") {field(SCAN, "Passive")field(DTYP, "Soft Channel")field(PREC, "3")field(NELM, "3")field(FTVL, "DOUBLE")
}

以下是为aSub记录实现输入和输出转换的C源程序：

#include <stdio.h>
#include <dbDefs.h>
#include <registryFunction.h>
#include <aSubRecord.h>
#include <epicsExport.h>static long convert_t(aSubRecord *prec) {long i;double * b;double *a[3] = {(double *)prec->a, (double*)prec->b, (double *)prec->c};b = (double *)prec->vala;for (i = 0; i < prec->nova; i++){b[i] = a[i][0];}return 0; /* process output links */
}epicsRegisterFunction(convert_t);

编译整个IOC，并且启动IOC：

root@xps:/usr/local/EPICS/program/myioc/iocBoot/myioc# ../../bin/linux-x86_64/myioc st.cmd
#!../../bin/linux-x86_64/myioc
< envPaths
epicsEnvSet("IOC","myioc")
...
############################################################################
## EPICS R7.0.7
## Rev. 2025-04-26T19:36+0800
## Rev. Date build date/time:
############################################################################
iocRun: All initialization complete
## Start any sequence programs
#seq sncxxx,"user=xps"
epics> dbl
TEST:CH:ASUB1
TEST:CH:Enable
TEST:CH:CurrentV01
TEST:CH:CurrentV02
TEST:CH:CurrentV03
TEST:CH:RESULT

用通道访问进行测试：

当TEST:CH:Enable为Disable时：

(base) xps@xps:/usr/local/EPICS/program/myioc/myiocApp/src$ camonitor TEST:CH:RESULT
TEST:CH:RESULT 2025-08-02 21:34:38.452150 3 310 31 3100

将TEST:CH:Eanble设为Enable时：

(base) xps@xps:/usr/local/EPICS/program/myioc/myiocApp/src$ caput TEST:CH:Enable Enable; camonitor TEST:CH:RESULT
Old : TEST:CH:Enable                 Disable
New : TEST:CH:Enable                 Enable
TEST:CH:RESULT 2025-08-02 21:34:38.452150 3 310 31 3100
TEST:CH:RESULT 2025-08-02 21:56:58.452148 3 311 31.1 3110
TEST:CH:RESULT 2025-08-02 21:56:59.452159 3 312 31.2 3120
TEST:CH:RESULT 2025-08-02 21:57:00.452136 3 313 31.3 3130
TEST:CH:RESULT 2025-08-02 21:57:01.452158 3 314 31.4 3140
TEST:CH:RESULT 2025-08-02 21:57:02.452135 3 315 31.5 3150
TEST:CH:RESULT 2025-08-02 21:57:03.452149 3 316 31.6 3160
^C

查看全文

http://www.dtcms.com/a/312231.html