Programmierung des PCF8583

Hallo an alle,

ich spiele mich gerade mit einem Atmel Mega8515 und dem Uhr Clock-IC PCF8583.
Das schreiben und anschließende auslesen der Uhrzeit funktioniert einwandfrei. Jetzt würde ich gerne den Timer des 8583 programmieren und komme irgendwie garnicht zu schuß.
Daher meine Fragen:

- Kann ich eingentlich den 8583 als Uhr und Timer gleichzeitig verwenden?
- Was schreibe ich in die Register 07 bis 0F um z.B. nach 1 Std. den Timer auszulösen?
- Wie lange ist dann der INT-Ausgang aktiv?

Vielen Dank für eure Antworten

Kannst Du mal den Code posten, würde gerne auch mal mit meinem PCF8583 rumspielen, habs aber noch net kapiert :(

Gruss Clemens

So sieht im Moment das Programm für die Uhrzeit aus.
Funktioniert eigentlich ganz gut. Fehlt halt nur noch der Timer!

Wenn das Programm funktioniert, werde ich es natürlich auch veröffentlichen!!!

Code:

' -----[ Initialisierung ]------------------------------------------------------ $regfile = "8515DEF.dat" ' Chip auswählen $crystal = 7372800 ' Quarzfrequenz festlegen Config Sda = Portd.0 ' I2C-Port festlegen Config Scl = Portd.1 ' I2C-Port festlegen Config Lcdmode = Port Config Lcdbus = 4 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 ' LCD-Typ festlegen Cursor = Off ' Cursor ausschalten Dim S As Byte , M As Byte , H As Byte , D As Byte Dim Wm As Byte , Yd As Byte , Month As Byte ' Uhrvariablen S = 0 M = 0 H = 0 D = 1 Month = 1 Wm = 1 Yd = 5 Ddrd = &B00010000 Cls Settime: S = Makebcd(s) 'Sekunden M = Makebcd(m) 'Minuten H = Makebcd(h) 'Stunden D = Makebcd(d) 'Tag Month = Makebcd(month) 'Monat I2cstart 'I2C Start I2cwbyte &HA0 'Schreibemodus I2cwbyte 0 'select control register I2cwbyte &HC 'set year and day bit for masking I2cstop 'I2C Stop I2cstart 'I2C Start I2cwbyte &HA0 'Schreibemodus I2cwbyte &H2 'Sekunden-Register auswählen I2cwbyte S 'Sekunden schreiben I2cwbyte M 'Minuten schreiben I2cwbyte H 'Stunden schreiben I2cwbyte D 'Tag schreiben I2cwbyte Month 'Monat schreiben I2cstop 'I2C Stop '??????????????????????????????????????????????????????????????????????????????? I2cstart 'I2C Start I2cwbyte &HA0 'Schreibemodus I2cwbyte 8 'Alarm-Register auswählen I2cwbyte &H4B '01001011 schicken 'hier sollte der Timer stehen I2cstop 'I2C Stop '??????????????????????????????????????????????????????????????????????????????? Gettime: I2cstart 'I2C Start I2cwbyte &HA0 'Schreibemodus I2cwbyte 2 'Sekunden-Register auswählen I2cstart 'I2C Start I2cwbyte &HA1 'Lesemodus I2crbyte S , Ack 'lese Sekunden I2crbyte M , Ack 'lese Minuten I2crbyte H , Ack 'lese Stunden I2crbyte Yd , Ack 'lese Jahr und Tag I2crbyte Wm , Nack 'lese Wochentag und Monat I2cstop 'I2C Stop S = Makedec(s) M = Makedec(m) H = Makedec(h) If H >= 10 Then Locate 1 , 5 : Lcd H Else Locate 1 , 5 : Lcd " " ; H End If Locate 1 , 7 : Lcd ":" If M >= 10 Then Locate 1 , 8 : Lcd M Else Locate 1 , 8 : Lcd "0" ; H End If Locate 1 , 10 : Lcd ":" If S >= 10 Then Locate 1 , 11 : Lcd S Else Locate 1 , 11 : Lcd "0" ; S End If If Pind.6 = 0 Then 'An Pind.6, der an INT des PCF8583 angeschlossen ist, Portd = &B00010000 'soll eine LED leuchten, wenn der Timer abgelaufen ist Else Portd = &B00000000 End If Goto Gettime

Gibt es wirklich niemanden der bereits den Timer des PCF 8583 progammiert hat?

Liste der Anhänge anzeigen (Anzahl: 1)

hi tooltime,

ja das kannst du machen, indem du folgendes machst:
-> Reg 0x00 mit 0x84 beschreiben
-Alarm Enable
-32,768 kHz
-Stop counting (Uhr muss zuerst gestoppt werden)

-> Reg 0x01 bis 0x07 beschreiben
- Zeit schreiben 0x01..0x06
- Timer zurücksetzen Reg 0x07 mit 0x00 beschreiben

-> Reg 0x08 mit 0x0B
- Timer ON -- Minutes (99 Minuten)
- Timer Int. Enable

-> Reg 0x00 mit 0x04 beschreiben
- Alarm Enable
- 32,768 kHz
- Start Counting (Uhr/Timer läuft)

Timer-Flag muss per Software zurückgesetzt werden!!

folgend ein Bildausschnitt vom RS232-I2C-Adapter Software, da kannst du sehen wie die Register beschreiben sind:

hallo,

in ein paar Tage kann die Software von meiner HomePage downgeloadet werden. Es ist eignetlich für den RS232-I2C-Adapter gedacht, aber damit kannst du auch die Inhalte der Register berechnen.

IngBo

is ja ne ganz nette uhr aber was macht das ding bei stromausfall bzw. wie kann man dafür sorgen dass die uhr weiter läuft und der speicher erhalten bleibt.
vielleicht weiß auch jemand einen anderen ic als alternative?
gruß werner...

Liste der Anhänge anzeigen (Anzahl: 1)

ich hoffe, mein googlen hilft dir weiter!!!

Hallo IngBo,

danke für die Tips.
In welches Register schreibe ich aber jetzt die Minuten oder Stunden für den Timer?

Hallo,
ich hab da auch mal eine Frage. Ich will den PCF8583 als Event-Counter benutzen - über Reflex-Lichtschranke die Umdrehungen einer Welle zählen. Ein Puls-Pausen-Verhältnis von 50-50% scheint nicht zu funktionieren. Weiss jemand wie ich das Eingangssignal aufbereiten muss?
Gruss Uwe

Hi,

Register 0x07 (Timerinhalt) wird immer um 1 erhöht. je nachdem was du eingestellt hast. wenn
1. 1/100 --> wird bei 1/100 Sec. um 1 erhöht
2. Sec --> wird bei sekunden-takt um 1 erhöht
3. Min. --> wird bei Minuten-Takt um 1 erhöht
4. hrs --> wird bei Stunden-Takt um 1 erhöht.
5. Days --> wird jeden Tag um 1 erhöht
Diese werden in den ersten 3 Bits von Register 0x08 eingestellt.

wenn der Inhalt des Registers 0x07 von 99 auf 0 zurückgeht, wird das Flagbit Bit0 des Registers 0x00 auf 1 gesetzt. Das muss dann per Software gelöscht werden. Wenn das Timer-En-Bit gesetzt ist, dann wird ein Int. ausgelöst. Timer Enable Bit findest du in Register 0x08 bit3.

IngBo

Hallo,

wie versprochen, die Software kann jetzt downgeloadet werden
http://www.channaa.com/html/rs232_i2c_adapter.html

damit kannst du die Registerinhalte des PCF8583 berechnen.
natürlich auch andere I2C-ICs

IngBo

Hallo

Ich hätte dazu ein paar Fragen zur Programmierung von dem PCF8583
(Sind meine ersten Versuche mit i2c )

Habe jetzt den PCF8583 angeschlossen und mit dem Programm von Tooltime probiert.
Nachdem ich herrausgefunden habe, dass ich noch zwei Widerstände für die Datenleitungen brauche ;-), funktioniert es jetzt :-)

Nur möchte ich es jetzt auch verstehen..

Mir ist jetzt noch nicht ganz klar, wie das ansprechen von dem PCF.. jetzt wirklich funktioniert.
Mein Ziel ist eine normale Uhr mit Datum für das Loggen von Daten dann in ein EEprom.

Datenplatt von dem PCF8583 habe ich jetzt auch, aber wegen schlechtem englisch, blicke ich da nicht ganz durch.

Wenn Tooltime schreibt:

Code:

I2cstart 'I2C Start I2cwbyte &HA0 'Schreibemodus I2cwbyte 0 'select control register I2cwbyte &HC 'set year and day bit for masking

Was passiert da eigentlich ?

I2cwbyte... ist Schreiben am I2C Bus (I2crbyte 0 lesen)
&HA0 = A0= 10100000
Das dürfte die Adresse von dem PCF8583 am Bus sein ?!
(Wobei 10100000 (A0) schreiben und 10100001 (A1) lesen sein dürfte ?!)

Nur was jetzt kommt, ist mir nicht klar:
I2cwbyte 0 'select control register
I2cwbyte &HC 'set year and day bit for masking

Genauso wie beim auslesen .
Was geschiet hier ?
Sehe zwar die Register im Datenblatt, aber wie komme ich dort hin ?
Da habe ich Register 0,4,5,6,8

Ist jemand vielleicht so lieb und kan mir das ein bisschen erklären ?

:-)

l.G. Roberto

Hallo
Hat keiner einen Tip für mich ?

Sorry, dass so lange keine Antwort kam.
Ich werde mir diese Woche noch einmal die Unterlagen zu dem damaligem Projekt raussuchen.
Ich hoffe dir dann auch weiterhelfen zu können, denn einige Abläufe des PCF8583 sind mir heute noch ein Rätsel.

Bitte hab noch etwas Geduld
tooltime

Hallo Tooltime

Häte schon noch interesse :-)
Aber für mich ist derzeit eher nur die normale Uhr funktion wichtig.

Mir ist noch nicht ganz klar:
Auf Seite 7 im Datenblatt (links)
http://www.semiconductors.philips.co.../PCF8583_5.pdf
Ist der Clock mode dargestellt.
(Register 0 habe dafür auf 00000000 gestellt)

Ist die Spalte da in 2*BCD aufgeteilt ?
links 10s, rechts 1s ?

Und mit
I2crbyte S , Ack
S = Makedec(s)
lese ich dann die rechten BCD's aus?

Kann man auch das Jahr irgendwie auslesen ?

Im Register 05 (Seite7)
steht da : Year/date
unterhalb aber 10 month /1 month ?
?

Hallo Roberto,
ich habe gerade ein kleines Programm zusammengebastelt.
Wenn Du einen Mega 8 µC hast, kannst Du das Programm 1 zu 1 übernehmen und ein bischen experimentieren.

Gruß
tooltime

Code:

' ---------[ Initialisierung ]-------- $regfile = "m8def.dat" ' Chip auswählen $crystal = 1000000 ' Quarzfrequenz festlegen Config Scl = Portc.5 ' I2C-Clock festlegen Config Sda = Portc.4 ' I2C-Data festlegen Config Lcdmode = Port Config Lcdbus = 4 Config Lcdpin = Pin , Db4 = Portb.5 , Db5 = Portb.4 , Db6 = Portb.3 , Db7 = Portb.2 , E = Portb.1 , Rs = Portb.0 Config Lcd = 16 * 2 ' LCD-Typ festlegen Cursor = Off ' Cursor ausschalten Cls Dim S As Byte , M As Byte , H As Byte , D As Byte , Month As Byte Dim Wm As Byte , Yd As Byte '-----[ Hauptprogramm ]---------------------------------------- Wm = 3 D = 8 Month = 2 Yd = 1 H = 22 M = 00 S = 00 Settime: 'values are stored as BCD values so convert the values first S = Makebcd(s) 'seconds M = Makebcd(m) 'minuts H = Makebcd(h) 'hours D = Makebcd(d) 'days Month = Makebcd(month) 'months Yd = Makebcd(yd) 'seconds Wm = Makebcd(wm) 'minuts I2cstart 'generate start I2cwbyte &HA0 'write address I2cwbyte 0 'select control register I2cwbyte 8 'set year and day bit for masking I2cstop 'generate stop I2cstart 'generate start I2cwbyte &HA0 'write mode I2cwbyte 2 'select seconds Register I2cwbyte S 'write seconds I2cwbyte M 'write minuts I2cwbyte H 'write hours I2cwbyte Yd 'write jear I2cwbyte D 'write day I2cwbyte Wm 'wirte weekday I2cwbyte Month 'write month I2cstop 'generate stop Goto Gettime Gettime: I2cstart 'generate start I2cwbyte &HA0 'write addres I2cwbyte 2 'select second register I2cstart 'generate repeated start I2cwbyte &HA1 'write address for reading I2crbyte S , Ack 'read seconds I2crbyte M , Ack 'read minuts I2crbyte H , Ack 'read hours I2crbyte Yd , Ack 'read year I2crbyte D , Ack 'read day I2crbyte Wm , Ack 'read weekday I2crbyte Month , Nack 'read month I2cstop 'generate stop Goto Zeit Zeit: S = Makedec(s) M = Makedec(m) H = Makedec(h) Yd = Makedec(yd) D = Makedec(d) Wm = Makedec(wm) Month = Makedec(month) If H >= 10 Then Locate 1 , 1 : Lcd H Else Locate 1 , 1 : Lcd " " ; H End If Locate 1 , 3 : Lcd ":" If M >= 10 Then Locate 1 , 4 : Lcd M Else Locate 1 , 4 : Lcd "0" ; M End If Locate 1 , 6 : Lcd ":" If S >= 10 Then Locate 1 , 7 : Lcd S Else Locate 1 , 7 : Lcd "0" ; S End If Locate 2 , 1 : Lcd D ; "." ; Month ; "." ; Yd ; " " ; Wm Waitms 100 Goto Gettime

Hallo tooltime

Danke dafür :-)

Werde es in den nächsten Tagen mal ausprobieren..

Scheint bei Euch schon 2Y zu laufen?

Hallo tooltime
Danke auch dafür, nur LCD Quarz + m88 angepasst (nach montage der i2c pullup) läuft suuuuppper!!!!!! :-)

Jahr geht nur 0.1.2.3 ist für Schaltjahrberechnung. Notfalls eine Speicherzelle für 0-256 opfern. Wenn der yP im Jahr 2256 noch läuft, muss ein Softwareupdate einen Offset dazuzählen oder auf 16bit erweitern für die "Ewigkeit" ;-)

Teste syncronität mit 5V und 2pF seit ca. 30Minuten, noch ziemlich syncron(<1sec). Morgen werd ich dann die Initalisierung rausnehmen um auch die Sync auf CR2032 zu testen.

Gute Nacht Wambly