Ayuda con pic16f877 y PicBasic

#1
Hola a todos,soy nuevo en esto de la electronica y estoy intentando hacer un programa de un estacionamiento de autos,que al llenarse, muestre en un LCD "ocupado", sin embargo,no logro hacer que muestre nada en el LCD y aunque he revisado muchas veces la sintaxis,ya no se que hacer,aqui esta el programa, espero me puedan ayudar :eek:.

'El programa es un estacionamiento con 2 sensores opticos, el primer sensor registra
'cuando entra un auto y el otro cuando sale.La capacidad maxima del
'estacionamiento es de 10 autos.

Define LCD pins
Define LCD_DREG PORTB
Define LCD_DBIT 4
Define LCD_RSREG PORTB
Define LCD_RSBIT 0
Define LCD_EREG PORTB
Define LCD_EBIT 1


adcon0=$00
adcon1=7
Low PORTA.2
incrementa var portb.7
decrementa var portb.6
trisb=$0f
auto var byte 'esta es la variable que registra el numero de autos
auto = 0 'inicia el conteo de autos en el estacionamiento en cero

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
pause 200
Lcdout $fe, 1, "Estacionamiento"


pause 1000
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
mainloop: ' Rutina principal

PORTB=0
TRISB= $f0

Lcdout $fe, 1
if auto = 10 then
Lcdout , "Lleno"',"=",dec auto
pause 200
Else
Lcdout , "carros","=",dec2 auto
pause 200
endif
if decrementa = 1 then decauto 'Decrementa controla la salida de autos
if incrementa = 1 then incauto 'Incremente controla la entrada de autos
goto mainloop

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
decauto:
if auto>0 then
pause 200
auto = auto-1
goto mainloop
endif
goto mainloop

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
incauto:
if auto<10 then
pause 200
auto = auto+1
goto mainloop
endif
goto mainloop

End
 
Arriba