A
amredries
Guest
لقد استخدمت في الوقت الحقيقي clom ds1302 مع الموافقة المسبقة عن علم 16F877
يبدو أنه عمل لكنني وجدت أنه عد ثانية من 0 إلى 99
ليس 60 ثانية هناك somthing خطأ يحدث عندما عد الثواني أنه يقفز
على سبيل المثال 35 36 45
هي رمز
الساعة :
rst منخفضة 'إعادة عقارب الساعة
sclk منخفضة
'مجموعة الأولي الساعة 8:00 صباحا 16/07/99
rtcyear = 99 دولار
rtcday = 06 $
rtcmonth = 07 $
rtcdate = 16 دولارا
rtchr = 08 $
rtcmin = 0
rtcsec = 0
settime gosub
'************************************************* **************
settime : 'ضبط الوقت
rst = 1 'تمكين البيانات تكساس
يصرخ الإعلام والتوعية ، sclk ، lsbfirst ، [$ 8e ، 0] 'تمكين الكتابة
rst = 0 'إعادة RTC
rst = 1 'على استعداد لتكساس
'الكتابة 8 RTC جميع السجلات في انفجار الوضع
يصرخ الإعلام والتوعية ، sclk ، LSBFIRST ، [$ يكون ، rtcsec ، rtcmin ، rtchr ، rtcdate ، rtcmonth ، rtcday ، cyear غ ، 0]
rst = 0 'إعادة RTC
العودة
'************************************************* **************
gettime : 'قراءة الوقت من RTC
rst = 1 'على استعداد لتكساس
يصرخ الإعلام والتوعية ، sclk ، LSBFIRST ، [$ فرنك بلجيكي] 'قراءة جميع السجلات في 8 RTC انفجر الوضع
قصبة الإعلام والتوعية ، sclk ، LSBPRE ، [rtcsec ، rtcmin ، rtchr ، rtcdate ، rtcmonth ، rtcday ، ص rtcyea ، rtccontrol]
rst = 0 'إعادة RTC
العودة
أنا باستخدام picbasic
الرجاء مساعدتي
شكرا
يبدو أنه عمل لكنني وجدت أنه عد ثانية من 0 إلى 99
ليس 60 ثانية هناك somthing خطأ يحدث عندما عد الثواني أنه يقفز
على سبيل المثال 35 36 45
هي رمز
الساعة :
rst منخفضة 'إعادة عقارب الساعة
sclk منخفضة
'مجموعة الأولي الساعة 8:00 صباحا 16/07/99
rtcyear = 99 دولار
rtcday = 06 $
rtcmonth = 07 $
rtcdate = 16 دولارا
rtchr = 08 $
rtcmin = 0
rtcsec = 0
settime gosub
'************************************************* **************
settime : 'ضبط الوقت
rst = 1 'تمكين البيانات تكساس
يصرخ الإعلام والتوعية ، sclk ، lsbfirst ، [$ 8e ، 0] 'تمكين الكتابة
rst = 0 'إعادة RTC
rst = 1 'على استعداد لتكساس
'الكتابة 8 RTC جميع السجلات في انفجار الوضع
يصرخ الإعلام والتوعية ، sclk ، LSBFIRST ، [$ يكون ، rtcsec ، rtcmin ، rtchr ، rtcdate ، rtcmonth ، rtcday ، cyear غ ، 0]
rst = 0 'إعادة RTC
العودة
'************************************************* **************
gettime : 'قراءة الوقت من RTC
rst = 1 'على استعداد لتكساس
يصرخ الإعلام والتوعية ، sclk ، LSBFIRST ، [$ فرنك بلجيكي] 'قراءة جميع السجلات في 8 RTC انفجر الوضع
قصبة الإعلام والتوعية ، sclk ، LSBPRE ، [rtcsec ، rtcmin ، rtchr ، rtcdate ، rtcmonth ، rtcday ، ص rtcyea ، rtccontrol]
rst = 0 'إعادة RTC
العودة
أنا باستخدام picbasic
الرجاء مساعدتي
شكرا