Coche RC PBP

Este es el código para el coche RC con visual basic.

Código PBP para coche RC con Pic 16f628a:

' 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=010000
goto inicio

Atras:
portb=100000
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=000000
goto inicio
END


By PeYuTrOn