お名前
Email
題 名  
本 文
URL
文字色 他の色
削除・編集キー 入力値を記憶しない
ファイル添付
画像認証 (投稿時を半角で入力して下さい 説明 )

驚くほど簡単にインターネットに接続!ハイパーワー無線LANルー

■HideBBS■ [無料掲示板作成] [ケータイからアクセス] [メール通知] [画像・動画アップ] [雑談する] [ランキング]


[1] Win98SEでの認識方法 seipai 【2009/06/05 18:25:17】[返信][編集][削除] [PC]
USB-IOとUSB-AnをWin98SEで認識できませんでした。
Win98SEで認識させる方法がありましたら教えてください。


[2] Re:Win98SEでの認識方法 バケさん 【2009/06/09 12:49:47】[編集][削除] [EZ]W61P
レスが遅くなり、すみません。

環境がなくて、確認が出来ていません。

98ではOSのCDが必要だと思いますが、上手く行くかわかりません。ネットにも情報がないですね。
何かわかったらまた書き込みします。


[3] Re:Win98SEでの認識方法 seipai 【2009/06/09 16:57:53】[編集][削除] [PC]
何を今さらWin98SEという声が聞こえて来そうで恐縮なのですが、使えなくて本当に困っています。
何か分かりましたら、宜しくお願いします。

[1] Vistaへの拡張コピー t.yokogawa 【2009/04/27 22:09:00】[返信][編集][削除] [PC]
フリーソフトの拡張コピー機能をVistaパソコンにインストールしたつもりですが出来ていません。Vistaでは拡張コピー機能は動かないのでしょうか?それとも何か、特別な処置をすればうまくインストール出来るようになるのでしょうか?


[2] Re:Vistaへの拡張コピー バケさん(管理人) 【2009/04/28 19:35:26】[編集][削除] [PC]
CopyExt Ver3.01.2のことでしょうか?
ダウンロードしてインストールしてみましたが、自分の環境(Vista business )では上手く動いているようです。

ある程度は調べて見れると思いますので、少し情報をいただければと思います。
何かエラーが出ていればエラーの内容、出ていないのならばどこでどんなふうに動かないのか、またソフト名や動作環境がわかればと思います。


[3] Re:Vistaへの拡張コピー t.yokogawa 【2009/05/06 11:33:04】[編集][削除] [PC]
有難うございました。先ほどもう一度インストールを実行してみたところ、前回は現れなかった「拡張コピー」がエクスプローラ画面で右クリックすることにより出るようになりました。日付が新しいものだけファイルコピーできる機能は有難いですよね。

[1] USB-IOのREAD spline 【2009/04/25 08:48:04】[返信][編集][削除] [PC]
初めまして。いつも有用な情報をありがとうございます。

自分で解決できそうにないので、ご助言いただければ幸いです。

msubiobase.h と、usbio_test.cをお借りして、
Km2net社製USB-IOの試験をしておりますが、uio_out
は完全に動作するものの、uio_inが正常に動作しません。

具体的にはdoループ内のusb_interrupt_read関数で-22が
戻ってきてしまいます。

シリアルなので半田ミスでreadだけ失敗と言うのも
考えにいのですが、念のためTECHNOKITのものも入手し
ましたが、同様の現象です。

環境は玄箱proにlennyをインストールした状態です。

OSとの相性なのかと思い、libusb-win32を利用し、
windowsXP上でも試験しましたが、どちらのUSB-IOも
全く同じで、出力は正常に動くものの、interrupt_read
がエラーを返す現象です。

usb_interrupt_readで-22が返って来た時にusb_strerror();
で内容を取得してみると、
"_usb_setup_async: invalid endpoint 0x01"
と出ています。

usb_control_msg(udev,0x21,0x09,0x00,0x00,(char *)ctl,8,5000);
usb_interrupt_read(udev,0x1,(char *)indat,8,5000);
の流れがうまく行かない感じです。

USB-IOはどちらも一ヶ月ぐらい前に購入したものです。
lenny上でのgccは4.3.2、XPではMSVC6SP6です。

私が大誤解しているような気もしていますが、ご助言
いただけるとうれしいです。

厚かましいお願い申し訳ないです。よろしくお願いいたします。


[2] Re:USB-IOのREAD spline 【2009/04/25 10:23:48】[編集][削除] [PC]
数日はまっていたのですが、掲示板に書き込んだ後
調査してたら原因がわかりました。

dev->config[0]->interface[0]->altsetting[0]->endpoint[0]->bEndpointAddress
が、1でなく、0x81になっていました。

usb_control_msg(udev,0x21,0x09,0x00,0x00,(char *)ctl,8,5000);
usb_interrupt_read(udev,0x81,(char *)indat,8,5000);
で、問題なく読み込めました。スレ汚し失礼しました。


[3] Re:USB-IOのREAD バケさん(管理人) 【2009/04/25 10:36:32】[編集][削除] [PC]
splineさん、こんにちは

書き込みありがとうございます。
自己解決されたということですね、安心しました。

まだ、内容を斜め読みでレスしていますが、
これはサンプルソースは環境によって対応が必要ということでしょうか?

いずれにしろ、わなにはまる場所だと思いますので、大変貴重な情報をありがとうございます。

内容はあとでゆっくり見てみます(今日は仕事なので)

Linux(libusb)がXpで動かせるのですね、またやってみたことがありませんでした。
USBもサポートされているのであれば気軽にTESTに使えますね。
自分がテストする時はバーチャル(VM)に環境を作って行っていました。

lennyもはじめて聞きました。色んなOSでUSB-IOが動かせているのですね、ちょっとうれしく思っています。

どんなことでもいいので気軽に書き込みをしてください。


[4] Re:USB-IOのREAD spline 【2009/04/25 12:33:45】[編集][削除] [PC]
バケさん、素早いお返事ありがとうございます。

少なくとも私のXPSP3環境では、
dev->config->interface->altsetting->endpoint->bEndpointAddress
の値は0x81だったので、
usb_interrupt_read(udev,0x81,(char *)indat,8,5000);
として、読み込むことが出来ました。

lenny側はもう一山あるようで、
dev->config->interface->altsetting->endpoint->bEndpointAddress
は同じく0x81なんですが、
usb_set_configuration(udev, 1);
で-16が戻り失敗しています。これは
could not set config 1: Device or resource busy
と言うことなので、他のUSB監視モノとぶつかっているんだ
と思います。dmesgを確認すると、
usb 2-1: usbfs: interface 0 claimed by usbfs while 'usb_io' sets config #1

lennyは入れたばかりなのでまだよくわかっていませんが、
これからrmmodなりいろいろとしなければならない感じです。


[5] Re:USB-IOのREAD spline 【2009/04/27 21:57:43】[編集][削除] [PC]
一応結果のお知らせをします。
要するにあちこちで言われている通り、usbhidがデンと構えて
居るために、libusbでinterrupt入力を受けることは簡単では
なさそうです。
usb_set_configuration失敗
→usb_detach_kernel_driver_np成功
この段階で、IRQの送信先が無くなり、結果
usb_interrupt_readでIRQがこける感じでしょうか。

OSの再構築が本筋なんでしょうけど、今回作ろうとしている
のは全く速度を要求しないので、
usb_bulk_read(udev,0x81,(char *)indat,8,5000);
で良しとすることにしました。
#これもたまにこけるのですけどもね。

どうもお騒がせしました。


[6] Re:Re:USB-IOのREAD バケさん(管理人) 【2009/04/28 21:58:01】[編集][削除] [EZ]W61P
usb_detach_kernel_driver_np成功

この命令を付け加えてなんとか動くようになったのですが、これが原因らしいとはLinux初心者の自分にはてが付けれそうにないですね。
でもこのあたりのキーワードで検索するとヒントがあるかもしれません。
自分も時間をみて調べて見ます、また何かわかりましたらお願いしますね。

[1] Basic用語の件 t.yokogawa 【2009/04/20 21:46:30】[返信][編集][削除] [PC]
N88BASICで使用していた命令語等の用語がActiveBasicではどう変化しているかの変換表のようなものは無いですか?(例えはN88では”DATA”とか”LPRINT”がActiveBasicではどう書くのか?)どなたかお教えください。


[2] Re:Basic用語の件 バケさん(管理人) 【2009/04/25 10:43:05】[編集][削除] [PC]
レスが遅くなりすみません。

READ、DATA、LPRINTいずれもActiveBasicには無い機能です。
READ,DATAは直接配列に値をセットするしか無いようです。
LPRINTはWin32ApiをC言語のように使って実現します。
ActiveBasicのサイトが見れないのでサンプルがヒットしません。
VBやCのWin32Apiの例を参考に焼きなおす手もあります。

自分のマシンも探していたのですが、いいサンプルが無いのでレスが遅くなりました。すみません。

[1] activebasic.comにアクセス不可 t.yokogawa 【2009/04/17 21:57:13】[返信][編集][削除] [PC]
私は光ネットでインターネットにアクセスしていますがactivebasic.comのホームページやWin32プログラミング講座にアクセスできません。Vistaパソコンを使用しているのですが診断ボタンをクリックすると「リモートファイヤーウオールにアクセスしてTCP80ポートを開放せよ」といったようなメッセージが出ますが何が原因でアクセスできないのでしょうか?どなたか宜しくご指導ください。


[2] Re:activebasic.comにアクセス不可 バケさん(管理人) 【2009/04/17 23:51:41】[編集][削除] [PC]
activebasic.comのホームページ自体が見れなくなっているようです。
どうもサーバーの調子が良く無いようです。
以前にも見れなくなっていました。
現状としては見れるようになるのを待つしかないと思います。

[1] ジョイパッドのボタンを押すことは可能でしょうか? バボ 【2009/04/05 04:38:28】[返信][編集][削除] [PC]
こんにちわ。USB-IOの購入を考えています。
PS2のジョイパッドのボタンをPCから押したいんですが、単純にUSB-IOの出力端子とGNDにボタンの両端を接続することで可能でしょうか? また、その場合はどういうデータ(数値?)を送るとON/OFFとなりますでしょうか?
あまりよくわかってないので的外れな質問でしたらご指摘頂けましたら嬉しいです。
よろしくお願いします。


[2] Re:ジョイパッドのボタンを押すことは可能でしょうか? バケさん(管理人) 【2009/04/06 22:21:23】[編集][削除] [PC]
バボさん、こんにちは。
レスが遅くなりすみません。

今回のようなパターンでは通常、フォトカプラというものを使います。
単純に接続してうまく動くかどうかはPS2の入力方法に影響されるとおもいます。


フォトカプラは、光によってON・OFFするために電気的に絶縁しているので電圧の違いや入力方法による違いが影響しにくのでよくつかわれます。

データについて

データはビット単位が各ポートに対応しています。
たとえば、255を出力すると
16進ではFF、
2進では11111111
各ポートにHiレベル(5V)が出力されます。
85を出力すると
16進では55
2進数では01010101
各ポートに交互にHiレベル(5V)、Lo(0V)レベルが出力されます。


[3] Re:ジョイパッドのボタンを押すことは可能でしょうか? バケさん(管理人) 【2009/04/06 23:31:24】[編集][削除] [PC]
フォトカプラーについては過去の書き込み(しかも旧掲示板)に発言がありますので参考にしてみてください。

USB-IOのフォトカプラ使用について
http://bake-san.com/cbbs/cbbs.cgi?mode=all&namber=472&type=0&space=0&no=0

リモコンのボタンを制御するには・・?
http://bake-san.com/cbbs/cbbs.cgi?mode=all&namber=381&type=0&space=0&no=0


[4] Re:ジョイパッドのボタンを押すことは可能でしょうか? バボ 【2009/04/07 19:40:12】[編集][削除] [PC]
バケさん、返信ありがとうございます。
とりあえず単純に繋いでみて、NGの場合にフォトカプラというものに挑戦してみようと思います。
出力データについては誤解しておりました。ありがとうございます。

[1] とてつもなく初心者です。 なみへい(仮名) 【2009/02/26 12:46:45】[返信][編集][削除] [PC]
初めまして。今まで全く電子工作等に興味を持っていなかった者です。昨年より子供の頃趣味としていたプラモデルを再び作り出し、今スターウォーズのプラモを製作しているのですが電飾を施したく思い、色々な入門的なLEDの光らせ方が載っている本と格闘中です。

「ああ。もっと学生時代に理数に力を入れていれば良かった・・」と後悔しています。

そこで質問なのですが、色の違うLED(ここでは仮に白と赤)を直列にしてCRD一つで光らせる事は可能なのでしょうか?

多分愚問だと思われるのですが、身近に聞ける人がいないのでこちらでお聞きしたいと考えました。


[2] Re:とてつもなく初心者です。 バケさん(管理人) 【2009/02/26 12:58:08】[編集][削除] [PC]
こんにちは。

赤と白ではLEDに流したい電流が違うので出来ないことは無いですが、どちらかが暗くなる、または明るさに違いが出てくると思います。
もしかしたら性質が似ている白と青とか、赤と黄色とかでしたらいけるかもしれません。

普通は赤や黄色は10mA、白や青は20mA程度でLEDの規格を確認してCRDを選択する必要があります。


[3] Re:とてつもなく初心者です。 なみへい(仮名) 【2009/02/26 14:38:36】[編集][削除] [PC]
早速のご回答ありがとうございます。わからない事だらけな電子工作ですが、40になってこんなに新たなジャンルの事を解ろう、知ろうとする楽しさにワクワクする思いです。

もしかしたらまたご質問(出来るだけ自分でも勉強しますが)するかも知れませんが、その時は宜しくお願い致します。


[4] Re:とてつもなく初心者です。 バケさん(管理人) 【2009/02/28 15:07:20】[編集][削除] [PC]
私も40代です、先日誕生日を向かえ四捨五入すると50代になる歳になりました。ちょっと悲しい。

頑張ってくださいね、そんな頑張っている人が困った時にちょっとでも手助けになればとホームページを作成しています。

遠慮せず、書き込みをしてみてください。
ここは技術系の掲示板とは違うので勉強不足も大いに結構です。
電子工作が楽しめればいいと思っています。

[1] hex$()について しまけん 【2009/02/18 15:52:38】[返信][編集][削除] [PC]
お世話になります。昨年USBIOを購入した者です。
初歩的な質問で申し訳ないですが、
ホームページ上のVB2008のUSBtestプログラムで
テキストボックスにデータを出力するときに、
hex$()が使われていますが、これはhex()と
どのような違いがあるのでしょうか。
よろしくお願いいたします。


[2] Re:hex$()について バケさん(管理人) 【2009/02/19 12:20:59】[編集][削除] [PC]
こんにちは。

hex$()とhex()の違いは無いと思います。
VB6.0まではhex$()なので互換性を保つためにエラーにならないのだと思っています。
VB2008ではHELPで説明も出てこないのでhex()で使うことを推奨します。

hex$()を使っていると古い人だと思われるかもね。
自分は十分古い人なのですが、サンプルソースは時間があったら直しておきたいと思っています。


[3] Re:hex$()について しまけん 【2009/02/19 13:12:53】[編集][削除] [PC]
ぱけさん
ご回答ありがとうございます。
わかりました。
ヘルプ等でも出てこないし、エラーも出ないので
よくわからなかったことが解決しました。
遅ればせながら、USBIOのDLLは便利に使わせていただいて
おります。
このようなものを公開されていることにお礼を申し上げます。
現在練習のため昔秋月で買ったパチンコ用7セグ液晶を動かしています。

[1] Re:USB-IOとシリアル変換モジュール USB-IO 【2008/10/11 09:10:32】[返信][編集][削除] [PC]
ありがとうございます。
大変困っています。
よろしくお願いいたします。

[1] USB-IOとシリアル変換モジュール USB-IO 【2008/10/11 08:54:00】[返信][編集][削除] [PC]
「簡単!USBで電子制御-たっくんとTRY!HSP言語、USB-O、USB-An」(km2net、小松博史)
という本を使ってUSB-IOの簡単な出力制御からやってみようと思ったのですが、本で紹介されているUSB-IOを使わず、FTDI社製USBシリアル変換モジュールMFT232RL を代用しようと思ったのですが、http://km2net.com/books/download/hsp_kantan_seigyo/
でダウンロードできる制御ソース(たとえば、『usbio\Program\02_USB-IO\output.exe』)で「USB-IOが見つかりません」と表示されてしまいます。USBシリアル変換モジュールMFT232RLを代用するには、どのようにスクリプト(『usbio\Program\02_USB-IO\usb-io.hsp』)を書きかえればよろしいのでしょうか?ご享受ください。


[2] Re:USB-IOとシリアル変換モジュール バケさん 【2008/10/11 09:06:57】[編集][削除] [EZ]W42H
残念ながら汎用USB-IOとシリアル変換モジュールとは全くと言っていいぐらい別物なのでプログラムの流用は難しいと思います。
データシートを取り込んで調べてみますので少しご返事に時間がかかると思います。


[3] Re:USB-IOとシリアル変換モジュール USB-IO 【2008/10/11 09:11:23】[編集][削除] [PC]
ありがとうございます。
大変困っています。
よろしくお願いいたします。


[4] Re:USB-IOとシリアル変換モジュール バケさん(管理人) 【2008/10/14 00:27:43】[編集][削除] [PC]
現在、データシートを取り寄せて調査中です。

調べて分かっていることは以下の通りです。
専用のドライバーが必要のようですね。
シリアル・インターフェースで接続する必要があるみたいです。

以下、調査内容です。
---------------------
マルツメイク館のオリジナル商品

FTDI社製USBシリアル変換モジュールMFT232RL

MFT232RLはFTDI社のFT232RLを搭載したUSBシリアル変換モジュールです。
マイコンやロジック回路とシリアル・インターフェースで接続することで、
各種機器を簡単にUSB対応にできます。

■特長■
・24ピンのDIP IC(ワイドタイプ:600mil幅)とほぼ同じサイズです。
 同梱の丸ピンプラグを実装すれば、ICのように手軽に扱えます。
・PCからは仮想COMポートとして認識されるので、
 プログラム上もUSBを意識することなく簡単に通信できます。
・USBバス・パワー動作が可能なので、別途電源を用意する必要はありません。
 外部電源での動作も、ジャンパピン1個で切り替えられます。
・外部インターフェースは5V/3.3Vのいずれにも対応できます。
 また、I/O電圧を外部から供給することで、
 任意の電圧でインターフェースできます。

▼FTDIメーカーサイト(ドライバをダウンロードできます)
http://www.ftdichip.com/
http://www.ftdichip.com/Drivers/VCP.htm (Windowsドライバーはここにあります)
http://www.ftdichip.com/Documents/AppNotes.htm (資料はこちらをご覧ください)


[5] Re:USB-IOとシリアル変換モジュール バケさん(管理人) 【2008/10/14 12:53:34】[編集][削除] [PC]
ドライバーをVCPではなくD2XXを使うと汎用IOとして使えるようです。

いろんな記述がC言語でかかれているので、HSPで使えるように直す必要があると思います。
HSPは得意ではないので使えそうなHSPソースが出来るのはかなり時間がかかりそうです。私事ですが、現在本業が繁忙なため時間が取れそうにありません。
最後に示したサンプルソースが理解できてHSPに組み直しが出来る人がいればいいのですが・・・
FT232RLは自分でも持っているので時間が取れたらトライしてみる予定です。
いつになるかは不明です、やりたいことやしないといけないことが溜まっているのですみません。

以下調査内容
----------------------------------
FTDIのUSBシリアル変換IC FT232RL にはデータ端子を8bitの双方向IOポートとして使う Bit-Bang モードがあります。このモードを使えば FT232RL に接続したハードウェアをPCアプリから直接制御することができます。

FTDIから Bit-Bang モードを利用する為の D2XX ドライバが提供されています。D2XX ドライバは Windows, Linux, MacOSX と各種プラットフォーム用のドライバが提供されています。

Bit-Bangモードの使い方
http://ore-kb.net/hard/BitBang/

【具体的な使い方 (初期化編)】
1. FT_Openでデバイスをオープン
まずはオープンから。これはBit-Bangでなくても同じです。
2. FT_SetBaudRateで入出力間隔を設定
Bit-Bangが有効になっている間は、FT_SetBaudRateで設定した時間間隔で入出力が行われます。
9600と指定したら1/9600=104us周期で入出力が行われるのではなく、指定値×16となります。すなわち、9600と指定した場合、1/(9600×16)=6.51us周期となります。
…そのような事がFTDIの資料に書いているのですが、
実際に測ったところ、指定値×4付近をふらついています。
標準外の周期を指定したい場合は、FT_SetDiviserを使います。
3. FT_SetBitModeでBit-Bangモードを有効にする
FT_SetBitModeにて、Bit-Bangモードの有効・無効、どのビットを入力にするか、出力にするかを設定します。

第2引数が入出力設定(該当するビットが0なら入力、1なら出力)、第3引数がBit-Bangモードの有効(=1)・無効(=0)設定です。

Bit-Bangモードが有効になると、FT8U232/245BM問わず、入力設定の端子はハイ・インピーダンス、出力設定の端子は直前のFT_Write出力値(電源投入時は0x00)になります。
そして、FT_SetBaudRateにて設定された周期で入出力端子がサンプリングされ、端子状態が受信バッファに逐次格納、送信バッファのデータが入出力端子より逐次出力されます。送信バッファが空の場合は、直前の送信データが出力され続けます。

例1) Bit-Bangモード無効


FT_SetBitMode(handle, 0x00, 0);


例2) Bit-Bangモード有効・D0〜D7を入力に設定


FT_SetBitMode(handle, 0x00, 1);


例3) Bit-Bangモード有効・D0〜D3を入力、D4〜D7を出力に設定


FT_SetBitMode(handle, 0xf0, 1);

【具体的な使い方 (読み書き編)】

出力はFT_Writeで
出力設定された端子にデータを出力するには、FT_Writeを使って送信バッファに出力データを設定します。
送信バッファに蓄えられたデータは、FT_SetBaudRateにより設定された周期で出力設定された端子より出力されます。
入出力端子の"その時点で"の状態取得はFT_GetBitModeで
FT_GetBitModeを使うと、入出力端子のその時点での状態を取得することが出来ます。
ただし、USBの仕様上でしょうか? それなりの時間が掛かるので、端子状態のポーリング等には不向きです。
実測値では、1回のAPI呼び出しにつき約4ms掛かりました。
連続した入出力端子の状態取得はFT_Readで
入出力端子の状態取得を連続して行う場合は、FT_Readを使い、受信バッファから一括してデータを取得します。
受信バッファを溢れさせないために、受信データの取得は別スレッドにした方が良いでしょう。


サンプルソース

BYTE bInData; // 入力データ
BYTE bOutData; // 出力データ
DWORD dwWritten; // 書き込んだバイト数
FT_HANDLE hFt; // デバイスのハンドル

// デバイス(1番目)をオープン
FT_Open(0, &hFt);

// Bit-Bangモード有効・D0〜D3を入力、D4〜D7を出力に設定
FT_SetBitMode(fTt, 0xf0, 1);

while(1)
{
// スイッチの状態を取得
FT_GetBitMode(fTt, &bInData);

// 取得した状態を4bitずらす
bOutData = bInData << 4;

// スイッチの状態を出力
FT_Write(hFt, &bOutData, 1, &dwWritten);
}


[6] Re:USB-IOとシリアル変換モジュール バケさん(管理人) 【2008/10/15 13:00:07】[編集][削除] [PC]
VBA(ExcelマクロやVB)のサンプルをみつけました。

これをもとにHSP用に直すと簡単かも

'FTDI ダイレクト・ドライバーの使用宣言--------------------
Private Declare Function FT_Open Lib "FTD2XX.DLL" (ByVal intDeviceNumber As Integer, ByRef lngHandle As Long) As Long
'------------------------------------------------------------------------------
Private Declare Function FT_Close Lib "FTD2XX.DLL" (ByVal lngHandle As Long) As Long
'------------------------------------------------------------------------------
Private Declare Function FT_Write Lib "FTD2XX.DLL" (ByVal lngHandle As Long, WritBuffer As Any, ByVal lngBufferSize As Long, ByRef lngBytesWritten As Long) As Long
'------------------------------------------------------------------------------
Private Declare Function FT_SetBaudRate Lib "FTD2XX.DLL" (ByVal lngHandle As Long, ByVal lngBaudRate As Long) As Long
'------------------------------------------------------------------------------
Private Declare Function FT_SetBitMode Lib "FTD2XX.DLL" (ByVal lngHandle As Long, ByVal ucMask As Byte, ByVal ucEnable As Byte) As Long
'------------------------------------------------------------------------------
Private Declare Function FT_GetBitMode Lib "FTD2XX.DLL" (ByVal lngHandle As Long, ucRData As Any) As Long
' Return codes
Const FT_OK = 0
' USB Handle
Dim lngHandle As Long

'------------------------------------------------------------------------------
' USB OPEN FT_OPEN関数を使いUSBをノーマルオープンする。
Public Function UsbOpen() As Long
Dim Rt As Long
Rt = FT_Open(0, lngHandle)
Rt = FT_SetBaudRate(lngHandle, 19200)
Rt = FT_SetBitMode(lngHandle, &H0, 1)
UsbOpen = Rt
End Function
'------------------------------------------------------------------------------
' USB Close FT_Close関数を使いUSBを閉じる。
Public Sub UsbClose()
FT_Close (lngHandle)
End Sub
'------------------------------------------------------------------------------
' USB Write FT_Write関数を使いデータを出力する。
Public Function UsbWrite(data As Byte, wlen As Long) As Boolean
Dim Ln As Long
UsbWrite = FT_Write(lngHandle, data, wlen, Ln)
End Function
'------------------------------------------------------------------------------
' USB Read FT_GetBitMode関数を使いデータを入力する。
Public Function UsbRead() As Byte
Dim Rd As Byte
Dim Rt As Long
Rt = FT_GetBitMode(lngHandle, Rd)
UsbRead = Rd
End Function

'------------------------------------------------------------------------------
' USB Read FT_SetBitMode関数を使いBit制御をする。
Public Function UsbBitSet(bitdata As Byte) As Boolean
UsbBitSet = FT_SetBitMode(lngHandle, bitdata, 1)
End Function



[7] Re:USB-IOとシリアル変換モジュール バケさん(管理人) 【2008/10/18 13:07:02】[編集][削除] [PC]
先に紹介したVBAのサンプルですが、下記のサイトから取ってきました。
Bit-BangのテストプログラムがExeclで書かれていました。
専用のドライバーをインストールして、このサンプルを少し手直しすれば動きそうです。
回路(結線)はMFT232RLに合わせる必要があります。
USBチップICはFT232RLではなく、FT232BMを使っているようです。

西日本常盤商工のUSB Moduleのページです。
http://www.tokiwa-west.co.jp/USB_Module/USB.htm


[8] Re:USB-IOとシリアル変換モジュール USB-IO 【2008/10/23 22:58:40】[編集][削除] [PC]
貴重な資料ありがとうございます。

RS-232Cはオンラインスコープ等で、ハード的には身近なものでしたが、ソフトが入ると、まだまだ、勉強が必要と痛感しています。
制御プログラムが完成しましたらメールします。
ありがとうございました。

登録件数146件
バケさんの趣味の部屋へ戻る
HideBBS

ワード検索
設定変更