Semaforo

Un semaforo sencillo y con parpadeo de 5 veces en las lamparas verde y rojo, haciendo un semaforo a secuencia real al de las calles.

Solo usaremos un PIC 12F1840, 3 LEDS y 3 resistencias de 330Ω.

miKroBasic

program semaforo

symbol pines = PORTA

symbol reloj1 = delay_ms(2000)

symbol reloj2 = delay_ms(500)

symbol parpadeo = delay_ms(100)

dim ciclo as integer

main:

TRISA = 0

pines = %0001

reloj1

for ciclo = 0 to 5 step 1

          pines = %0000

          parpadeo

          pines = %0001

          parpadeo

next ciclo

pines = %0010

reloj2

pines = %0100

reloj1

for ciclo = 0 to 5 step 1

          pines = %0000

          parpadeo

          pines = %0100

          parpadeo

next ciclo

pines = %0010

reloj2

pines = %0001

reloj1

return

end.