Foro para programadores freelance


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
  • foro de programadores
  • foros de programadores
  • foro para programadores
  • que es un foro
  • foro de freelance
  • ofertas para programadores free lance
  • pdf incrustado con jquery
  • Problemas con MPUSBGetDeviceCount(VID_PID)
  • programar online gratis

Tags: , ,

4 Comentarios en " Foro para programadores freelance "

  1. Oceano2012 dice:

    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:

    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. Pablo dice:

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

    Gracias.

    [Responder]

Dejar un comentario

(c) 2012 140 Geek. Todos los derechos reservados
Hosteado en HostGator -