日韩精品久久久|日韩精品专在线电影|杨瀚森夏季联赛|韩国午夜精品福利视频|日产免费一区二区|JAVAJAVA护士|Z0OZO0人善之交另类

企業信息
17
  • 入駐時間: 2007-10-15
  • 聯系人:馬波
  • 電話:013520132195
  • 聯系時,請說明易展網看到的
  • Email:sf101@163.com
文章詳情

Winsock對modbus 編程時的連接設置:

日期:2026-06-25 20:42
瀏覽次數:5295
摘要:

在使用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