Zwei Fragen zum PCF8583

Killerawft · 13. Januar 2011

Hallo liebe Bastler,

Ich bin gerade in der Entwicklung einer Schaltung, in der ich mit dem Atmega 32 die Uhrzeit aus dem PCF8583 Auslesen und auf einem LCD anzeigen möchte.
Das empfangen und senden der Uhrzeit klappt schon und Sie läuft seit einem Tag eigentlich ganz gut. Jetzt ist jedoch das Problem, dass ich auch mal die Uhr umstellen möchte und da kommt meine erste Frage:

Wie kann ich bei dem RTC z.b. nur die Minuten ändern oder nur die Stunden oder Tage?

Und meine Zweite Frage ist, wieso zählt er zwar die Uhr richtig, aber nicht das Datum weiter? seit gestern sagt er es ist der 12.1.11.

stromflo · 13. Januar 2011

Hi,

das sind noch fast zu wenig Angaben die du da gemacht hast.

Welche Programmiersprache?

Code

minute = 5
Temp = Makebcd(minute)
I2cstart                                         	
I2cwbyte &HA0                                     	' PCF 8583 Adresse schreiben
I2cwbyte 3                                        	' Register 3 ausgewählt
I2cwbyte Temp 'Hier kommt der Wert hin der in das Register geschrieben werden soll 
I2cstop

Wäre auch ganz sinnvoll, wenn du mal deinen Code zeigst... Denke mal das Beispiel könnte so passen.

Gruß Flo

Killerawft · 13. Januar 2011

sorry ganz vergessen. Also wie du schon richtig vermutet hast schreibe ich mein Programm in Bascom.

Und hier ist der Code. Das Meiste ist vom Beispielprogramm.

Code

$regfile = "m32DEF.dat"                                     'es handelt sich um einen ATmega32
$crystal = 16000000                                         'der eingebauter RC-Oszillator läuft mit 1 Mhz
$hwstack = 32                                               'im Speicher werden für den Hardware-Stack 32 Byte reserviert
$swstack = 32                                               'im Speicher werden für den Software-Stack 32 Byte reserviert
$framesize = 40                                             'im Speicher werden für den Frame 40 Byte reserviert
$lib "i2c_twi.lbx"                                          'Lib umd Hardware I2C zu benutzen




'LCD Konfigurieren
Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.0 , Db7 = Portb.1 , E = Portb.4 , Rs = Portd.7       'Ports bestimmen
Config Lcd = 16 * 4                                         'LCD Maße
Initlcd                                                     'LCD Initialisieren
Cls                                                         'Bildschirm löschen
Cursor Off                                                  'Cursor nicht anzeigen


'I2C Konfigurieren
Config Twi = 400000                                         ' TWI Takt
Const Rtcw = &HA0                                           'Slaveadresse zum schreiben
Const Rtcr = &HA1                                           'Slaveadresse zum lesen


'Eingänge Konfigurieren
Config Pind.6 = Input                                       'Blau
Config Pind.5 = Input                                       'Grün
Config Pind.4 = Input                                       'Rot


Config Pind.3 = Input
Config Pind.2 = Input


'Eingänge Benennen
Blau Alias Pind.6
Gruen Alias Pind.5
Rot Alias Pind.4






'Variablen


'Um sie auf dem LCD anzuzeigen in HEX
Dim Sekundelcd As Byte
Dim Minutelcd As Byte
Dim Stundelcd As Byte
Dim Taglcd As Byte
Dim Monatlcd As Byte
Dim Jahrlcd As Byte
Dim Wochentaglcd As Byte


'Werte kommen vom RTC werden aber nicht in HEX umgewandelt und nicht auf dem LCD angezeigt. Sind zur weiteren Verarbeitung gedacht.
Dim Sekundeakt As Byte
Dim Minuteakt As Byte
Dim Stundeakt As Byte
Dim Tagakt As Byte
Dim Monatakt As Byte
Dim Jahrakt As Byte
Dim Wochentagakt As Byte


'Variable, die an den RTC gesendet wird, um die Zeit zu stellen.
Dim Sendtime As Byte


Dim Tm(7) As Byte
Dim I As Byte
Dim Temp As Byte                                            'Temporäre Variable zum kurzen Zwischenspeichern


'Sub Funktionen
Declare Sub Gettime()
Declare Sub Settime(byval Register As Byte , Byval Wert As Byte)


'*********************** Hauptprogramm *********************
Do


If Rot = 1 Then
Sendtime = Minuteakt
Incr Sendtime
 If Sendtime > 59 Then Sendtime = 0
Call Settime(3 , Sendtime )                                 'Geänderte Zeit senden
End If


If Blau = 1 Then
Sendtime = Stundeakt
Incr Sendtime
 If Sendtime > 23 Then Sendtime = 0
Call Settime(4 , Sendtime )                                 'Geänderte Zeit senden
End If


If Gruen = 1 Then
Sendtime = Tagakt
Incr Sendtime
Call Settime(6 , Sendtime )                                 'Geänderte Zeit senden
End If


Call Gettime()                                              'Zeit empfangen


Locate 1 , 1
Lcd "Zeit: " ; Hex(stundelcd) ; ":" ; Hex(minutelcd) ; ":" ; Hex(sekundelcd)


Locate 2 , 1
Lcd "Datum: " ; Hex(taglcd) ; "." ; Hex(monatlcd) ; "." ; Hex(jahrlcd)


Locate 3 , 1
Lcd "Wochentag: " ; Hex(wochentaglcd)


Waitms 100


Loop


'******************** SUB's ************************
Sub Gettime()


'Daten vom RTC Empfangen für HEX Variablen
    I2cstart                                                'generate start
    I2cwbyte &HA0                                           'write addres
    I2cwbyte 2                                              'select second register
    I2cstart                                                'generate repeated start
    I2cwbyte &HA1                                           'write address for reading
    I2crbyte Sekundelcd , Ack                               'read seconds
    I2crbyte Minutelcd , Ack                                'read minuts
    I2crbyte Stundelcd , Ack                                'read hours
    I2crbyte Jahrlcd , Ack                                  'read year
    I2crbyte Taglcd , Ack                                   'read day
    I2crbyte Wochentaglcd , Ack                             'read weekday
    I2crbyte Monatlcd , Nack                                'read month
    I2cstop                                                 'generate stop


'Daten vom RTC Empfangen für weiterzuverarbeitende Variablen
    I2cstart                                                'generate start
    I2cwbyte &HA0                                           'write addres
    I2cwbyte 2                                              'select second register
    I2cstart                                                'generate repeated start
    I2cwbyte &HA1                                           'write address for reading
    I2crbyte Sekundeakt , Ack                                  'read seconds
    I2crbyte Minuteakt , Ack                                   'read minuts
    I2crbyte Stundeakt , Ack                                   'read hours
    I2crbyte Jahrakt , Ack                                     'read year
    I2crbyte Tagakt , Ack                                      'read day
    I2crbyte Wochentagakt , Ack                                'read weekday
    I2crbyte Monatakt , Nack                                   'read month
    I2cstop




End Sub


Sub Settime(byval Register As Byte , Byval Wert As Byte)


Temp = Makebcd(wert)
I2cstart
I2cwbyte &HA0                                               ' PCF 8583 Adresse schreiben
I2cwbyte Register                                           ' Register ausgewählt
I2cwbyte Temp                                               'Hier kommt der Wert hin der in das Register geschrieben werden soll
I2cstop


Waitms 100
End Sub

Alles anzeigen

Edit: Ich hab mein Programm mal um deinen Teil erweiter und soweit klappt das auch schon ganz gut. Jedoch ist noch mein Problem, dass irgendwie nur bis 10 gezählt wird und dann ab 17 erst wieder und dann kommt die 24, dann die 37 und dann die 57 und dann wird das bei mir schon automatishc auf 0 zurück gesetzt.
Das Aktuelle Programm ist jetzt auch da oben.

Teilen