Bascom DS 1820 Temperatursensor Problem

[Basti (Gast)]

Hallo,

ich habe erstmal ein kleines Testprogramm geschrieben, um erstmal zu 
sehen ob die Temperatursensoren funktionieren. Und sie funktionieren 
Perfekt.

Hier mal der reine Do Loop Schleife Code

Do

         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

         Waitms 750

         1wverify Dsid1(1)                                  'Spreche den ersten Sensor an
      If Err = 1 Then
      Locate 10 , 33
      Lcd "Fehler"                                          'Err = 1 dann stimmt etwas nicht
      Elseif Err = 0 Then
      1wwrite &HBE                                          ' Kommando READ SCRATCHPAD
      Gosub Berechnung
      Temp1 = Fusing(dg2 , "#.#")                           'Ergebnis in Temp1 als String ablegen und ab der zweiten kommastellen abschneiden
      Locate 10 , 33
      Lcd Temp1 ; " C"                                      ' Zeige Text aus Tabelle Data1 von Stelle index(1)
      End If

         1wverify Dsid2(1)                                  'Spreche den ersten Sensor an
         If Err = 1 Then
         Locate 12 , 33
         Lcd "Fehler"                                       'Err = 1 dann stimmt etwas nicht
         Elseif Err = 0 Then
         1wwrite &HBE                                       ' Kommando READ SCRATCHPAD
         Gosub Berechnung
         Temp2 = Fusing(dg2 , "#.#")                        'Ergebnis in Temp1 als String ablegen und ab der zweiten kommastellen abschneiden
         Locate 12 , 33
         Lcd Temp2 ; " C"                                   ' Zeige Text aus Tabelle Data1 von Stelle index(1)
         End If

         Loop

         End

Berechnung:

 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
 Itmp = Dsid2scratchpad(1) And 1
 If Itmp = 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

Jetzt möchte ich das ganze aber in das eigentliche Programm einsetzen, 
wo aber viele andere Dinge zusätzlich gemacht werden. Unter anderem 
DCF77 auswertung, Helligkeitsauswertung, Tastenauswertung etc. Dann 
funktionieren die Sensoren scheinbar nur noch sporadisch. Also manchmal 
wird mir "Fehler" angezeigt, wie ich es einprogrammiert habe, wenn der 
Sensor nicht angeschlossen ist oder der Sensorwert Nr. 1 nimmt plötzlich 
den Sensorwert Nr.2 an. Ich kopier den ganzen oberen Code (der Solo 
absolut perfekt und stabil läuft) in die Do Loop schleife des anderen 
Programmes und dann läuft es schon nicht mehr richtig. Also so:

Do

Dcf77 Auswertung
Tasterauswertung

Temperaturauswertung
.
Helligkeitsauswertung
...

loop

Wieso funktioniert dann der Code nicht mehr. Ich kopier den 1:1 und auch 
die Initialisierungssequenz am Anfang des Programmes wird mit der 
Initialisierungssequenz vom "Soloprogramm" 1:1 ergänzt.

Stimmt da dann etwas mit dem Timing nicht mehr? Wobei das eigentlich 
nicht sein kann.

[Werner (Gast)]

Basti schrieb:
> Wieso funktioniert dann der Code nicht mehr.

Soll das eine Frage sein? Wie soll das hier jemand wissen, ohne den Code 
zu kennen.

> Stimmt da dann etwas mit dem Timing nicht mehr? Wobei das eigentlich
> nicht sein kann.

Schon möglich. Aber wenn es nicht sein kann, weil du es möglicherweise 
nachgemessen hast, muß es wohl an was anderem liegen.

[Basti (Gast)]

Ich habe doch den Code mit in den Post getan. Also den Solocode der 
Temperaturmessung.

Timingprobleme konnte ich dadurch ausschließen, dass ich jeglichen Quarz 
verwenden kann und auch im Programm hier und da mal ein Wait setzen 
kann, ohne dass das programm einen Fehler ausgibt.

Das Programm in welches ich den Code integrieren will funktioniert so 
ebenfalls Solo perfekt. Wenn ich den Temperaturcode einfüge dann 
funktionieren die anderen Funktionien ebenso weiter. Nur eben die 
Temperatur wird falsch ausgelesen. Also kann der Fehler 
höchstwahrscheinlich nur in dem Temperaturcodestückchen liegen, welches 
ich oben im Post integriert habe.

[Peter R. (peterfido)]

Der Fehler kann fast überall sein. DCF77 klingt für mich nach Interrupt. 
Evtl. treten noch weitere Interrupts auf. Wenn dann der Stack zu klein 
ist oder Variablen doppelt verwendet werden, oder falsch dimensioniert 
sind, dass eine Variable Teile einer anderen überschreibt zum Beispiel. 
Ohne kompletten Code kann ICH da nur spekulieren und nur eingeschränkt 
helfen.

Auch Hardwareursachen können verantwortlich sein. Z.B. lange Leitungen 
zum Display, welche die Leitungen vom 1Wire beeinflussen.

[Basti (Gast)]

Hm

also ich habe jetzt vor der Abfrage der Sensoren die Interrupts mit 
"Disable Interrupts" ausgeschaltet und nach der Abfrage wieder 
eingeschaltet.

Und woaa siehe da jetzt läuft es seit ein paar Minuten ohne einen 
Fehler.
Danke das war wohl der Fehler, dass interrupts die Kommunikation 
behindern.

Nur DCF77 will sich jetzt scheinbar nicht mehr Synchronisieren. Aber mal 
abwarten. Das ganze läuft ja erst 5 Minuten. Obwohl normalerweise bei 
mir sich DCF inerhalb 2 Minuten Synchronisiert hat.

[Basti (Gast)]

Schade da will sich ncihts mehr Synchronisieren.
Wenn ich die Interrupts für die abfrage ausschalte, dann störe ich damit 
die Kommunikation mit DCF77.

Jetzt ist die große frage: WIe kriege ich alles unter einen Hut?

[Peter R. (peterfido)]

Ich habe keine Probleme mit DCF und DS1820. Allerdings gehe ich anders 
vor.
Ich nutze eine Hilfsvariable. Waitms nutze ich gar nicht. Da DCF die 
Sectic mitbringt, schubse ich die Temperaturmessung an, wenn die 
Variable nicht gesetzt ist und setze dann die Variable. Ist sie gesetzt, 
hole ich die Temperaturen ab und lösche dann die Variable wieder.

Allerdings tippe ich eher auf Beeinflussung durch falsch dimensionierte 
Variablen oder zu kleinem Stack. Ohne Interrupts läuft DCF natürlich 
nicht. Er springt ja dann nicht mehr im richtigen Timing in die DCF 
Routine.

Pseudocode:

dim Vari1 as byte
Tempholen alias vari1.0
neuesekunde alias vari1.1

do
if neuesekunde=1 then
   reset neuesekunde
   gosub templesen
   'gosub zeitanzeigen...
endif


loop
end

sectic: 
set neuesekunde

return

templesen:
if Tempholen =1 then
   reset Tempholen 
   gosub templesen
else
   set Tempholen 
   gosub tempmessen
endif

return

Allerdings reicht es bei Raumtemperatur auch aus, minütlich zu messen.