2 Stk DHT 22 am Atmega?

[Holger Z. (boomboommagic)]

Ich möchte gern 2 Stk DHT22 am Atmega8 mit Bascom auslesen .
Leider habe ich vom DHTxx überhaupt keine Ahnung bzw. bekomme das 
Auslesen selber nicht hin.

Ich habe diverse Beispiel Codes für einen DTH22 gefunden , schaffe es 
aber nicht den Code für 2 Stk zu erweitern.

Brauche auch bitte keine guten Ratschläge.
Wenn da jemand etwas parat hat bin sehr dankbar.

[Achim M. (minifloat)]

Holger Z. schrieb:
> schaffe es aber nicht den Code für 2 Stk zu erweitern.

Wo hängt es denn?
Welche Codeschnipsel hast du als Vorlage?

Holger Z. schrieb:
> Leider habe ich vom DHTxx überhaupt keine Ahnung

Datenblatt lesen hilft ;)

mfg mf

[Holger Z. (boomboommagic)]

Ich habe folgendes :

'######################## 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

[erklehr behr (Gast)]

Holger Z. schrieb:
> Ich habe folgendes :

Was ist an den Hinweisen nicht zu verstehen?

----------------------------------------------
Wichtige Regeln - erst lesen, dann posten!
...................
   Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang
----------------------------------------------

[Holger Z. (boomboommagic)]

Ich weiss net , nen AKW oder Space Shuttle programmieren is nen Witz für 
mich , aber diesen Codes erweitern wohl zu viel  :-(

[Falk B. (falk)]

Holger Z. schrieb:
> Ich weiss net , nen AKW oder Space Shuttle programmieren is nen Witz für
> mich , aber diesen Codes erweitern wohl zu viel  :-(

Tja, Gen Z, zu allem fähig, zu nichts zu gebrauchen ;-)

Mensch Meier, wenn man wenigstens die einfachsten Grundlagen beherrscht, 
sollt man erkennen, daß eine Funktion namens Read_sensor gibt. Die macht 
den Job. Wenn man einen 2. Sensor lesen will, kopiert man die Funktion 
und ändert das zugehörige Pin. Ist für BASCOM das Einfachste.

[Falk B. (falk)]

Siehe Anhang. Das Pin musst du noch an deine hardware anpassen, siehe 
Kommentar im Quelltext von read_senbsor2.

[Holger Z. (boomboommagic)]

Sehr herzlichen Dank für Deine Mühe .
So ähnlich habe ich auch angefangen.
Ich hatte da wohl nen Brett vorm Kopf ... ? ...

Jetzt muss ich nur noch mal schaun was mit den DHT los is , bekomme nur 
NULLEN als Anzeige

[Falk B. (falk)]

Holger Z. schrieb:
> Jetzt muss ich nur noch mal schaun was mit den DHT los is , bekomme nur
> NULLEN als Anzeige

Da fehlt wohl ein externer Pull-Up Widerstand.

[Holger Z. (boomboommagic)]

Das ist höchst interessant.

Ich habe 1x einen uralten DHT22 , der schon einen Hau weg hat und nur 
noch sinnige Temperaturen anzeigt , aber Feuchte nur noch 99,9% :-)
Ohne Pull up !

Läuft !

Dann einen nagel neuen , mit 10k Pull up - zeigt nur 0,0 in allen Farben 
?!?

Auf nem Arduino allerdings , so wie er ist , perfekt !
Aber ich will absolut nicht auf Arduino gehen , war ja nur nen Spaß zum 
testen.