用VB实现ModbusTCPIP的通讯.docVIP

Schneider-施耐德LEC使用技巧文集[第7讲]——如何用VB实现Twido的Modbus TCP/IP的通讯提供:Schneider-施耐德电气（中国）投资有限公司作者:沈建忠　　浏览次数：1070 　　Twido系列PLC支持TCP Modbus的通讯，尤其是TWDLCAE40DRF提供了内置的以太网接口，能实现下图所示的结构；通过HUB，不仅能对Twido进行编程，也能对Twido PLC中的数据进行读写。　　 　　对于TWDLCAE40DRF，假定其配置如下：　　 　　对于上位机，我们利用VB的WinSock套接字控件能很容易的进行编程。　　新建1个套接字对象，设定其属性如右，注意其远程主机的IP就是以上TWDLCAE40DRF的IP地址：　　 ]　　1． 建立网络连接　　Private Sub Command2_Click()　　 On Error Resume Next　　 Winsock1.Close　　 Winsock1.Connect “85.16.1.1”, 502　　 If Err Then　　 MsgBox “网络连接时发生错误:” Err.Description, vbCritical, “网络连接”　　 Err.Clear　　 End If　　End Sub　　　　2． 读多个字的命令（本例表示从PLC读%MW3和%MW4两个字）：　　Private Sub cmdSend_Click()　　 On Error GoTo ErrProc　　 Dim SendStr(11) As Byte　　 Dim RcvStr() As Byte　　 SendStr(0) = 0 ’交换识别号高字节,通常为0　　 SendStr(1) = 0 ’交换识别号低字节,通常为0　　 SendStr(2) = 0 ’协议识别号高字节,为0　　 SendStr(3) = 0 ’协议识别号低字节,为0　　 SendStr(4) = 0 ’字节长度高字节　　 SendStr(5) = 6 ’以下字节长度低字节　　 SendStr(6) = 255 ’单元识别号,确省为255　　 SendStr(7) = H3 ’读多个字命令代码　　 SendStr(8) = 0 ’读数据的起始地址高字节　　 SendStr(9) = 3 ’读数据的起始地址低字节　　 SendStr(10) = 0 ’数据长度高字节　　 SendStr(11) = 2 ’数据长度低字节　　 Dim aStr As String　　 Dim i As Integer　　 For i = 0 To 11　　 aStr = aStr Chr(SendStr(i))　　 Next　　 Winsock1.SendData aStr　　 Exit Sub　　ErrProc:　　 MsgBox “传输数据失败”, vbCritical, “网络传输”　　End Sub　　　　3． 写多个字的命令（本例表示写%MW3、%MW4、%MW5三个字到PLC中）：　　Private Sub cmdwrite_Click()　　 On Error GoTo ErrProc　　 　　　　 Dim SendStr(18) As Byte　　 Dim RcvStr() As Byte　　 SendStr(0) = 0 ’交换识别号高字节,通常为0　　 SendStr(1) = 0 ’交换识别号低字节,通常为0　　 SendStr(2) = 0 ’协议识别号高字节,为0　　 SendStr(3) = 0 ’协议识别号低字节,为0　　 SendStr(4) = 0 ’字节长度高字节　　 SendStr(5) = 13 ’以下字节长度低字节　　 SendStr(6) = 255 ’单元识别号,确省为255　　 SendStr(7) = H10 ’写多个字命令代码　　 SendStr(8) = 0 ’写数据的起始地址高字节　　 SendStr(9) = 3 ’写数据的起始地址低字节　　 SendStr(10) = 0 ’数据长度字数的高字节　　 SendStr(11) = 3 ’数据长度字数的低字节　　 SendStr(12) = 6 ’数据长度的字节数　　 　　 SendStr(13) = HA ’写的第1个字的高字节　　 SendStr(14) = HB ’写的第1个字的低字节　　 SendStr(15) = HC ’写的第2个字的高字节　　 SendStr(16) = HD ’写的第2个字的低字节　　 SendStr(17) =