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
   6   7   8   9   10   11   12   13   14   15   16