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:
Saludos a todos y todas!!!
