DS1822 auslesen klappt nicht mehr, Atmega8, BASCOM

[Christian J. (snakehanau)]

Hallo zusammen,

Ich bin seid ein paar Monaten dabei mich mit der Materie Microcontroler 
zu beschäftigen und habe da auch schon einiges gelernt...vorallem, dass 
es gar nicht sooo schwierig ist.

Meine gewählte Hardware ist ein MyAVR-MK2 Board + LCD und als sprache 
BASCOM

Im letter zeit habe ich mich mit dem Digitalem Temp-Sensor DS1822 
beschäftigt und dazu ne Kleinigkeit auf nem Steckboard aufgebaut.
Hat auch alles soweit wunderbar funktioniert. Aber auf einmal konnte der 
uC den Sensor nicht mehr auslesen.

Hab dann die Versorgungsspannung, Verbindungen, Lötstellen und so 
kontrolliert und sogar den DS1822 getauscht....leider ohne erfolg.
Hab auch schon den uC getauscht...ohne erfolg.

beim rumprobieren kam mir die Idee, das ich die Lese/Sende Impulse auf 
der Daten-Leitung eigentlich mit ner kleinen LED sichtbar machen könnte.
Hab das so gelöst wie in der angehängten Skize.

Wobei die "LED1" eine grüne Standard 3mm LED ist (ist die auf dem 
Experimentierbord)
Und jetzt das seltsamme, sobald ich den Schalter "S1" schließe kann der 
DS1822 ohne Probleme wieder ausgelesen werden !


Ich kann mir da absolut keinen reim drauf machen

Hat einer von euch da eine Idee ?

Danke

[Christian J. (snakehanau)]

Axo hier der BASCOM CODE:

$regfile "m8adef.dat"
$crystal = 1000000
$hwstack = 32
$swstack = 10


'--------- PWM-Definieren ------------------------------------------------------
'Config Timer2 = Pwm , Compare Pwm = Clear Up , Prescale = 1
'Config Portb.1 = Output                                     ' Port auf Ausgang setzen für LCD Beleuchtung
'Portb.1 = 0
'Ocr2 = 255

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

Deflcdchar 0 , 2 , 5 , 2 , 32 , 32 , 32 , 32 , 32           ' °C
Cursor Off Noblink


'--------- 1-Wire START ------------------------------------------------------
Config 1wire = Portc.5                                      'Eingang für 1-Wire Sensor DS18x20
Dim Dsid1(8) As Byte                                        '1. Sensor ID 64 bits (8Bytes) incl CRC als array


Dim Dsid1scratchpad(9) As Byte                              'Scratchpad 72 Bits (9 Bytes) incl CRC als array sind die Temperatur Daten
Dim Dsid2scratchpad(9) As Byte                              'Scratchpad 72 Bits (9 Bytes) incl CRC als array sind die Temperatur Daten
Dim Dsid3scratchpad(9) As Byte                              'Scratchpad 72 Bits (9 Bytes) incl CRC als array sind die Temperatur Daten

Dim Anzahlsensoren As Byte                                  ' Wie viele Sensoren wurden am Bus gefunden
Dim I As Byte                                               ' Variable für schleifen
Dim Dg As Integer                                           'Variable1 zur Temp. Berechnung DeziGrad
Dim Dg1 As Integer                                          'Variable2 zur Temp. Berechnung DeziGrad
Dim Dg2 As Single

Dim Index(3) As Byte                                        ' Variable für Tabelle welcher Sensortyp gefunden wurde

Dim Temp1 As String * 5

Dim Max1 As Byte

Dim Min1 As Byte

Dim Config1 As Byte

Declare Sub Ds18xauslesen                                   ' Temperatur auslesen
Declare Sub Temp_ds1822
Declare Sub Temp_ds1820


'--------- 1Wire 1. Sensor suchen ------------------------------------------------------
Cls

Anzahlsensoren = 1wirecount()                               ' Übergebe die Anzahl gefundene Sensoren in Variable


Cls

Dsid1(1) = 1wsearchfirst()                                  ' Suche den ersten Sensor und Speicher im array ab der ersten stelle die 8 Bytes der ID ab
If Err = 0 Then                                             ' wenn kein fehler (Sensor gefunden) aufgetreten dann
Locate 1 , 1
Lcd "ID1:"
For I = 1 To 8
Lcd Hex(dsid1(i))                                           ' gebe die 8 Bytes der Sensor ID auf dem LCD aus
Next I
Locate 2 , 1
Index(1) = Lookdown(dsid1(1) , Data2 , 3)                   ' suche nach dem ersten Byte aus dsid1 in Tabelle Data2 die aus 3 Daten besteht und speicher die Position in index(1)
Lcd Lookupstr(index(1) , Data1)                             ' Zeige Text aus Tabelle Data1 von Stelle index(1)
Wait 2
Locate 3 , 1
If Dsid1(8) = Crc8(dsid1(1) , 7) Then                       ' Überprüfe ob die Empfangene Checksumme = der Berechneten ist. wenn das 8 Byte aus dsid1(8) = crc berechnet dann mache weiter
Lcd "CRC OK Sensor ID1"
Else
Lcd "CRC BAD Sensor ID1"
End If
Wait 2
End If

Cls


Hauptschleife:

Cls

Do

Ds18xauslesen

If Anzahlsensoren = 0 Then Lcd " kein Sensor am Bus "


'--------- Sensor 1 ------------------------------------------------------

If Anzahlsensoren > 0 Then
1wverify Dsid1(1)                                           'Spreche den ersten Sensor an
Locate 1 , 1
For I = 1 To 8
Lcd Hex(dsid1(i))                                           ' gebe die 8 Bytes der Sensor ID auf dem LCD aus
Next I
 Locate 2 , 1
 If Err = 1 Then
 Lcd "Sensor nicht am Bus "                                 'Err = 1 dann stimmt etwas nicht
 Elseif Err = 0 Then
 If Dsid1(1) = 34 Or Dsid1(1) = 40 Then
 Gosub Temp_ds1822                                          ' wenn der Sensor ein DS1822 oder DS18B20 ist dann Berechnung Temp_ds1822
 Max1 = Dsid1scratchpad(3)                                  ' Sensor Interne Alarm Max Temperatur
 Min1 = Dsid1scratchpad(4)                                  ' Sensor Interne Alarm Min Temperatur
 Config1 = Dsid1scratchpad(5)                               ' Sensor Internes Configurationsregister  Bit 5 und 6 geben die Messauflösung der Temp. an.
 End If
 If Dsid1(1) = 16 Then
 Gosub Temp_ds1820                                          '  wenn Sensor ein DS1820 oder DS18S20 ist dann Berechnung Temp_ds1820
 Max1 = Dsid2scratchpad(3)
 Min1 = Dsid2scratchpad(4)
 Config1 = Dsid1scratchpad(5)
 End If
 Temp1 = Fusing(dg2 , "#.##")                               'Ergebnis in Temp1 als String ablegen und ab der zweiten kommastellen abschneiden
 Lcd Lookupstr(index(1) , Data1) ; ":" ; Temp1 ; Chr(0) ; "C"       ' Zeige Text aus Tabelle Data1 von Stelle index(1) Lcd "Sensor 1: " ; Temp1 ; Chr(0) ; "C   "
 End If
End If


Loop


Temp_ds1822:                                                ' Berechnung für DS1822 und DS18B20 incl negativer Temperatur
 1wwrite &HBE                                               ' Kommando READ SCRATCHPAD
 Dsid1scratchpad(1) = 1wread(9)                             ' lese 9 bytes in das Array  (byte9=checksumme)
 If Dsid1scratchpad(9) = Crc8(dsid1scratchpad(1) , 8) Then  ' überprüfe Checksumme (9 Byte) wenn OK dann
 Dg = Makeint(dsid1scratchpad(1) , Dsid1scratchpad(2))      ' erstes und 2 Byte (LSB+MSB) zusamm fügen &H0A + &H02 = &HA2 = 162
 Dg2 = Dg * 100                                             ' Ergebnis mit 10 multiplizieren für eine Nachkommastelle  zb. 162*10= 1620
 Dg2 = Dg / 16                                              ' Ergebnis durch 16 Teilen 1620/16=101.25
 End If

Return


Temp_ds1820:

 1wwrite &HBE                                               ' Kommando READ SCRATCHPAD
 Dsid2scratchpad(1) = 1wread(9)                             ' lese 9 bytes in das Array  (byte9=checksumme)
 If Dsid2scratchpad(9) = Crc8(dsid2scratchpad(1) , 8) Then  ' überprüfe Checksumme (9 Byte) wenn OK dann
 I = Dsid2scratchpad(1) And 1
 If I = 1 Then Decr Dsid2scratchpad(1)
 Dg = Makeint(dsid2scratchpad(1) , Dsid2scratchpad(2))      ' erstes und 2 Byte (LSB+MSB) zusamm fügen &H0A + &H02 = &HA2 = 162
 Dg = Dg * 50
 Dg = Dg - 25
 Dg1 = Dsid2scratchpad(8) - Dsid2scratchpad(7)
 Dg1 = Dg1 * 100
 Dg1 = Dg1 / Dsid2scratchpad(8)
 Dg = Dg + Dg1
 Dg2 = Dg / 100

 End If
Return



Ds18xauslesen:
                                                             ' Routine die für alle Sensoren ausgeführt werden muss um Temp. zu lesen
1wreset                                                     ' Bus reseten damit alle Sensoren hören
1wwrite &HCC                                                ' &HCC = alle Sensoren am Bus werden angesprochen   / &H55 einen bestimmten Baustein ansprechen mit 1wverify Dsid1-3(1) oder 1wwrite &H55 ' 055H = Match ROM command, also Baustein auswählen For I = 1 To 8 : 1wwrite Dsid(i) : Next I
1wwrite &H44                                                ' Sensoren veranlassen die Temperatur zu messen
Wait 1                                                  ' den Sensoren Zeit geben um Temperatur zu messen
Return


'Tabellen

Data1:
'         0        1             2             3
Data "     " , "DS1822 " , "DS18S20" , "DS18B20"

Data2:
'      1   2    3
Data 34 , 16 , 40