Que tal a todos, este post esta en otro subforo, y alli me recomendaron que lo postera en el subforo de visual basic asi que alla va, espero que puedan ayudarme, voy a colocar el post tal como lo puse en el otro subforo:
Que tal a todos, use el generador EasyHID para generar el codigo de comunicacion entre un PIC y el PC a traves del puerto USB,
la cuestion es que no entiendo la sintaxis del lenguaje en bajo nivel (PICBASIC) y el del alto nivel(VISUAL BASIC), estoy usando un PIC18F4455, y cuando lo conecto al puerto USB el sistema lo detecta, pero no se como enviar datos hacia el PIC desde el PC y viceversa. Lo que pude descubrir son los procedimientos del programa generado en visual basic para enviar y recibir datos pero no entiendo la sintaxis estos son los procedimientos:
"*****************************************************************
" on read event...
"*****************************************************************
Public Sub OnRead(ByVal pHandle As Long)
" read the data (don"t forget, pass the whole array)...
If hidRead(pHandle, BufferIn(0)) Then
" ** YOUR CODE HERE ** "se que aqui tengo que escribir el codigo para leer el dato pero no se la sintaxis
" first byte is the report ID, e.g. BufferIn(0)
" the other bytes are the data from the microcontrolller...
End If
End Sub
"*****************************************************************
" this is how you write some data...
"*****************************************************************
Public Sub WriteSomeData()
BufferOut(0) = 0 " first by is always the report ID
BufferOut(1) = 10 " first data item, etc etc
" write the data (don"t forget, pass the whole array)...
hidWriteEx VendorID, ProductID, BufferOut(0)
End Sub
En que parte de estos procedimientos tengo que escribir el codigo, y como seria la sintaxis si quisiera enviar(al PIC) y recibir(desde el PIC) la letra "A" en un TextBox
por ejemplo.
Y lo mismo para el programa en PicBasic, en que parte del codigo recibo y envio la letra "A" y como seria la sintaxis,
el codigo del PICBASIC es el siguiente:
" ************************************************************
" * receive data from the USB bus *
" ************************************************************
DoUSBIn:
USBBufferCount = USBBufferSizeRX " RX buffer size
USBService " keep connection alive
USBIn 1, USBBuffer, USBBufferCount, DoUSBIn " read data, if available
return
" ************************************************************
" * wait for USB interface to attach *
" ************************************************************
DoUSBOut:
USBBufferCount = USBBufferSizeTX " TX buffer size
USBService " keep connection alive
USBOut 1, USBBuffer, USBBufferCount, DoUSBOut " if bus available, transmit data
return
Si alguien a trabajado con el EasyHID, espero que me pueda ayudar, si necesitan que coloque todo el codigo de visual y picbasic lo puedo subir.
De antemano gracias a todos.
PD: disculpen lo extenso del post.
