タイトル : Re^2: MScommの通信について 投稿日 : 2012/06/01(Fri) 11:45 投稿者 : ミロク
魔界の仮面弁士さん、オショウさん、 ありがとう御座います。 相手側への送信文字化けについては、シリアル通信のデータビット数・パリティービット数・ストップビット数の修正により解決致しました。 受信に関してなのですが、 魔界の仮面弁士さんカラ教えて頂いた通りに確認してみたのですが、 Dim bin() As Byte, v As Variant bin = ChrB(&HFF) & ChrB(&H0) & ChrB(&H0) & ChrB(&H2) & ChrB(&H1) For Each v In bin 'この時点では化けていない: FF,00,00,02,01 Debug.Print " "; Hex(v); Next Debug.Print Tab(30); "Original" は問題なく表記できました。 受信したデータで下記のように確認してみたら、 Dim bin() As Byte, v As Variant bin = MSComm.Input For Each v In bin この時点では化けしてしまいました: F3,F8,00,00,00,00,02,00,01,00 Debug.Print " "; Hex$(v); Next Debug.Print Tab(30); "TEST" 理解力が乏しくて大変申し訳御座いません。 間違いのご指摘を宜しくお願い致します。 備考-受信側送信側のPCともにWin7です。 > 現象としては近いですが… F3,F8 ではなく F2,F8 ですね。関係ないのかな。 ご指摘の通りでした。 |