'SEMAFORO PARA LOS VEHICULOS
'C.0 = ROJO
'C.1 = AMARILLO
'C.2 = VERDE
'SEMAFORO PEATONES
'B.4 = ROJO
'B.5 = VERDE
'SEMAFORO PEATONES CON EL BOTON
'B.6 = ROJO
'B.7 = VERDE
'B.1 = BOTON DE PEATONES
'*************************************************************
'*************************************************************
main:
if pinB.1 is on then
low C.2 'SE APAGA LA LUZ VERDE DEL SEMAFORO VEHICULOS
low C.1 'SE APAGA LA LUZ AMARILLA DEL SEMAFORO VEHICULOS
high C.0 'SE ENCIENDE LA LUZ ROJA DEL SEMAFORO VEHICULOS
low B.4 'SE APAGA LA LUZ ROJA DEL SEMAFORO PEATONES
low B.6 'SE APAGA LA LUZ ROJA DEL SEMAFORO PEATONES CON BOTON
high B.5 'SE ENCIENDE LA LUZ VERDE DEL SEMAFORO PEATONES
high B.7 'SE ENCIENDE LA LUZ VERDE DEL SEMAFORO PEATONES CON BOTON
else
low C.0 'SE APAGA LA LUZ ROJA DEL SEMAFORO VEHICULOS
low C.1 'SE APAGA LA LUZ AMARILLA DEL SEMAFORO VEHICULOS
high B.4 'SE ENCIENDE LA LUZ ROJA DEL SEMAFORO PEATONES
high B.6 'SE ENCIENDE LA LUZ ROJA DEL SEMAFORO PEATONES CON BOTON
high C.2 'SE ENCIENDE LA LUZ VERDE DEL SEMAFORO VEHICULOS
low B.5 'SE APAGA LA LUZ VERDE DEL SEMAFORO PEATONES
low B.7 'SE APAGA LA LUZ VERDE DEL SEMAFORO PEATONES CON BOTON
'SI NO ESTA SELECIONADO EL BOTON, SE INICIA EL CICLO DE LOS SEMAFOROS CON EL DE
VEHICULOS EN VERDE Y EL DE PEATONES EN ROJO
for b0 = 1 to 5
if pinB.1 is on then
goto main
else
gosub SPR
gosub SVV
pause 500
endif
next b0
'UNA VES FINALIZADO EL PRIMER CICLO SE APAGA LA LUZ VERDE DEL SEMAFORO DE CARROS Y
SE ENCIENDE LA LUZ AMARILLA
low C.2
for b0 = 1 to 3
if pinB.1 is on then
goto main
else
gosub SPR
gosub SVA
endif
next b0
'UNA VEZ FINALIZADO EL CICLO DE LA LUZ AMARILLA DEL SEMAFORO VEHICULOS, INCIAMOS EL
SEMAFORO DE PEATONES APAGANDO LA LUZ ROJA Y ENCIENDO LA LUZ VERDE DURANTE 5
SEGUNDOS
low B.4 'SE APAGA LA LUZ ROJA DEL SEMAFORO PEATONES
low B.6 'SE APAGA LA LUZ ROJA DEL SEMAFORO PEATONES CON BOTON
for b0 = 1 to 5
if pinB.1 is on then
goto main
else
gosub SVR
gosub SPV
pause 500
endif
next b0
low B.5 'SE APAGA LA LUZ VERDE DEL SEMAFORO PEATONES
low B.7 'SE APAGA LA LUZ VERDE DEL SEMAFORO PEATONES CON BOTON
low C.0 'SE APAGA LA LUZ ROJA DEL SEMAFORO DE VEHICULOS
high B.4 'SE ENCIENDE LA LUZ VERDE DEL SEMAFORO PEATONES CON BOTON
high B.6 'SE ENCIENDE LA LUZ VERDE DEL SEMAFORO PEATONES CON BOTON
endif
goto main
SVV: 'SEMAFORO VEHICULOS EN VERDE
high C.2
return
SVA: 'SEMAFORO VEHICULOS EN AMARILLO
high C.1
pause 500
low C.1
return
SVR: 'SEMAFORO VEHICULOS EN ROJO
high C.0
return
SPR: 'SEMAFORO PEATONAL EN ROJO
high B.4
high B.6
return
SPV: 'SEMAFORO PEATONAL EN VERDE
high B.5
high B.7
return