投稿日 | : 2005/07/25(Mon) 15:02 |
投稿者 | : チロル |
Eメール | : |
URL | : |
タイトル | : Re^2: MSCommのOn_Comm受信 |
GODさん、また返答有難うございます。
RThresholdに関してはフォームロードのときに行っており
以下のコードになります。コメントアウトしたり、外したり、両方試しましたが結果は同じでした。
Private Sub Form_Load()
' ポート開放
ctlComm.PortOpen = True
' 初期化 初期設定
ctlComm.RThreshold = 1
'ctlComm.SThreshold = 1
ctlComm.InputLen = 0
ctlComm.InBufferCount = 0
ctlComm.InputMode = comInputModeBinary
chkSelectUa(0) = True
End Sub
バイト数に関しては送信側からは
AA 10 BB とテキストへ入力し検査器では前後のデータも付随しており、思い通りの動作で19バイトで
す。
そして以下のコードの部分で
' データの有無確認
If ctlComm.CommEvent = comEvReceive Then
bufLen = UBound(Buffer)
Else
MsgBox "データがありません"
Exit Sub
End If
デバック時 bufLen の値が”19”となる時と”-1”となる時があります。