سلام
یک ساعت با ds1307 درست کردم را نمیوفته
اگه کمی دست به پایه های دی اس بزنم شاید شروع بکار کنه ودیگه مشکلی نداره تا
وقتی که باتری بک اپ را خارج کنم و دوباره باتری را بزارم بازم روی چهارتا صفر میمونه
ایا قبل ار do باید برنامه اضافه بشه برا راه اندازی؟
از نظر باتری و دی اس هم مطمعن هستم سالمه
$regfile = "m8def.dat"
$crystal = 8000000
$lib "ds1307clock.lib"
'-----------------------------------------------------
Config Sda = Portd.1
Config Scl = Portd.0
'****************************
Const Ds1307w = &HD0
Const Ds1307r = &HD1
I2cstart
I2cwbyte Ds1307w
I2cwbyte 0
I2cstart
I2cwbyte Ds1307r
I2crbyte 1_sec , Ack
I2crbyte 1_min , Ack
I2crbyte 1_hour , Nack
I2cstop
1_sec = Makedec(1_sec) : 1_min = Makedec(1_min) : 1_hour = Makedec(1_hour)
Do
Gosub Read_date_time
Gosub 7seg
Gosub Chekkey
Loop
یک ساعت با ds1307 درست کردم را نمیوفته
اگه کمی دست به پایه های دی اس بزنم شاید شروع بکار کنه ودیگه مشکلی نداره تا
وقتی که باتری بک اپ را خارج کنم و دوباره باتری را بزارم بازم روی چهارتا صفر میمونه
ایا قبل ار do باید برنامه اضافه بشه برا راه اندازی؟
از نظر باتری و دی اس هم مطمعن هستم سالمه
$regfile = "m8def.dat"
$crystal = 8000000
$lib "ds1307clock.lib"
'-----------------------------------------------------
Config Sda = Portd.1
Config Scl = Portd.0
'****************************
Const Ds1307w = &HD0
Const Ds1307r = &HD1
I2cstart
I2cwbyte Ds1307w
I2cwbyte 0
I2cstart
I2cwbyte Ds1307r
I2crbyte 1_sec , Ack
I2crbyte 1_min , Ack
I2crbyte 1_hour , Nack
I2cstop
1_sec = Makedec(1_sec) : 1_min = Makedec(1_min) : 1_hour = Makedec(1_hour)
Do
Gosub Read_date_time
Gosub 7seg
Gosub Chekkey
Loop