2007-05-22

汎用USB-IOのVBA専用Dll Ver1.0β 開発中 

Vista対応が終わったら機能UPしたいと思っていました。
まず、手始めに複数の汎用USB-IOを簡単に制御できるようにベンダーID(vid)、プロダクトID(pid)を指定して選択できる機能をつけました。

現在入手先としてテクノキットさんとKm2Netさんがありますが、それぞれ違うベンダーIDとプロダクトIDが使われています。
この2つを同時につなげておいて、ベンダーIDとプロダクトIDを指定して動作させることにより同時使用が可能になります。
また、Km2Netさんでは複数使用を目的にプロダクトIDの違うものを販売されています。
お願いすればたぶんプロダクトIDの違うものを用意していただけると思います。
2台以上でも可能になりますね、そのときには連絡をいただければDllも対応いたします。

VBでのコーディング例(全角文字を使っているのでコピーする場合注意)
Private Sub Command1_Click()

Dim ret As Long

uio_find
If uio_selid(&H12ED, &H1003) = 0 Then 'ベンダーID,プロダクトIDを指定
 MsgBox ("vid=" + Hex(uio_getvid)) 'ベンダーIDを取得
 MsgBox ("pid=" + Hex(uio_getpid)) 'プロダクトIDを取得
 ret = uio_out(0, &HAA, 0) 'Port0に出力
 ret = uio_out(1, &HAA, 0) 'Port1に出力
Else
 MsgBox ("指定のUSB-IO機器が見つかりません")
End If

End Sub

β版Dllはここからダウンロード
vbausbio_beta.lzh

β版VBサンプルはここからダウンロード
beta_test.lzh

0 件のコメント:

コメントを投稿

この投稿へのリンク:

リンクを作成

<< ホーム