Filter
Top Products
α
2 Simple Application Controllers
The Command String 7
7 - 47
Case 1 '"Reading Values".
cmdstr = ChrB(&H2) + ChrB(&H7) + ChrB(&H41) _
+ ChrB(&H0) + ChrB(&H0) + ChrB(&H1) + ChrB(&H42) _
+ ChrB(&H1) + ChrB(&H0) + ChrB(&H3) + ChrB(&H85) _
+ ChrB(&H0)
cmdlen = 12
resplen = 15
Case 2 '"Write Value: Set OUT1"
cmdstr = ChrB(&H2) + ChrB(&H8) + ChrB(&H41) _
+ ChrB(&H0) + ChrB(&H1) + ChrB(&H1) + ChrB(&H42) _
+ ChrB(&H1) + ChrB(&H0) + ChrB(&H1) + ChrB(&H3) _
+ ChrB(&H87) + ChrB(&H0)
cmdlen = 12
resplen = 10
Case 3 '"Write Value: Reset OUT1"
cmdstr = ChrB(&H2) + ChrB(&H8) + ChrB(&H41) _
+ ChrB(&H0) + ChrB(&H1) + ChrB(&H1) + ChrB(&H42) _
+ ChrB(&H1) + ChrB(&H0) + ChrB(&H0) + ChrB(&H3) _
+ ChrB(&H86) + ChrB(&H0)
cmdlen = 12
resplen = 10
Case 4 '"RUN Request"
cmdstr = ChrB(&H2) + ChrB(&H4) + ChrB(&H41) _
+ ChrB(&H0) + ChrB(&H10) + ChrB(&H1) + ChrB(&H3) _
+ ChrB(&H52) + ChrB(&H0)
cmdlen = 9
resplen = 6
Case 5 '"STOP Request"
cmdstr = ChrB(&H2) + ChrB(&H4) + ChrB(&H41) _
+ ChrB(&H0) + ChrB(&H10) + ChrB(&H0) + ChrB(&H3) _
+ ChrB(&H51) + ChrB(&H0)
cmdlen = 9
resplen = 6
End Select
End Sub
Private Sub ShowTxData()
Dim TxDataStr As String
Dim ByteData As Byte
Dim j As Integer
txtTxText.Text = ""
txtRxText.Text = ""
For j = 1 To cmdlen
ByteData = AscB(MidB(cmdstr, j, 1))
TxDataStr = TxDataStr + Right$("00" + Hex$(ByteData), 2) & " "
Next
txtTxText.Text = TxDataStr
End Sub