程式碼如下:
先辨認出起始位元是否為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迴圈時就沒資料了~~~
不知有何解決方法~~~~~~~~
謝謝~~~
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(4) 人氣()