ＥｘｃｅｌでのポートのＩ／Ｏ　　　　　　　　　　 　　　　　　ｖｅｇａ　　　2003.04.22　改定
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　 2003.12.19　改定　

　ＥｘｃｅｌのＶＢＡでポートの操作します。Ｅｘｃｅｌさえあれば、開発環境は特に必要ありません。　
　当方の環境は、Ｗｉｎ９８ＳＥとＯｆｆｉｃｅ９７です。（ＰＣ／ＡＴ互換機）
　WinXPでも動きました（COMポートでの動作確認）。（GIVEIO.SYSを併用しました）
　実際に回路などに接続する場合は十分理解した上で、自己責任でお願いします。
　最悪パソコン故障のリスクがあります。

　正確な時間のパルス巾の出力や、パルス巾の正確な測定は出来ません。
　不定期にWindowsの割りこみが入る為です。

　下記に簡単なサンプルソフトを紹介します。

　（１）　シリアルポート

　　　　シリアルポートの制御線を操作します

　　　　２本の出力、３本の入力操作をします。少し本数が少ないですが。

　　　　　Ｄ−ＳＵＢ９でのピン番号は
　　　
　　　　　出力
　　　　　　ＲＴＳ（７ピン）　　　クロスケーブルは（８ピン）
　　　　　　ＤＴＲ（４ピン）　　　クロスケーブルは（６ピン）

　　　　　入力
　　　　　　ＣＴＳ（８ピン）　　　クロスケーブルは（７ピン）
　　　　　　ＤＳＲ（６ピン）　　　クロスケーブルは（４ピン）
　　　　　　ＤＣＤ（１ピン）　　　私のクロスケーブルは、結線なし。

　　　　　　　

　　　　２秒間隔で、ポートのＩ／Ｏを行います。

　　　　出力は、２本のポートを同時にＯＮ／ＯＦＦしますから、テスターで計ると約±１０Ｖ変化します。
　　　　ＲＳ２３２Ｃのドライバーを通しますから（インバーター）、ＯＦＦの処理で約＋１０Ｖ、ＯＮ処理で約−１０Ｖになります。

　　　　入力は、３本の入力をします。
　　　　インバーターの為、約＋１０ＶでＯＦＦ、約−１０ＶでＯＮと判定できます。
　　　　ＯＶは、ケーブル上ではＬＯＷ扱いなので、プログラム上ではＯＮと判定されます。

　　　　入力と出力を接続すれば、入力ポートの変化が分かります。
　　　　例えば、８ピンと７ピンを接続すると、下記フォームのＣＴＳが２秒間隔でＯＮ/ＯＦＦが変化します。

　　　　直接マイコン等には接続できないので注意が必要です。
　　　　普通は、ＲＳ２３２Ｃ用のドライバー/レシーバー用のＩＣを介して接続し、０Ｖ／５Ｖに変換します。
　　　　これらのＩＣはインバーターなので、パソコンのソフト処理（ON処理で５Ｖ、ＯＦＦ処理で０Ｖ）と一致します。
　　
　　　　comex.lzh 　　　

ポートのＩ／Ｏは、Ｗｉｎｄｏｗｓのｄｌｌを使用してます。

　　　　　参考　（ＡＰＩの使用方など）

　　　　　　ＣＱ出版社　ＴＲＹ！ＰＣ　　１９９７．１１月号　　ｐ１１４〜ｐ１２８　　ＣＯＭポート制御用ＡＰＩの紹介

　　（２）　パラレルポートのＩ／Ｏ

　　　　　上記に加えて、パラレルポートのＩ／Ｏを追加しました。

　　　　　１１本の出力、５本の入力です。
　　　　　安全の為データの双方向の制御はせず、データは出力固定です。
　　　　　双方向の制御は、ソフトとハードとの関係で十分な知識と経験がないと、ポートが簡単に
　　　　　破壊されるそうで、初心者は止めた方が賢明です。
　　
　　　　　ポートをＩ／ＯするＤＬＬ（ｉｏ３２ｃ．ｄｌｌ）は、雑誌の真似をして作り直したものです。システムフォルダに
　　　　　コピーして使用して下さい。普通のＶＢでも使用できます。必要な方は、自由に使ってください。

　　　　　双方向のサポートが動作する条件になります。双方向をサポートしたものは、ポートアドレスが連続
　　　　　になります。双方向をサポートしない場合は、ポートアドレスが連続でないので、プログラムの修正が
　　　　　必要になります。

　　　　　安易に使用しないで下さい。暴走、パソコン故障のリスクがあります。
　　　　　パラレルポートはＣＯＭポートに比較して、非常に壊れやすいと聞きます。

　　　　　２秒間隔で、ポートのＩ／Ｏを行います。
　　　　　出力は、０Ｖ/５Ｖと変化します。アースとのショート等で一瞬にして簡単にポートが故障するそうですから
　　　　　十分注意して下さい。
　　　　　電子回路との接続では、保護用抵抗を介して接続します。

　　　　　入力と出力を接続すれば、入力ポートの変化が表示されるので分かります。

　　　　　ｐｐｏｒｔ.lzh 　　2003.4.13　V03 　　(V02 2003/4/11 から自動起動に変更）　

　　　　　ＷｉｎｄｏｗｓＸＰやＷｉｎｄｏｗｓ２０００では、動かないと思います。

　　　　　パラレルポートアドレスが選択できます。正しく選択して下さい。
　　　　　アドレスを設定した後に、Ｉ／Ｏ開始ボタンをクリックします。
　　　　　Ｉ／Ｏを開始した後では、アドレスの変更は無視されます。
　　　　　ここにない場合は、ソースを直す必要があります。

　　　　

　　　　�@　IO32C.DLLの使用方法（１バイトデータのＩ／Ｏ）

　　　　　　まず先頭で使い方を定義をします。　%は、２バイト整数の意味。

　　　　　　Private Declare Function inportb% Lib "io32c.DLL" (ByVal Port%)
　　　　　　Private Declare Sub outportb Lib "io32c.DLL" (ByVal Port%, ByVal DAT%)
　
　　　　　　データの属性は２バイトですが、有効なデータは、下位１バイト分です。

　　　　　 (A) ポートへの出力は、ポートアドレスとデータを指定します。

　　　　　　　　Port=&H378　　　　　　　（ポートアドレス）
　　　　　　　　PD = &HFF 　　　　　　　（出力データ）
　　　　　　　　outportb Port, PD

　　　　　 (B) ポートからの入力は、ポートアドレスを指定します。

　　　　　　　　Port=&H378　　　　　　　（ポートアドレス）
　　　　　　　　PD1 = inportb(Port + 1)　　　　　　

　　　　　　　　パラレルポートのピンと信号名

　　　　　　　
　　　　　　　信号が反転しているものがあります。

（３）　パラレルポートのみ

　　　（２）は、一緒になってソースがわかりずらいので、パラレルポートのみにしました。

　　　　　ｉｏ３２ｃ．ｄｌｌは、（２）のを使います。

　　　　　pporto.lzh 　2003.4.13　V03 　　(V02から自動起動に変更）　
　　

　　　純粋ＶＢがいい人はこちらです(ソースも）。　上の焼き直しです。（　ＶＢ６　）　　ｉｏ３２c．ｄｌｌ　は（２）を使用します。
　　　port_vb.lzh　　


　　　VC++がいい人はこちらです(ソースも）。　機能は上と同じ。（ＶＣ＋＋　Ｖｅｒ．６）
　　　ポートのＩ／Ｏ関数（ＩｎｐＢ、ＯｕｔＢなど）は、uWincom.h　に出にしてあります。バイトのＩ／Ｏ以外は、実績がありません。
　　　pport.lzh　　40kb

　　　　　参考資料

　　　　　トランジスタ技術　１９９６年１２月号　Ｐ２６５〜Ｐ２７５　　パラレルポートの制御
　　　　　トランジスタ技術　２０００年　１月号　Ｐ２３９〜Ｐ２４０　　ＰＣインターフェイスの資料
　　　　　トランジスタ技術　２０００年　３月号　Ｐ１８７　　　　　　　　パラレルインターフェイス・アタプタの作成
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ＶＢで８本出力、８本入力
　　　　　トランジスタ技術　２００２年　１２月号　Ｐ１７９　　　　　　　パラレルイＩ／Ｏ
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ＪＡＶＡで１６本出力、８本入力
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（回路も、ロジックもシンプルで、ＶＢやＶＢＡでも制御可能）

資料

　<表３・３>　パラレル・ポートの信号　　 (トラ技　1996.12 P272)

　オーバーバーは表現せず。

　（vega注）　ポート方向(Port+2：Dbit5)を書きかると、Portのデータの方向が変わるので注意
　　　　　　　　ハードとソフトが合わないと、簡単にポートが壊れる場合あり。
　　　　　　　　反転出力は０でＨ、１でＬが出る。
　　　　　　　　Port　 ：　データの入出力
　　　　　　　　Port+1：　入力のみ
　　　　　　　　Port+2：　出力と制御用
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

　<表８>　ＰＣ／ＡＴ互換機のパラレルポートコネクタの各種動作モードと信号名 　(トラ技　2001.1　 P240）
　
　　　（ＳＰＰのみ転記）

　オーバーバーは表現せず。
　　　

<表６>　セントロニクス・インターフェ−ス用コネクタの信号名　　　(トラ技　2001.01 P240)
　　　　（一部のみ転記）

　　オーバーバーは表現せず。　

(vega注）ＰＣ／ＡＴ互換機の１４ピンは　”ＡＵＴＯ ＦＤ ＸＴ”　に対応している。
　　　　　信号方向は→　　　　　（トラ技　1996.12　p267より）　
　
　　　　　ＰＣ９８２１などは微妙に使い方が違う！！
　　　　　手元の資料は、ＧＮＤになっている物もあり注意。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　ＴＯＰ