Page 19 - SERIE N11 micro 2
P. 19

afficheur2           afficheur1







       16   OSC1/CLKIN       RA0   17
        15                         18
            OSC2/CLKOUT      RA1   1      capteur
          4   MCLR           RA2   2
                             RA3
                                   3
                        RA4/T0CKI               0
                                   6            7                    13
                          RB0/INT                  A           QA
                             RB1   7            1   B          QB    12
                             RB2   8            2   C          QC    11
                             RB3   9            6   D          QD    10
                                                4
                                   10
                                                                     9
                             RB4   11           5   BI/RBO     QE    15
                             RB5                   RBI         QF
                             RB6   12           3   LT         QG    14
                             RB7   13             7447
           PIC16F84A                                                                  T2                 T1
                                                                                                         2N2222
                                                                       1k             2N2222



                                                                                                         Vcc
                                                                                          1k
       program exercice_N22_compteur_moduo100_affichage_mutiplexe;
       var unite,dizaine:byte;
       begin
       trisb:=$ ............. ;                                       // RBO,RB1 ,RB2,RB3 sorties RB4 à RB7 entrées
       trisa:=$ ............. ;                                       // RAO,RA1,RA2 sorties RA3,RA4 entrées
       TMR0:= ............. ;                                        // initialiser du timer 0 à la valeur 0
       OPTION_reg:= %....................... ;
       ..............................                                     // Boucle infinie
       begin
       While TMR0 < …………do
       begin
       unite:= TMR0 ………..10 ;                                  // identifier le chiffre de l'unité de i
       dizaine:= (TMR0……….10) ………. 10 ;           // identifier le chiffre de dizaine de i
       centaine:= TMR0 ………… 100 ;                       // identifier le chiffre de centaine de i
       porta:=0;
       delay_ms(1);
       portb:=unite;
       porta:=1;                                                         //……………………………………..
       delay_ms(10);
       porta:=0;
       delay_ms(1 );
       portb:= ………… ;
       porta:=…………..;                                            //……………………………………..
       delay_ms(10);
       end ;
       TMR0:= ............. ;
       end ;

       end·




                                                                                                                19
   14   15   16   17   18   19   20   21   22   23   24