Programas pics

Ejemplo #2
Semáforo de 2 interracciones
Semáforo
rojo1 | amarillo1 | verde1 | rojo2 | amarrillo2 | verde2 |
1 | 0 | 0 | 0 | 0 | 1 |
1 | 0 | 0 | 0 | 1 | 0 |
0 | 0 | 1 | 1 | 0 | 0 |
0 | 1 |0 | 1 | 0 | 0 |

Trisb= % 00000000; configuración al puerto 8 salidas
Semáforo
Portb % 00100001;
Pause 2000;
Portb $22;
Pause 2000;
Portb % 00001100;
Pause 2000;
Portb$14;
Pause 2000;GOTO semáforo;
-------------------------------------------------
END

ROJO_1 VAR portb.5
AMARILLO_1 VAR portb.4
VERDE_1 VAR portb.3
ROJO_2 VAR portb.2
AMARILLO_2 VAR portb.1-------------------------------------------------
VERDE_2 VAR portb.0
-------------------------------------------------

Semáforo
HIGH rojo_1: HIGH verde_2
PAUSE;
LOW verde_2: HIGH amarllo_2
PAUSE;
LOWamarillo_2LOW rojo_1: HIGH verde_1: HIGH rojo_2
PAUSE;
LOW verde_1:HIGHamarillo_1
GOTO semáforo
END

Ejemplo #3 luces discoteca
Trisb= % 00000000
Discoteca:
Portb= $01
GOSUB retardo
Portb= $02GOSUB retardo
Portb= $04
GOSUB retardo
Portb= $08
GOSUB retardo
PAUSE
RETURN
-------------------------------------------------

Ejemplo #4
Encender un led por el puerto B 5 veces conintermedio de 5 seg. Detenerse 2 seg. Parpadeo por 3 seg. Y repetir el proceso
X VAR BYTE
Led VAR portb.7
Inicio;
For x=1 to 5
HIGH led
PAUSE 500
LOW led
PAUSE 500
NEXT
PAUSE 2000
FOR x=1 to 3HIGH led
PAUSE 500
LOW led
PAUSE 500
NEXT
PAUSE 3000
END

EJEMPLO #5
LUCES DE AUTO INCREIBLE
Que enciendan unos led de derecha a izquierdas
X VAR BYTE
LED VAR portb
Trisb=0
Leds=1Inicio
FOR x=1 TO 7
Leds= leds<<1
Pause 500
NEXT
FOR x=1 TO 7
Leds= leds>>1
Pause 500
NEXT
GOTO INICIO
END
-------------------------------------------------

Ejemplo #6
Leerun pulsador
IF PORTB 4=1THEN
HIGH portb.5
PAUSE
LOW
GOTO
-------------------------------------------------
END
EJEMPLO #7
PARPADEO DE UN LED CON VEL. VARIABLE
Se basa en 2 pulsadores uno...