ساعدوني في هذا الكود الس لا يعمل معي بالرغم من صحته كود تفقد الحرارة من ds18b20 + pic16f877 لكن عدم وجود اي نتيجة ارجوكم
كود:
//// capteur de temperature///
//ds18b20 1 one wire//
void main() {
//' initialisation pic et sonde
TRISA = 1 ; ; //' Ports A en entrées
TRISB = 0 ;
TRISc = 0 ; //' Ports B en sorties
//' eteint tout
ow_reset(PORTA, 4) ; //' onewire reset
ow_write(PORTA, 4, 0xCC) ; // ' command to DS1820
ow_write(PORTA, 4, 0x4E) ; //' demande envoi 3 bits de config. ($4E)
ow_write(PORTA, 4, 0x65) ; //' envoi TH : alarme Température Haute * 101°C
ow_write(PORTA, 4, 0x81) ; // ' envoi TL : alarme Température Basse * -1°C
ow_write(PORTA, 4, 0x00) ; // ' envoi résolution t. sur 9 bits (
ow_reset(PORTA, 4) ; // ' onewire reset
ow_write(PORTA, 4, 0xCC) ; // ' command to DS1820
ow_write(PORTA, 4,0x48) ; //' copy scratchpad ($48)
// début programme en boucle de lecture
// et d'affichage de la température
//temperature:
debut:
ow_reset(PORTA, 4) ; // ' onewire reset
ow_write(PORTA, 4, 0xCC) ; // ' command to DS1820
ow_write(PORTA, 4, 0x44) ; // ' demande convertissage température ($44)
//'// attente fin conversion
// 'while ow_read(PORTA, 4)= 0
// ' i = 0
// 'wend
delay_us(100) ;
ow_reset(PORTA, 4) ; // ' onewire reset
ow_write(PORTA, 4, 0xCC) ; // ' command to DS1820
ow_write(PORTA, 4, 0xBE) ; // demande lecture température ($BE)
portb = ow_read(PORTA, 4) ; // ' lit 1 er octet du scratchpad
portc = ow_read(PORTA, 4) ; // ' lit 2 éme octet du scratchpad
goto debut
}