Serial Comms and Crystals

[Tabsoft]

Richard,

I don't think #hum/100 will give the correct result.
Since I. This example hum=8704 ($2200), 8704/100=87 ($57).

The correct result should be 34 ($22).
He just needs to use dht[4]
Or
To use a division calculation with hum it should be #hum/256.
This will right shift 8704 ($2200) 8 bits resulting in 34 ($22).

[Scampy]

Richard,

I don't think #hum/100 will give the correct result.
Since I. This example hum=8704 ($2200), 8704/100=87 ($57).

The correct result should be 34 ($22).
He just needs to use dht[4]
Or
To use a division calculation with hum it should be #hum/256.
This will right shift 8704 ($2200) 8 bits resulting in 34 ($22).

Dividing hum by 256 gives a reading of 35 on the LCD. The values for dht(1) to (5) are 39 00 16 00 23

I'm still not satisfied the sensor is working right, and this is the second one I've tried

[richard]

brain fade due to lack of coffee divide 256 is of course correct

attached the blue is a dht11 the red a dht22 in the same room

[Tabsoft]

As Richard has stated, the DHT11 doesn't seem to be too accurate in his experience.

As far as your readings go 39 00 16 23

This is 35% RH and 22c Temp.

Just use dht[4] for RH and dht[2] for Temp.

[Scampy]

Thanks guys - I'll look at getting a DH22 as I need something more precise given that this will be monitoring the humidity in my snakes enclosure.

[Tabsoft]

Hi Richard,

I was wondering if you could help me understand your use of Timer2 in this project during the read loop for the 40 bits from the DHT11.

In this section of code.....
" t2con=6
while ( dht_data)
wend
t2con=0
if ((tmr2>12)&&(tmr2<50)) then ' noise ?
if (tmr2 >31 ) then
dht.0[bits] = 1
endif
else
goto badread ' noise ?
endif"

I see that Timer2 is turned on with the Prescaler set to 16.
Then after the data line drops to 0, Timer2 is stopped.

Then the TMR2 register is tested for its count value.
If the count is less than 12 or greater than 50, then it's a bad read.
Otherwise if the count is greater than 31 and less than 50 the bit is a 1.
Is this correct?

If the Fosc is 40Mhz and Timer2 counts at Fosc/4 and the Timer2 Prescaler is 16.
Then
Would the test "((tmr2>12)&&(tmr2<50))" equate to
If count is greater than 19.2us and less than 80us?

And then would the test "(tmr2 >31 )" equate to
If count is greater than 49.6us?

Which I think the test logic would translate to...
If the count is less than 19.2us or greater than 80us then it's a bad read.
Otherwise if the count is greater than 49.6us and less than 80us the bit is a 1.

I think this is right, but please let me know if not.
Just trying to understand how it is implemented.

Thanks

[richard]

Which I think the test logic would translate to...
If the count is less than 19.2us or greater than 80us then it's a bad read.
Otherwise if the count is greater than 49.6us and less than 80us the bit is a 1.

that's it although a '0' is 26-28uS and a 1 is 70us according to the data sheet I have added some tolerance (this helps if interrupts are involved) if the count is outside this range then its not right and the process is abandoned , this test is not strictly necessary and could be omitted

the 1/0 test is basically centered in between the 1 and the 0 times ie 50 is halfway between 30 and 70 once again to add some tolerance . if less than halfway its a 0 otherwise a 1


there is some risk in this method in that hangs are possible if the dht responds in an unforseen manner . in my production version the tmrx int is enabled and if it is triggered then the process is also aborted to recover from such a sensor hang .

[Scampy]

Tabsoft / Richard,

I've incorporated the code below into my main program and whilst it runs fine, it does flash up a fair few "bad read" errors. Is there anything I could tweak to reduce these occurancies

read_dht:
 for bits=4 to 0 step-1 
 dht[bits]=0 
 next
 
 tmr2=0
 dht_dir=0
 dht_data=0
 pause 18 'start it up
 dht_data=1
 pauseus 30
 dht_dir=1
 pauseus 40 'wait till middle of response pulse window
 if ( dht_data)then goto badresponse 'no response then give up
 while (!dht_data)
 wend 
 t2con=6
 while ( dht_data) 
 wend 
 t2con=0
 if ((tmr2 <45)||(tmr2>55))then goto badpresence ' confirm presence ?
 for bits =39 to 0 step -1
 tmr2=0
 while (!dht_data) 
 wend 
 t2con=6
 while ( dht_data) 
 wend 
 t2con=0
 if ((tmr2>12)&&(tmr2<50)) then ' noise ?
 if (tmr2 >31 ) then
 dht.0[bits] = 1 

 endif 

 else
 goto badread ' noise ?
 endif
 next 
 crc=0 
 for bits=1 to 4 
 crc=crc+ dht[bits]
 next
 if crc != dht[0] then goto badcrc 'crc

 return

 badread:
 LCDOut $FE,$94 +8,"Bad read"
 pause 1000
 LCDOut $FE,$94 +8,"        "
 ' next
 return
 badcrc:
 for bits=4 to 0 step-1 
 LCDOut $FE,$94 +16,hex dht[bits],"," 
pause 1000
 next 
 return
badresponse:
 LCDOut $FE,$94+8,"No Response"
 return

badpresence:
 LCDOut $FE,$d4,"pr",#tmr2
 return