文章详情

Winsock对modbus 编程时的连接设置:

在使用VB6 中Winsock对modbus 编程时的连接设置:
 
Winsock1.RemoteHost = ""  ' IP 地址
Winsock1.RemotePort ="6020"
 
但使用MODBUS / TCP 的具体方法请给于帮助
=============================================

下面将EIO的第8路输出设置为接通状态,sData为文本数据,bBuffer为转换后的16进制数据。
发向EIO的数据,必须是16进制的,所以需要做个转换。

Dim sData As String 
sData   =  "00000000000601050025FF00"  

Dim  bBuffer()  As  Byte 
Dim  iLoop  As  Integer 
ReDim   bBuffer(Len(sData)\2) 
For   iLoop=1 To Len(sData)\2 
bBuffer(iLoop-1)= Val("&H"   &  Mid(sData,   iLoop   *  2   -   1,   2)) 
Next iLoop 


Winsock1.SendData   bBuffer  

接收EIO返回
Winsock1.GetData RecData