Sommerzeitberechnung mit Bascom

[Manfred S. (Firma: Manfred) (xfred343)]

Arbeite mit den internen Datumsvariablen von Bascom,
in der DS1307 wird die Uhrzeit fortlaufend erstellt,
die Sommerzeit wird dann später mit der Funktion durch Addieren
einer Stunde berechnet.

Config Clock = User
Config Date = Mdy , Separator = .                           'German
Dim byt as byte  'Globale Hilfsvariable
Declare Function Fxsommerzeit() As Byte
'...
'Einlesen von DS1307
'...
Function Fxsommerzeit() As Byte
If _month < 3 Or _month > 10 Then
   Fxsommerzeit = 0
   Exit Function
End If
If _day >= 25 Then
    Byt = Dayofweek()                                       '0=Mo, 1=Di,.. 6=So lt. Bascom
    If Byt = 6 And _hour >= 2 Then
       Byt = 1
    Else
       Byt = _day - Byt
       If Byt <= 25 Then
          Byt = 0
       Else
          Byt = 1
       End If
    End If
Else
   Byt = 0
End If
If _month = 10 Then
    Fxsommerzeit = 1 - Byt
Else
    Fxsommerzeit = Byt
End If
End Function

Im wesentlichen bestimme ich, ob der letzte Sonntag im Monat erreicht 
ist oder nicht (Byt=0 bzw. Byt=1), ich bin gerade am Überlegen, ob die 
Funktion ein Bit zurückgeben sollte oder ein Byte - was ist bei Bascom 
besser zum Weiterrechnen? (z.B. 1 Stunde addieren) - geht das mit Bit 
genauso?

Weiters hoffe ich, dass die Funktion so richtig rechnet (hab ich gerade 
in Anlehnung an Peter Danneggers C-Code)umgeschrieben und sogar insofern 
optimiert, dass die Wochentagsberechnung nur ab 25. erfolgen muss

Vielleicht kann ja jemand das brauchen

[Karl H. (kbuchegg)]

Manfred S. schrieb:

> ist oder nicht (Byt=0 bzw. Byt=1), ich bin gerade am Überlegen, ob die
> Funktion ein Bit zurückgeben sollte oder ein Byte - was ist bei Bascom
> besser zum Weiterrechnen? (z.B. 1 Stunde addieren) - geht das mit Bit
> genauso?

Keine Ahnung. Wird aber ziemlich egal sein. Denn die kleinste 
handhabbare Einheit in einem Computer ist ein Byte. Es gibt zwar 
Bitbefehle, aber die sind so universell nun auch wieder nicht, dass man 
damit im Allgemeinen Fall sinnvoll arbeiten kann.

> Weiters hoffe ich, dass die Funktion so richtig rechnet

Prüfe die Funktion lieber noch mal ausführlich. Die kommt mir nicht ganz 
koscher vor.
Am Anfang schliesst du erst mal die Monate 1, 2, 11 und 12 aus. Können 
keine Sommerzeit sein und ist soweit ok.

Aber dann machst du da was mit den Tagen und Taggrenzen. Und dort kommt 
dann das Monat überhaupt nicht mehr vor. Das kann aber nicht sein, denn 
zb im Juli ist das ganze Monat Sommerzeit, unabhängig davon auf welhen 
Tag der letzte Sonntag im Juli fällt.

Ich hab aber die Funktion nicht durchprobiert, mag sein dass ich mich 
irre. Daher - teste das lieber durch. Nimm dir ein bestimmtes Jahr raus, 
und lass alle Daten (vom 1.1. bis zum 31.12) durch die Funktion durch 
und sieh nach, ob das Ergebnis stimmt. Ist schnell gemacht und danach 
weißt du es genau.

[Manfred S. (Firma: Manfred) (xfred343)]

Herzlichen Dank, Herr Buchegger,

In der Hitze des Gefechts, habe ich wirklich übersehen, dass es ja auch 
April-September gibt ;-)
Ich muss aber auch zugeben, dass der von Herrn Dannegger veröffentlichte 
C-Code wesentlich kniffliger ist. Bei der Portierung nach Bascom muss 
ich allerdings darauf achten, einfache Wenn-Vergleiche und meist nicht 
mehr als 2 Rechenoperationen je Zeile vorzusehen. Dafür ist dieser Code 
jetzt irgendwie effizienter und schneller, da er den Wochentag nur mehr 
für März un Oktober berechnen muss ;-) - hab ihn gerade mit der 
"baugleichen" Excel-VBA Routine von 2011-2099 durchgetestet, klappt - 
tja wer am Anfang zum Testen zu faul ist, muss auf gute Ratschläge 
hören...


Hier der Code

Config Clock = User
Config Date = Mdy , Separator = .                           'German
Dim byt as byte  'Globale Hilfsvariable
Declare Function Fxsommerzeit() As Byte
'...
'Einlesen von DS1307
'...
'**************************** Sommerzeit - Shift 1 _hour
Function Fxsommerzeit() As Byte
If _month < 3 Or _month > 10 Then                           'keine Sommerzeit
   Fxsommerzeit = 0
   Exit Function
End If
If _month >= 4 And _month <= 9 Then                         'jedenfalls Sommerzeit
   Fxsommerzeit = 1
   Exit Function
End If                                                      'betrachte nur mehr 3 und 10
If _day >= 25 Then                                          'Grenze: letzter Sonntag im Monat
    Byt = Dayofweek()                                       '0=Mo, 1=Di,.. 6=So lt. Bascom
    If Byt = 6 And _hour >= 2 Then                          'sonntags ab 2.00
       Byt = 1
    Else
       Byt = _day - Byt                                     'ermittle Grenze vor oder nach letztem Sonntag
       If Byt <= 25 Then
          Byt = 0
       Else
          Byt = 1
       End If
    End If
Else
   Byt = 0
End If
If _month = 10 Then                                         'in Oktober nach Grenze: keine Sommerzeit
    Fxsommerzeit = 1 - Byt
Else
    Fxsommerzeit = Byt                                      'in März: nach Grenze: Sommerzeit
End If
End Function

Und zum Testen in Excel-VBA

Function Fxsommerzeit(dat As Date)
Dim tag As Long
Dim monat As Long
Dim jahr As Long
Dim byt As Byte
tag = Day(dat)
monat = Month(dat)
jahr = Year(dat)
If monat < 3 Or monat > 10 Then
   Fxsommerzeit = 0
   Exit Function
End If
If monat > 3 And monat < 10 Then
    Fxsommerzeit = 1
    Exit Function
End If
If tag >= 25 Then
    byt = Weekday(dat, vbMonday) - 1 'wie Bascom
    If byt = 6 And Hour(dat) >= 2 Then
       byt = 1
    Else
       byt = tag - byt
       If byt <= 25 Then
          byt = 0
       Else
          byt = 1
       End If
    End If
Else
   byt = 0
End If
If monat = 10 Then
    Fxsommerzeit = 1 - byt
Else
    Fxsommerzeit = byt
End If
End Function

Es ist schon erstaunlich, wie "kompatibel" Bascom zu VBA ist...

[Paul B. (paul_baumann)]

@Manfred

Prima! Danke. Das werde ich mal in mein Uhrprogramm hineinbauen, damit 
ich
das Biest nicht immer von Hand umstellen muß.

MfG Paul

[Manfred S. (Firma: Manfred) (xfred343)]

Hallo,

jetzt der komplette Beispielcode, ich finde, die Bascom-Routinen sind 
hier mit Clock=User sehr gut einbindbar

$regfile = "m644def.dat"
$crystal = 8000000
$lib "i2c_twi.lbx"
Config Twi = 100000                                         'DS1307 mag nicht mehr!!!
Config Clock = User
Config Date = Dmy , Separator = .                           'German
'**************************** Hardware-Definitionen
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2
Config Lcd = 16 * 2
Config Sda = Portc.1                                        'I2C-Pins definieren, bei Atmega 8: PortC.4
Config Scl = Portc.0                                        'PortC.5 bei Atmega 8
Const Ds1307_write = 208                                    '&HD0 I2C Adresse der Uhr DS1307
Const Ds1307_read = 209                                     '&HD1 I2C Adresse der Uhr DS1307
'**************************** Declare-Routinen
Declare Function Fxsommerzeit() As Byte
'**************************** Globale Hilfsvariablen
Dim Byt As Byte
Date$ = "27.03.11"                                          'Bascom steuert Setdate bzw. Settime automatisch an
Time$ = "01:59:55"                                          'kurz vor Beginn der Sommerzeit, Uhr springt auf 3.00
Do
   Cls
   Lcd Date$
   Lowerline
   Lcd Time$                                                'Uhr springt gleich auf 3:00 statt auf 2:00
   Waitms 1000
   If _sec >= 3 And _min = 0 Then Exit Do
Loop
_year = 11                                                  'direktes Setzen der Variablen
_month = 10
_day = 30
Gosub Setdate                                               'wirksam erst bei manuellem Aufrufen der Schreibroutine
_hour = 1
_min = 59
_sec = 55
Gosub Settime
Do
   Cls
   Lcd Date$                                                'getddatetime wird automatisch ausgeführt
   Lowerline
   Lcd Time$                                                'nach 1 Stunde wird wieder bei 2:00 begonnen
   Waitms 1000
Loop
End
'**************************** Uhrzeit
Getdatetime:
I2cstart                                                    ' Start
I2cwbyte Ds1307_write                                       ' DS1307 schreiben
I2cwbyte 0                                                  ' DS1307 Adresszeiger auf 0 stellen
I2cstart                                                    ' Start
I2cwbyte Ds1307_read                                        ' DS1307 lesen (ab vorher eingestellter Adresse 0)
I2crbyte Byt , Ack                                          ' Sekunden
_sec = Makedec(byt)
I2crbyte Byt , Ack                                          ' Minuten
_min = Makedec(byt)
I2crbyte Byt , Ack                                          ' Stunden
_hour = Makedec(byt)
I2crbyte Byt , Ack                                          ' Wochentag (in Dummy gelesen da von date$/time$ nicht genutzt)
I2crbyte Byt , Ack                                          ' Tag
_day = Makedec(byt)
I2crbyte Byt , Ack                                          ' Monat
_month = Makedec(byt)
I2crbyte Byt , Nack                                         ' Jahr
_year = Makedec(byt)
I2cstop
Byt = Fxsommerzeit()
If Byt = 1 Then                                             'nicht erlaubt bis Bascom 2.0.6: fxsommerzeit()=1
  If _hour = 23 Then
      _hour = 0
      If _month = 4 Or _month = 6 Or _month = 9 Then        'Monate 4,6,9 je 30 Tage
         Byt = 30
      Else
         Byt = 31                                           'Monate 3,5,7,8 je 31 Tage
      End If
      If _day = Byt Then
         _day = 1
         Incr _month
      Else
         Incr _day
      End If
   Else
      Incr _hour
   End If
End If
Return
Setdate:
  I2cstart                                                  ' Start
  I2cwbyte Ds1307_write                                     ' DS1307 schreiben
  I2cwbyte 3                                                ' DS1307 Adresszeiger auf 4 (Byte 5) stellen
  Byt = Dayofweek()
  I2cwbyte Byt
  Byt = Makebcd(_day)
  I2cwbyte Byt                                              ' Tag schreiben
  Byt = Makebcd(_month)
  I2cwbyte Byt                                              ' Monat schreiben
  Byt = Makebcd(_year)
  I2cwbyte Byt                                              ' Jahr schreiben
  I2cstop
Return
Settime:
  Byt = Fxsommerzeit()
  If Byt = 1 Then                                           'nicht erlaubt bis Bascom 2.0.6: fxsommerzeit()=1
     If _hour = 0 Then
         _hour = 23
         If _day = 1 Then
            If _month = 5 Or _month = 7 Or _month = 10 Then
               _day = 30
            Else
               _day = 31
            End If
         Else
            Decr _day
         End If
         Gosub Setdate                                      'Sonderfall: Sommerzeit wirkt sich auf Datum aus!!
     Else
        Decr _hour
     End If
  End If
  I2cstart                                                  ' Start
  I2cwbyte Ds1307_write                                     ' DS1307 schreiben
  I2cwbyte 0
  Byt = Makebcd(_sec)                                       ' DS1307 Adresszeiger auf 0 stellen
  I2cwbyte Byt                                              ' Sekunden schreiben
  Byt = Makebcd(_min)
  I2cwbyte Byt                                              ' Minuten schreiben
  Byt = Makebcd(_hour)
  I2cwbyte Byt                                              ' Stunden schreiben
  I2cstop
Return
'**************************** Sommerzeit - Shift 1 _hour
Function Fxsommerzeit() As Byte
If _month < 3 Or _month > 10 Then                           'keine Sommerzeit
   Fxsommerzeit = 0
   Exit Function
End If
If _month >= 4 And _month <= 9 Then                         'jedenfalls Sommerzeit
   Fxsommerzeit = 1
   Exit Function
End If                                                      'betrachte nur mehr 3 und 10
If _day >= 25 Then                                          'Grenze: letzter Sonntag im Monat
    Byt = Dayofweek()                                       '0=Mo, 1=Di,.. 6=So lt. Bascom
    If Byt = 6 And _hour >= 2 Then                          'sonntags ab 2.00
       Byt = 1
    Else
       Byt = _day - Byt                                     'ermittle Grenze vor oder nach letztem Sonntag
       If Byt <= 25 Then
          Byt = 0
       Else
          Byt = 1
       End If
    End If
Else
   Byt = 0
End If
If _month = 10 Then                                         'in Oktober nach Grenze: keine Sommerzeit
    Byt = 1 - Byt
End If
Fxsommerzeit = Byt                                          'in März: nach Grenze: Sommerzeit
End Function
Return

[Thomas R. (gastrodus)]

Hallo zusammen

Schön gelöst, die Sommerzeitumstellung. Nur liegt da leider eine falsche 
Annahme vor. Die Zeitumstellung geschieht nicht um Mitternacht sondern 
um 2 Uhr im März und um 3 Uhr im Oktober. Somit kann das Thema mit der 
Datum-Umstellung auch vergessen werden.

Gruss
Thomas

[Karl H. (kbuchegg)]

Thomas Riesen schrieb:
> Hallo zusammen
>
> Schön gelöst, die Sommerzeitumstellung. Nur liegt da leider eine falsche
> Annahme vor. Die Zeitumstellung geschieht nicht um Mitternacht sondern
> um 2 Uhr im März und um 3 Uhr im Oktober.

Kommt drauf an, wofür man es braucht.

Für eine Aquariumsbeleuchtung ist es egal, ob die Uhr in der Nacht jetzt 
fälschlicherweise um Mitternacht  um 1 Stunde hüpft oder erst um 3:00.

Hauptsache um 7 in der Früh stimmt wieder alles und das Licht schaltet 
sich mit dem Piepston der 7-Uhr Nachrichten im Radio ein.

[Manfred S. (Firma: Manfred) (xfred343)]

Zudem wird ja eh auf 2.00  im Programmcode abgeprüft. Ich hab das 
Programm in meinen Türsteuerungen erfolgreich im Einsatz

[Karl H. (kbuchegg)]

Karl Heinz Buchegger schrieb:

> Für eine Aquariumsbeleuchtung ist es egal, ob die Uhr in der Nacht jetzt
> fälschlicherweise um Mitternacht  um 1 Stunde hüpft oder erst um 3:00.
                       ***********

Um 2 natürlich. Ist ja extra eine Prüfung darauf drinnen.
Mitternacht wäre ein bischen dämlich, weil man darauf aufpassen müsste, 
beim zurückstellen der Uhr den Datumswechsel nicht 2 mal zu zählen.

Edith: zu langsam. Manfred hats schon gesehen.