2 Stk DHT 22 am Atmega?

'######################## DHT-22 Humidity & Temperature Sensor####################

$regfile = "m8def.dat"

$crystal = 8000000

$baud = 9600

$hwstack = 64

$swstack = 64

$framesize = 64

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.2 , Rs = Portd.3

Config Lcd = 16 * 2

Cursor Off

Cls

'#####################################

Config Pinc.2 = Input

Config Timer0 = Timer , Prescale = 8

'#####################################

Const Min_time = 70                                         'this has to be changed according to your frequency settings in $crystal

Dim Count As Byte

dim timec as byte

dim x as byte

dim chksum as byte

Dim Humidityw As Word

Dim Temperaturew As word

dim tneg as byte 'indicate if temperature<0

Dim Humsens_chksum As Byte

Dim Humiditys As String * 16

Dim Temperatures As String * 16

Do

gosub Read_sensor 'takes 3 seconds

locate 1,1

lcd Format(humiditys , "0.0")

locate 2,1

lcd Format(temperatures , "0.0")

Loop

End

Read_sensor:

 Humidityw = 0

 Temperaturew = 0

 Humsens_chksum = 0

 Wait 3

 Count = 1

Config Pinc.2 = Output : Portc.2 = 0                     ' request data

Waitms 20                                                ' wait 20 ms

Config Pinc.2 = Input                                    ' wait for data, receive data

   While Count < 43                                         'collect 42 timings / signals

      Bitwait Pinc.2 , Set                                  'signal goes high > start timer

      Start Timer0

      Bitwait Pinc.2 , Reset                                'signal goes low  > stop timer

      Stop Timer0

      timec=tcnt0

      Tcnt0 = 0

      Select Case Count

         Case 3 To 18

            X = 18 - Count

            If timec > Min_time Then Toggle Humidityw.x

         Case 19 To 34

            X = 34 - Count

            If timec > Min_time Then Toggle Temperaturew.x

         Case 34 To 42

            X = 42 - Count

            If timec > Min_time Then Toggle Humsens_chksum.x

            'locate 1,1

            'lcd bin(humidityw);" "; bin(Temperaturew)

      End Select

      Incr Count

  Wend

'############################################################# Calculate Checksum and compare with trasnmitted value

Chksum = Low(humidityw) + High(humidityw)

Chksum = Chksum + Low(temperaturew)

Chksum = Chksum + High(temperaturew)

If chksum=Humsens_chksum Then

temperatures=""

   if temperaturew.15=1 then

    temperaturew.15=0

    temperatures="-"

   endif

   Humiditys = Str(humidityw)

   Temperatures = Temperatures+ Str(temperaturew)

end if

return