PLC应用技术北方工业大学.ppt

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 计算机与可编程控制器的通信 (2)发送程序 要发送的报文的格式为 约定起始字符为0，结束字符为十六进制数＆HFF。校验码为报文中第二个字节与数据区内各字节的异或和。 计算机与可编程控制器的通信 下面是发送程序的代码： Private Sub Commandl_ClicEC() ’点击界面中的“发送”按钮时执行发送程序 rrvlentll＝-1 ’置接收字符的数组下标初值 sdata＝ArraV(1，2，3) ’待发送数据为1、2、3， 可修改其个数和内容 Dim n8yte()AsByte ReDim nByte(UBound(sdata)+4)AsByte ’定义发送报文的数组 nByte(0)＝0 ’送起始字符 nByte(1)＝UBound(sdata)+1 ’送数据区字节数 fcs＝nByte(1) ’校验码初始化 For i＝2 To UBound(sdata)+2 nBvte(i)＝sdata(i-2) ’待发送数据送报文数组的数据区 fcs＝fcs Xor nBvte(i) ’异或运算，求校验码 Next nByte(i)＝fcs ’送校验码 nByte(i+1)＝＆HFF ’送结束字节 MSComml．Output＝nByte ，发送报文 End Sub 计算机与可编程控制器的通信 (3)接收数据 可编程序控制器只有在接收到计算机发送的信息后，才发送数据，故可以将发送完成后接收到的第一个字节作为接收报文的开始，直到串口无接收事件时认为报文结束。下面是接收程序的代码： 计算机与可编程控制器的通信 PrivateSub MSComml—OnComm() ’OnComm事件 Dimrcvtemp()AsByte ’定义存放每次接收的数据的暂存数组 ReDim Preserve rcv(100) As ’预设接收字符的数组rcv(最大101字节) Textl＝ “ ’清除文本框 Select Case MSComml．CommEvent Case comEvReceive ’如果接收到字符 rcvtemp＝MSComm ’将接收缓冲区的内容放入暂存数组rrvtemP For i＝LBound(rcvtemP)To UBound(rcvtemP) Rcvlenth=rcvlenth+l rcv(rcvlenth)＝rcvtemP(i) ’将接收到的各字节放入接收字节数组rcv NeXt I ReDim Preserve rcv(rcvlenth)As Bvte ’得到接收字节数组的实际大小 End Select For i＝LBound(rcv)To UBound(rcv) Textl＝Textl＆Str