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