手把手教你用VB实现ModbusRTU串行通讯工程实例

1、用VB实现Modbus RTU 串行通讯在一些应用中可能需要使用诸如VB来进行上位机监控程序的开发，而Modbus协议是这类应用中首选的通讯协议；Modbus协议以其简单易用， 在工业领域里已广泛的为其他第三方设备所支持。这里对VB和Twido PLC间的通讯进行说明。对于大部分应用，Twido PLC作为从站，它不需要编制通讯程序，只要把通讯口的参数设置好即可，例如下图表示此 Twido通过编程口和上位机连接，其站号地址为2 ;波特率、数据位、校验、停止位和上位机设置保持一致。VB程序通过利用 MSComm控件很容易就能够实现。1.通讯口初始化:MSComm1.Settings = &quo

2、t;9600,n,8,1"MSComm1.CommPort = 1MSComm1.SThreshold = 0If Not MSComm1.PortOpen Then MSComm1.PortOpen = True2 CRC 校验码的计算方法，如以下函数，可以得到字节数组变量cmdstring 指向的字符串的 CRC 校验码。Function crc16_1(ByRef cmdstring() As Byte, ByVal j As Integer)Dim data As IntegerDim i As IntegerAddressreg_crc= &HFFFFFor i =

3、 0 To jAddressreg_crc= Addressreg_crc Xor cmdstring(i)For j = 0 To 7data= Addressreg_crcAnd &H1If data ThenAddressreg_crc= Int(Addressreg_crc / 2)Addressreg_crc= Addressreg_crc And &H7FFFAddressreg_crc= Addressreg_crc Xor &HA001ElseAddressreg_crc= Addressreg_crc / 2Addressreg_crc= Addres

4、sreg_crc And &H7FFFEnd IfNext jNext iIf Addressreg_crc< 0 ThenAddressreg_crc =Addressreg_crc - &HFFFF0000End IfHiByte = Addressreg_crc And &HFFLoByte = (Addressreg_crc And &HFF00) / &H100End Function3 读多个字的命令(本例是从 2 号站读 %MW10 起始的 4 个字)Dim SendStr(7) As ByteDim RcvStr() As Byte

5、SendStr(0) = 2 ,从站号是 2SendStr(1) = &H3 , 读多个字的命令代码SendStr(2) = 0 ,起始地址高字节SendStr(3) = 10 ,起始地址低字节SendStr(4) = &H0 ,数据长度高字节SendStr(5)= 4 ,数据长度低字节Call crc16(SendStr(), 5) ,CRC 计算SendStr(6)= HiByteSendStr(7)= LoByte,读命令发送后 ,当接收 5 + SendStr(5) * 2 个字节时产生中断CmdLenth= 5 + SendStr(5) * 2MSComm1.RThr

6、eshold = CmdLenthMSComm1.Output = SendStr ,发送命令4 写多个字的命令(本例是写 2 号站 %MW20 起始的 3 个字)Dim WriteStr() As Bytek = 6 ,写6个字节ReDim WriteStr(8 + k)WriteStr(0)= 2 ,从站号是 2WriteStr(1)= &H10 , 写多个字的命令代码WriteStr(2)= 0 ,起始地址高字节WriteStr(3)= 20 , 起始地址低字节WriteStr(4)= &H0 , 数据长度高字节 <字的个数 >WriteStr(5)= k /

7、 2 ,数据长度低字节 < 字的个数 >WriteStr(6) =k ,数据长度 < 字节的个数 >WriteStr(7) =&H12 , 写的第 1 个字的高字节WriteStr(8) =&H34 , 写的第 1 个字的低字节WriteStr(9) =&H56 , 写的第 2 个字的高字节WriteStr(10)= &H78 , 写的第 2 个字的低字节WriteStr(11)= &H9A , 写的第 3 个字的高字节WriteStr(12)= &HBC , 写的第 3 个字的低字节Call crc16(WriteStr

8、(), 6 + k)WriteStr(9 + (k / 2 - 1) * 2) = HiByteWriteStr(10 + (k / 2 - 1) * 2) = LoByteMSComm1.InBufferCount = 0MSComm1.Output = WriteStr ,写命令发送后 ,当接收到 8 个字节时中断 CmdLenth = 8 MSComm1.RThreshold = CmdLenth5 通讯事件中断产生时的数据处理：Private Sub MSComm1_OnComm()Dim inx() As ByteSelect Case MSComm1.CommEventCase comEvReceive ,判断为接收事件MSComm1.InputLen = CmdLenth , 接收数据的长度inx = MSComm1.Input ,接收数据MSComm1.InBufferCount = 0For k