L
leemarrow
Guest
Salut,
j'ai besoin de lire avec une tension négative sur 16F876 PORT RA1 connecté à un LM35CZ (fourniture 5 V et-5V).
i picbasic ont utilisé, mais il ne veulent pas lire valeur négative:
Préciser ADC_BITS 10 'Set nombre de bits dans le résultat
Préciser ADC_CLOCK 3 'Réglage de l'horloge source (3 = rc)
Préciser ADC_SAMPLEUS 50 'Set temps d'échantillonnage en nousadval var mot «Créer adval pour stocker résultat
TRISA =% 11111111 'Set PORTA à toutes les entrées
ADCON1 =% 10000010 'Set PORTA analogique droit et justifier résultat
Pause 500 'attendre ,5 seconde
Lcdout $ fe, 1 'Effacer l'écran
loop:
ADCIN 1, adval 'Start Conversion sur RA1
faire une pause de 5
adval = (adval * 10) * / 1250 "quantification
lcdout $ fe, 2 'cursore une maison
lcdout $ fe, $ 80, "Int", DEC2 (adval/100 ),".", DEC1 (adval / / 100), $ DF, "C"
"Afficher la valeur décimale sur la ligne 1
Pause 200 'Wait ,1 seconde
Goto loop 'Do it forever
Fin
j'ai besoin de lire avec une tension négative sur 16F876 PORT RA1 connecté à un LM35CZ (fourniture 5 V et-5V).
i picbasic ont utilisé, mais il ne veulent pas lire valeur négative:
Préciser ADC_BITS 10 'Set nombre de bits dans le résultat
Préciser ADC_CLOCK 3 'Réglage de l'horloge source (3 = rc)
Préciser ADC_SAMPLEUS 50 'Set temps d'échantillonnage en nousadval var mot «Créer adval pour stocker résultat
TRISA =% 11111111 'Set PORTA à toutes les entrées
ADCON1 =% 10000010 'Set PORTA analogique droit et justifier résultat
Pause 500 'attendre ,5 seconde
Lcdout $ fe, 1 'Effacer l'écran
loop:
ADCIN 1, adval 'Start Conversion sur RA1
faire une pause de 5
adval = (adval * 10) * / 1250 "quantification
lcdout $ fe, 2 'cursore une maison
lcdout $ fe, $ 80, "Int", DEC2 (adval/100 ),".", DEC1 (adval / / 100), $ DF, "C"
"Afficher la valeur décimale sur la ligne 1
Pause 200 'Wait ,1 seconde
Goto loop 'Do it forever
Fin