'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'VBA用の専用DLL（vbausbio.dll）用定義部
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'使用方法
' uio_findでUSB-IOを検索・初期化して，その後に
' uio_inp/outで読み書きしてください．
' uio_seldevで複数のUSB-IOを切り替えて使うことが出来ます．
' (uio_findを実行しなくても初めてuio_inp/outを実行するときには自動的に
' uio_findが呼ばれます．ただし，最初だけなのでUSB-IOが一度外されて，
' もう一度挿された場合などは無視されます．)
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'------------------------------------------------------------------------------
'USB-IOにPortを指定してデータを出力する
'p3に1を指定すると，ポート1のp1にパルスを送りポート0を書き換えます
'   Port    : Portを指定する（0,1）、パルス出力の場合はビット（0〜3）
'   OutDat  : データ（0〜255）
'   p3      : パルス出力有無（0:なし、1:あり）
'   戻り値  : 0:正常、1:異常
'------------------------------------------------------------------------------
Declare Function uio_out Lib "vbausbio.dll" (ByVal Port As Long, ByVal OutDat As Long, ByVal p3 As Long) As Long

'------------------------------------------------------------------------------
'USB-IOからPortを指定してデータを取得する
'p3に1を指定すると，ポート1のp1にパルスを送りポート0から読み込みます
'   InpDat  : 取得データ（取得したい変数を指定する）
'   Port    : Portを指定する（0,1）、パルス出力の場合はビット（0〜3）
'   p3      : パルス出力有無（0:なし、1:あり）
'   戻り値  : 0:正常、1:命令が書けなかった、2:データを取得できなかった
'------------------------------------------------------------------------------
Declare Function uio_inp Lib "vbausbio.dll" (ByRef InpDat As Byte, ByVal Port As Long, ByVal p3 As Long) As Long

'------------------------------------------------------------------------------
'USB-IOを検索・初期化する
'   戻り値  : 0:正常、1:必要なドライバが無い、2:USB-IOが繋がってない
'------------------------------------------------------------------------------
Declare Function uio_find Lib "vbausbio.dll" () As Long

'------------------------------------------------------------------------------
'USB-IO用の資源を解放する
'   戻り値  : 0
'------------------------------------------------------------------------------
Declare Function uio_free Lib "vbausbio.dll" () As Long

'------------------------------------------------------------------------------
'繋がれているUSB-IOの数が戻り値に帰ります
'   戻り値  : 個数
'------------------------------------------------------------------------------
Declare Function uio_getdevs Lib "vbausbio.dll" () As Long

'------------------------------------------------------------------------------
'USB-IOを番号で指定する
'   p1      : 番号(0〜uio_getdevsで得た個数-1)　ただし０から
'   戻り値  : 0
'------------------------------------------------------------------------------
Declare Function uio_seldev Lib "vbausbio.dll" (ByVal p1 As Long) As Long