Hola Lordlafebre
Bueno, ya se que me hacia falta en el programa del PIC, HICE LA SGTE MODIFICACION (por cierto esto pertenece a tu ejemplo en el PDF), al parecer no esta muy clara esa linea, pero, a pesar de eso te agradezco que lo hayas publicado, ya que nos ayuda a los que queremos aprender mas de los PICs
y entiendo que haces electronica, por que te gusta, como a mi y a muchos, asi que adelante.......y espero que este foro siga creciendo, con gente como ustedes......gracias
usbinit ' initialise USB...
ProgramStart:
Gosub DoUSBIn ‘borramos esta línea
gosub DoUSBOut
PORTB = usbbuffer[7]
goto ProgramStart
LO CAMBIE POR
usbinit ' initialise USB...
ProgramStart:
Gosub DoUSBIn
'gosub DoUSBOut ‘borramos esta línea
PORTB = usbbuffer[7]
goto ProgramStart
Ya con esta modificacion y con tu programa en Visual, el proyecto corre muy bien.
Ahora el problema que yo tengo en Visual es que no me reconoce, la conversion BinADEC, me envia mensajes de error alli, asi que como en visual se demasiado poco, ....pregunta.....alguien sabe por que?.
Cuando obvio esta parte y envio datos directamente, por ejemplo DatoSalida = 15 ' (eliminando esta parte) BinADec(Val(Text1.Text))
si logro representar este numero en los LEDS, asi que el error tiene que estar alli.
ESTA ES LA PARTE CO EL ERROR:
Private Sub Timer1_Timer()
Text1.Text = B7 & B6 & B5 & B4 & B3 & B2 & B1 & B0
DatoSalida = BinADec(Val(Text1.Text))
BufferOut ( 8 ) = DatoSalida
hidWriteEx VendorID, ProductID, BufferOut(0)
End Sub
Saludos de Arequipa Peru
Pdta: Probe tu programa con PIC18F2455 y sin necesidad de ninguna modificacion, el programa corre a las mil maravillas.......