Coche RC PBP

Muy buenas a todos y todoas fanáticos de Visual Basic

Este es el código para el coche RC con Visual Basic.

Código PBP para coche RC con con microcontrolador PIC 16F628a con el que controlamos los dos motores, uno para la tracción y otro para la dirección de un pequeño coche RC modificado:

Para enviar los datos usaremos módulos RF de la marca Cebek C-0503 y C-0504.

Para el control de los motores se han reciclado los transistores que ya estaban en la placa de control del coche RC original construyendo con ellos un rudimentario puente H.

' Coche RC

@ DEVICE PIC16F628A, BOD_OFF
@ DEVICE pic16F628A, WDT_OFF
@ DEVICE pic16F628A, PWRT_OFF
@ DEVICE pic16F628A, PROTECT_OFF
@ DEVICE pic16F628A, MCLR_OFF
@ DEVICE PIC16F628A, XT_OSC
@ DEVICE PIC16F628A, LVP_OFF

include "modedefs.bas"

Define OSC 4
CMCON = 7
Serial var byte
datos var portb.1
TRISB = 000010
PORTB = 000000

Inicio:
  serin datos,T1200,serial
  if serial="A" then Avance
  if serial="B" then Atras
  if serial="C" then Derch
  if serial="D" then izqui
  if serial="P" then parar
  if serial="E" then Atder
  if serial="F" Then Ader
  if serial="G" then Aizq
  if serial="H" then ATizq
goto inicio

Avance:
  portb = %01000000
goto inicio


Atras:
  portb = %10000000
goto inicio


Derch:
  portb = %01000000 
goto inicio

Izqui:
  portb = %10000000
goto inicio

ATder:
  portb = %10100000
goto inicio

Ader:
  portb = %10010000
goto inicio

ATizq:
  portb = %01100000
goto inicio

Aizq:
  portb = %01010000
goto inicio

Parar:
  portb = %00000000
goto inicio

END

Este código es un ejemplo clásico de control de coches RC con microcontroladores PIC.

Como es bastante sencillo lo hace ideal para principiantes como yo, mientras que su estructura permite expandirlo con algunas funciones avanzadas como control inalámbrico o retroalimentación con sensores. ¡Perfecto para proyectos educativos y hobbies de electrónica!

Otros artículos sobre Visual Basic 6.0 que te pueden interesar:

• Modulos Cebek Tx C-0503 y Rx C-0504
• Visual Basic 6.0 y base de datos Access
• Coche RC Visual Basic 6

Saludos a todos y todas!!!