複数のUSBデバイスを認識するには？ (ID:142640)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 はじめまして。 この度USB接続式の温度計を購入し、それを1台のＰＣに複数個接続して色々な場所での温度・湿度を計測したいと考えています。 温度計はUSBRHというものを用いていて、商品購入時にdllファイルが既についていて、それを用いてプログラミングが出来るという状態です。 http://www2.strawberry-linux.com/products/usbrh/index.php?%5B%5B%B4%D8%BF%F4%A5%EA%A5%D5%A5%A1%A5%EC%A5%F3%A5%B9%5D%5D こちらにあるFindUSBという関数を用いて、 接続されているデバイス名を取得出来るということなのですが、 複数個接続をした場合、上手くデバイス名を温度取得関数に渡せずに、 片方のデバイスの温度のみが帰ってくるという形になってしまいます。 プログラムのここに関係する部分のみを書くと dev = FindUSB(index) If dev = "" Then Exit Do Device = dev と予め定義しておきTimer関数で Private Sub Timer1_Timer() Dim temp As Double Dim rh As Double Dim re As Long dev = FindUSB(index) re = GetTempHumidTrue(Device, temp, rh) If re = 0 Then lblTemp(0).Caption = Format(temp, "##0.00℃") lblHumid(0).Caption = Format(rh, "##0.0％RH") dev = FindUSB(index) re = GetTempHumidTrue(Device, temp, rh) If re = 0 Then lblTemp(1).Caption = Format(temp, "##0.00℃") lblHumid(1).Caption = Format(rh, "##0.0％RH") Else lblTemp(1).Caption = "未検出" lblHumid(1).Caption = "未検出" End If Else lblTemp(0).Caption = "未検出" lblHumid(0).Caption = "未検出" End If End Sub と書いています。またモジュールで Option Explicit Public Declare Function GetVers Lib "USBMeter.dll" _ Alias "_GetVers@4" (ByVal dev As String) As String Public Declare Function FindUSB Lib "USBMeter.dll" _ Alias "_FindUSB@4" (ByRef index As Long) As String Public Declare Function GetTempHumid Lib "USBMeter.dll" _ Alias "_GetTempHumid@12" (ByVal dev As String, ByRef temp As Double, ByRef humid As Double) As Long と書いています。 どのようにしたら複数個接続用になるのか教えて頂けると幸いです。 よろしくお願いします。 最後にバージョンはVB6.0でOSはXPを用いています。