タイトル : 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 お互い上記の設定で通信しています。 |