通信制御用ＡｃｔｉｖｅＸを使う方法

Visual　Basic4.0以降から標準で組み込まれた機能で、OCXコントロールの形式で提供されています。コミュニケーションコントロール（Microsoft Communication Control　略してMSComm)コンポーネントをフォームに貼り付けるだけで非常に簡単にシリアル通信のプログラミングが出来るため、初心者向きです。詳細については、Visual Basic Books Online マニュアルを参照してください。

MSCommの機能について
コミュニケーションコントロール（MSComm)は、シリアルポートを利用するための標準的なインターフェイスとなっています。 MSCommを使って行える操作は次のとおりです。

1. シリアル ポートへの接続を設定
2. モデムなどの通信デバイスと接続
3. コマンドの送出
4. データの交換
5. シリアル接続中に発生する可能性がある
   さまざまなイベントおよびエラーを監視し、それらに対処する。

MSCommの通信方法について
コミュニケーション コントロールでは、次の 2 つの方法で通信を行うことができます。

1. イベントドリブン（割込み方式）による通信：
   シリアル ポートを使用した双方向処理を効果的に行う方法です。たとえば、Carrier Detect (CD) ラインまたは Request To Send (RTS) ラインで、文字を受け取ったり、状態が変化したときなど、イベントが発生した瞬間に通知を受けることが必要な場合があります。コミュニケーション コントロールの OnComm イベントを使うと、これらの通信イベントがトラップされ、そのイベントが発生した時点で必要な処理を行うことができます。OnComm イベントで、通信エラーの検出および処理も行うことができます。発生するイベントおよび通信エラーの一覧については、「CommEvent プロパティ」を参照してください。
   　
2. ポーリング方式による通信：
   プログラム内で、主要な関数の実行が終了するたびに CommEvent プロパティの値をチェックして、イベントおよびエラーのポーリングを行う方法もあります。小規模で、単独で動作するアプリケーションでは、この方法が適切な場合があります。たとえば、簡単なダイヤラー プログラムを作成する場合、受信処理の対象となる文字はモデムからのOK という応答だけです。文字を受信するたびにイベントが発生するように設定する必要はありません。

MSCommのプロパティについて
MSCommの主なプロパティについて表１に示します。

通信ポートの接続設定について
シリアル ポートは、CommPort プロパティ、PortOpen プロパティ、および Settings プロパティを使って開きます。
例えば、

MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True

CommPort プロパティを使用して、どのシリアル ポートを開くかを指定します。この例では、通信機器が COM１ ポートに接続されているものとして、プロパティの値を １ (COM１) に設定し、通信機器との接続を行います。CommPort プロパティの既定値は 1 で、1 〜 16 の範囲の任意の数値を設定できます。ただし、アプリケーションが動作するシステムに存在しない COM ポート番号を指定すると、エラーが発生します。
次に、表２に示すSettings プロパティを使用して、通信速度、パリティ、データ長、およびストップ ビットを指定します。指定フォーマットは　"BBBB,P,D,S"　です。ここで BBBB は通信速度 (bps)、P はパリティ、D はデータ長、S はストップ ビット長です。特に指定しない限り、通信速度は 9600bps に設定されます。パリティは、データの伝送エラーをチェックするために設定します。通常、パリティは使用しないので "N" に設定します。データ長では、何ビットで 1 バイト分のデータを表すかを指定します。ストップ ビットは、データの受信を 1 バイト分ごとに同期をとって行うために使用されます。

使用するポートおよびデータ通信用パラメータを指定した後、PortOpen プロパティを使って接続を確立します。PortOpen プロパティの値はブール型で、真 (True) または偽 (False) となります。ポートに異常がある場合、CommPort プロパティの設定値が正しくない場合、または使用するシリアル デバイスが、指定されたパラメータ値をサポートしていない場合は、エラーが発生したり、外部デバイスが正常に動作しないことがあります。PortOpen プロパティの値を偽 (False) に設定すると、ポートが閉じられます。シリアル ポートへの接続を確立すると、Output プロパティを使って機器との通信を開始できます。


バッファに割り当てるメモリサイズの指定について
InBufferSize プロパティにより、受信バッファに割り当てられるメモリサイズを指定できます。特に指定しない限り、受信バッファサイズは、1,024 バイトです。また、OutBufferSize プロパティにより、送信バッファに割り当てられるメモリサイズを指定できます。特に指定しない限り、送信バッファサイズは、512 バイトです。
（注）受信及び送信バッファを大きくすると、アプリケーションで利用できるメモリが少なくなります。一方、バッファが小さすぎると、ハンドシェイクを使用していない場合は、オーバーフローが発生する可能性があります。通常、バッファ サイズは受信 1,024 バイト、送信512 バイトから始めます。オーバーフロー エラーが発生したら、アプリケーションの送信速度に合わせてバッファ サイズを大きくしてください。
なお、InBufferSizeプロパティと InBufferCountプロパティや、OutBufferSizeプロパティとOutBufferCountプロパティとを混同しやすいのでご注意ください。InBufferCount，OutBufferCountプロパティは、その時点で受信，送信バッファに格納されているバイト数を取得するものです。


データ送信について
Output プロパティを使用して、テキスト文字列、またはバイト配列データを送信できます。
例えば、

' SPECTRUM　HomePage　というテキスト文字列を送信するとき
　　　　MsComm1.Output = "SPECTRUM　HomePage"　& vbCr

' バイト配列データを送信するとき
　　　　Dim Out() As Byte　　　　'可変長バイト配列の定義
　　　　MSComm1.Output = Out

テキスト文字列では必要に応じて、伝送データの末尾にはキャリッジ リターン文字 (vbCr) を付加します。
（注）コミュニケーション コントロールでは、2 バイト文字セット (DBCS) のバイナリ データは送受信できません。


データ受信について
受信バッファからデータを取得するには、Input プロパティを使用します。たとえば、受信バッファからデータを取得して、テキスト ボックスに表示する場合は、次のようなコードを記述します。

TxtDisplay.Text = MSComm1.Input

ただし、受信バッファの内容全体を読み取るには、その前に InputLen プロパティの値を 0 に設定する必要があります。InputLen プロパティの値は、デザイン時または実行時に設定できます。
InputMode プロパティに、Visual Basic 定数の comInputModeText または comInputModeBinary を設定することによって、受信データはテキストまたはバイナリ データの形式で読み取ることができます。データは、テキストの場合は文字列として、バイナリ データの場合はバイト配列として読み取られます。定数 comInputModeText は ANSI 文字セットだけが使用されているデータの場合に設定してください。それ以外の、埋め込み制御文字、null 文字などが含まれているデータの場合は、定数 comInputModeBinary を設定します。
なお、データが 1 バイト受信されるたびに、そのデータは受信バッファに格納され、InBufferCount プロパティの値が 1 増加します。InBufferCount プロパティを使うと、受信バッファに格納されているデータのバイト数を調べることができます。InBufferCount プロパティの値を 0 に設定すると、受信バッファの内容がクリアされます。


通信エラー／通信イベントについて
通信エラーまたはイベントが発生すると、OnComm イベントが発生します。CommEvent プロパティには、そのエラーまたはイベントを表す数値が設定されます。CommEvent プロパティを参照すると、OnComm イベントが発生する原因になった具体的なエラーまたはイベントを調べることができます。
CommEvent プロパティは、通信エラーまたはイベントを表す表３，表４の定数を返します。これらの定数は、コミュニケーション (MSComm) コントロールのオブジェクト ライブラリでも参照できます。

通信ポートの接続解除について
シリアル ポートは、PortOpen プロパティを使って接続を解除できます。
たとえば、

　　　　MSComm1.PortOpen = False

と記述します。

---

---