程式碼如下:
先辨認出起始位元是否為1 如果起始位元為1就收三筆資料
Dim buf() As Byte
Do While Comm1.InBufferCount > 0
buf = Comm1.Input
If buf(0) =1 and flag=0 Then
c1=buf(0)
flag= 1
ElseIf flag=1 Then
c2=buf(0)
flag=flag+1
ElseIf flag=2 Then
c3=buf(0)
flag=0
EndIf
Loop
問題是經過模擬
收第一次時inbuffercount 還有三筆資料
可是再跑do..loop迴圈時就沒資料了~~~
不知有何解決方法~~~~~~~~
謝謝~~~
先辨認出起始位元是否為1 如果起始位元為1就收三筆資料
Dim buf() As Byte
Do While Comm1.InBufferCount > 0
buf = Comm1.Input
If buf(0) =1 and flag=0 Then
c1=buf(0)
flag= 1
ElseIf flag=1 Then
c2=buf(0)
flag=flag+1
ElseIf flag=2 Then
c3=buf(0)
flag=0
EndIf
Loop
問題是經過模擬
收第一次時inbuffercount 還有三筆資料
可是再跑do..loop迴圈時就沒資料了~~~
不知有何解決方法~~~~~~~~
謝謝~~~
全站熱搜
留言列表