commFX.InBufferCount = 0 ‘读m200——m215
commFX.OutBufferCount = 0
data = "011902"
rw data, 0
Tim = Timer
Do
If Timer > Tim + 1 Then Exit Sub
Loop Until commFX.InBufferCount > 7
recedata = commFX.Input
commFX.InBufferCount = 0
v = Len(recedata)
If v = 8 Then
changehl = ""
For i = 4 To 2 Step -2
changehl = changehl +mid(recedata, i, 2)
Next i
reced = Val("&H" + changehl)
For i = 0 To 15
AA = reced And 2 ^ i
If AA = True Then
MM(200 + i) = True
Else
MM(200 + i) = False
End If
Next i
End If
‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’
我想知道 changehl = ""
For i = 4 To 2 Step -2
changehl = changehl +mid(recedata, i, 2)
这三句是什么意思,有那位高手知道的呀,请指教下
[23406]
[18870]
[23303]
[12003]
[11908]
[10636]
[11038]
[7618]
[8705]
[10551]

客服
小程序
公众号