Foro para programadores freelance

4 Comentarios en " Foro para programadores freelance "

1. Oceano2012 dice:

   30/05/2010 a las 8:50 PM

   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]
2. Oceano2012 dice:

   03/06/2010 a las 6:14 PM

   Problema resuelto aquí:

   http://www.freebasic.net/forum/viewtopic.php?p=136296

   [Responder]
3. Pablo dice:

   08/04/2011 a las 4:10 AM

   Buenas, yo también soy programador freelance, pueden ver mi web por si necesitan alguna cosilla.
   http://www.sbswebfreelance.com

   Gracias.

   [Responder]