Problem mit DCF77 und I2c

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    Aufgrund technischer Veränderungen ist der Mailverkehr innerhalb des Forums (Private Nachrichten) nur noch eingeschränkt möglich. Die Einschränkung ist notwendig, um zusätzliche Betriebskosten für das Forum zu vermeiden. Näheres zu den Hintergründen im Thread "Aktuelles zum Forum".Wir bitten um Verständnis.

    Hinweis kann nach Kenntnisnahme deaktiviert werden!

    • Problem mit DCF77 und I2c

      Hallo Zusammen,

      aktuell habe ich ein Problem mit DCF 77 , I2C und einer 7 Segment Anzeige.

      Im Einzelnen: ich steuere 2 7 Segment Displays an, die jeweils durch einen PCF 8574N getrieben werden. Die PCF werden über I2C angesteuert. Daserste 7 Segm. ist für die Einer-Stelle zuständig, das zweite für die Zehner-Stelle.

      Das Programm läuft auf einem Tiny 85. Es wird eine DCF77 Uhr ausgewertet mit der entsprechenden Bascom Routine. Dabei wird die Sekunde in Einer und Zehner zerlegt und dann per I2C übertragen. Die Rechenmethode habe ich zuvor mit einem Tiny 2313 erprobt und funktioniert. Da der 2313 aber nicht genügend Speicherkapa hat für LCD Display Anzeige und 7 Segment, bin ich dann auf Tiny 85 umgestiegen. (Einen Tiny 4313 habe ich aktuell nicht vorrätig)

      Das Problem ist folgendes : Die Sekundenanzeige läuft viel zu schnell. Sie durchläuft in ca. 5 sec (geschätzt) den Bereich von 0 bis 60, d.h. es läuft ca. Faktor 12 zu schnell. Gleiches geschieht übrigens auch, wenn ich einen Tiny 45 verwende.

      Wenn ich aber den DCF77 Eingang als Tastereingang verwende, und den Befehl Debounce etc. anwende wird sauber rauf gezählt. ( Der ganze DCF77 Teil ist dann natürlich inaktiv gesetzt)

      Kann bitte mal jemand über mein Programm schauen, und mir ggf. sagen/ zeigen wo mein Fehler liegt. Mein aktuelles Programm habe ich unten angehängt.

      Vielen Dank für Eure Mühe.

      Gruss

      Theo

      Quellcode

      1. $regfile = "Attiny85.dat"
      2. $crystal = 8000000 ''8 Mhz int. Generator
      3. $swstack = 40
      4. $hwstack = 20
      5. $framesize = 8
      8. '######### Eingänge definieren
      11. Declare Sub Sekunde_stellen()
      14. 'Array für Segmente einreichten
      16. 'Daten müssen in der Reihenfolge : =&B P7 P6 P5 P4...... im Array stehen
      17. '0= Segment an ; 1= Segment aus
      18. 'Die Reihenfolge der Bits ist angepasst an das Layout der Platine
      20. Dim Array_D(12) as Byte
      21. Array_D(1)= &B00101000 'ist 0
      22. Array_D(2)= &B10101111 'ist 1
      23. Array_D(3)= &B01001010 'ist 2
      24. Array_D(4)= &B00001110 'ist 3
      25. Array_D(5)= &B10001101 'ist 4
      26. Array_D(6)= &B00011100 'ist 5
      27. Array_D(7)= &B00011001 'ist 6
      28. Array_D(8)= &B10101110 'ist 7
      29. Array_D(9)= &B00001000 'ist 8
      30. Array_D(10)= &B10001100 'ist 9
      31. Array_D(11)= &B11111111 'alle Segmente aus incl. DP
      32. Array_D(12)= &B00000000 'alle Segmente an incl DP --> lamp test
      34. 'Adressen der einzelnen PCF 8574 in Array setzen
      35. Dim Array_Adr (2) as Byte
      36. Array_Adr(1)= &B01000000 'Adresse Sekunden Einer
      37. Array_Adr(2) =&B01000010 'Adresse Sekunden Zehner
      40. 'I2C einrichten
      41. Config SCL=Portb.2
      42. Config SDA=Portb.0
      43. 'Const AdrSec_E= &B01000000'Adresse Sekunden Einer
      44. 'Const AdrSec_Z= &B01000010 'Adresse Sekunden Zehner
      47. '############################## LCD komplett inaktiv setzen #################
      48. '######### LCD definieren
      49. 'Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.4 , Db6 = Portd.3 , Db7 = Portd.2 , E = Porta.0 , Rs = Porta.1
      50. 'Config Lcd = 16 * 2
      51. 'Cls
      52. 'Cursor = 0ff
      53. 'Wait 1
      54. 'Cursor=off
      55. '#################################################################################
      59. '### DCF 77 konfigurieren '#######
      60. Config Dcf77 = Pinb.3 , Inverted = 1 , Timer = 1 , Update = 0 , Debug = 0 , Check = 1 , Gosub = Sectic
      61. Config Date = Dmy , Separator = .
      62. Enable Interrupts
      63. Portb.3 = 1 'Eingang für DCF77 Signal; Pullup einschalten
      66. Dim Sync_Uhr as Byte
      68. Dim Neue_sekunde As Byte
      70. Dim Sek as Byte 'Wert der aktuellen Sekunde
      71. Dim Sek_E as Byte 'Sekunde Einer
      72. Dim Sek_Z as Byte ' Sekunde Zehner
      73. Dim Sek_alt as Byte
      74. Sek_E=0
      75. Sek_Z =0
      76. Sek=0
      77. Sek_alt=0
      80. Do
      81. 'Signal_kontroll_led = Dcf_status.0
      82. Sync_Uhr=Dcf_status.7 '=0 wenn nicht synchronisiert; =1 wenn synchronisiert
      83. If Neue_sekunde = 1 Then
      84. Neue_sekunde = 0
      85. If Dcf_status.7 = 0 Then'Uhr nicht synchronisiert
      86. 'Locate 1 , 1 ' LCD Inaktiv
      87. 'Lcd Time$ LCD inaktiv
      89. Elseif DCF_status.7 <> 0 then 'Uhr sychronisiert
      90. 'Locate 1 , 1'LCD inaktiv
      91. 'Lcd Time$'Lcd inaktiv
      92. End if
      94. End If
      96. Sek=_sec
      98. if Sek<> Sek_alt then
      99. Sekunde_stellen
      100. End if
      101. Loop
      103. End
      105. Sectic:
      106. Neue_sekunde = 1
      107. Return
      109. Sub Sekunde_stellen
      111. if Sek<10 then
      112. Sek_E =Sek
      113. Sek_Z=0
      114. elseif Sek>9 then
      115. sek_E= Sek Mod 10
      116. Sek_Z=Sek/10
      117. End if
      118. Sek_alt=Sek
      120. '####### inaktiv########
      122. 'Sekunden Einer und Zehner anzeigen
      123. 'Locate 2,1 LCD inaktiv
      124. 'Lcd "Zehn: "; Sek_Z ;" Ein: ";Sek_E LCD Inaktiv
      126. '############################
      128. 'hier Daten per I2C senden
      130. 'Sekunden Einer senden
      131. I2Cstart
      132. I2Cwbyte Array_Adr(1)
      133. I2Cwbyte Array_D(Sek_E+1)
      134. I2CStop
      135. 'Waitms 100
      136. 'Sekunden Zehner senden
      137. I2Cstart
      138. I2cwbyte Array_Adr(2)
      139. I2Cwbyte Array_D(Sek_Z+1)
      140. I2CStop
      143. End Sub
      Alles anzeigen

    • Theo schrieb:

      Config SCL=Portb.2
      Config SDA=Portb.0
      Mir fehlt hier danach das I2CInit. Sollte auf jeden Fall mit rein.

      Theo schrieb:

      Sek=_sec
      Warum nutzt du die interne Variable _sec nicht direkt? Warum der Umweg über eine weitere Variable?

      Probier mal das (leicht abgeändert):

      BASCOM-Quellcode

      1. $regfile = "Attiny85.dat"
      2. $crystal = 8000000 ''8 Mhz int. Generator
      3. $swstack = 40
      4. $hwstack = 20
      5. $framesize = 8
      6. '######### Eingänge definieren
      7. Declare Sub Sekunde_stellen()
      8. 'Array für Segmente einreichten
      9. 'Daten müssen in der Reihenfolge : =&B P7 P6 P5 P4...... im Array stehen
      10. '0= Segment an ; 1= Segment aus
      11. 'Die Reihenfolge der Bits ist angepasst an das Layout der Platine
      12. Dim Array_D(12) as Byte
      13. Array_D(1)= &B00101000 'ist 0
      14. Array_D(2)= &B10101111 'ist 1
      15. Array_D(3)= &B01001010 'ist 2
      16. Array_D(4)= &B00001110 'ist 3
      17. Array_D(5)= &B10001101 'ist 4
      18. Array_D(6)= &B00011100 'ist 5
      19. Array_D(7)= &B00011001 'ist 6
      20. Array_D(8)= &B10101110 'ist 7
      21. Array_D(9)= &B00001000 'ist 8
      22. Array_D(10)= &B10001100 'ist 9
      23. Array_D(11)= &B11111111 'alle Segmente aus incl. DP
      24. Array_D(12)= &B00000000 'alle Segmente an incl DP --> lamp test
      25. 'Adressen der einzelnen PCF 8574 in Array setzen
      26. Dim Array_Adr (2) as Byte
      27. Array_Adr(1)= &B01000000 'Adresse Sekunden Einer
      28. Array_Adr(2) =&B01000010 'Adresse Sekunden Zehner
      29. 'I2C einrichten
      30. Config SCL=Portb.2
      31. Config SDA=Portb.0
      32. I2cinit
      34. 'Const AdrSec_E= &B01000000'Adresse Sekunden Einer
      35. 'Const AdrSec_Z= &B01000010 'Adresse Sekunden Zehner
      36. '############################## LCD komplett inaktiv setzen #################
      37. '######### LCD definieren
      38. 'Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.4 , Db6 = Portd.3 , Db7 = Portd.2 , E = Porta.0 , Rs = Porta.1
      39. 'Config Lcd = 16 * 2
      40. 'Cls
      41. 'Cursor = 0ff
      42. 'Wait 1
      43. 'Cursor=off
      44. '#################################################################################
      45. '### DCF 77 konfigurieren '#######
      46. Config Dcf77 = Pinb.3 , Inverted = 1 , Timer = 1 , Update = 0 , Debug = 0 , Check = 1 , Gosub = Sectic
      47. Config Date = Dmy , Separator = .
      48. Enable Interrupts
      49. Portb.3 = 1 'Eingang für DCF77 Signal; Pullup einschalten
      50. Dim Sync_Uhr as Byte
      51. Dim Neue_sekunde As Byte
      52. Dim Sek_e As Byte 'Sekunde Einer
      53. Dim Sek_Z as Byte ' Sekunde Zehner
      54. Dim Sek_alt as Byte
      55. Sek_E=0
      56. Sek_z = 0
      57. Sek_alt = 0
      59. Do
      60. 'Signal_kontroll_led = Dcf_status.0
      61. 'Sync_Uhr=Dcf_status.7 '=0 wenn nicht synchronisiert; =1 wenn synchronisiert
      62. If Neue_sekunde = 1 Then
      63. Neue_sekunde = 0
      64. If Dcf_status.7 = 0 Then'Uhr nicht synchronisiert
      65. 'Locate 1 , 1 ' LCD Inaktiv
      66. 'Lcd Time$ LCD inaktiv
      67. Else 'Uhr sychronisiert
      68. 'Locate 1 , 1'LCD inaktiv
      69. 'Lcd Time$'Lcd inaktiv
      70. End if
      71. 'If _sec <> Sek_alt Then
      72. Call Anzeige
      73. 'End If
      74. End If
      75. Loop
      76. End
      78. Sectic:
      79. Neue_sekunde = 1
      80. Return
      82. Sub Anzeige
      84. If _sec < 10 Then
      85. Sek_e = _sec
      86. Sek_z = 0
      87. Else
      88. Sek_e = _sec Mod 10
      89. Sek_z = _sec / 10
      90. End if
      92. 'Sek_alt = _sec
      93. '####### inaktiv########
      94. 'Sekunden Einer und Zehner anzeigen
      95. 'Locate 2,1 LCD inaktiv
      96. 'Lcd "Zehn: "; Sek_Z ;" Ein: ";Sek_E LCD Inaktiv
      97. '############################
      98. 'hier Daten per I2C senden
      99. 'Sekunden Einer senden
      100. I2Cstart
      101. I2Cwbyte Array_Adr(1)
      102. I2Cwbyte Array_D(Sek_E+1)
      103. I2CStop
      104. 'Waitms 100
      105. 'Sekunden Zehner senden
      106. I2Cstart
      107. I2cwbyte Array_Adr(2)
      108. I2Cwbyte Array_D(Sek_Z+1)
      109. I2CStop
      110. End Sub
      Alles anzeigen
      Eine Lösung habe ich nicht, aber mir gefällt Ihr Problem.

    • Hallo Theo,
      der Tiny85 (genau wie der Tiny45) hat die Besonderheit, dass der Timer1 nur ein 8-bit Timer ist. Bei allen anderen hat er 16-bit Breite. Da Config DCF77 nur den Timer1 mag, gehe ich davon aus, dass der Compiler einen 16-bit Timer voraussetzt. Daher befürchte ich, dass Config DCF77 auf einem Tiny85 nicht funktioniert. Du wirst dir bei diesem Prozessor also eine eigene Routine machen müssen. Hier im Forum wurden auch schon einige vorgestellt. Ansonsten einen anderen Controller nehmen.

    • Wobei, wenn ich mir das recht überlege, sollte es mit seiner Datei und deinen Werten (allerdings eher OCR1A=194) tatsächlich funktionieren, solange der Compiler die 24999 nicht doch versucht irgendwie in Register unterzubringen. Compare1a ist ja nur 8-bit breit.
      Allerdings ist die Sekunde dann recht ungenau und wirkt sich über längere Zeit vielleicht aus. Kommt darauf an, wie Sectic aufgerufen wird.

    • Er scheint es nur beim Start ein zu tragen. Woanders wich die Zeit zwischen den Syschronisierungen zu weit ab. Da half es ein eigenen Wert zuzuweisen. (ich denke nur einmalig ? ) Falls das nicht reicht kanns auch in die Sectic eingetragen werden.
      Die geänderte dat sollte keine Register verdoppeln? Die vom Tiny45 jedoch auch Fehler melden?
      Es muß (und Z.65) TCCR1=139 heißen und noch eine Zeile mit Ocr1c = 195 (oder 194 s.Franz)
      sonst wird er zu langsam.
      Der Hw-Stack ist zu klein, min 40 ($hwstack = 40)

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von Pluto25 ()

    • Hallo Zusammen,
      vielen Dank für Eure Kommentare. @djmsc: natürlich muss das I2cinit dahin, bewirkt aber keine Besserung. Das Problem ist nach wie vor da. Ich schliesse mich der Meinung von Franz an, man braucht einen Timer1 mit 16 Bit breite. Also, alles umschreiben auf einen anderen uC. Das werd ich auch machen.
      Ich Danke Euch für Eure Kommentare.

      Gruss
      Theo