Upload files to ''
This commit is contained in:
parent
bffe5b82e5
commit
9794213a92
146
HID.bas
Normal file
146
HID.bas
Normal file
@ -0,0 +1,146 @@
|
|||||||
|
'Free basic Address Event Representation
|
||||||
|
|
||||||
|
#include once "libusb-1.0.bi"
|
||||||
|
#include once "hidlib.bas"
|
||||||
|
#include once "HID_info.bas"
|
||||||
|
#include once "comlinepar.bas"
|
||||||
|
|
||||||
|
counter = 0
|
||||||
|
|
||||||
|
For i as integer = 0 To 63
|
||||||
|
databuffer(i) = 100+i
|
||||||
|
Next i
|
||||||
|
|
||||||
|
'#include once "caerdeviceinfo.bas"
|
||||||
|
|
||||||
|
|
||||||
|
returnvalue = libusb_init(NULL)
|
||||||
|
If returnvalue < 0 Then
|
||||||
|
End returnvalue
|
||||||
|
End If
|
||||||
|
|
||||||
|
cnt = libusb_get_device_list(NULL, @ppList)
|
||||||
|
If (cnt < 0) then
|
||||||
|
End cnt
|
||||||
|
End if
|
||||||
|
|
||||||
|
'? "Found ";cnt ;" usb devices"
|
||||||
|
'?
|
||||||
|
? "Looking for "; Hex(Vendor,4); ":"; Hex(Product,4)
|
||||||
|
?
|
||||||
|
|
||||||
|
for i as integer = 0 to cnt-1
|
||||||
|
pDevice = ppList[i]
|
||||||
|
returnvalue = libusb_get_device_descriptor(pDevice, @desc)
|
||||||
|
'? Hex(desc.idVendor,4); ":"; Hex(desc.idProduct,4)
|
||||||
|
If Hex(desc.idVendor,4) = Hex(Vendor,4) And Hex(desc.idProduct,4) = Hex(Product,4) Then
|
||||||
|
?
|
||||||
|
? "Found the device "; pDevice
|
||||||
|
DHandle(counter) = open_device(pDevice)
|
||||||
|
|
||||||
|
returnvalue = print_device_descriptor(desc, sup_out)
|
||||||
|
returnvalue = print_vendor_info(DHandle(counter), desc, 0)
|
||||||
|
|
||||||
|
returnvalue = libusb_get_config_descriptor(pDevice, 0, @Dconfig)
|
||||||
|
If returnvalue = 0 Then
|
||||||
|
returnvalue = print_config_descriptor(Dconfig, sup_out)
|
||||||
|
For ii as integer = 0 To Dconfig->bNumInterfaces - 1
|
||||||
|
inter = @Dconfig->interface[ii]
|
||||||
|
Print "Number of alternate settings: ";inter->num_altsetting
|
||||||
|
For j as integer = 0 To inter->num_altsetting - 1
|
||||||
|
interdesc = @inter->altsetting[j]
|
||||||
|
returnvalue = print_interface_descriptor(interdesc, sup_out)
|
||||||
|
returnvalue = print_interface_info(DHandle(counter), interdesc, sup_out)
|
||||||
|
? "number of endpoints: "; interdesc->bNumEndpoints
|
||||||
|
For k as integer = 0 To interdesc->bNumEndpoints - 1
|
||||||
|
epdesc = @interdesc->endpoint[k]
|
||||||
|
returnvalue = print_endpoint_descriptor(epdesc, sup_out)
|
||||||
|
if (sup_out = 0) then
|
||||||
|
? ii;" ";j;" ";k
|
||||||
|
End If
|
||||||
|
If (epdesc->bEndpointAddress >= 128) then
|
||||||
|
in_endpoint(in_cnt) = epdesc->bEndpointAddress
|
||||||
|
in_packsize(in_cnt) = epdesc->wMaxPacketSize
|
||||||
|
in_cnt = in_cnt + 1
|
||||||
|
End if
|
||||||
|
If (epdesc->bEndpointAddress < 128) then
|
||||||
|
out_endpoint(out_cnt) = epdesc->bEndpointAddress
|
||||||
|
out_packsize(out_cnt) = epdesc->wMaxPacketSize
|
||||||
|
out_cnt = out_cnt + 1
|
||||||
|
End if
|
||||||
|
If (sup_out = 0) then
|
||||||
|
? "ep address "; epdesc->bEndpointAddress
|
||||||
|
? "in "; in_endpoint(in_cnt)
|
||||||
|
? "out "; out_endpoint(out_cnt)
|
||||||
|
End If
|
||||||
|
Next k
|
||||||
|
Next j
|
||||||
|
Next ii
|
||||||
|
Else
|
||||||
|
? "Error getting config descriptor"
|
||||||
|
End returnvalue
|
||||||
|
End IF
|
||||||
|
|
||||||
|
counter = counter + 1
|
||||||
|
|
||||||
|
End If
|
||||||
|
next i
|
||||||
|
|
||||||
|
? "number of attached devices "; counter
|
||||||
|
?
|
||||||
|
|
||||||
|
If (counter>0) then
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Print "press Esc to quit"
|
||||||
|
|
||||||
|
? "in endpoint 0: "; in_endpoint(0)
|
||||||
|
? "in endpoint 1: "; in_endpoint(1)
|
||||||
|
? "out endpoint 0: "; out_endpoint(0)
|
||||||
|
? "out endpoint 1: "; out_endpoint(1)
|
||||||
|
|
||||||
|
countbytes = 0
|
||||||
|
|
||||||
|
Do
|
||||||
|
|
||||||
|
returnvalues = bulk_tranfer(DHandle(counter-1), in_endpoint(0), dbuf, in_packsize(0), 1, 0)
|
||||||
|
If (returnvalues.B = -4) then
|
||||||
|
Exit Do
|
||||||
|
End If
|
||||||
|
If (returnvalues.B <> -7) then
|
||||||
|
If (returnvalues.A>0) then
|
||||||
|
'? returnvalues.A; " bytes received"
|
||||||
|
'? "aantal * "; returnvalues.A; " = "; countbytes
|
||||||
|
countbytes = countbytes + returnvalues.A
|
||||||
|
For ii as integer = 0 To returnvalues.A - 1 Step 4
|
||||||
|
if (databuffer(ii) <> databuffer_oud1) or (databuffer(ii+1) <> databuffer_oud2) or (databuffer(ii+2) <> databuffer_oud3) or (databuffer(ii+3) <> databuffer_oud4 )then
|
||||||
|
? databuffer(ii); ", "; databuffer(ii+1); ", "; databuffer(ii+2); ", "; databuffer(ii+3); ", "
|
||||||
|
End If
|
||||||
|
databuffer_oud1 = databuffer(ii)
|
||||||
|
databuffer_oud2 = databuffer(ii+1)
|
||||||
|
databuffer_oud3 = databuffer(ii+2)
|
||||||
|
databuffer_oud4 = databuffer(ii+3)
|
||||||
|
Next ii
|
||||||
|
'?
|
||||||
|
'? "packet nr."; 256*databuffer(62)+databuffer(63)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
key = Inkey
|
||||||
|
If (key <> "") then
|
||||||
|
? countbytes
|
||||||
|
' ? "key pressed: "; asc(key)
|
||||||
|
' databuffer(0) = asc(key)
|
||||||
|
' returnvalues = transfer_data(DHandle(counter-1), out_endpoint(0), dbuf, out_packsize(0), 100, 100)
|
||||||
|
End If
|
||||||
|
|
||||||
|
Loop Until key = chr$(27)
|
||||||
|
|
||||||
|
returnvalue = close_device(DHandle(counter-1))
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
returnvalue = exit_prog(ppList)
|
||||||
|
|
||||||
|
sleep
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user