• Lunes 23 de Diciembre de 2024, 00:47

Autor Tema:  Usb  (Leído 5321 veces)

riciar

  • Miembro activo
  • **
  • Mensajes: 44
    • Ver Perfil
Usb
« en: Lunes 31 de Enero de 2005, 13:19 »
0
Hola  a todos, alguien puede decirme como puedo enviar datos a un puerto USB donde tengo conectada una camara web, ya que necesito controlar unos servos junto con la recepcion de la imagen.

gracias!!!!!
Riciar

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Usb
« Respuesta #1 en: Martes 1 de Febrero de 2005, 11:35 »
0
Hola riciar.

Puedes probar abriendo en binario con OPEN el puerto como un archivo más. Para enviar datos escribe en el archivo con PUT.

Código: Text
  1.  
  2. Dim iCanal As Integer, byt1() As Byte
  3. iCanal = FreeFile
  4. Open "USB1" For Binary As iCanal
  5. .
  6. .
  7. .
  8. Put #iCanal, ,byt1
  9. .
  10. .
  11. .
  12. Close #iCanal
  13.  
  14.  

Suerte.

riciar

  • Miembro activo
  • **
  • Mensajes: 44
    • Ver Perfil
Re: Usb
« Respuesta #2 en: Miércoles 2 de Febrero de 2005, 13:31 »
0
Hola Broz, con esas instrucciones lo que se hace es crear un archivo llamado USB1 en el rigido pero no envia datos al port.
Creo que lo que tendria que encontrar es una libreria o algo que controle los puertos USB.

Gracias de todas formas, seguire buscando.
Riciar

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Usb
« Respuesta #3 en: Miércoles 2 de Febrero de 2005, 14:41 »
0
Hola riciar.

Pos es una pena... los puertos paralelo y serie sí los puedes abrir de esta forma.

Si algún día me entero de como se hace con los usb y este tema sigue abierto, lo posteo.
Abur.