libusb en visual basic, como usarlo?

[Fucko]

Hola, alguien tiene algún ejemplo de como usar libusb para escribir y leer a un dispositivo usb???

cuento con el VID & PID y la data a escribir.

se que se usa usb_bulk_write, pero no se bien como...

cualquier ejemplo se agradece

[Fucko]

hhmmmmm, nadie???
tan dificil es?
muchos preguntan lo mismo.
si hay alguien que haya podido hacerlo en visual basic 6, y nos de un ejemplo, nos sería de gran ayuda, y considerado PRO

[cobein]

http://sourceforge.net/apps/trac/libusb-win32/wiki/libusbwin32_documentation

[Fucko]

http://sourceforge.net/apps/trac/libusb-win32/wiki/libusbwin32_documentation

Gracias Cobein, una consulta....
algun ejemplo???
estuve leyendo ya por ahí...
veamoslo así:

tengo que enviar el string "hola" al dispositivo usb, cuyo vid es 0c22 y el pid 0c33

como sería el código?

gracias
saludos

[ssccaann43 ©]

Deberías leer la información que te suministro Cobein...! No se te hara la tarea..!

[Fucko]

Deberías leer la información que te suministro Cobein...! No se te hara la tarea..!

entiendo que nadie sepa como hacerlo... no hay problema...
muchos andan en busca de lo mismo, pero nadie da respuesta... debe ser que nadie sabe como....

alguna vez usaste usb con visual basic??
sin EMULAR com, porque eso lo se hacer...
saludos

[MCKSys Argentina]

En el link que dio Cobein dice:

Código [Seleccionar] Expandir


This document's purpose is to explain the API for libusb-win32 and how to use it to make a USB aware application. Any suggestions, corrections and comments regarding this document can be sent to the libusb-win32 developers mailing list.


En pocas palabras, te va a explicar la API para hacer que tu app funcione con USB.

Creo que es todo lo que se necesita... no?

Saludos!

[Fucko]

estuve leyendo, y no me sale...

adjunto parte del codigo:

Código [Seleccionar] Expandir


Private Sub Form_Activate()
    UsbInit
    UsbSetDebug (255)
   
End Sub

Private Sub Command2_Click()
Dim my_handle
                      my_handle = UsbOpen(0, &HD55, &H20)
                      If my_handle = 0 Then MsgBox " No such device "
                      Text1 = my_handle
End Sub

Private Sub Command3_Click()
UsbBulkWrite my_handle, 1, 10, 512, 5000



el command3 es el problema....
tambien intenté con

Código [Seleccionar] Expandir

Private Sub Command3_Click()
UsbBulkWrite UsbOpen(0, &HD55, &H20), 1, 10, 512, 5000


no se si buf es el data a enviar....
gracias

[Fucko]

no sale.....
declaro buf como string, y nada tampoco...
alguien que entienda mejor el code de la pagina del libusb??
un ejemplo por favor?
gracias

[MCKSys Argentina]

Seguiste bien los pasos??

Fijate en el link que dio cobein, la parte que dice:

Código [Seleccionar] Expandir


Before any communication can occur with a device, it needs to be found. This is accomplished by finding all of the busses and then finding all of the devices on all of the busses:

struct usb_bus *busses;
usb_init();
usb_find_busses();
usb_find_devices();
busses = usb_get_busses();

After this, the application should manually loop through all of the busess and all of the devices and matching the device by whatever criteria is needed:


Y ahi muestra un codigo de ejemplo que va recorriendo los buses de todos los dispositivos...

Saludos!