バケさんの電子工作　

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

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

現在入手先としてテクノキットさんとKm2Netさんがありますが、それぞれ違うベンダーIDとプロダクトIDが使われています。
この２つを同時につなげておいて、ベンダー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

バケさん さんの投稿 @ 12:39