rtc ds1307 ساعت ارزان ولی بدون مشتری

[shahrokhzk]

پاسخ : rtc ds1307 ساعت ارزان ولی بدون مشتری

به نظرم اگه یک مدار مطمئن ببندی زود تر به نتیجه برسی اینجوری میفهمی مشکلت نویز بوده یا چیز دیگه
منم اول رو برد بورد که بستم مشکل داشتم بعد ولی چون بعضی وقتا درست میشد فهمیدم کلیت کارم درست بوده و احتمالا نویز دارم که پی سی بی زدم واسش و خیلی خوب کار کرد تو بدترین حالتها هم مشکلی نداشت تنها بدیش این بود که دقت کریستال کم بود با یکی جلو میرفت با یکی عقب میافتاد

[moslem1368]

پاسخ : rtc ds1307 ساعت ارزان ولی بدون مشتری

درست نشون می ده بعد کلا یا هنگ می کنه یا چرت و پرت نشون میده.اینم سخت افزارش.اگر امکانش هست یکی یه برنامه واسه این سخت افزار بده بهم

مقاومت هایی که برای SDA و SCL گذاشتی کمترشون کن. 5.6کیلو یا 4.7 کیلو.
یه خازن بزرگ هم بذار واسه تغذیه. بین VBATو زمین هم یه خازن 100نانو بذار

[rroozisia]

پاسخ : rtc ds1307 ساعت ارزان ولی بدون مشتری

رو پی سی بی زدم جنگولک درمیاره دیگه

[majidrt27]

پاسخ : rtc ds1307 ساعت ارزان ولی بدون مشتری

شاید عجیب باشه ولی احتمال کریستال هم هست. یه زحمتی بکش کرستال ساعت رو عوض کن بدنشو هم بزن به گراند.

[rroozisia]

پاسخ : rtc ds1307 ساعت ارزان ولی بدون مشتری

عوض کردم چن بار جواب نمیده

[moslem1368]

پاسخ : rtc ds1307 ساعت ارزان ولی بدون مشتری

عوض کردم چن بار جواب نمیده

پول پ SDA , SCL هم 5.6 و4.7 کیلو گذاشتی؟

[aed]

پاسخ : rtc ds1307 ساعت ارزان ولی بدون مشتری

ممکنه مشکل از برنامه شما باشه. دستورات i2c رو حذف کنید و یک عدد ثابت (یا متغیر) را روی سون سگمنت نشان دهید و آزمایش کنید. از آن جایی که ds1307 در هر ثانیه 1 بار به روز میشه، سعی کنید در هر ثانیه فقط یک بار اون رو بخونید و میکرو رو بیش از این درگیر این ارتباط نکنید (شاید همین کار رو انجام دادید).

[Masoud0711]

پاسخ : rtc ds1307 ساعت ارزان ولی بدون مشتری

سلام آقا به دادم بررررررسین
من با بسکام یک ds1307 راه انداختم pcb هم زدم ولی نمیدونم چرا بجای ساعت همه رو صفر نشون میده.
دستور lib$ رو حتما باید بزاریم؟

[iranesabz]

پاسخ : rtc ds1307 ساعت ارزان ولی بدون مشتری

سلام آقا به دادم بررررررسین
من با بسکام یک ds1307 راه انداختم pcb هم زدم ولی نمیدونم چرا بجای ساعت همه رو صفر نشون میده.
دستور lib$ رو حتما باید بزاریم؟

سلام
آقا مسعود وقتی که یک چنین مشکلی پیش میاد میتونه از تغذیه باشه شما یک خازن الکترولیتی 16 ولت رو با ظرفیت مناسب توی خروجی تغذیه قرار دهید مشکل انشالله رفع خواهد شد .

[Masoud0711]

پاسخ : rtc ds1307 ساعت ارزان ولی بدون مشتری

سلام
آقا مسعود وقتی که یک چنین مشکلی پیش میاد میتونه از تغذیه باشه شما یک خازن الکترولیتی 16 ولت رو با ظرفیت مناسب توی خروجی تغذیه قرار دهید مشکل انشالله رفع خواهد شد .

سلام ممنون از جوابتون ولی من این خازنه رو هم گذاشتم ولی ... :cry:

[iranesabz]

پاسخ : rtc ds1307 ساعت ارزان ولی بدون مشتری

به این سوالات پاسخ دهید تا دوستان بتونند مشکل شما رو برطرف کنند
یک ساعتتون با سون سگمنته یا با ال سی دی ؟
ساعتتون با چه فرکانسی کار میککنه ؟
ساعت آیا توی پروتیوس خوب جواب میده ؟
در صورتی که ساعت با سون سگمنت باشه آیا رفرشی طراحی شده یا نه ؟

[Masoud0711]

پاسخ : rtc ds1307 ساعت ارزان ولی بدون مشتری

به این سوالات پاسخ دهید تا دوستان بتونند مشکل شما رو برطرف کنند
یک ساعتتون با سون سگمنته یا با ال سی دی ؟
ساعتتون با چه فرکانسی کار میککنه ؟
ساعت آیا توی پروتیوس خوب جواب میده ؟
در صورتی که ساعت با سون سگمنت باشه آیا رفرشی طراحی شده یا نه ؟

روی ال سی دیه
آره تو پروتئوس خوب جواب میده

---

اضافه شده در تاریخ :
به دادم برسین که این موجوده 8 پا (ds1307) دیگه واسم اعصاب نذاشته هر کاری میکنم سازه خودشو میزنه همش زمان رو صفر نشون میده.
برنامم میدونم درسته چون از به برنامه آماده برداشتم تو پروتئوسم جواب میده فقط یه سوال درباره برنامه داشتم که هرچی سرچ زدم آخرش نفهمیدم
دستور lib$=ds1307clock.lib تو بسکام نقشش چیه این وسط
تو سخت افزارم مگه وقتی 5 ولت تغذیه رو به ds1307 وصله نذاشتن باتری backup تاثیری داره؟؟
ممنون

[ramin1st]

پاسخ : rtc ds1307 ساعت ارزان ولی بدون مشتری

سلام به همه
من با DS1307 چند تا ساعت درست کردم مشکلی نداشته البته از کریستال موبایل و باتری سکه ای معمولی استفاده میکنم عیب DS1307 اینه که نمیشه فرکانس اسیلاتورش رو کالیبره کرد در صورتی که در ایسی PCF8523 این امکان با استفاده از یک خازن تریمر امکان پذیره و میشه فرکانس رو حتی در صورت مرغوب نبودن کریستال تنظیم کرد (ساعت های حرم اینجوری اند) برای برنامه هم من از سمپل و کتابخانه خود بسکام استفاده میکنم که خودش به صورت اتوماتیک بدون این که زیر برنامه ای براش تعریف بشه مقادیر رو از ایسی میخونه و داخل متغیر های محلی که بازم خود کتابخونه اونا رو تعریف کرده میریزه به همین راحتی !

[Masoud0711]

پاسخ : rtc ds1307 ساعت ارزان ولی بدون مشتری

سلام به همه
من با DS1307 چند تا ساعت درست کردم مشکلی نداشته البته از کریستال موبایل و باتری سکه ای معمولی استفاده میکنم عیب DS1307 اینه که نمیشه فرکانس اسیلاتورش رو کالیبره کرد در صورتی که در ایسی PCF8523 این امکان با استفاده از یک خازن تریمر امکان پذیره و میشه فرکانس رو حتی در صورت مرغوب نبودن کریستال تنظیم کرد (ساعت های حرم اینجوری اند) برای برنامه هم من از سمپل و کتابخانه خود بسکام استفاده میکنم که خودش به صورت اتوماتیک بدون این که زیر برنامه ای براش تعریف بشه مقادیر رو از ایسی میخونه و داخل متغیر های محلی که بازم خود کتابخونه اونا رو تعریف کرده میریزه به همین راحتی !

جریان این کتابخونه ای که میفرمایید چیه؟؟همین فقط تو برنامه اسم کتابخونه رو بنویسیم کافیه یا باید کتابخونشو دانلود کنیم؟

[ramin1st]

پاسخ : rtc ds1307 ساعت ارزان ولی بدون مشتری

سلام دوست عزیز منظورم این برنامه هست

'-------------------------------------------------------------------------------
'              DS1307.BAS
' shows how to use the ds1307 clock on the 2313 futurlec board
' it also shows the CONFIG CLOCK=USER option
'-------------------------------------------------------------------------------
$regfile = "2313def.dat"
$crystal = 8000000
$baud = 19200
$lib "mcsbyte.lbx"                     ' for smaller code
$lib "ds1307clock.lib"                   ' modified lib
$framesize = 16
$hwstack = 24
$swstack = 16


'configure the scl and sda pins
Config Sda = Portd.6
Config Scl = Portd.5

'address of ds1307
Const Ds1307w = &HD0                    ' Addresses of Ds1307 clock
Const Ds1307r = &HD1

Config Clock = User                     ' this will dim the bytes automatic
'dim other needed variables
Dim Weekday As Byte

Print "DS1307"
Waitms 100
' assigning the time will call the SetTime routine
Time$ = "23:58:59"                     ' to watch the day changing value
Date$ = "11-13-02"                     ' 13 november 2002
Do
 Print "Date Time : " ; Date$ ; " " ; Time$
 Waitms 500
Loop

End

'called from ds1307clock.lib
Getdatetime:
 I2cstart                         ' Generate start code
 I2cwbyte Ds1307w                     ' send address
 I2cwbyte 0                        ' start address in 1307

 I2cstart                         ' Generate start code
 I2cwbyte Ds1307r                     ' send address
 I2crbyte _sec , Ack
 I2crbyte _min , Ack                    ' MINUTES
 I2crbyte _hour , Ack                   ' Hours
 I2crbyte Weekday , Ack                  ' Day of Week
 I2crbyte _day , Ack                    ' Day of Month
 I2crbyte _month , Ack                   ' Month of Year
 I2crbyte _year , Nack                   ' Year
 I2cstop
 _sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
 _day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
Return

Setdate:
 _day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
 I2cstart                         ' Generate start code
 I2cwbyte Ds1307w                     ' send address
 I2cwbyte 4                        ' starting address in 1307
 I2cwbyte _day                       ' Send Data to SECONDS
 I2cwbyte _month                      ' MINUTES
 I2cwbyte _year                      ' Hours
 I2cstop
Return

Settime:
 _sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
 I2cstart                         ' Generate start code
 I2cwbyte Ds1307w                     ' send address
 I2cwbyte 0                        ' starting address in 1307
 I2cwbyte _sec                       ' Send Data to SECONDS
 I2cwbyte _min                       ' MINUTES
 I2cwbyte _hour                      ' Hours
 I2cstop
Return

---

اضافه شده در تاریخ :
با سلام دوست عزیز منظورم این سورسه :

'-------------------------------------------------------------------------------
'              DS1307.BAS
' shows how to use the ds1307 clock on the 2313 futurlec board
' it also shows the CONFIG CLOCK=USER option
'-------------------------------------------------------------------------------
$regfile = "2313def.dat"
$crystal = 8000000
$baud = 19200
$lib "mcsbyte.lbx"                     ' for smaller code
$lib "ds1307clock.lib"                   ' modified lib
$framesize = 16
$hwstack = 24
$swstack = 16


'configure the scl and sda pins
Config Sda = Portd.6
Config Scl = Portd.5

'address of ds1307
Const Ds1307w = &HD0                    ' Addresses of Ds1307 clock
Const Ds1307r = &HD1

Config Clock = User                     ' this will dim the bytes automatic
'dim other needed variables
Dim Weekday As Byte

Print "DS1307"
Waitms 100
' assigning the time will call the SetTime routine
Time$ = "23:58:59"                     ' to watch the day changing value
Date$ = "11-13-02"                     ' 13 november 2002
Do
 Print "Date Time : " ; Date$ ; " " ; Time$
 Waitms 500
Loop

End

'called from ds1307clock.lib
Getdatetime:
 I2cstart                         ' Generate start code
 I2cwbyte Ds1307w                     ' send address
 I2cwbyte 0                        ' start address in 1307

 I2cstart                         ' Generate start code
 I2cwbyte Ds1307r                     ' send address
 I2crbyte _sec , Ack
 I2crbyte _min , Ack                    ' MINUTES
 I2crbyte _hour , Ack                   ' Hours
 I2crbyte Weekday , Ack                  ' Day of Week
 I2crbyte _day , Ack                    ' Day of Month
 I2crbyte _month , Ack                   ' Month of Year
 I2crbyte _year , Nack                   ' Year
 I2cstop
 _sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
 _day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
Return

Setdate:
 _day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
 I2cstart                         ' Generate start code
 I2cwbyte Ds1307w                     ' send address
 I2cwbyte 4                        ' starting address in 1307
 I2cwbyte _day                       ' Send Data to SECONDS
 I2cwbyte _month                      ' MINUTES
 I2cwbyte _year                      ' Hours
 I2cstop
Return

Settime:
 _sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
 I2cstart                         ' Generate start code
 I2cwbyte Ds1307w                     ' send address
 I2cwbyte 0                        ' starting address in 1307
 I2cwbyte _sec                       ' Send Data to SECONDS
 I2cwbyte _min                       ' MINUTES
 I2cwbyte _hour                      ' Hours
 I2cstop
Return