网络继电器的EPICS IOC搭建

http://www.corxnet.com/product/showproduct.php?id=36

https://item.taobao.com/item.htm?spm=a1z10.5-c-s.w4002-21473915904.22.6e3c5ed08NWExp&id=520395007720

推荐这款可网络控制的继电器，16路继电器，16路IN，折腾了好几天在几位同事的帮助下终于把IOC调通了。基本的通过PV控制继电器的开关都调试成功，点控还没做，以后有空再做吧，如果看到的愿意做的可以继续做下去，不过labview程序把点控做好了，欢迎去下载：

https://gitee.com/lup9304/tuning-tools/blob/master/netio1.0.llb

这东西用起来很方便，比plc、西门子模块等方式搭建IO控制省事多了，一般的使用足够了，如果大电流大功率使用，可以自己外加继电器，用这个网络继电器控制外加的继电器即可。

具体怎么编译IOC，可以参看下面链接：

https://epics.anl.gov/modules/soft/asyn/R4-24/HowToDoSerial/HowToDoSerial_StreamDevice.html

需要socket通信，在上面链接里加dbd这一步时：HPE3631Atest_DBD += drvAsynSerialPort.dbd，换成：drvAsynIPPort.dbd就好了。

之后就是编写db、proto、st.cmd文件了。附上相关的文件，写的很不专业，欢迎大家下载使用并请修改的更简洁：

[ioc@localhost iocJDQ016]$ cat st.cmd 
#!../../bin/linux-x86_64/JDQ016

#- You may have to change JDQ016 to something else
#- everywhere it appears in this file

< envPaths

epicsEnvSet "P" "HALF:BD:"
epicsEnvSet "R" "IO:"
epicsEnvSet("ETHER","192.168.1.18:50000")

cd "${TOP}"

## Register all support components
dbLoadDatabase "dbd/JDQ016.dbd"
JDQ016_registerRecordDeviceDriver pdbbase

epicsEnvSet "STREAM_PROTOCOL_PATH" "$(TOP)/db"

# Set up ASYN ports
#vxi11Configure("L0", "$(ETHER)", 0, 0.0, "inst0", 0)
drvAsynIPPortConfigure("L0", "$(ETHER)", 0, 0, 0)

## Load record instances
#dbLoadRecords("db/xxx.db","user=ioc")
dbLoadTemplate "db/bo.substitutions"
#dbLoadRecords("db/devJDQ016.db","P=$(P),R=$(R),PORT=L0,A=0")

cd "${TOP}/iocBoot/${IOC}"
iocInit

#var streamDebug 1
## Start any sequence programs
#seq sncxxx,"user=ioc"
[ioc@localhost iocJDQ016]$

[ioc@localhost db]$ cat bo.substitutions
# Example substitutions file

file "db/devJDQ016.db" {
   pattern { P, R, PORT, A }
        { "HALF:", "BD:NetIO:", "L0", 0 }
}

file db/devJDQ016-bo.db {
    pattern { P, R, Chan, Next, PORT, A }
        { "HALF:", "BD:NetIO:", 0, 1, "L0", 0 }
        { "HALF:", "BD:NetIO:", 1, 2, "L0", 0 }
        { "HALF:", "BD:NetIO:", 2, 3, "L0", 0 }
        { "HALF:", "BD:NetIO:", 3, 4, "L0", 0 }
        { "HALF:", "BD:NetIO:", 4, 5, "L0", 0 }
        { "HALF:", "BD:NetIO:", 5, 6, "L0", 0 }
        { "HALF:", "BD:NetIO:", 6, 7, "L0", 0 }
        { "HALF:", "BD:NetIO:", 7, 8, "L0", 0 }
        { "HALF:", "BD:NetIO:", 8, 9, "L0", 0 }
        { "HALF:", "BD:NetIO:", 9, A, "L0", 0 }
        { "HALF:", "BD:NetIO:", A, B, "L0", 0 }
        { "HALF:", "BD:NetIO:", B, C, "L0", 0 }
        { "HALF:", "BD:NetIO:", C, D, "L0", 0 }
        { "HALF:", "BD:NetIO:", D, E, "L0", 0 }
        { "HALF:", "BD:NetIO:", E, F, "L0", 0 }
        { "HALF:", "BD:NetIO:", F, 0, "L0", 0 }
}

[ioc@localhost db]$

[ioc@localhost db]$ cat devJDQ016.db
#
# Simple database and stream protocol file for basic SCPI (IEEE488.2) commands
#

#
# Short and long form of identification string
#

record(mbbiDirect, "$(P)$(R)Relay:mbbiD")
{
        field(SCAN, "2 second")
        field(DESC, "Relay open or close state")
        field(DTYP, "stream")
        field(INP, "@devJDQ016.proto readRelayState $(PORT)")
        field(FLNK, "$(P)$(R)R1:bi")
}

record(mbbiDirect, "$(P)$(R)IN:mbbiD")
{
        field(SCAN, "2 second")
        field(DESC, "Input open or close state")
        field(DTYP, "stream")
        field(INP, "@devJDQ016.proto readInState $(PORT)")
        field(FLNK, "$(P)$(R)IN0:bi")
}

record(bo, "$(P)$(R)Relay:SetAll")
{
        field(DESC, "Control Relay open all")
        field(DTYP, "stream")
        field(OUT, "@devJDQ016.proto setAll $(PORT)")
        field(ZNAM,"closeAll")
        field(ONAM,"openAll")
        field(FLNK, "$(P)$(R)Relay:mbbiD")
}

[ioc@localhost db]$

[ioc@localhost db]$ cat devJDQ016-bo.db 
## Simple database and stream protocol file for basic SCPI (IEEE488.2) commands
#

#
# Short and long form of identification string
#

record(bi, "$(P)$(R)R$(Chan):bi")
{
        field(DESC, "lost phase state")
        field(INP,  "$(P)$(R)Relay:mbbiD.B$(Chan) NPP")
        field(ZNAM,"off")
        field(ONAM,"on")
        field(FLNK, "$(P)$(R)R$(Next):bi")
}

record(bi, "$(P)$(R)IN$(Chan):bi")
{
        field(DESC, "lost phase state")
        field(INP,  "$(P)$(R)IN:mbbiD.B$(Chan) NPP")
        field(ZNAM,"off")
        field(ONAM,"on")
        field(FLNK, "$(P)$(R)IN$(Next):bi")
}

record(bo, "$(P)$(R)R$(Chan):bo")
{
    field(DESC, "Set Relay Chan$(Chan)")
    field(DTYP, "stream")
    field(ZNAM,"close")
    field(ONAM,"open")
    field(OUT,  "@devJDQ016.proto setRelay$(Chan) $(PORT) $(A)")
    field(FLNK, "$(P)$(R)Relay:mbbiD")
}
[ioc@localhost db]$

[ioc@localhost db]$ cat devJDQ016.proto 
InTerminator = "";
OutTerminator = "";
setRelay0 {
    out "\xCC\xDD\xA1\x01%{\x00\x00\x00\x01|\x00\x01\x00\x01}%2<sum>%2<sum>";
    in "%s";
}
setRelay1 {
    out "\xCC\xDD\xA1\x01%{\x00\x00\x00\x02|\x00\x02\x00\x02}%2<sum>%2<sum>";
    in "%s";
}

setRelay2 {
    out "\xCC\xDD\xA1\x01%{\x00\x00\x00\x04|\x00\x04\x00\x04}%2<sum>%2<sum>";
    in "%s";
}

setRelay3 {
    out "\xCC\xDD\xA1\x01%{\x00\x00\x00\x08|\x00\x08\x00\x08}%2<sum>%2<sum>";
    in "%s";
}

setRelay4 {
    out "\xCC\xDD\xA1\x01%{\x00\x00\x00\x10|\x00\x10\x00\x10}%2<sum>%2<sum>";
    in "%s";
}

setRelay5 {
    out "\xCC\xDD\xA1\x01%{\x00\x00\x00\x20|\x00\x20\x00\x20}%2<sum>%2<sum>";
    in "%s";
}

setRelay6 {
    out "\xCC\xDD\xA1\x01%{\x00\x00\x00\x40|\x00\x40\x00\x40}%2<sum>%2<sum>";
    in "%s";
}

setRelay7 {
    out "\xCC\xDD\xA1\x01%{\x00\x00\x00\x80|\x00\x80\x00\x80}%2<sum>%2<sum>";
    in "%s";
}

setRelay8 {
    out "\xCC\xDD\xA1\x01%{\x00\x00\x01\x00|\x01\x00\x01\x00}%2<sum>%2<sum>";
    in "%s";
}

setRelay9 {
    out "\xCC\xDD\xA1\x01%{\x00\x00\x02\x00|\x02\x00\x02\x00}%2<sum>%2<sum>";
    in "%s";
}

setRelayA {
    out "\xCC\xDD\xA1\x01%{\x00\x00\x04\x00|\x04\x00\x04\x00}%2<sum>%2<sum>";
    in "%s";
}

setRelayB {
    out "\xCC\xDD\xA1\x01%{\x00\x00\x08\x00|\x08\x00\x08\x00}%2<sum>%2<sum>";
    in "%s";
}

setRelayC {
    out "\xCC\xDD\xA1\x01%{\x00\x00\x10\x00|\x10\x00\x10\x00}%2<sum>%2<sum>";
    in "%s";
}

setRelayD {
    out "\xCC\xDD\xA1\x01%{\x00\x00\x20\x00|\x20\x00\x20\x00}%2<sum>%2<sum>";
    in "%s";
}

setRelayE {
    out "\xCC\xDD\xA1\x01%{\x00\x00\x40\x00|\x40\x00\x40\x00}%2<sum>%2<sum>";
    in "%s";
}

setRelayF {
    out "\xCC\xDD\xA1\x01%{\x00\x00\x80\x00|\x80\x00\x80\x00}%2<sum>%2<sum>";
    in "%s";
}

set {
    out "\xCC\xDD\xA1\x01\$1%2<sum>%2<sum>";
    in "%s";
}

setAll {
    out "\xCC\xDD\xA1\x01%{\x00\x00\xFF\xFF|\xFF\xFF\xFF\xFF}%2<sum>%2<sum>";
    in "%s";
}

readRelayState {
    wait 50;
    out "\xCC\xDD\xB0\x01\x00\x00\x0D\xBE\x7C";
    in "%*4c%2r[^\x0D]";
#    in "\xAA\xBB\xB0\x01%2r\x0D%2<sum>%2<sum>";
}

readInState {
    wait 50;
    out "\xCC\xDD\xC0\x01\x00\x00\x0D\xCE\x9C";
#    in "\xAA\xBB\xC0\x01%2x\x0D%2<sum>%2<sum>";
    in "%*4c%2r[^\x0D]";
}
[ioc@localhost db]$