|
楼主 |
发表于 2009-11-19 21:10:14
|
显示全部楼层
Private Sub Command7_Click()
Dim arrsource() As String
arrsource = Split("66,7E,66,7E,66,7E,66,7E,67,6A,6C,67", ",")
Dim i As Long
For i = 0 To UBound(arrsource)
SendData ("&H" & arrsource(i))
Next
End Sub
Private Sub SendData(ByVal vData As Byte)
Dim buff_out6(8) As Byte
buff_out6(0) = &HAA
buff_out6(1) = &HAA
buff_out6(2) = &HFF
buff_out6(3) = &H5
buff_out6(4) = vData
buff_out6(5) = &H0
buff_out6(6) = &H0
buff_out6(7) = &H0
buff_out6(8) = &HFF
MSComm1.Output = buff_out6
End Sub
思路 :但是现在大小循环还没有真正循环起来 LS的只是发送数组里的66,7E,66,7E,66,7E,66,7E,67,6A,6C,67", ","
我是想:
大循环套小循环:66 7E 66 7E 66 7E 66 7E......(小循环)67 6A 6C 67----(大循环)-----
66 7E 66 7E 66 7E 66 7E ......(小循环)67 6A 6C 67---大循环)---- 66 7E 66 7E 66 7E 66 7E ......(小循环)67 6A 6C 67----(大循环)----- 66 7E 66 7E 66 7E 66 7E ......(小循环)67 6A 6C 67 67 7E(大循环完成最后是67 7E) |
|