LM335+Pic

[alex934mas]

Bonjour je voudrais avoir un petit renseignement,je vousdrais a partir de mon pic evaluer la temperature et declencher un petit relais lorsque la temperature est atteinte.J'utilise pour sa mon petit picbasic 3B

Mais voila j'ai brancher comme sur mon shéma (désolé Paint oblige ) un lm335 sur mon pic,je le regle avec mon potentiometre pour mettre 25° (temperature affiché par mon thermometre,la,ma temperature reste plus ou moins fixe,mais des que je met mon doigt sur le capteur la temperature montre et apres pas moyen de retrouvé mes 25° que j'avais au depart,mon afficheur m'indique une temperature qui varie beaucoup trop,et comme je veut declencher un relais,je veut pas que sans arret il s'arette,repar...

Pouriez vous m'aider

THX
-----

[Gérard]

Bonjour,
Que la T° vaire quand tu mets le doigt est normal.
Pour l'afficheur, il faut donner des précisions, quel est son type, comment la valeur est envoyée par le PIC ?

Une idée : fait 4 acquisitions et calcule la moyenne.
Affiche cette moyenne toutes les secondes.

[alex934mas]

Bonjour,merci pour votre reponse
Mon programme:


DIM M as INTEGER , T as INTEGER
LCDINIT
DEB: M = ADIN ( 2 ) ' mesure des volts par LM335
T= ( 50 * M ) / 102 : T = T - 273 ' conversion en degrés
LOCATE 2, 1 : CSROFF
PRINT DEC ( T )
LOCATE 9, 1 : PRINT "degres" : DELAY 500
GOTO

Comment le rendre plus experimenté?

Merci

[alex934mas]

Personne?

[A voir en vidéo sur Futura]

[Gérard]

Bonjour,merci pour votre reponse
Mon programme:


DIM M as INTEGER , T as INTEGER
LCDINIT
DEB: M = ADIN ( 2 ) ' mesure des volts par LM335
T= ( 50 * M ) / 102 : T = T - 273 ' conversion en degrés
LOCATE 2, 1 : CSROFF
PRINT DEC ( T )
LOCATE 9, 1 : PRINT "degres" : DELAY 500
GOTO

Comment le rendre plus experimenté?

Merci

Bonjour,
INTEGER, c'est bien "entier" ? Sur combien de bit ?
Le CAN interne travaille sur 10 bit, INTEGER est-il compatible ?
Avec les calculs que tu fais, T sera un float.

Comment as-tu cablé le LM ?

Il manque quelque chose derrière GOTO.

[Gérard]

Personne?

Ben si, fallait patienter 1 min.

[alex934mas]

Mdr comme quoi,j'ai attendu une journée,et pile quand je post...^^

Si je vous repond INTEGER format d'une variable sur 2 octet (0 a 65 535) sa repond a votre question?
Qu'est ce que le CAN?
Et "T sera un float" tu veut dire qu'il variera tous le temps?

[Gérard]

Mdr comme quoi,j'ai attendu une journée,et pile quand je post...^^

Si je vous repond INTEGER format d'une variable sur 2 octet (0 a 65 535) sa repond a votre question?

Oui, 2 octet suffisent pour le résultat de la conversion sur 10 bit.

Qu'est ce que le CAN?

Convertisseur Analogique Numérique (ADC en anglais)
C'est un périphérique que beaucoup de µC intègrent à même la puce.

Et "T sera un float" tu veut dire qu'il variera tous le temps?

Non, ce sera une variable à virgule flottante (4 octet)
http://fr.wikipedia.org/wiki/Float

[alex934mas]

Hum okay,mais alors comment resoudre mon probleme?

[Gérard]

Hum okay,mais alors comment resoudre mon probleme?

Désolé, pour aujourd'hui je jette l'ancre.
La nuit nous portera conseil et demain nous trouverons une solution.

[alex934mas]

Mdrr pas de soucis ^^

[Gérard]

Bonjour,
Un exemple que j'ai écrit en Basic :

;*************************************************************
;		S/P MESURE DE LA TEMPERATURE
;*************************************************************
MES_TEMP:	
		
		For I = 0 To 3				;acquisition de 4 valeurs
			TabTemp [I]	= ADIn 0	;mesure LM335
			DelayMS		50
		Next
	 	
		SommeTemp	= 0			;init variable
		For I = 0 To 3
			SommeTemp = SommeTemp + TabTemp [I]
		Next
		
		Temp1		= SommeTemp / 4092	;/4 et /1023
		Temp1		= Temp1 * 258		;mise à l'échelle
		Temp1		= Temp1 - 25		;ajout talon

;acquisition de la 2ème T°
		
		For I = 0 To 3				;acquisition de 4 valeurs
			TabTemp [I]	= ADIn 1	;mesure LM335_2
			DelayMS		50
		Next
	 	
		SommeTemp	= 0			;init variable
		For I = 0 To 3
			SommeTemp = SommeTemp + TabTemp [I]
		Next
		
		Temp2		= SommeTemp / 4092	;/4 et /1023
		Temp2		= Temp2 * 258		;mise à l'échelle
		Temp2		= Temp2 - 25		;ajout talon
		
		Return

;*************************************************************
;		S/P AFFICHAGE TEMPERATURE
;*************************************************************
		
AFF_TEMP:	
	;	Cls
		
		Print At 1,1,"  Temp1 = ",DEC1 Temp1
		@ movlw 223
		@ F@CALL Print
		Print "C    "

		Print At 2,1,"  Temp2 = ",DEC1 Temp2
		@ movlw 223
		@ F@CALL Print
		Print "C    "
		DelayMS		1500
		
		Return

[alex934mas]

Okay merci je vais tester sa sinon je cable mon capteur de la meme facon?
Cf mon premier post

[Gérard]

Okay merci je vais tester sa sinon je cable mon capteur de la meme facon?
Cf mon premier post

Attention, il faut adapter à ton langage.
Pour le cablage : OK.