Programo desde casa es un foro para programadores freelance, allí cualquier persona puede publicar ofertas de trabajo para que los programadores tiren presupuestos o se pongan en contacto con ellos. Es u nlugar donde se ponen en contacto programadores con personas que necesitan contratarlos.
Visto en Codigo Geek
Las mejores búsquedas:
- foro programadores
- foros para programadores
- programadores foro
- foro de programadores
- foro para programadores
- foros de programadores
- programas para infografias
- freebasic ejemplos code
- foros para programadores freelance
- 4550 mpusbapi dll
Hola!
Estoy intentando acceder a la librería MPUSBAPI.DLL desde FreeBasic, pero no lo consigo. Sabe alguien cómo poder acceder a ella a través de FreeBasic?
Las funciones más importantes son estas:
* MPUSBOpen
* MPUSBRead
* MPUSBWrite
* MPUSBClose
* MPUSBGetDeviceCount
Os pongo lo que llevo hecho de momento sin resultado satisfactorio:
[code]
Cls
Const MPUS_FAIL = 0
Const MPUSB_SUCCESS = 1
Const MP_WRITE = 0
Const MP_READ = 1
Const MAX_NUM_MPUSB_DEV = 127
Const Vid_Pid = "VID_04D8&PID_000A"
Const Outpipe = "\\MCHP_EP3"
Const Inppipe = "\\MCHP_EP3"
Dim As UInteger MyInpPipe
Dim As UInteger MyOutPipe
Dim As Integer Count
Dim As Any Ptr hLib
hLib = DylibLoad( "mpusbapi.dll" )
If hLib = 0 Then End
Dim Version As Function () As UInteger
Dim OpenUSB As Function ( ByVal As UInteger, ByVal As String, ByVal As String, ByVal As UInteger, ByVal As UInteger) As Integer
Dim ClosUSB As Function ( ByVal As String ) As Integer
Dim DevCont As Function ( ByVal As String ) As Integer
Version = DyLibSymbol( hLib, "_MPUSBGetDLLVersion" )
OpenUSB = DyLibSymbol( hLib, "_MPUSBOpen" )
ClosUSB = DyLibSymbol( hLib, "_MPUSBClose" )
DevCont = DyLibSymbol( hLib, "_MPUSBGetDeviceCount" )
Count = DevCont(Vid_Pid)
If (Count > 0) Then
MyOutPipe = OpenUSB( 0, Vid_Pid, Outpipe, MP_WRITE, 0 )
MyInpPipe = OpenUSB( 0, Vid_Pid, Inppipe, MP_READ, 0 )
Else
Print "Failed to open data pipes.!"
Sleep
End
EndIf
ClosUSB ( Outpipe )
Sleep
End
[/code]
[Responder]
Oceano2012 Reply:
junio 12th, 2010 at 7:56 PM
En el siguiente enlace he puesto un post donde pongo un ejemplo práctico de enviar y recibir datos con un PIC 18F4550 usando MPUSBAPI.DLL (USB en modo Bulk Transfer, es decir, a toda castaña) desde FreeBasic:
http://www.freebasic.net/forum/viewtopic.php?p=136968
[Responder]
Problema resuelto aquí:
http://www.freebasic.net/forum/viewtopic.php?p=136296
[Responder]
Buenas, yo también soy programador freelance, pueden ver mi web por si necesitan alguna cosilla.
http://www.sbswebfreelance.com
Gracias.
[Responder]