主營產(chǎn)品：
串口服務(wù)器
多上位機(jī)智能Modbus網(wǎng)關(guān)
高性能CAN-bus轉(zhuǎn)以太網(wǎng)、串口
分布式以太網(wǎng)IO
文章詳情
Winsock對modbus 編程時(shí)的連接設(shè)置：
日期：2024-12-29 10:41
瀏覽次數(shù)：4907
摘要：
在使用VB6 中Winsock對modbus 編程時(shí)的連接設(shè)置：
Winsock1.RemoteHost = "" ' IP 地址
Winsock1.RemotePort ="6020"
但使用MODBUS / TCP 的具體方法請給于幫助
=============================================
下面將EIO的第8路輸出設(shè)置為接通狀態(tài)，sData為文本數(shù)據(jù)，bBuffer為轉(zhuǎn)換后的16進(jìn)制數(shù)據(jù)。
發(fā)向EIO的數(shù)據(jù)，必須是16進(jìn)制的，所以需要做個(gè)轉(zhuǎn)換。
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