سلام.من این برنامه رو نوشتم.وکریستال ساعت هم وصل کردم ولی ساعت اصلا دقیق نیست اشکال کجاست ؟
آیا میشه از همین یه ساعت دقیق ساخت یا باید از راه دیگه ای استفاده کنم؟(برنامه کتاب کاهه)
:read:(بعد نوشت: نخیر RTC میکرو اصلا دقیق نیست و باید از یک RTC خارجی دقیق مثه DS1307 استفاده کرد به اضافه یه کریستال ساعت که از داخل ساعتهای قدیمی جدا کرده باشی چون جنس کریستالش خوبه.) :read:(بعد نوشت:برای یاد گرفتن این ساعت خیلی اینجا بحث کردیم و بالاخره موفق شدم و چند پروژه با این DS1307 ساختم.اگه نخواستی تا آخر این تاپیک طولانی رو بخونی بهم پیغام خصوصی بده تا تجربیات خودم رو در اختیارت بزارم)
:read:(بعد نوشت:اینجا باید از آقای حامد رحیمی عزیز که وقت و حوصله زیادی گذاشتن تا این تاپیک به سرانجام برسه تشکر کنم)
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4
Config Lcd = 16 * 2
Config Clock = Soft , Gosub = Sectic
Config Date = Ymd , Separator = /
Enable Interrupts
Date$ = "11/11/00"
Time$ = "02
00"
Cursor Off
Deflcdchar 0 , 32 , 32 , 32 , 32 , 21 , 31 , 32 , 32
Deflcdchar 1 , 32 , 4 , 4 , 4 , 4 , 7 , 32 , 32
Deflcdchar 2 , 32 , 32 , 32 , 7 , 4 , 31 , 32 , 32
Deflcdchar 3 , 32 , 32 , 10 , 32 , 17 , 31 , 32 , 32
Do
Loop
End 'end program
Sectic:
Home
Lcd Time$ ; " " ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(0)
Locate 2 , 1
Lcd Date$
Return
آیا میشه از همین یه ساعت دقیق ساخت یا باید از راه دیگه ای استفاده کنم؟(برنامه کتاب کاهه)
:read:(بعد نوشت: نخیر RTC میکرو اصلا دقیق نیست و باید از یک RTC خارجی دقیق مثه DS1307 استفاده کرد به اضافه یه کریستال ساعت که از داخل ساعتهای قدیمی جدا کرده باشی چون جنس کریستالش خوبه.) :read:(بعد نوشت:برای یاد گرفتن این ساعت خیلی اینجا بحث کردیم و بالاخره موفق شدم و چند پروژه با این DS1307 ساختم.اگه نخواستی تا آخر این تاپیک طولانی رو بخونی بهم پیغام خصوصی بده تا تجربیات خودم رو در اختیارت بزارم)
:read:(بعد نوشت:اینجا باید از آقای حامد رحیمی عزیز که وقت و حوصله زیادی گذاشتن تا این تاپیک به سرانجام برسه تشکر کنم)
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4
Config Lcd = 16 * 2
Config Clock = Soft , Gosub = Sectic
Config Date = Ymd , Separator = /
Enable Interrupts
Date$ = "11/11/00"
Time$ = "02

Cursor Off
Deflcdchar 0 , 32 , 32 , 32 , 32 , 21 , 31 , 32 , 32
Deflcdchar 1 , 32 , 4 , 4 , 4 , 4 , 7 , 32 , 32
Deflcdchar 2 , 32 , 32 , 32 , 7 , 4 , 31 , 32 , 32
Deflcdchar 3 , 32 , 32 , 10 , 32 , 17 , 31 , 32 , 32
Do
Loop
End 'end program
Sectic:
Home
Lcd Time$ ; " " ; Chr(3) ; Chr(2) ; Chr(1) ; Chr(0)
Locate 2 , 1
Lcd Date$
Return
دیدگاه