我需要使用串口向外发送命令,字节数组,binary接收方式,接收缓冲区=1,发送缓冲区=0
Dim bSend(0 To 14) As Byte, iTotal As Integer, i As Integer
bSend(0) = 16 * 6 + 8
bSend(1) = 9
bSend(2) = 9
bSend(3) = 16 * 6 + 8
bSend(4) = 16 * 5 + 3
bSend(5) = 1
bSend(6) = 100
bSend(7) = 1
bSend(8) = 6
bSend(9) = 1
bSend(10) = 0
bSend(11) = 0
bSend(12) = 20
For i = 4 To 12
iTotal = iTotal + bSend(i)
Next i
bSend(13) = iTotal Mod 256 '校验和
bSend(14) = 16 + 6 '16H
Com_Nari.Output = bSend
这段代码有问题吗?
Dim bSend(0 To 14) As Byte, iTotal As Integer, i As Integer
bSend(0) = 16 * 6 + 8
bSend(1) = 9
bSend(2) = 9
bSend(3) = 16 * 6 + 8
bSend(4) = 16 * 5 + 3
bSend(5) = 1
bSend(6) = 100
bSend(7) = 1
bSend(8) = 6
bSend(9) = 1
bSend(10) = 0
bSend(11) = 0
bSend(12) = 20
For i = 4 To 12
iTotal = iTotal + bSend(i)
Next i
bSend(13) = iTotal Mod 256 '校验和
bSend(14) = 16 + 6 '16H
Com_Nari.Output = bSend
这段代码有问题吗?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货