 FTOUHI
Newbie
Messages : 4
Inscrit(e) le: 22/02/2014
|
 Posté le 24/04/2015 23:11 | | | COUVEUSE OEUF |
SVP MON MINI PROJET CONSISTE A CONSTRUIRE UNE COUVEUSE D'OEUF A BASE DE 16F876 ET LM35
MON PREMIER ETAPE CONSISTE A FAIRE LA LECTURE DE LA TEMPERATURE ET LA FAIRE AFFICHER SUR UN 7 SEGEMNT
VOICI MON PROG
_______________________________________________
program COUVEUSE;
var digit_vx,vx,va,vb : real ;
BCD_code,BCD_V : byte ;
init_temperature : boolean;
begin
TRISA := 0XFF;
TRISB := 0X0F;
TRISC := 0X00;
ADCON0:=$81;
ADCON1:=$80;
while(true) do
begin
delay_ms(3000);
va := adc_read(0);
vb := adc_read(1);
vx := va-vb;
digit_vx := ((vx*5*100)/1024);
BCD_code := Dec2bcd (digit_vx) ;
PORTC := BCD_code ;
end;
end.
_______________________________________________
pour la simulation sur isis sa marche trop bien mais quand je fait la programmation de mon pic pour un test reel c jamais
aidée moi svp
|
|
|
FTOUHI
