Problem mit Alarm bei Selbstbau-Uhr

[peterfido]

Meine Methode ist da wesentlich anders. Ich stelle die RTC, wenn die Zeit per NTP gestellt wurde (In Deinem Fall per DCF-Signal empfangen und für gültig erklärt wurde) und laufe die restliche Zeit mit der internen Uhr von Bascom. Einmal die Stunde wird wieder aktualisiert. Für DCF: Wenn tagsüber schlechter Empfang herrscht (z.B. Schaltnetzteil in der Nähe), dann die RTC nachts nachstellen. Ist der DCF-Empfang tagsüber schlecht, dann die Zeit mal von der RTC holen.

Die RTC würde ich nie kontinuierlich auslesen. Die DS1307 würde dann sogar evtl. arg nachgehen. Zeitfunktionen kommen bei mir ins Sectic. Werden also maximal einmal pro Sekunde ausgeführt. In dem Sub Sectic werden auch Timer abgearbeitet.
Vereinfachtes Prinzip mal eben schnell aus dem Kopf:

Wenn Minutealt <> Minute dann ' So umgeht man, dass man die Sekunde 0 wegen evtl. Zeiteinstellung verpasst...
Minutealt=Minute
Wenn Weckeraktiv>0 dann Weckeraktiv = Weckeraktiv -1
Wenn Weckzeit=Uhrzeit, dann Variable für Weckeraktiv auf 60 Minuten stellen (habe ein Internetradio gebaut).
Ist Weckeraktiv>0 dann Radio einschalten, wenn es noch nicht an ist.
Ist Weckeraktiv=0 dann Radio ausschalten

Das geht auch mit Sekunden.

[joho63]

Bezüglich der Nachstellung hab ich eigentlich keine Probleme. Du hast ja NTP, da ist das etwas einfacher, aber es geht auch so.
Die RTC wird ja maximal jede Minute aktualisiert (wenn das DCF77-Statusbit einen kompletten Satz Daten empfangen hat).
Und da der Speicher der RTC SRAM ist, gibt es eigentlich kein Problem.

Aber das Problem des Alarmausgangs habe ich inzwischen gelöst. Mit Deiner Methode kam ich nicht zurecht, es wollte nicht laufen.
Nun ist der Ausgang in einer Sub, die von der Hauptschleife abgerufen wird:

Do                                                          ' MAIN - SCHLEIFE
   Locate 1 , 16
      If Dcf_pin = 1 Then Lcd "+" Else Lcd " "              'DCF-Impuls
   Locate 1 , 6
      If Dcf_status.7 = 1 Then Lcd "*" Else Lcd " "         'DCF-Status
   Gosub Show_clock                                         ' Anzeige vom RCT - Speicher holen
   Gosub Show_alarm                                         ' Anzeige vom RCT - Speicher holen
   Gosub Hbl_pwm                                            'Hintergrundbeleuchtung
      If Ta_alarm = 1 And Sw_alarm = 1 Then A = 1 Else A = 0
      If V_al_std = Ds_hour And V_al_min = Ds_min Then B = 1 Else B = 0
      If A = 1 And B = 1 Then C = 1 Else C = 0
      If C = 1 And Ds_sec = 5 Then Gosub Ausgang
      If Ta_alarm = 0 Then Gosub Al_stellen
Loop
Ausgang:                                                    ' AUSGANG
Al_out = 1
Sound Buzz , 200 , 150                                      'Buzzer Länge, Tonhöhe
Wait 1                                                      'Alarm - EIN - Zeit
Al_out = 0
Return

Die Anzeige bleibt zwar für die Alarmzeit (1 bis 2 Sekunden) stehen, aber die Uhr läuft weiter.

Da nun alles zur Zufriedenheit lief und der Mega8 nichtmal halb ausgelastet ist, habe ich als kleines Schmankerl noch eine
Steuerung der Hintergrundbeleuchtung über das Umgebungslicht draufgesetzt.
Zunächst wollte ich das kontinuierlich regeln, habe aber davon Abstand genommen, weil ich ein flackern der Helligkeit einfach nicht
wegbekam. So habe ich den ADC- Ausgang auf 5 Bit runtergesetzt und schalte damit nur noch Hell oder Dunkel. Das reicht mir völlig
aus. Die Steuerung macht der Timer 2 mit PWM, dahinter ist noch ein Transistor, weil die HBL ca. 40mA braucht. Der Code dafür ist
recht einfach:

Hbl_pwm:                                                    'Hintergrundbeleuchtung
Ldr = Getadc(2)
Shift Ldr , Right , 5                                       'Auflösung 5 Bit
If Ldr < 8 Then Pwm_ = 50
If Ldr > 15 Then Pwm_ = 255
Compare2 = Pwm_
Return

und ist auch als Sub in der Hauptschleife. Das ganze sieht nun so aus:

'Ausgänge = B.1 = Alarm , B.2 = Buzzer , B.3 = HBL(PWM)
'C.4 und C.5 = TWI/I2C ,  Port D 2 bis D.7 für LCD
'Eingänge = , D.0 = Schalter Alarm Ein , D.1 = Taster Alarm stellen
'C.0 und C1 = ENC , C.2 = LDR für HBL , B.0 = DCF77
$regfile = "m8def.dat"
$crystal = 2000000
$hwstack = 64
$swstack = 32
$framesize = 64
$include "D:\PROG\INIT_LCD16x2.bas"                         'LCD an Port D
$lib "I2C_TWI.lbx"
Config Sda = Portc.4
Config Scl = Portc.5
Config Twi = 100000
Ddrb = &B11001110
Portc = &B11                                                ' Pullups
Portd = &B11                                                'Pullups
Enc_a Alias Pinc.1
Enc_b Alias Pinc.0
Dcf_pin Alias Pinb.0
Al_out Alias Portb.1
Buzz Alias Portb.2
Hbl_out Alias Portb.3                                       'Beleuchtung Ausgang (PWM)
Sw_alarm Alias Pind.0                                       'Schalter Alarm EIN - AUS
Ta_alarm Alias Pind.1                                       'Taste Alarmzeit stellen EIN - AUS
Dim Al_zeit As Byte , A As Byte , B As Byte , C As Byte , Zw As Byte
Dim Ds_day As Byte , Ds_month As Byte , Ds_year As Byte
Dim Ds_sec As Byte , Ds_min As Byte , Ds_hour As Byte
Dim Al_min As Integer , Al_std As Integer , V_al_min As Byte , V_al_std As Byte
Dim Ldr As Word , Pwm_ As Byte                              'LDR = Fotowiderstand
Al_min = 30 : Al_std = 20                                   'Startwert
Deflcdchar 1 , 2 , 6 , 14 , 31 , 14 , 6 , 2 , 32            'Pfeil nach links
'*********** TIMER 1 für DCF77****************
Config Dcf77 = Pinb.0 , Timer = 1
Config Date = Dmy , Separator = .
'*********** TIMER 0 für Drehencoder*********
Config Timer0 = Timer , Prescale = 64                       '= ~2Mhz = ~0,5µs * 64 = ~ 32µs
Timer0 = 225                                                'Startwert = 31 x ~ 32µs = ~1ms
On Timer0 Enc_int
Enable Timer0
'*********** TIMER 2 und ADC 2 für Hintergrundbeleuchtung*********
Config Timer2 = Pwm , Prescale = 64 , Compare Pwm = Clear Up
Enable Timer2
Config Adc = Single , Prescaler = Auto , Reference = Avcc

Enable Interrupts
Do                                                          ' MAIN - SCHLEIFE
   Locate 1 , 16
      If Dcf_pin = 1 Then Lcd "+" Else Lcd " "              'DCF-Impuls
   Locate 1 , 6
      If Dcf_status.7 = 1 Then Lcd "*" Else Lcd " "         'DCF-Status
   Gosub Show_clock                                         ' Anzeige vom RCT - Speicher holen
   Gosub Show_alarm                                         ' Anzeige vom RCT - Speicher holen
   Gosub Hbl_pwm                                            'Hintergrundbeleuchtung
      If Ta_alarm = 1 And Sw_alarm = 1 Then A = 1 Else A = 0
      If V_al_std = Ds_hour And V_al_min = Ds_min Then B = 1 Else B = 0
      If A = 1 And B = 1 Then C = 1 Else C = 0
      If C = 1 And Ds_sec = 5 Then Gosub Ausgang
      If Ta_alarm = 0 Then Gosub Al_stellen
Loop
Ausgang:                                                    ' AUSGANG
Al_out = 1
Sound Buzz , 200 , 150                                      'Buzzer Länge, Tonhöhe
Wait 1                                                      'Alarm - EIN - Zeit
Al_out = 0
Return
Al_stellen:                                                 ' STELLEN
Do
            Locate 2 , 8
         If Al_std < 10 Then Lcd "0" ; Al_std Else Lcd Al_std
            Locate 2 , 10
         If Al_min < 10 Then Lcd ":0" ; Al_min Else Lcd ":" ; Al_min ; " "
            Locate 2 , 14 : Lcd " " ; Chr(1) ; "  "
         If Al_min < 0 Then
               Al_min = 59
               Al_std = Al_std - 1
         End If
         If Al_std < 0 Then Al_std = 23
         If Al_min > 59 Then
               Al_min = 0
               Al_std = Al_std + 1
         End If
         If Al_std > 23 Then Al_std = 0
Gosub Alarm_speichern
   If Ta_alarm = 1 Then Exit Do
Loop
Enc_int:                                                    'TIMER 0 Interrupt für Drehencoder
Timer0 = 225                                                'Timer Startwert
Zw.0 = Enc_a                                                'Zustandswechsel
Zw.1 = Enc_b
Select Case Zw
  Case &H0_2 : Incr Al_min                                  'bei jedem zweiten Tick
  Case &H0_1 : Decr Al_min
End Select
Zw.4 = Zw.0
Zw.5 = Zw.1
Return
Show_clock:                                                 ' RTC Uhrzeit und Datum auslesen und anzeigen
   I2cstart
      I2cwbyte 208
      I2cwbyte 0
   I2cstart
      I2cwbyte 209
      I2crbyte Ds_sec , Ack
      I2crbyte Ds_min , Ack
      I2crbyte Ds_hour , Ack
      I2crbyte Ds_day , Ack
      I2crbyte Ds_month , Ack
      I2crbyte Ds_year , Nack
   I2cstop
Gosub Rtc_stellen
         Locate 1 , 1 : Lcd "Zeit:"
         Locate 1 , 8 : Lcd Bcd(ds_hour) ; ":" ; Bcd(ds_min) ; ":" ; Bcd(ds_sec)
Return
Show_alarm:                                                 ' RTC Alarmzeit auslesen und anzeigen
   I2cstart
      I2cwbyte 208
      I2cwbyte 10
   I2cstart
      I2cwbyte 209
      I2crbyte V_al_std , Ack
      I2crbyte V_al_min , Nack
   I2cstop
Locate 2 , 1 : Lcd "Alarm: " ; Bcd(v_al_std) ; ":" ; Bcd(v_al_min)
Locate 2 , 14
   If Sw_alarm = 0 Then Lcd "Aus" Else Lcd "Ein"
Return
Rtc_speichern:                                              ' Uhrzeit in RTC speichern
         Ds_sec = Makebcd(ds_sec)
         Ds_min = Makebcd(ds_min)
         Ds_hour = Makebcd(ds_hour)
         Ds_day = Makebcd(ds_day)
         Ds_month = Makebcd(ds_month)
         Ds_year = Makebcd(ds_year)
   I2cstart
      I2cwbyte 208
      I2cwbyte 0
      I2cwbyte Ds_sec
      I2cwbyte Ds_min
      I2cwbyte Ds_hour
      I2cwbyte Ds_day
      I2cwbyte Ds_month
      I2cwbyte Ds_year
   I2cstop
Return
Alarm_speichern:                                            ' Alarmzeit in RTC speichern
V_al_min = Makebcd(al_min)
V_al_std = Makebcd(al_std)
   I2cstart
      I2cwbyte 208
      I2cwbyte 10
      I2cwbyte V_al_std
      I2cwbyte V_al_min
   I2cstop
Return
Rtc_stellen:                                                ' RTC nach DCF77 stellen
   If Dcf_status.7 = 1 And Ds_sec <> _sec Then
         Ds_sec = _sec
         Ds_hour = _hour
         Ds_min = _min
         Ds_day = _day
         Ds_month = _month
         Ds_year = _year
            Gosub Rtc_speichern
      End If
   Reset Dcf_status.7
Return
Hbl_pwm:                                                    'Hintergrundbeleuchtung
Ldr = Getadc(2)
Shift Ldr , Right , 5                                       'Auflösung 5 Bit
If Ldr < 8 Then Pwm_ = 50
If Ldr > 15 Then Pwm_ = 255
Compare2 = Pwm_
Return

Hier noch ein Foto der gesamten Technik, aufgebaut mit myAVR-Light Board:



Links der Fotowiderstand mit Vorwiderständen, unten die ELV-DCF77 und rechts der Drehencoder und der Schalter für die
Alarmzeiteinstellung.
Einen Schaltplan hab ich auch gemacht, er zeigt mir gleich die mechanische Anordnung der Teile. Das LCD kommt über die Platine
zu liegen:



Dieses ganze Projekt hätte ich mir sparen können, wenn es eine einfachere Lösung für das eigentliche Problem gäbe, nämlich:

Eine Möglichkeit festzustellen, ob am PC ein USB- Gerät aktiv ist oder nicht. Denn meine Robot- Kamera schaltet ja bei Dunkelheit
aus bzw. um auf USB- Ausgang. Ich habe aber nicht herausgefunden, wie man das am PC auswerten könnte.
Der bräuchte dann nur noch die gemachten Fotos runterzuladen, mit Datum zu versehen, abzuspeichern und die SD-Karte
der Kamera zu löschen. Das macht er jetzt auch schon, seit über sechs Jahren, es fehlen nur drei Tage wegen Stromausfall
bzw. Computerversagen. Nur die Schaltuhr mußte ich ständig beobachten.
Aber das hat jetzt ein Ende.

Allerdings war die Entwicklung auch sehr interessant und lehrreich, das ist für die nächsten Projekte bestimmt von Nutzen!
Eine Uhr kann man immer gebrauchen
Joachim

[peterfido]

Mit PWM und zugleich DCF-Modul (von Pollin) an einer Spannungsquelle hatte ich schon schlechte Erfahrung gesammelt. Die Lösung war dann vor dem DCF-Modul noch eine Diode und hinter der Diode die Spannung stabilisieren.

USB Geräte auflisten:

Windows:
USBDeview

Linux:
lsusb

[joho63]

Das Pollin-Modul hab ich schon modifiziert - eine Schaltstufe am Ausgang, eine Zenerdiode 2,7V mit Vorwiderstand, Ausgang invertiert ( da ist
eine Lötbrücke auf der Platine!), den Elko gegen keramischen Kondensator getauscht. Das war die Version für 3V, es gibt bei Pollin auch welche für
5V. Zur Zeit benutze ich aber das ELV-Modul, ebenfall mit extra Schaltstufe wegen dem beim Original invertierten Ausgang.

USBDeView kenne ich, hilft aber nicht, weil, es müßte ja ständig aktualisiert werden, um einen neuen Teilnehmer zu sehen.

Windows erzeugt ja bei jedem Neuzugang ein Signal. Wenn man das abgreifen könnte und damit das Ladeprogramm starten würde...
Allerdings müßte ja dann der PC ständig laufen - keine Option!
Da fällt mir was ein - könnte das nicht ein µC übernehmen?
Z.B. der Mega 8 hat doch TX/RX-Eingänge. Und ich hab einen USB-UART-Adapter (von myAVR). Ob der µC das pollen kann? Und dann
den Pc starten? Fragen über Fragen....muß ich mal was austesten!

Achim