パソコンソフトのサンプル vega 2003.07.16～
世の中進歩したのかＵＳＢだＬＡＮだのが当たり前になって、シリアルポートなんて無くてもかまわない
なんてことになり、パソコンによってはＣＯＭポートが付いていないのが珍しく無くなってきました。
しかしマイコンと接続するとなると、気軽に使用できるのはＣＯＭポートですね。
パソコンソフトのサンプルです。 マイコンとデータの送信受信の送受信を想定しています。
ＶＢＡ版、ＶＢ版、ＶＣ＋＋版など色々ありますが、送信受信の方式は共通です。
マイコンが無い場合、モデムを相手にして動かすことも出来ます。私は動作確認でよく利用します。
クロスケーブルを使用して、パソコン同志でも可能です。ＣＯＭポートが２つあるパソコンなら、ＣＯＭポート
どうしを接続してもＯＫです。相手のソフトは、ターミナルソフトでもこれらのソフトでもたぶんＯＫです。
ただＣＯＭ１以外を使う場合は、オープンの所を直さないといけません。
マイコンとの通信は、高価な開発環境（ＶＣ＋＋やＶＢなど）をよく使用しますが、ｏｆｆｉｃｅ （エクセルやワード）
があれば、ＶＢＡが使用できるので開発環境を購入しなくても可能です。
尚、 下記サンプルは Ｗｉｎ９８ＳＥとＯｆｆｉｃｅ９７の環境で作成しました。
Win2000では動かないようです。
ＶＢで作成したソフトをWindows2000動かしたところ、動作しませんでした。WindowsＸＰでも同じと思います。
ここで紹介している方法とほとんど同じ作り方です。（機能毎にＳＵＢを作って呼び出す。）
色々試したところ、１つのＳｕｂでオープン、送受信、クローズと完結しないと動作しないことが分りました。
これは、ＯＳの処理単位（タスク？ スレッド？）の違いなのかもしれません。
ＶＢＡでも同様な方法で動くと思われますが、ここで紹介している方法（機能毎にＳＵＢを作って呼び出す）からは
外れるので、ここで試すのは止めたいと思います。どうしても、自分のロクッジの中でＡＰＩの使い方を意識して
作成する以外無いよいうです。（2004.12追記）
（１） パソコンソフトのサンプル
ダウンロード (PC01～PC06)
56KB
送受信の方法は、私が作成したフーコーテスターや追尾ソフト（未完成）で使用している方式で、ＡＰＩ（注１）を使用
しています。ＡＰＩですから、ＶＣ＋＋でも、ＶＢでも、ＶＢＡでも使用できます。
今回使いやすく工夫したので、とても簡単に使用できます。 まずは使用してみて下さい。
ＶＢＡでの作り
ロジックは大きく２つに分かれています。
・フォームの部分 ： 標準モジュールで定義した関数（ＳＵＢ）を呼び出す形で通信します。
・標準モジュール： めんどくさいく難解なのを全部ここmod.txt に押しこめました。通常は見たり内容を理解する必要はありません。
使用方法を理解すればＯＫです。 説明は下記
また、標準モジュールは、ＶＢと互換があります。
（Ａ） ＰＣ０１ ＶＢＡの例です。 マイコンに任意のコマンドを送信して、即受信する機能です。
エラー処理は一切ありません。
マイコン側は、キー入力が可能なソフトなら何でもＯＫです。ＲＯＭに書きこむか、モニター配下では起動後
ターミナルソフトを終了して下さい。
送信後０．５秒間待ってデータがこなければ受信終了します。
操作方法は、
① 「ポートオープン」 ボタンプリック
② 送信データに文字列入力（複数可能でブランクでもＯＫ）
③ 「送信／受信」ボタンクリック マイコンから返事が来たら表示 （繰り返し可能）
④ 「ポートクローズ」 をクリック
⑤ 「閉じる」をクリック ④省略でもＯＫ
ソースはこれです。 （フォームに対応する全ソースで ①③④⑤ は操作に対応）
① Private Sub
OPEN2_Click()
COM_OPEN
38400 ' ボーレート
38400BPIでオープン指定
End Sub
③ Private Sub SEND_RCV_Click()
Dim SDT As String
' 送信データ文字数
Dim RDT As String '
送信データ
Dim RLEN As Long
' 受信データ文字数
SDT = TextBox1.Text
' 送信するデータをテキストボックスからセット
COM_IO SDT, 50, 500, RDT, RLEN '
送受信 ＊１
TextBox2.Text =
RTrim(RDT) '
受信したデータを表示
End Sub
④ Private Sub CLOSE2_Click()
COM_CLOSE
' COMポートクローズ
End Sub
⑤ Private Sub END2_Click()
COM_CLOSE
' COMポートクローズ
Unload UserForm1 '
フォームを閉じる
End Sub
簡単でしょう？ これが理解できれば、きっとあなたもパソコンソフトが作成できると思います。
QCAMのフーコーテスターもほとんど同じ事をやっています。コマンドを送信し、返事を待つ。
青色の部分は、前述した標準モジュールで定義した関数（サブ）です。
＊１ ： ５０が下のＴＩＭＥ１、５００が下のＴＩＭＥ２
Ｅｘｃｅｌなら受信した内容をシートのセルに埋め込むことも出来ます。
終了したあと Alr + F11
で ソースが見れます。（ＶＢＡ編集）
（ツール -> マクロ -> Visual
Basic Editor でも可能）
（Ｂ） ＰＣ０２（Ａ）をＶＢで作成したものです。
（Ａ）とほとんど同じです。標準モジュールは、（Ａ）をコピーしたものです。
（Ｃ） ＰＣ０３ＶＢＡでバイナリのデータも扱ったものです。
バイナリ用の送信受信関数を使用しました。
バイナリのデータを送信、受信する場合は、byte タイプのデータを使用しないと、データが欠落することがあります。
（Ｄ） ＰＣ０４ＶＢでのサンプルです。
定期的（１秒毎）にデータを受信します。
送信データは任意の時点で送信します。その時点でバッファに貯まったデータを取りこみます。
Ｈ８のｇｃｃ環境を実践された方は、サンプルのＴ04_clk（時計もどき）で使用して下さい。コマンド送信で時計を
合わす事ができます。
（Ｅ） ＰＣ０５ ＶＢＡで（Ｃ）と同様なことをしています。
ＶＢＡではタイマーが使用できないので、割り込む処理（ボタン操作等）は、時々無視される場合があり、今一つです。
いつくるか分からないデータを受信する場合は、このパターンで作れば良いと思います。
受信データを無視することはありません。
（Ｆ） ＰＣ０６ ＶＣ＋＋で（Ｄ）と似たような機能を実現したものです。
これは、自動導入追尾ソフト（未完成）で使用している方式です。追尾ソフトでは、マイコンから望遠鏡の赤経赤緯等
を受信しています。
ＡＰＩの部分の関数を uWincom.h にまとめてあります。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
どれも作りが少しずつ異なりますが、気に入った作りを参考にして下さい。
自動オープンだったり、オープンしていなければオープンするとか。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
タイムアウトの指定
受信時にタイムアウト用パラメータを指定します。これを上手く指定しないと、受信が終わったのに無駄に待ったり、
返事が来る前に時間切れで、受信できなくなります。
ＴＩＭＥ１ ： 受信データ１文字間のタイムアウト時間です。通常の連続で送られてくる場合は、５０ｍｓでＯＫです。
この場合、受信が５０ｍｓ途切れると受信終わりの扱いになります。
とぎれとぎれで送信されるデータを受信する場合は、ＴＩＭＥ１を大きくすれば１度に受信できます。
ＴＩＭＥ２ ： 受信全体のタイムアウト指定です。
即受信データが返る場合でデータ数が少ない場合は、数百ｍｓでＯＫです。
マイコン側で処理に時間がかかる場合は、最低その時間を待たなくてはなりません。
例えばモータを回転したあと、ＯＫのメッセージを受信する場合は、回転終了まで待たなくてはなりません。
又不必要に大きくすると、その間はオペレーションを受けつないので使いにくいものになります。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
（注１） ＡＰＩ ： （Application
Interface）
Ｗｉｎｄｏｗが提供するランタイムライブラリーで、各種の言語から利用できます。
ＶＢＡ、やＶＢからは、使用方法を定義してから使用する必要があります。
ＯｆｆｉｃｅやＶＢには使用方法（マニュアル）が付属してないので、使用しているもののみテキストファイル形式で
貼り付けたのをここに置きます。見にくいですが、無いよりましと思います。 区切りは@@@@@@の行です。
ここに関連ＡＰＩの解説があります。
http://members.at.infoseek.co.jp/spectrum123/vb/vb_menu.htm スペクトラム電子工作のホームページ
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
標準モジュール 説明
1． （Ａ）（Ｂ）（Ｃ）で使用しているもの
やっていることは、ＡＰＩの定義とそれを使用した送受信の関数（サブルーチン）です。
通信Ｓｕｂの使用方法（引数の説明）
① COM_OPEN オープン （失敗した場合は、メッセージが出ます）
ＲＡＴＥ As String ： ボーレート（ＢＰＩ）
ＣＯＭ１固定になっています。
② COM_IO 文字送信 文字受信
SEND As String ： 送信するデータ
TIME1 As Integer ： 上記参照
TIME2 As Integer ： 上記参照
RCV As String ： 受信したデータ
RLEN As Long ： 受信したデータ数
受信データの最大長は、１００ｂｙｔｅで内部で持っています。足りない場合は修正する必要があります。
このまま使用する場合で、１００ｂｙｔｅ以上バッファに貯まっている場合は、次回以降の受信で取りこむ
ことができます。
③ COM_CLOSE クローズ
又バイナリの送信受信する場合は
④ COM_IOB バイナリ送信とバイナリ受信
bData() As Byte ： 送信データ
slen As Integer ： 送信データバイト数
TIME1 As Integer ： 上記参照
TIME2 As Integer ： 上記参照
rData() As Byte ： 受信したデータ
RLEN As Long ： 受信したバイト数
２． （Ｄ）（Ｅ）で使用しているもの
送信、受信を別々の関数に分けています。バイナリもそれぞれ分けています。
（Ｅ）には、ミリ秒取得のＡＰＩを使用しています。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
ＶＢＡ自動起動（Ｅｘｃｅｌの場合）
ワークシートを開いたとき自動的に起動する場合は
プロシジャエクスプローラーの thisWoｒkBookをダブルクリック
オブジェクトボックスからworkbookを選択
プロジジャボックスからopenを選択して下記を入力
Private Sub workbook_open()
UserForm1.Show
End Sub
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
パソコンへの転送スピード
Ｈ８マイコンからパソコンへ送信する場合パソコンの処理が間に合わないと、データが欠落します。（ＴＸＤ，ＲＸＤのみの結線の場合）
ターミナルソフトで表示速度が間に合っているかどうかは、マイコンをリセットした瞬間に表示が止まれば、間に合っています。
即止まらない場合はバッファに貯まったデータを表示しているからで、バッファがパンクすればデータが欠落します。（表示も乱れる）
マイコンから高速でパソコンに転送する場合は、マイコンをリセットした瞬間に表示が止まるように調整します。
自作のソフトでデータを受信する場合、少なくても２４００ｂｙｔｅまでは一回に読みこんだことがあります。（最大は不明）
このバッファがパンクしない限り、データを蓄えることが出来るので定期的にデータを読み込むこともできます。
いつ来るか分からないデータは、バッファがパンクしない周期で読み込めばデータの欠落は発生しません。