کمک برای ساخت ساعت و تاریخ شمسی با ds1307

[کوروش7000]

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

این برنامه به صورت میلادی:

$regfile = "m32def.dat"
$crystal = 1000000


Config Porta = Output
Config Portb = Output
Config Portd = Output


Config Pinc.5 = Input
Config Pinc.6 = Input
Config Pinc.7 = Input




$lib "Ds1307clock.lib"


Config Sda = Portc.1
Config Scl = Portc.0




Dim _sec As Byte
  Dim _min As Byte
    Dim _hour As Byte






Dim Y2 As Word
Dim Y1 As Word
Dim Mo2 As Word
Dim Mo1 As Word
Dim D2 As Word
Dim D1 As Word


Dim _day As Integer
Dim _month As Integer
Dim _year As Integer




Dim Weekday As Integer










Const Ds1307w = &HD0
Const Ds1307r = &HD1






Main:
Do


 Gosub Ds1307
    Gosub Saat
    Gosub Key




Loop








Key:
Debounce Pinc.5 , 0 , Dayy , Sub
Debounce Pinc.6 , 0 , Monthh , Sub
Debounce Pinc.7 , 0 , Yearr , Sub
Return




Saat:




If _day > 31 Then _day = 0
_day = Makebcd(_day)




    If _month > 12 Then _month = 0
_month = Makebcd(_month)






If _year > 99 Then _year = 0
_year = Makebcd(_year)




_day = Makedec(_day)
           _month = Makedec(_month)
             _year = Makedec(_year)










         Y1 = _year / 10


         Y2 = _year Mod 10






         Mo1 = _month / 10


         Mo2 = _month Mod 10




         D1 = _day / 10


         D2 = _day Mod 10




         Set Portb.1
         Reset Portb.2
         Reset Portb.3
         Reset Portb.4
         Reset Portb.5
         Reset Portb.6
         Porta = Lookup(y2 , Dta)
         Waitms 2




         Reset Portb.1
         Set Portb.2
         Reset Portb.3
         Reset Portb.4
         Reset Portb.5
         Reset Portb.6
         Porta = Lookup(y1 , Dta)
         Waitms 2




         Reset Portb.1
         Reset Portb.2
         Set Portb.3
         Reset Portb.4
         Reset Portb.5
         Reset Portb.6
         Porta = Lookup(mo2 , Dta)
         Waitms 2




         Reset Portb.1
         Reset Portb.2
         Reset Portb.3
         Set Portb.4
         Reset Portb.5
         Reset Portb.6
         Porta = Lookup(mo1 , Dta)
         Waitms 2






         Reset Portb.1
         Reset Portb.2
         Reset Portb.3
         Reset Portb.4
         Set Portb.5
         Reset Portb.6
         Porta = Lookup(d2 , Dta)
         Waitms 2






         Reset Portb.1
         Reset Portb.2
         Reset Portb.3
         Reset Portb.4
         Reset Portb.5
         Set Portb.6
         Porta = Lookup(d1 , Dta)
         Waitms 2






 Return








Ds1307:
  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
















Dayy:
Incr _day
If _day > 31 Then _day = 0
_day = Makebcd(_day)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 4
I2cwbyte _day
I2cstop
Return






Monthh:
Incr _month
If _month > 12 Then _month = 0
_month = Makebcd(_month)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 5
I2cwbyte _month
I2cstop
Return




Yearr:
Incr _year
If _year > 99 Then _year = 0
_year = Makebcd(_year)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 6
I2cwbyte _year
I2cstop
Return
















Dta:
Data &HC0 , &HF9 , &HA4 , &HB0 , &H99 , &H92 , &H82 , &HF8 , &H80 , &H90 , &HBF

متغییرهای ساعت و دقیقه و ثانیه رو واسه ادامه کار تعریف کردم چون میخوام هم زمان هم تاریخ نمایش داده بشه ساعت هم مشکلی نداره برنامه اش هست میذارم الان مشکل تبدیل این تاریخ میلادی به شمسی هست

دوستان بیاند این بحث رو به نتیجه برسونیم

[کوروش7000]

البته خودم تاریخ شمسی رو با اون تابعی که اماده هست (داخل نت هستش) تست کردم منتهی موقع نمایش چندتا ایراد داره
1- دهگان سال رو نشون نمیده
2-موقع تنظیم با کلید ،ماه و روز باهم تغییر میکنند و یه جورایی قاطی میکنه مثل برنامه بالا منظم کار نمیکنه داخل پروتئوس هم همچین ایرادی رو دیدم موندم ایراد از کجاست من ورودی رو از آی سی ds1307 میگیرم میدم به تابع تبدیل شمسی بعدش خروجی اون رو میام رو سون سگمنت نشون میدم قاطی میکنه درحالی که همین کار رو با میلادی انجام میدم درسته

[کوروش7000]

کسی نیست؟

[کوروش7000]

ای بابا عجب انجمن سوت و کوری اینجا گفتم اینجا بحث رو مطرح کنم همه شرکت میکنن انگار اشتباه کردم

[omidctrl]

سلام. من یه برنامه ساعت(قابل کوک شدن) و تاریخ شمسی (برنامه شمسی کردن تاریخش رو از نت کش رفتم) با ds1307 نوشتم و مدارش رو هم عملی بستم جواب داده.برنامه رو با فایل پروتئوس براتون گذاشتم فقط به توضیحات زیر توجه کنید:
1- برنامه در حالت عادی ساعت و دقیقه را نشان میدهد و با زدن دکمه chang روز و ماه رو به شمسی نشون میده
2-از کلید ست در منوی ساعت برای تنظیم ساعت و در منوی تاریخ برای تنظیم تاریخ استفاده میشه
3-از کلید کوک برای کوک کردن ساعت استفاده شده و در صورت پشیمونی بعد از کوک کردن با کلید قطع کن زنگ (stop( کوک برداشته می شود.
از اونجایی که خودمم تازه میکرو یاد گرفتم برنامه سادس ولی یکم طولانیه ، هرجاش رو مشکل داشتین در خدمتم.

[کوروش7000]

دوست عزیز بابت برنامه تشکر..........من میخوام برنامه بالارو اصلاح کنم شما میتونی کمک کنی؟

[کوروش7000]

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

- - - Updated - - -

برنامه شما خیلی طولانیه بخوام خط به خط آنالیزش کنم خیلی وقت می بره چون میخوام سریع یه کاری تحویل بدم با همین برنامه بالا میخوام تمومش کنم فقط تو تاریخ مشکل دارم تو نمایش ساعت مشکلی نیست

[omidctrl]

الآن شما روز،ماه و سال رو به میلادی دارین. البته توجه کنین که ds1307 سال مثلا 2015 رو 15 میده و شما باید سالی که از آی سی میخونید رو به اضافه 2000 کنین.
حالا این متغیر هایی که از آی سی گرفتین رو از طریق همون برنامه تبدیل میلادی به شمسی به شمسی تبدیل کنین و نمایش بدین. فقط باید حواستون باشه که بعداز تنظیم تاریخ باید دوباره شمسی رو به میلادی تبدیل کنین بعد از سال 2000 تا کم کنین بدین به آی سی که اون از تاریخ تنظیمی شما شروع کنه به شمارش.

[کوروش7000]

الان من برنامه ای که باهاش میخوام تبدیل کنم رو میذارم ببینید داخل برنامه بالا گذاشتم

این برنامه مربوط به تبدیل میلای به شمسی:

$regfile = "m32def.dat"
$crystal = 1000000


Config Porta = Output
Config Portb = Output
Config Portd = Output


Config Pinc.5 = Input
Config Pinc.6 = Input
Config Pinc.7 = Input




$lib "Ds1307clock.lib"


Config Sda = Portc.1
Config Scl = Portc.0




Dim _sec As Byte
  Dim _min As Byte
    Dim _hour As Byte






Dim Y2 As Word
Dim Y1 As Word
Dim Mo2 As Word
Dim Mo1 As Word
Dim D2 As Word
Dim D1 As Word


Dim _day As Integer
Dim _month As Integer
Dim _year As Integer










Dim Myear As Integer
Dim Mday As Integer
Dim Weekday As Integer
Dim Mmonth As Integer
Dim Mdayofyear As Integer
Dim Myear_ As Integer


Dim Jday As Integer
Dim Jmonth As Integer
Dim Jyear As Integer
Dim Jdayofyear As Integer


Dim Gnumdayofyear As Integer
Dim Isleapyear As Bit
Dim Isleapyearp As Bit


Dim Iloop As Byte
Dim Temp1 As Integer
Dim Temp2 As Integer
Dim Temp3 As Integer
Dim Temp4 As Integer


Dim Jmonth_a(12) As Byte
Dim Mmonth_a(12) As Byte








Const Ds1307w = &HD0
Const Ds1307r = &HD1






Main:
Do


 Gosub Ds1307
    Gosub Saat
    Gosub Key




Loop








Key:
Debounce Pinc.5 , 0 , Dayy , Sub
Debounce Pinc.6 , 0 , Monthh , Sub
Debounce Pinc.7 , 0 , Yearr , Sub
Return




Saat:




If _day > 31 Then _day = 0




    If _month > 12 Then _month = 0




If _year > 99 Then _year = 0






Mmonth_a(1) = 31


Mmonth_a(2) = 28
Mmonth_a(3) = 31


Mmonth_a(4) = 30
Mmonth_a(5) = 31
Mmonth_a(6) = 30


Mmonth_a(7) = 31
Mmonth_a(8) = 31
Mmonth_a(9) = 30


Mmonth_a(10) = 31
Mmonth_a(11) = 30
Mmonth_a(12) = 31


Gnumdayofyear = 365






'****************************************
Myear = _year + 2000
Mday = _day
Mmonth = _month




Temp1 = Myear Mod 4
Temp2 = Myear Mod 100
Temp3 = Myear Mod 400
Temp4 = Temp1 And Temp2


If Temp4 <> 0 Or Temp3 = 0 Then
Mmonth_a(2) = 28
Else
Mmonth_a(2) = 29
End If




Myear_ = Myear - 1
Temp1 = Myear_ Mod 4
Temp2 = Myear_ Mod 100
Temp3 = Myear_ Mod 400
Temp4 = Temp1 And Temp2


If Temp4 <> 0 Or Temp3 = 0 Then
Reset Isleapyearp
Else
Set Isleapyearp
End If


Temp1 = Mmonth - 1


For Iloop = 1 To Temp1
Mdayofyear = Mmonth_a(iloop) + Mdayofyear
Next
Mdayofyear = Mday + Mdayofyear






If Mdayofyear > 79 Then


Temp1 = Mdayofyear - 79
Jyear = Myear - 621


If Temp1 < 186 Then


Temp2 = Temp1 Mod 31
Temp3 = Temp1 / 31


If Temp2 = 0 Then
Jmonth = Temp3
Jday = 31
Else
Jmonth = Temp3 + 1
Jday = Temp2
End If


Else


Temp2 = Temp1 - 186
Temp3 = Temp2 Mod 30
Temp4 = Temp2 / 30


If Temp3 = 0 Then
Jmonth = Temp4 + 6
Jday = 30
Else
Jmonth = Temp4 + 7
Jday = Temp3
End If


End If


Else


Jyear = Myear - 622


If Isleapyearp = 1 Then
Mdayofyear = Mdayofyear + 11
Else
Mdayofyear = Mdayofyear + 10
End If


Temp2 = Mdayofyear Mod 30
Temp3 = Mdayofyear / 30


If Temp2 = 0 Then
Jmonth = Temp3 + 9
Jday = 30
Else
Jmonth = Temp3 + 10
Jday = Temp2
End If


End If


Mdayofyear = 0




         Y1 = Jyear / 10


         Y2 = Jyear Mod 10






         Mo1 = Jmonth / 10


         Mo2 = Jmonth Mod 10




         D1 = Jday / 10


         D2 = Jday Mod 10




         Set Portb.1
         Reset Portb.2
         Reset Portb.3
         Reset Portb.4
         Reset Portb.5
         Reset Portb.6
         Porta = Lookup(y2 , Dta)
         Waitms 2




         Reset Portb.1
         Set Portb.2
         Reset Portb.3
         Reset Portb.4
         Reset Portb.5
         Reset Portb.6
         Porta = Lookup(y1 , Dta)
         Waitms 2




         Reset Portb.1
         Reset Portb.2
         Set Portb.3
         Reset Portb.4
         Reset Portb.5
         Reset Portb.6
         Porta = Lookup(mo2 , Dta)
         Waitms 2




         Reset Portb.1
         Reset Portb.2
         Reset Portb.3
         Set Portb.4
         Reset Portb.5
         Reset Portb.6
         Porta = Lookup(mo1 , Dta)
         Waitms 2






         Reset Portb.1
         Reset Portb.2
         Reset Portb.3
         Reset Portb.4
         Set Portb.5
         Reset Portb.6
         Porta = Lookup(d2 , Dta)
         Waitms 2






         Reset Portb.1
         Reset Portb.2
         Reset Portb.3
         Reset Portb.4
         Reset Portb.5
         Set Portb.6
         Porta = Lookup(d1 , Dta)
         Waitms 2






 Return








Ds1307:
  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
















Dayy:
Incr _day
If _day > 31 Then _day = 0
_day = Makebcd(_day)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 4
I2cwbyte _day
I2cstop
Return






Monthh:
Incr _month
If _month > 12 Then _month = 0
_month = Makebcd(_month)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 5
I2cwbyte _month
I2cstop
Return




Yearr:
Incr _year
If _year > 99 Then _year = 0
_year = Makebcd(_year)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 6
I2cwbyte _year
I2cstop
Return
















Dta:
Data &HC0 , &HF9 , &HA4 , &HB0 , &H99 , &H92 , &H82 , &HF8 , &H80 , &H90 , &HBF

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

[omidctrl]

اگه فایل شبیه سازیش رو دارین بذارید. اینطوری سخت میشه فهمید مشکلش چیه.
توی زیر برنامه ساعت If _day > 31 Then _day = 0
برای تنظیم از طریق کلید هست ؟ روز ،ماه و سال که نمیتونن صفر باشن!!

[کوروش7000]

اگه فایل شبیه سازیش رو دارین بذارید. اینطوری سخت میشه فهمید مشکلش چیه.
توی زیر برنامه ساعت If _day > 31 Then _day = 0
برای تنظیم از طریق کلید هست ؟ روز ،ماه و سال که نمیتونن صفر باشن!!

آره چرا نمیتونن صفرشند؟پس وقتی ماه مثلا به 12میرسه همینجوری که نمیشه ادامه بده !!!
بله فایلش پیوست شد
فقط چک کنید حتما شاید ایراد از همون نکته ای باشه که گفتید:

فقط باید حواستون باشه که بعداز تنظیم تاریخ باید دوباره شمسی رو به میلادی تبدیل کنین بعد از سال 2000 تا کم کنین بدین به آی سی که اون از تاریخ تنظیمی شما شروع کنه به شمارش.

اگه به این مربوط میشه بگید چطوری رفعش کنم اصلا شاید اون تکه برنامه که واسه تبدیل گذاشتم ناقص هست!!!

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

[omidctrl]

نه دیگه، بعداز ماه 12 ماه 1 میاد نه صفر

[کوروش7000]

نه دیگه، بعداز ماه 12 ماه 1 میاد نه صفر

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

[omidctrl]

فایل شبیه سازی پروتئوسش کو؟

[کوروش7000]

فایل شبیه سازی پروتئوسش کو؟

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

[omidctrl]

پسوندش باید .dsn باشه.

[کوروش7000]

پسوندش باید .dsn باشه.

من سیو کردم ولی همچین پسوندی نداره !!! save project میزنم همین فایلی که اپ کردم ذخیره میشه گزینه دیگه ای داره ؟

[omidctrl]

من برنامه شما رو با قسمت تاریخ برنامه خودم ترکیب کردم یه چیزی در اومد.به سخت افزارتون آسیبی نرسید ولی اسم متغیرها عوض شدن. نتونستم شبیه سازیش کنم ببینم درست کار میکنه.

[کوروش7000]

نه تست کردم جواب نداد نگفتید چطوری با پسوند dsn ذخیره کنم ؟

[omidctrl]

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