用VB寫的程序与施耐德PLC(PLC型号BMXP342020)实现以太网通信.docVIP

用VB写的程序与施耐德PLC（PLC型号：BMX P34 2020）实现以太网通信。调用winsock控件，采用modbus协议。 已经顺利实现读线圈、写线圈、读寄存器整数、读寄存器浮点数。（唯独没有写寄存器成功，原因在下） 因为有个很奇怪的问题，在所有的读写过程中，不管是地址还是数据内容，每个字节都不可以超过H80（十六进制数80）。 比如：向字寄存器%MW42 写数据，该寄存器存的是整数，数据长度为一个字（也就是16位二进制，4位16进制字符）： 运行结果如下： 向寄存器%MW42（其地址为十六进制数002A）写入字符H000F,运行结果如下： %MW42数据类型如下：整数 1、VB里的发送数据程序： Private Sub Command1_Click() Dim str2(12) As Byte str2(0) = H0 交换识别号高字节，通常为 0 str2(1) = H0 交换识别号低字节，通常为 0 str2(2) = H0 协议识别号高字节，为 0 str2(3) = H0 协议识别号低字节，为 0 str2(4) = H0 字节长度高字节 str2(5) = H6 字节长度低字节 str2(6) = HFF 单元识别号，确省为 255 str2(7) = H6 modbus功能码，06为预置单寄存器 str2(8) = H0 寄存器的起始地址高字节 str2(9) = H2A 寄存器的起始地址低字节 str2(10) = H0 数据内容高字节 str2(11) = HF 数据内容低字节 Dim bStrQ As String Dim Q As Integer For Q = 0 To 11 bStrQ = bStrQ Chr(str2(Q)) Next Winsock1.SendData bStrQ Exit Sub End Sub 1、运行之前 运行之后 一切正常。 二、向寄存器%MW42写入字符H0080（也就是十进制数128）,运行结果如下： 运行前 1、VB里的发送数据程序： Private Sub Command1_Click() Dim str2(12) As Byte str2(0) = H0 交换识别号高字节，通常为 0 str2(1) = H0 交换识别号低字节，通常为 0 str2(2) = H0 协议识别号高字节，为 0 str2(3) = H0 协议识别号低字节，为 0 str2(4) = H0 字节长度高字节 str2(5) = H6 字节长度低字节 str2(6) = HFF 单元识别号，确省为 255 str2(7) = H6 modbus功能码，06为预置单寄存器 str2(8) = H0 寄存器的起始地址高字节 str2(9) = H2A 寄存器的起始地址低字节 str2(10) = H0 数据内容高字节 str2(11) = H80 数据内容低字节 Dim bStrQ As String Dim Q As Integer For Q = 0 To 11 bStrQ = bStrQ Chr(str2(Q)) Next Winsock1.SendData bStrQ Exit Sub End Sub 2、运行之后 注意：接下来是问题的开始！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！ 三、向寄存器%MW42写入字符H0081,也就是十进制129运行结果如下： 运行前 1、VB里的发送数据程序： Private Sub Command1_Click() Dim str2(12) As Byte str2(0) = H0 交换识别号高字节，通常为 0 str2(1) = H0 交换识别号低字节，通常为 0 str2(2) = H0 协议识别号高字节，为 0 str2(3) = H0 协议识别号低字节，为 0 str2(4) = H0 字节长度高字节 str2(5) = H6 字节长度低字节 str2(6) = HFF 单元识别号，确省为 255 str2(7) = H6 modbus功能码，06为预置单寄存器 str2(8