Private Sub cmdSend_Click()
On Err GoTo ErrProc
Dim SendStr(11) As Byte
Dim RcvStr() As Byte
SendStr(0) = 0
SendStr(1) = 0
SendStr(2) = 0
SendStr(3) = 0
SendStr(4) = 0
SendStr(5) = 6
SendStr(6) = 1
SendStr(7) = &H1
SendStr(8) = 3
SendStr(9) = &HE8
SendStr(10) = 0
SendStr(11) = &HA
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
這段代碼我想實作的是：
Tx:465-50 5A 00 00 00 06 01 01 03 E8 00 0A
Rx:466-50 5A 00 00 00 05 01 01 02 01 00
Tx:467-50 5B 00 00 00 06 01 01 03 E8 00 0A
Rx:468-50 5B 00 00 00 05 01 01 02 01 00
Tx:469-50 5C 00 00 00 06 01 01 03 E8 00 0A
Rx:470-50 5C 00 00 00 05 01 01 02 01 00
可是我用moabus slave 測驗出來錯誤：
000290-Rx:00 00 00 00 00 06 01 01 03 3F 00 0A
000291-Tx:00 00 00 00 00 03 01 81 02
請高手指點一下
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/109698.html
標籤：網絡通信
上一篇：TCP中的PSH標識