Publicado por: LordLafebre en 28 de Noviembre de 2005, 14:42:00
Pues como se puso de moda esto del USB aproveche y le di vida a mi otro bot que lo tengo solo en huesos (estructura), es algo sencillo, ademas aun la circuiteria la tengo montada solo en un protoboard pero me funciona muy bien, utilizo un PIC 18F2550 y el esquema basico de conexion del GTP LITE de J1M, cristal de 12MHz condensador de 47uF/25V.... aun esta en pañales al igual que mi aplicacion en VB pero camina y funciona, si a alguien le interesa aqui esta:
Aunque hay un desorden terrible creo que si se puede notar algo...
Programa para el Pic 18F2550 utilizando easyHID:
Codigo:
DEFINE OSC 48
USBBufferSizeMax con 8 " maximum buffer size
USBBufferSizeTX con 8 " input
USBBufferSizeRX con 8 " output
" the USB buffer...
USBBuffer Var Byte[USBBufferSizeMax]
USBBufferCount Var Byte
dato var byte
" ************************************************************
" * main program loop - remember, you must keep the USB *
" * connection alive with a call to USBService every couple *
" * of milliseconds or so... *
" ************************************************************
PORTB = 0
TRISB = 0
usbinit " initialise USB...
ProgramStart:
gosub DoUSBIn
PORTB = USBBuffer[7]
goto ProgramStart
" ************************************************************
" * 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
Y esta es la aplicacion en VB, como digo estoy empezando...
y este el soft para Vb tambien con el easyHID... (codigo del formulario)
Codigo:
" vendor and product IDs
Private Const VendorID = 6017
Private Const ProductID = 2000
" read and write buffers
Private Const BufferInSize = 8
Private Const BufferOutSize = 8
Dim BufferIn(0 To BufferInSize) As Byte
Dim BufferOut(0 To BufferOutSize) As Byte
" ****************************************************************
" when the form loads, connect to the HID controller - pass
" the form window handle so that you can receive notification
" events...
"*****************************************************************
Private Sub Form_Load()
" do not remove!
ConnectToHID (Me.hwnd)
End Sub
"*****************************************************************
" disconnect from the HID controller...
"*****************************************************************
Private Sub Form_Unload(Cancel As Integer)
DisconnectFromHID
End Sub
"*****************************************************************
" a HID device has been plugged in...
"*****************************************************************
Public Sub OnPlugged(ByVal pHandle As Long)
If hidGetVendorID(pHandle) = VendorID And hidGetProductID(pHandle) = ProductID Then
" ** YOUR CODE HERE **
End If
End Sub
"*****************************************************************
" a HID device has been unplugged...
"*****************************************************************
Public Sub OnUnplugged(ByVal pHandle As Long)
If hidGetVendorID(pHandle) = VendorID And hidGetProductID(pHandle) = ProductID Then
" ** YOUR CODE HERE **
End If
End Sub
"*****************************************************************
" controller changed notification - called
" after ALL HID devices are plugged or unplugged
"*****************************************************************
Public Sub OnChanged()
Dim DeviceHandle As Long
" get the handle of the device we are interested in, then set
" its read notify flag to true - this ensures you get a read
" notification message when there is some data to read...
DeviceHandle = hidGetHandle(VendorID, ProductID)
hidSetReadNotify DeviceHandle, True
End Sub
"*****************************************************************
" 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 **
" 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
Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
BufferOut(8) = 27
hidWriteEx VendorID, ProductID, BufferOut(0)
End Sub
Private Sub Image4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
BufferOut(8) = 0
hidWriteEx VendorID, ProductID, BufferOut(0)
End Sub
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
BufferOut(8) = 45
hidWriteEx VendorID, ProductID, BufferOut(0)
End Sub
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
BufferOut(8) = 0
hidWriteEx VendorID, ProductID, BufferOut(0)
End Sub
Private Sub Image3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
BufferOut(8) = 43
hidWriteEx VendorID, ProductID, BufferOut(0)
End Sub
Private Sub Image3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
BufferOut(8) = 0
hidWriteEx VendorID, ProductID, BufferOut(0)
End Sub
Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
BufferOut(8) = 29
hidWriteEx VendorID, ProductID, BufferOut(0)
End Sub
Private Sub Image2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
BufferOut(8) = 0
hidWriteEx VendorID, ProductID, BufferOut(0)
End Sub
Cuando lo tenga algo mejor adjuntare los archivos....
Publicado por: PAOLA09 en 28 de Noviembre de 2005, 15:22:00
VEO QUE YA ERES AGIL MONTANDO BOTS, ESTE YA TIEN MUY BUENA PINTA ESPERO PODER VERLO FUNCIONANDO PRONTO CON ALGUN VIDEITO.
Publicado por: LordLafebre en 28 de Noviembre de 2005, 15:32:00
Escrito originalmente por PAOLA09
ESTE YA TIEN MUY BUENA PINTA
Hola Pao:
Pues veo que el otro no la tiene....
Y el video lo saco hoy en la noche o mañana en la mañana....
Publicado por: dogflu66 en 28 de Noviembre de 2005, 16:37:00
Publicado por: lord_10 en 28 de Noviembre de 2005, 21:19:00
se ve bien tu bot(esqueletillo
) , haber si te aminas y subes el videito para ver k tal va Publicado por: Nocturno en 28 de Noviembre de 2005, 23:52:00
Publicado por: LordLafebre en 29 de Noviembre de 2005, 12:11:00
Ya va tomando forma... y asi me va quedando:
Segun veo si me va a quedar algo de esapacio para adicionarle cosas, un LCD es lo siguiente que le voy a poner, pero sera de hacer otra plaquita y conectarlas con buses de datos pues esta reducido el espacio para la circuiteria...
Publicado por: PAOLA09 en 29 de Noviembre de 2005, 13:11:00
VEO QUE TE HA RENDIDO DARLE FORMA A TU BOT, DEFINITIVAMENTE ERES VELOZ.
LA VERDAD QUE SE VE MUY BIEN AUNQUE AUN ME DEBES EL VIDEITO. COMO SIEMPRE BUSCAS AGREGARLE MUCHAS MEJORAS A LO QUE HACES, NO ESPERO A VER COMO QUEDA CON TODO.
REALMENTE UN BUEN TRABAJO.
Publicado por: J1M en 29 de Noviembre de 2005, 13:48:00
cada vez hay mas cosillas por USB!! 
Enhorabuena Giovanni tiene muuuuy buena pinta el caxarrillo!
saludos!
Publicado por: LordLafebre en 29 de Noviembre de 2005, 21:49:00
Asi va quedando.... cuando acabe de subir el video les pongo el link:
Publicado por: lord_10 en 29 de Noviembre de 2005, 21:55:00
Publicado por: LordLafebre en 29 de Noviembre de 2005, 22:28:00
Porfin aqui les dejo el video... me comentan que les parece...
http://rapidshare.de/files/8362340/Eleazar_USB.rar.html
Publicado por: RaDoN en 30 de Noviembre de 2005, 03:21:00
Yo no seria capaz de poner mi LCD ahí, no valla ser que se de una ostia y pase una desgracia!!
Te estas convertiendo en una fiera del USB
Publicado por: PAOLA09 en 30 de Noviembre de 2005, 08:16:00
VEO QUE NO DAS TREGUA APROVECHAS HASTA EL ULTIMO MINUTO. ESTA MUY BUENO TU BOT. INTERESANTE EL VIDEITO AL FIN ME LO DEJASTE