tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^4: MScommの通信について
投稿日: 2012/06/01(Fri) 17:19
投稿者ミロク
オショウさんありがとう御座います。
自分の理解出来てる範囲で確認してみました。

MSComm.InputMode = comImputModeBinary

Dim bin() As Byte
Dim i As Integer

;相手側より0xFE,0x00,0x01,0x00,0x02を送信
;同時にシリアルのモニタリングのソフトで受信を確認してみたところ-FE 00 01 00 02
bin = MSComm.Input

MsgBox Hex$(bin(0))-F2
MsgBox Hex$(bin(1))-F8
MsgBox Hex$(bin(2))-エラー
MsgBox Hex$(bin(3))
MsgBox Hex$(bin(4))

  ;上記メッセージボックスを消して見たところループ3回目でエラーLogにはF2 F8と記載                                 されていました。
    For i = 0 To 5 ※ 0 To bin.Length() -1はデバグしてしまい原因がわからなかったの           でダイレクトに値を入れて回しました。
        Debug.Print " "; Hex$(bin(i));
        
    Next

非常に説明が下手と知識不足で申し訳御座いません。
こんな感じの結果でした。XPのPCでの通信もしてみます。
お手数お掛け致しますが宜しくお願い致します。


※'初期化
MSComm.CommPort = 8
MSComm.Settings = "9600,n,8,1"
MSComm.Handshaking = comNone
MSComm.RThreshold = 1
MSComm.SThreshold = 1
お互い上記の設定で通信しています。

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

古いスレッドにレスはつけられません。