今回初めてVBを触ることになりました。
RS232Cの９ピンのシリアルケーブル（クロス）でPC（XP）とPC（Linux)
を接続し、VB（Ver5)のMｓCommを使ってPC（XP）からバイナリデータを
送信するプログラム（単方向通信方式）を作ろうと考えています。
VB側のサンプルプログラムで何か良いものございませんか？

受信側はLinux環境のC言語にてコーディング済みですが
送信側はVBで作るつもりです。
といってもそんな高等なものは考えておらず
送信したいバイナリデータのテキスト部（アスキーコード）をそのつど
人間系で手入力してから送信ボタンで送信するようなレベルで
いいと思ってます。

ネット上で何か良い無料サンプルはないものかと探しましたが
なかなかストライクなものにたどり着けませんでした。
全く上記のとおりのプログラムがあるとは思っていませんが
似たものがあればあとは自分で改造してみようと考えてます。

「こんないいHPがあるよ」や「実は過去に作ったことがあります」
あるいは「ここにあるやん！まんまのサンプル！」
みたいな情報がありましたら教えてください。
よろしくお願いします。

MSCommのヘルプにそのまま使用方法が書いてます…^^;

VB5.0 でもsampleフォルダーの中のMscommフォルダーにサンプルが付属しています。
ヘルプで探すなら「コミュニケーションコントロールの使用例」で検索して下さい。

雅さん・花ちゃん回答ありがとうございます。
なにせ右も左もわからない状態なので・・・
「コミュニケーションコントロールの使用例」は見つけました。
「sampleフォルダー」にはどうやってたどり着くのでしょうか？

それと、「コミュニケーションコントロールの使用例」には
「モデムを使用する〜」とありました。
これは変換機（ハード）を指すのでしょうか？
それともVB（MSCOmm？）に機能としてあらかじめ用意
されているソフト的な変換処理を指すのでしょうか？

私はPCとPCをシリアルケーブルで直結して
データ送受信をしようと考えていましたが・・・

> 「sampleフォルダー」にはどうやってたどり着くのでしょうか？
エクスプローラは使えるのでしょうか？
使えるなら検索でMscommフォルダー又はsampleフォルダーを検索して見てください。
エクスプローラを使った事がなければスターとボタンから検索→ファイルやフォルダーを
クリックして表示されたダイアログにMscommと入力して検索開始ボタンを押して下さい。


>ネット上で何か良い無料サンプルはないものかと探しましたが
>なかなかストライクなものにたどり着けませんでした。

下記のようなActiveXコントロール を使用されたらいかがでしょうか？
http://www.vector.co.jp/soft/win95/prog/se057451.html?g

下記なども参考になると思います。
http://speana-1.hp.infoseek.co.jp/vb/vb_menu.htm

これらもGoogleで[シリアル通信 MSComm VB]をキーワードで検索すれば見つかります。

MSDNでは下記も掲載されています。
http://support.microsoft.com/default.aspx?scid=kb;ja;JP411403

> 検索でMscommフォルダー又はsampleフォルダーを検索して見てください。
見つけました。参考にいたします。

> 下記のようなActiveXコントロール を使用されたらいかがでしょうか？
> http://www.vector.co.jp/soft/win95/prog/se057451.html?g
おお！これはいけそうですね！
これからPCにDLして実行してみます。
結果はご報告いたしますね。

> 下記なども参考になると思います。
> http://speana-1.hp.infoseek.co.jp/vb/vb_menu.htm
> MSDNでは下記も掲載されています。
> http://support.microsoft.com/default.aspx?scid=kb;ja;JP411403
二つとも十分使えそうですね。ありがとうございます。

自分でもこの部屋に来る前に検索してみたのですが、あまりにも出すぎてしまい
悩んでしまいました。とりあえずDLしてもWin3.1との通信だったり
DLしても動作しなかったりでここに質問するに至りました。

自分で消化しながら試して見ます！！

これで自分のCom1からCom2に送信できると思います。
後はエラーの設定とかイベントを追加していって…^^

Private Sub From_Load()
  MSComm1.CommPort = 1
  MSComm1.Setting = "9600,n,8,1"
  MSComm1.PortOpen = True
  MSComm2.CommPort = 2
  MSComm2.Setting = "9600,n,8,1"
  MSComm2.PortOpen = True
End Sub

Private Sub Command1_click()
  MSComm1.Output = Text1.Text
End Sub　

Private Sub Command2.Click()
  Text2.Text = MSComm2.Input
End Sub　

Cでシリアル通信のコードを書けるなら、
全部APIで書いてしまうって手もありますよ

> Cでシリアル通信のコードを書けるなら、
> 全部APIで書いてしまうって手もありますよ
アドバイスありがとうございます。
雅さん花ちゃんに教えてもらったサンプルで
どうやら目処が立ちそうです。これから試してみる
のですが今回はサンプルプログラムを
いじってみますね。

う〜ん、こんなにレスがくるとは！！
マジ助かりました。

> これで自分のCom1からCom2に送信できると思います。
> 後はエラーの設定とかイベントを追加していって…^^
ありがとうございます！これなら2台用意しなくても
自分で済みそうですね。

他に教えてもらったサンプルを眺めてみたのですが
基本的なところは同じようなことが書いてあるので
おぼろげながら分かってきました。

「Visual Basicシリアル通信プログラム開発編」
http://speana-1.hp.infoseek.co.jp/vb/vb_menu.htm
のMSCommを使用して通信できました！
これから自分のニーズに合わせて改造していきます。
数多くのアドバイスありがとうございました。