RS232Cでバイナリーデータを送信する方法を教えてください。

質問

VBの初心者です。
RS232Cでバイナリーデータを送信したくVBでAPIを使いプログラムを組みたいと思っております。
色々な本を探してASCIIデータを送信するプログラムは発見し、改造を試みているのですが、WriteFile()ではどうしても&H81や&HF0と言ったデータが&H00に化けてしまいうまく送れません。
どなたか参考になる情報があれば教えて下さい。
よろしくお願い致します。

回答No.1

Hayashi_Trek · ベストアンサー

APIでなきゃだめでしょうか？
VBならMSCOMMを使ってバイナリデータの送信が簡単に出来ます。

Dim bytBuffer() as byte
Redim bytBuffer(255) as Byte
for i=0 to 255
__bytBuffer(i) = i
Next i
MSComm1.Output = bytBuffer

てな感じです。

補足

早速の回答ありがとうございます。
APIにこだわる必要はありませんのでこの方向で結構だとおもいます。
さっそく試して見た所、MSComm1.Output = bytBufferの所で”実行エラーオブジェクトがありません”となりました。
申し訳ありませんがもう少しMSCOMMの使い方を教えて頂けないでしょうか？
よろしくお願い致します。

回答No.2

Hayashi_Trek

＞さっそく試して見た所、MSComm1.Output = bytBufferの所で
＞”実行エラーオブジェクトがありません”となりました。

フォームにMSCOMMを張りつけてますか？
「プロジェクト」→「コンポーネント」→「Microsoft Comm Control」をチェックし
ツールボックスの電話アイコンのコントロールを張りつけます。

お礼

回答ありがとうございます。
ActiveXを勉強していなかったので初歩的な質問をしてしまいました。
アドバイスの通りコンポーネントをフォームに貼り付ける事によりバイナリーデーターの送信に成功しました。
本当にありがとうございます。