Hallo,
ich versuch mich auch gerade an diesem Thema.
Habe den ds1307 auf einer kleinen Lochrasterplatine mit quartz direkt auf mein avr_ctrl board gesteckt.
Leider bekomme ich nur 85/85/85, manchmal auch was mit 165 raus.
Habe schon alle Varianten des Codes, die in diesem Thread vorgestellt werden ausprobiert. An der Hardware sollte es nicht liegen. Kann vielleicht jemand nochmal über den Code drübergucken.

Danke

Joschi

p.s.: ich hab keine ahnung, wie man hier so´n schickes code-fenster reinkriegt. deshalm mein code mal direkt.

$regfile = "8535def.dat"
$crystal = 8000000
$baud = 9600

Config Sda = Portd.5
Config Scl = Portd.3
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , Rs = Portc.0 , E = Portc.2
Config Lcdbus = 4

Dim _weekday As Byte
Dim _day As Byte
Dim _month As Byte
Dim _year As Byte
Dim _sec As Byte
Dim _min As Byte
Dim _hour As Byte
Dim ___lcdno As Bit

Dim Ds1307w As Byte
Dim Ds1307r As Byte

Ds1307w = &B11010000
Ds1307r = &B11010001

_day = 19
_month = 07
_year = 07
_sec = 00
_min = 33
_hour = 19


_sec = Makebcd(_sec)
_min = Makebcd(_min)
_hour = Makebcd(_hour)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 0
I2cwbyte _sec
I2cwbyte _min
I2cwbyte _hour
I2cstop


_day = Makebcd(_day)
_month = Makebcd(_month)
_year = Makebcd(_year)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 3
I2cwbyte _weekday
I2cwbyte _day
I2cwbyte _month
I2cwbyte _year
I2cstop






Do

Rem Datum und Zeit holen
'I2cstart
'I2cwbyte Ds1307w
'I2cwbyte 0
'I2cstop

I2cstart
I2cwbyte Ds1307w
I2cwbyte 0
I2cstart
I2cwbyte Ds1307w
I2crbyte _sec , Ack
I2crbyte _min , Ack
I2crbyte _hour , Ack
I2crbyte _weekday , Ack
I2crbyte _day , Ack
I2crbyte _month , Ack
I2crbyte _year , Nack
I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
_day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)




Cls
Locate 1 , 1
Lcd _day ; "/" ; _month ; "/" ; _year
Locate 2 , 1
Lcd _hour ; "/" ; _min ; "/" ; _sec


Waitms 500

Loop