sábado, 2 de julio de 2011

Coche RC VB6

Aprovechando software que ya tenia por ahí y modificandolo un poco, me ha salido este programa para controlar un coche RC via puerto COM con Visual Basic 6. Me ha llevado un par de días pero ya esta terminado y funcionando 100%.




Fácil de configurar, y utilizando también el DTR - RTS por si necesitáis alimentar algo con los 5V que salen del puerto COM (teniendo cuidado de no meter mucha carga) como ya explique en otro post llamado Activar DTR RTS Visual Basic
Se puede cambiar el puerto al COM que queramos y cambiar el modo de transmisión.


La configuración del joystick es tambien sencilla, podemos buscar el joystick y definir la velocidad del mismo.





Es un programa sencillo y fácil de entender para quien quiera aprender un poco de programación y electrónica



Descargar Coche RC VB by Infotronikblog

Ver software PBP para Pic 16f628a

By PeYuTrOn

7 comentarios :

  1. Los niños siempre han estado fascinados con control remoto (RC) los juguetes. ¿Alguna vez has conocido a un niño que no estaba fascinado con un juguete de control remoto? Desde luego, no tienen. Todos los chicos que conozco está fascinado con los juguetes de control remoto. Por otra parte, no se limita sólo a los niños. Incluso los adultos aman mando a distancia.

    Recuerdos.
    Andy.

    ResponderEliminar
  2. hola amigo
    sobre su vb6 proyecto.
    control de joystick
    como puedo añadir más botones de condigo
    ¡gracias

    ResponderEliminar
  3. Buenas Cesar, en el modulo modinput hay un apartado que se refiere a los botones del joystick en concreto esta:

    t = MYJOYEX.dwButtons
    For i = 15 To 0 Step -1
    JoyButtons(i) = False
    If (2 ^ i) <= t Then
    t = t - (2 ^ i)
    JoyButtons(i) = True
    End If
    Next i

    ---------------------------------------
    Y esto seria un ejemplo de lo que tendrias que poner en el Form donde este "PollJoystick" que en este caso es el Timer1:

    If JoyButtons(0) = True Then
    BUTT(5).BackColor = R01
    End If

    If JoyButtons(0) = False Then
    BUTT(5).BackColor = R02
    End If

    If JoyButtons(1) = True Then
    BUTT(6).BackColor = R01
    End If

    If JoyButtons(1) = False Then
    BUTT(6).BackColor = R02
    End If

    para cada boton solo tienes que sustituir el joyButton(X) por el botón que quieres presionar. Creo que el máximo de botones es 15. Lo que no se es a cual corresponde cada botón.
    Espero haberte ayudado!!!

    ResponderEliminar
  4. Hello, Peyutron. A good lesson.
    I am a novice programmer. Programming in Visual Basic 6.0.
    Since you Peyutron professional. I have a question for you. I want to build a robot car. And to create a program on VB 6.0 to control the car via Bluetooth. Can you help me?

    Thank you.

    ResponderEliminar
  5. Hola, Peyutron. Una buena lección.
    Soy un programador novato. Programación en Visual Basic 6.0.
    Puesto que usted Peyutron profesional. Tengo una pregunta para usted. Quiero construir un coche robot. Y para crear un programa en VB 6.0 para controlar el coche a través de Bluetooth. ¿Me pueden ayudar?

    Gracias.

    ResponderEliminar
    Respuestas
    1. Buenas!!! lamento decirte que por desgracia solo soy aficionado en el tema de programación en VB6. Nunca he programado nada para bluetooth. Pero puede que en esta dirección tengas algo de información:
      http://www.planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?lngWId=1&txtCriteria=bluetooth
      Siento no poder ayudarte más
      Saludos!!!

      Eliminar