VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 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”となる時があります。


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -