-
        

Ergebnis 1 bis 1 von 1

Thema: RTC 8583 mit Datum und Uhrzeit (Codebeispiel)

  1. #1
    Erfahrener Benutzer Fleißiges Mitglied
    Registriert seit
    28.03.2004
    Beiträge
    185

    RTC 8583 mit Datum und Uhrzeit (Codebeispiel)

    Anzeige

    Da im Forum immer nur Fragmente zu finden sind, wenn es um die Datumsfunktion geht, stell ich hier mein meinen vollständigen Code für einen PCF8583 rein.
    Es wird Datum und Uhrzeit in einer Zeile auf einem 4x20 LCD ausgegeben.
    Mit 2 Tastern wird Wochentag+Uhrzeit+Datum verstellt.

    Speicherbedarf: weniger als 2 kB
    Code:
    'BASCOM 1.11.8.1
     'Uhrzeit und Datum mit Timer PCF8583
     'Stützbatterie an PCF8583 für Stromausfall erforderlich
     '
     'Bedienung mit 2 Tastern an Pind.4 und Pind.5 gegen Masse und internen Pullups
     'Ausgabe auf LCD 4x20 Zeichen in der obersten Zeile
     'Mo*23:15:02*29.04.06
     'Ausgabe entspricht genau 20 Zeichen
     'Taster 1 wählt die Position zum Stellen der Uhr aus (Blinkt)
     'Taster 2 zählt hoch
    
     $regfile = "m32def.dat"                                    'AVR Mega 32
     $framesize = 32                                            'Stackanweisungen nicht optimiert
     $swstack = 16
     $hwstack = 16
     $crystal = 8000000                                         'Frequenz
     $baud = 9600                                               'Baudrate RS232 Ausgabe.
    
     $lib "mcsbyte.lbx"                                         'only support bytes!! for numeric<>string conversion
    
     $lib "I2C_TWI.LBX"                                         'Hardware I2C aktiviert
     Config Twi = 100000
     'Config Sda = Portc.1                                       'für Software I2C umstellen
     'Config Scl = Portc.0
     I2cinit
    
     'Adresse des PCF8583 ggf. auch &HA0 !!
     Const Addressw = &HA2                                      'slave write address
     Const Addressr = Addressw + 1                              'slave read address
    
     'Taster 1 und 2
     Config Portd = &B00000000                                  '0=INPUT 1=OUTPUT
     Portd = Portd Or &B00110000                                'pull up Widerstände setzen
     Taster1 Alias Pind.4                                       'Auswahl der Position
     Taster2 Alias Pind.5                                       'Hochzählen
    
    
     'Pins des LCD-Modules setzen ggf. an eigene Anschlüsse anpassen
     Config Lcdpin = Pin , Db4 = Portc.5 , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2 , E = Portc.6 , Rs = Portc.7
     Config Lcdmode = Port
     Config Lcdbus = 4                                          '4 bit mode
     Config Lcd = 20 * 4
     Initlcd
     Cls
    
     Declare Sub Settime()
     Declare Sub Gettime()
     Declare Sub Menu()
    
    
     'Declare array
     Dim Tm_raw(5) As Byte At &H60
     'pointers to Tm_raw() for simple handling.
     Dim S As Byte At &H60 Overlay
     Dim M As Byte At &H61 Overlay
     Dim H As Byte At &H62 Overlay
     Dim Yd As Byte At &H63 Overlay                             'Year+Day
     Dim Wm As Byte At &H64 Overlay                             'Week+Month
    
     Dim Tm(7) As Byte At &H70
     'pointers to Tm() for simple handling.
     Dim Weekday As Byte At &H70 Overlay
     Dim Hour As Byte At &H71 Overlay
     Dim Minute As Byte At &H72 Overlay
     Dim Second As Byte At &H73 Overlay
     Dim Day As Byte At &H74 Overlay
     Dim Month As Byte At &H75 Overlay
     Dim Year As Byte At &H76 Overlay
    
     'Declare variables
     Dim Weekday_s As String * 2
     Dim I As Byte
     Dim Menupunkt As Byte
     Menupunkt = 0
    
     'Main
     Do
       Call Menu()
       Call Gettime()
       Locate 1 , 1
       Lcd Weekday_s
       For I = 2 To 7                                           'Uhrzeit+Datum 20 Zeichen breit ausgeben
         If I = 2 Or I = 5 Then Lcd Chr(255) Else Lcd ":"
         If Tm(i) < 10 Then Lcd "0"
         Lcd Tm(i)
       Next
       If Menupunkt > 0 Then
          I = 3 * Menupunkt
          Decr I
          Locate 1 , I
          Cursor On Blink
       Else
          Cursor Off Noblink
       End If
       Waitms 100
       If Taster1 = 0 Or Taster2 = 0 Then Waitms 200
     Loop
    End
    
    Weekdays:
    Data "Mo" , "Di" , "Mi" , "Do" , "Fr" , "Sa" , "So"         '0=Mo 1=Di ... 6=So
    
    Sub Settime()
       Second = Second Mod 60
       Minute = Minute Mod 60
       Hour = Hour Mod 24
       Decr Day
       Day = Day Mod 31
       Incr Day
       Decr Month
       Month = Month Mod 12
       Incr Month
       'Year = Year Mod 4                                        'unnötig da 2 Bit Variable
       Weekday = Weekday Mod 7
       Tm_raw(1) = Makebcd(second)
       Tm_raw(2) = Makebcd(minute)
       Tm_raw(3) = Makebcd(hour)
       Tm_raw(4) = Year * 64                                    'Jahr um 6 Bit verschieben
       Tm_raw(4) = Tm_raw(4) + Makebcd(day)
       Tm_raw(5) = Weekday * 32                                 'Wochentag um 5 Bit verschieben
       Tm_raw(5) = Tm_raw(5) + Makebcd(month)
       I2cstart                                                 'generate start
       I2cwbyte Addressw                                        'write address
       I2cwbyte 0                                               'select control register
       I2cwbyte 0                                               'set year and day bit for masking
       I2cstart                                                 'repeated start
       I2cwbyte Addressw                                        'write mode
       I2cwbyte 2                                               'select Register 2 = seconds
       For I = 1 To 5
          I2cwbyte Tm_raw(i)
       Next                                                     'write Register 2,3,4,5,6
       I2cstop
    End Sub
    
    Sub Gettime()
        Tm_raw(1) = 2                                           'set start point to second register
        I2creceive Addressw , Tm_raw(1) , 1 , 5                 'write 1 byte from Tm_raw(1) = 2, and read 5 bytes
        Second = Makedec(s)                                     'values are stored in BCD format
        Minute = Makedec(m)
        Hour = Makedec(h)
        Day = Yd And &B00111111                                 'Bit 6 und 7 löschen
        Day = Makedec(day)
        Month = Wm And &B00011111                               'Bit 5,6 und 7 löschen
        Month = Makedec(month)
        Year = Yd / 64                                          'Register YYDD DDDD
        Year = Year + 4                                         '2004 bis 2007
        Weekday = Wm / 32                                       'Register WWWM MMMM
        Weekday_s = Lookupstr(weekday , Weekdays)               'Wochentag ermitteln
    End Sub
    
    Sub Menu()
        If Taster1 = 0 Then Incr Menupunkt
        Menupunkt = Menupunkt Mod 8
        If Taster2 = 0 And Menupunkt > 0then
            Incr Tm(menupunkt)
            Call Settime()
        End If
    End Sub
    Ich habe den Code kurz gehalten. Ich nutze ihn weiter, um Messwerte in ein AT24Cxxx zu schreiben. Da die EEPROMs die gleiche Adresse wie der 8583 haben (!!) habe ich den 8583 auf die Adresse &HA2 gesetzt.
    Wer will kann die Jahreszahl aufbohren (derzeit nur 04 bis 07), indem man den batteriegestützen RAM des PCF 8583 benutzt, um eine Variable für die Jahreszahl abzulegen, die von Bascom mit hochgezählt wird.

    Ich gehe von einer gestützen Stromversorgung für die RTC aus.
    Obwohl im Datenblatt steht VDD=1.0V bei I2C-bus inactive, kommen mir die 1,5V mit Diode mir etwas knapp vor. Bei mir sind es 3V aus einer CR2032. Der Stromverbrauch bei Stromausfall beträgt dann 3,0 µA.
    Miniaturansichten angehängter Grafiken Miniaturansichten angehängter Grafiken pcf8583_175.gif  

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •