Page 11 - SERIE N11 micro 2
P. 11
PORTB:=$ ....... ;
…………………………… ;
end ;
if PORTA =……… then // fonctionnement chenillard décalage à droite
begin
PORTB:=%10000000;
for i:=1 to 8 do // Boucle pour
begin
delay_ms(100);
PORTB:=PORTB ……………. 1 ; //décalage à droite de 1 bit du PORTB
end ;
end ;
if PORTA =……… then // fonctionnement chenillard décalage à gauche
begin
PORTB:=% ..........................;
for i:=1 to 8 do // Boucle pour
begin
delay_ms(100);
PORTB:=PORTB ……………. 1 ; //décalage à gauche de 1 bit du PORTB
end ;
end ;
……….
……….
Exercice N°11 : 16 OSC1/CLKIN RA0 17
Tableau de fonctionnement jour :( S1=1 ) 15 OSC2/CLKOUT RA1 18 1 S1
1
Fonctionnement nuit :(S1=0): 4 MCLR RA2 2
RA3
Durée en secondes 60 05 55 RA4/T0CKI 3
Rouge (portb .0) 1 0 0 RB0/INT 6
RB1 7
Orangé (portb.1) 0 1 0 RB2 8
9
Vert (portb.2) 0 0 1 RB3 10
RB4
Le feu orange clignote pendant une seconde. RB5 11
12
RB6
Compléter l'algorithme et le programme donne RB7 13
permettant de gérer le fonctionnement du feux PIC16F84A
tricolore d'un carrefour en se référant au tableau de fonctionnement (jour et nuit) et au schéma du
montage fourni.
Algorithme : feu_tri program feu_tri;
Variables: var
S1 : bit du registre PORTA affects a RAO S1 : ……………………………….. ;
Debut begin
TrisA ⟸........ TrisB ⟸…….. PortB ⟸……... trisA:=$ .. , trisb:=$... ; portb:=$ ..... ;
Tant que (1=1) Faire while true do
Debut begin
SI S1=1 alors …………………….
Debut begin
PortB ⟸……... …………………….
Attente (………..) Vdelay_ms(60000);
………………….. ………..
………………….. …………………….
portb:=4;
11