工控编程吧

标题: 威纶通触摸屏宏指令通讯实例 [打印本页]

---

作者: qq263946146    时间: 2019-2-21 19:37
标题: 威纶通触摸屏宏指令通讯实例

通讯实例

当EasyBuilder Pro 没有内建与某一个设备通讯的驱动程序时，我们只能使用宏指令中的 OUTPORT 和INPORT函数来实现与该设备的通讯。

使用 OUTPORT和  INPORT函数发送和接收的数据，必须遵行该设备的通讯协议。

当前例如我们以TK6071IP触摸屏与FBs-10MA永宏PLC为例，介绍两者间如何通过OUTPORT与INPORT宏指令实现通讯。

主要实现通过触摸屏控制PLC的启，停，与读取PLC的X0—X15的状态，屏界面如下

(, 下载次数: 4)

上传

点击文件名下载附件

点击启动PLC,停止PLC，分别调用两宏实现PLC启动与停止，宏代码为

StopPLC宏函数：

macro_commandmain()

charcCheck

charc[9]

FILL(c[0],0,9)

c[0] =0x02

c[1] ='0' //0x30

c[2] ='1' //0x31

c[3] ='4' //0x34

c[4] ='1' //0x31

c[5] ='0' //0x30 //停止PLC指令

ADDSUM(c[0],cCheck, 6)

c[6] =(cCheck&0xF0)>>4//提取数值如0X0F

c[7] =cCheck&0x0F//提取数值如0X08

//转换为对应ASCII码

ifc[6]>0x09 then

   c[6] = c[6]+0x37

else

   c[6] = c[6]+0x30

end if

ifc[7]>0x09 then

   c[7] = c[7]+0x37

else

   c[7] = c[7]+0x30

endif  

TRACE("%c,%c",c[6],c[7])//调试查看值

//c[6] ='F' //0x46

//c[7] ='8' //0x38

c[8] =0x03

OUTPORT(c[0],"Free Protocol", 9)//数据输出

shortnRst

INPORT(c[0],"Free Protocol", 9, nRst)

charcRst[100]

ifc[5]==0x30 then

   StringCopy("Executedsucceed",cRst[0] )

else

   StringCopy("Executedfailed",cRst[0] )

end if

SetData(cRst[0],"Local HMI", LW, 0, 100)

endmacro_command

StartPLC宏函数：

macro_commandmain()

charc[9]

FILL(c[0],0,9)

c[0] =0x02

c[1] ='0' //0x30

c[2] ='1' //0x31

c[3] =0x34

c[4] =0x31

c[5] =0x31//启动PLC指令

c[6] =0x46

c[7] =0x39

c[8] =0x03

OUTPORT(c[0],"Free Protocol", 9)

shortnRst

INPORT(c[0],"Free Protocol", 9, nRst)

charcRst[20]

ifc[5]==0x30 then

   StringCopy("Executedsucceed",cRst[0] )

else

   StringCopy("Executedfailed",cRst[0] )

end if

SetData(cRst[0],"Local HMI", LW, 0, 20)

endmacro_command

点击读取函数，将X0-X15状态读取到触摸屏并显示出来，

对应的宏指令代码为：

macro_commandmain()

charcFrame[255]

charcCheck

FILL(cFrame[0],0,255)

cFrame[0]= 0x02//帧头

cFrame[1]= 0x30//plc 站号

cFrame[2]= 0x31

cFrame[3]= 0x34//连续寄存器读取指令

cFrame[4]= 0x36

cFrame[5]= 0x30//读取1个寄存器

cFrame[6]= 0x31

cFrame[7]= 0x57//寄存器起始码 WX0000

cFrame[8]= 0x58

cFrame[9]= 0x30

cFrame[10]= 0x30

cFrame[11]= 0x30

cFrame[12]= 0x30

//计算ASCII形式校验码

ADDSUM(cFrame[0],cCheck, 13)

cFrame[13]= (cCheck&0xF0)>>4

cFrame[14]= cCheck&0x0F

if(cFrame[13]>0x09) then

cFrame[13]= cFrame[13]+0x37

else

cFrame[13]= cFrame[13]+0x30

end if

if(cFrame[14]>0x09) then

cFrame[14]= cFrame[14]+0x37

else

cFrame[14]= cFrame[14]+0x30

end if

cFrame[15]= 0x03

OUTPORT(cFrame[0],"Free Protocol", 16)

FILL(cFrame[0],0,255)

shortreturnValue

INPORT(cFrame[0],"Free Protocol", 13, returnValue)

//接收数据数个数不对，显示接收的数据

if(returnValue<> 13)then

SetData(cFrame[0],"Local HMI", LW, 0, returnValue)

return

end if

//错误码验证

if(cFrame[5]<>'0')then

SetData(cFrame[5],"Local HMI", LW, 0, 4)

return

end if

//校验码验证略过

charcC[2]

//提取数据

shortnValue

charcValue[4]

cValue[0]= cFrame[6]

cValue[1]= cFrame[7]

cValue[2]= cFrame[8]

cValue[3]= cFrame[9]

StringHexAsc2Bin(cValue[0],nValue)

SetData(nValue,"Local HMI", LW, 100, 1)

endmacro_command

整套教程已发布于
威纶通触摸屏宏指令入门与精通视频教程

---

欢迎光临 工控编程吧 (https://www.gkbc8.com/)

Powered by Discuz! X3.4