Hallo,
habe folgendes Problem. Über USB ist eine Relaiskarte angeschlossen. Diese Karte wird über DevNumber 256 (vom Hersteller vorgegeben) angesprochen. Hier der Code der vom Hersteller mitgeliefert wurde:
Wenn ich nun versuche die Karte anzusprechen bekomme ich Laufzeitfehler 6.
Kann man VB 6 dazu bringen, diese 256 zu verarbeiten?
habe folgendes Problem. Über USB ist eine Relaiskarte angeschlossen. Diese Karte wird über DevNumber 256 (vom Hersteller vorgegeben) angesprochen. Hier der Code der vom Hersteller mitgeliefert wurde:
Visual Basic-Quellcode
- Declare Function OpenDevice Lib "USB8IO.dll" (ByVal DevNumber As Byte, _
- ByVal DriverName As String, _
- ByVal ID As String, _
- ByVal KeyWord As String) As Long
- Declare Sub SetDeviceEnabled Lib "USB8IO.dll" (ByVal DevNumber As Byte, ByVal MC_Mode As Byte)
- Declare Sub CloseDevice Lib "USB8IO.dll" (ByVal DevNumber As Byte)
- Declare Sub CloseAllDevices Lib "USB8IO.dll" ()
- Declare Function IsEnabled Lib "USB8IO.dll" (ByVal DevNumber As Byte, MC_Mode As Byte) As Boolean
- Declare Function IsOpened Lib "USB8IO.dll" (ByVal DevNumber As Byte) As Boolean
- Declare Function GetDeviceError Lib "USB8IO.dll" (ByVal DevNumber As Byte) As Long
- Declare Sub GetDeviceDescriptor Lib "USB8IO.dll" (ByVal DevNumber As Byte, usbDD As TUSB_DEVICE_DESCRIPTOR)
- Declare Sub SetBootEEP Lib "USB8IO.dll" (ByVal DevNumber As Byte, ByVal EPPType As Byte, ByVal Addr As Byte, ByVal DeviceID As Long)
- ' Setzen der Clockverzögerung
- Declare Sub SetClockDelay Lib "USB8IO.dll" (ByVal DevNumber As Byte, ByVal Delay As Byte)
- ' Parallelport
- Declare Function PB_ReadByte Lib "USB8IO.dll" (ByVal DevNumber As Byte, ByVal Addr As Byte) As Byte
Wenn ich nun versuche die Karte anzusprechen bekomme ich Laufzeitfehler 6.
Kann man VB 6 dazu bringen, diese 256 zu verarbeiten?