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
|
|
|