MESURE ET RÉGULATION D'HUMIDITÉ ET DE TEMPÉRATURE

DHT22 ou DHT11 ET PICAXE 20X2

Retrouvez cette page

et toutes les mises à jour

sur

http://electromag1.wifeo.com/

Les DHT22 sont les grands frères des DHT11. Ils utilisent le même protocole one wire. Les signaux doivent être traités de la même façon pour être lu par un picaxe 20X2.

La même carte peut donc servir pour les deux composants.

Toutefois, il faut différencier le traitement logiciel des données:

Ces composants codent l'humidité sur deux octets un premier pour la "partie entière" et un second pour la "partie décimale" idem pour la température soient quatre octets, un cinquième octet "check sum" est la somme des quatre octets précédents.

Le DHT11, avec des résolutions en température de 1°C et de 1% en humidité relative, n'utilise que les parties entières (octets 1 et 3), les parties décimales (octets 2 et 4) sont toujours à 0.

Le DHT22 code différemment, les deux octets de chaque variable forment un mot de 16 bit donnant la valeur de la variable en dixièmes.

Pour la température, premier bit de la séquence à 1 indique une valeur négative.

Ex: 00000001 01100100 = 356 soit 35,6 °C

10000001 01100100 = - 35,6 °C

Voir cette page pour complément d'information.

Il y a donc le choix entre:

le DHT11 que l'on trouve à environ 2 euros, limité aux températures positives et à faible résolution.

Et le DHT22, un peu plus cher, plus précis, plus universel.

Il demande un logiciel traitant les valeurs négatives pour les affichages et pour le traitement de la régulation.

Le schéma est le même pour DHT11 ou DHT22

(Cliquez sur le dessin pour agrandir)


trop froid est allumé	consignes HR et T° au maximum trop froid et trop sec sont allumés

consignes HR et T° au minimum trop chaud et trop humide sont allumés	Là, y a une >>ERREUR<< Pourquoi?

La plage de consigne va de -30,0 à +72,3, c'est large.

Cette plage peut être réduite en fonction des besoins pour un réglage plus confortable.

Voici aussi un typon, tout est sur le circuit.

Ouvrir le fichier .tci avec le logiciel TCI 4.3

Le programme: maj 08/11/2011

Le fichier .bas est dans le .zip tétéchargeable ICI

' ' DHT22 et picaxe 20X2 AVEC check sum
' MM 26/10/2011
'****************************************************************
'MESURE ET RÉGULATION D'HUMIDITÉ ET DE TEMPÉRATURE
'MESURE HUMIDIÉ DE 0 à 100% - TEMPÉRATURE DE -40 à 80 °C

'RÉGLAGE DES CONSIGNES PAR POTENTIOMÈTRES
'HUMIDITÉ DE 0 à 99% - TEMPÉRATURE DE -30 à 72,3 °C

'AFFICHAGE DE CES VALEURS SUR LCD 2x16 (HD44780 - 1602)
'****************************************************************

#picaxe 20X2 'directive modèle picaxe

setfreq m32  'fréquence horloge

dirsB=%111111 'défini les I/O ports B

'*****Données d'initialisation de l'afficheur Type HD44780 ***********
'*****Pour l'affichage, on utilise les ports BO à B5 du 20X2********

SYMBOL RS        = B.0         ; 0 = Command   1 = Data
SYMBOL E         = B.1         ; 0 = Idle      1 = Active
SYMBOL DB4       = B.2         ; LCD Data Line 4
SYMBOL DB5       = B.3         ; LCD Data Line 5
SYMBOL DB6       = B.4         ; LCD Data Line 6
SYMBOL DB7       = B.5         ; LCD Data Line 7
SYMBOL RSCMDmask = %00000000 ; Select Command register
SYMBOL RSDATmask = %00000001 ; Select Data register
SYMBOL cpt       = b1
SYMBOL car  = b2
SYMBOL rsbit     = b3

'Nibble commands - To initialise 4-bit mode

DATA 0,( $33 )    ; %0011---- %0011----   8-bit / 8-bit
DATA 1,( $32 )    ; %0011---- %0010----   8-bit / 4-bit

'Byte commands - To configure the LCD

DATA 2,( %00101000 )    ; %001LNF00   Display Format
DATA 3,( %00001100 )    ; %00001DCB   Display On
DATA 4,( %00000110 )    ; %000001IS   Cursor Move
‘                       ; L : 0 = 4-bit Mode    1 = 8-bit Mode
‘                       ; N : 0 = 1 Line        1 = 2 Lines
‘                       ; F : 0 = 5x7 Pixels    1 = N/A
‘                       ; D : 0 = Display Off   1 = Display On
‘                       ; C : 0 = Cursor Off    1 = Cursor On
‘                       ; B : 0 = Cursor Steady 1 = Cursor Flash
‘                       ; I : 0 = Dec Cursor    1 = Inc Cursor
‘                      ; S : 0 = Cursor Move   1 = Display Shift
DATA 5,( $01 )    ; Clear Screen

'********Envoi de ces données au LCD *********************

PowerOnReset:
for cpt = 0 TO 5
  read cpt,car
  gosub SendInitCmdByte
next

'********** DEBUT PROGRAMME PERSO ************

'Texte sur l'afficheurs
DATA 10,("HR%=")
DATA 16,(" C:")
DATA 22,("Tß=") 'ß=Alt+0223 donne "°" sur afficheur
DATA 28,(" >>ERREUR<<")

' Nomination des variables et ports

symbol DHT=C.6 'lecture DHT22
Symbol STT=C.0 'impulsion start DHT22

symbol HRE=b10 'HR partie entière
symbol HRD=b11 'HR partie décimale
symbol TPE=b12 'Temp partie entière
symbol TPD=b13 'Temp partie décimale
symbol NEGT=b14 'Temp négative (bitpoids fort=1)
symbol NEGCT=b15 'Temp consigne négative
symbol bit_num=b16 'n° lecture bit DHT22
symbol diz=b17 'dizaine affichage
symbol unit=b18 'unité affichage
symbol deci=b19 'décimale affichage
symbol CHK=b20 'octet check sum
symbol total=b21 'total 4 premiers octets
symbol cor=b22 'correction calibration

symbol limit=w18
symbol TPC=w19 'Consigne TP (0 à 1023)
symbol CHR=w20 'Consigne humidité de 0 à 1000
symbol CTP=w21 'Affichage consigne (300 négatif à 723 positif)
symbol HR=w22 'total HR DHT22
symbol TP=w23 'total TP DHT22
symbol val=w24 'val ascii affichée

'*******************************************

debut:
gosub dht22
gosub calib
gosub consigne
gosub lcd
gosub regul
wait 5
goto debut

'************************************************************

dht22:
setfreq m64

ptr=0 'scrachpad 20X2

high STT

pulsout STT,32000 'Signal start \_/ >18ms


  '64MHz 0.625us unit ->20ms ->32000

pulsin DHT,0,@ptrinc 'réponse DHT \_/ 80µs puis /¨\ 80µs
     'En fait, on attend le 1er bit de donnée

'****** Enregistrement des 40 bits data dans le scratchpad ***
'*******HR 1à 8 + 9 à 16   T° 17 à 24 + 25 à 32 CHK 33 à 40

pulsin DHT,0,@ptrinc 'HR 1
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc 'HR 8

pulsin DHT,0,@ptrinc 'HR 9
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc 'fin HR 16

pulsin DHT,0,@ptrinc 'T 17
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc 'T 24

pulsin DHT,0,@ptrinc 'T 25
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc 'fin T 32

pulsin DHT,0,@ptrinc 'check 33
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc
pulsin DHT,0,@ptrinc 'fin check 40

'****** Restitution des 5 octets HRE, HRD, PTE, TPD et CHK *******


HRE=0     'octet "entier" HR
for ptr = 1 to 8          'lecture bit 1 à 8
  bit_num = 8 - ptr      'position bit dans octet
  if @ptr > 60 then
   setbit HRE,bit_num   'bit long=1
  endif
next

HRD=0     'octet "décimal" HR
for ptr = 9 to 16          'lecture bit 1 à 8
  bit_num = 16 - ptr      'position bit dans octet
  if @ptr > 60 then
   setbit HRD,bit_num   'bit long=1
  endif
next

TPE=0     'octet "entier" Température
for ptr=17 to 24   '3ème octet
  bit_num = 24 - ptr 'lecture bit 1 à 16
  if @ptr > 60 then            '
   setbit TPE,bit_num
  endif
next
NEGT=TPE/128  'mémo bit n°1 "0"=T positive "1"=T négative

TPD=0     'octet "décimal" Température
for ptr=25 to 32   '4ème octet
  bit_num = 32 - ptr 'lecture bit 1 à 16
  if @ptr > 60 then
   setbit TPD,bit_num
  endif
next

CHK=0
for ptr= 33 to 40
  bit_num = 40 - ptr          'Bit# 7 - 0 for Check sum
  if @ptr > 60 then            'set bit(x) to 1
   setbit CHK,bit_num
  endif
next

'****Vérification du checksum ***********
total=HRE+HRD+TPE+TPD
if CHK <> total OR total=0 then erreur
low A.0 'pas d'alarme

'****Reconstitution des valeurs humidité et température
HR=HRE*256+HRD 'reconstitution valeur totale
if NEGT=1 then :clearbit TPE,7:endif 'suppression du 1er bit nuisible
TP=TPE*256+TPD 'reconstitution valeur totale
return

'*** Correction d'erreur de calibration si nécessaire ********
Calib:
'*******température***********

If NEGT=0 then
  TP=TP+400
  else
  TP=400-TP
endif
TP=TP-12 'correction de température: -1,2°C (ajustez suivant sonde)
If TP>=400 then
  TP=TP-400
  else
  TP=400-TP
  NEGT=1
endif

'*********hygromérie*****************

HR=HR-100     'correction hygrométrie: - 10% (ajustez suivant sonde)
if HR>2000 then :HR=0:endif
return

'**Lecture des consignes*********************
consigne:
readadc10 C.1,TPC 'nombre de 0 à 1023

CTP=TPC-300
'les valeurs en dessous de 300 sont "négatives"
' et prennent les valeurs de 724 à 1023
' la plage de consigne va de -30,0 à +72,3 °C

if CTP>723 then
    NEGCT=1 'c'est un nombre négatif
    CTP=-CTP 'valeur d'affichage
   else
    NEGCT=0 'nombre positif
end if

readadc C.7,CHR  'lecture consigne humidité
CHR=99*CHR/255*10
return

'****** Ecriture sur l'afficheur LCD ******
lcd:

setfreq m32  'retour 32MHz pour affichage

gosub ligne1

val=HR
gosub decoupe
gosub ecrit
for cpt=16 to 18
  read cpt,car
  gosub SendDataByte
next

val=CHR
gosub decoupe
gosub ecrit

gosub ligne2
if NEGT=1 then
  car="-"
  else car=" "
endif
gosub SendDataByte

val=TP
gosub decoupe
gosub ecrit
  for cpt=16 to 18
  read cpt,car
  gosub SendDataByte
next

if NEGCT=1 then
  car="-"
  else car=" "
endif
gosub SendDataByte

val=CTP
gosub decoupe
gosub ecrit
return

'************* Plages de régulation: *****************
'**************Humidité : + ou - 2 % ***************
'**************Température + ou - 1 °C ***************
regul:

limit=CHR+20
if HR>limit then: high C.2:else low C.2:end if 'trop humide
limit=CHR-20 :if limit>2000 then: limit=0:endif'suppression des valeurs <0
if HR<limit then: high C.3:else low C.3:end if 'trop sec


if NEGT=1 then 'mise à l'échelle des temp lues DHT22
  TP=300-TP 'en fonction de la consignes (0 à 1023)
  else  'pour temp négatives
  TP=300+TP 'et positives
endif

limit=TPC+10
if TP>limit then: high C.4:else low C.4:end if 'trop chaud
limit=TPC-10 :if limit>2000 then: limit=0:endif'suppression des valeurs <0
if TP<limit then: high C.5:else low C.5:end if 'trop froid

return

'***************************************************

ligne1: 'position du curceur ligne 1 et écriture du label

car= $80 | $00 'curseur début ligne1
gosub SendCmdByte

for cpt = 10 to 13 'lecture texte ligne1
read cpt,car
gosub SendDataByte
next

return
'************************************************

ligne2: 'position du curceur ligne 2 et écriture du label

car= $80 | $40 'curseur début ligne2
gosub SendCmdByte

for cpt =22 TO 24 'lecture texte ligne2
  read cpt,car
  gosub SendDataByte
next
return
'************************************************
decoupe: 'decoupage du nombre en caractères et conversion ascii (+48)

diz=val/100+48
deci=val//10+48
val=val//100
unit=val/10+48

return
'******************************************

ecrit:  'on écrit de gauche à droite

car=Diz  'affichage dizaines
gosub SendDataByte
car=Unit  'affichage unités
gosub SendDataByte
car=","
gosub SendDataByte
car=deci
gosub SendDataByte
return

'******************************************************

efface:
read 5,car 'effacement écran
gosub SendInitCmdByte
return

'************** Gestion erreur **************
erreur:

high A.0  'alarme ON
gosub efface

  car= $80 | $00 'curseur début ligne1
gosub SendCmdByte

for cpt = 28 TO 39 'lecture texte >>ERREUR<<
  read cpt,car
  gosub SendDataByte
next
LOW C.2:LOW C.3:LOW C.4:LOW C.5: LOW B.7
wait 5
goto debut
'****************** FIN PROGRAMME PERSO **************

'Sous programmes d'écriture sur le LCD

SendInitCmdByte:

PAUSE 60                        ; Delay

SendCmdByte:

rsbit = RSCMDmask               ; Send to Command register

SendDataByte:

pinsB = car & $F0 / 4 | rsbit   ; Put MSB out first
  PULSOUT E,1                     ; Give a pulse on E

pinsB = car & $0F * 4 | rsbit   ; Put LSB out second
PULSOUT E,1                     ; Give a pulse on E

rsbit = RSDATmask               ; Send to Data register next

RETURN

Partager cette page

Repost0

Retour à l'accueil