ساختن ساعت

[حامد رحیمی]

پاسخ : ساختن ساعت

یه دنیا ممنون امید جون ولی مشکل داداش گلمون اینه که وقتی برقو قطع میکنن ds1307 ریست میشه من 10 تا 1307 معمولی و 2 تا smd رو کاملا تستش کردم واسه 5 نفر مدارشو دادم الان همشون کار میکنن بدون هیچ گونه مشکل خاصی نمی دونم چرا وقتی بچه ها یه مشکل پیدا می کنن نمی خوان درستش کنن
من خودم اولین مشکل که با 1307 داشتم این بود که باطری 3.7 گذاشته بودم و ای سی هنگ می کرد بعد با عوض کردن باطری درست شد باطری معمولی گذاشتم "باطری ساعت "
ولی کو گوش شنوا :cry2:
نمی گم من زیاد می دونم ولی به خدا قسم تاریخ اولین پست منو تو این تاپیک ببینید
http://www.eca.ir/forum2/index.php?topic=38492.0
من ماه ها قبل از اون تا ریخ شروع به کار کردم الانم چندین مدار ساعت رو به دوستام فروختم خیلی خوب کار میکنه خودم 5 ماه تست کردم بدون وصل کردن برق به مدار داره کار میکنه باطری اصلا تکون نمی خوره
حالا تو پست های بالا داداش گلم میگه اهن ربای بلند گو رو مدار تاثیر داره :angry:
:bye

[shahin-shargh]

پاسخ : ساختن ساعت

اتاق کار من پرشده از باتری بکاپ از انواع و قیمتهای مختلف که عملکرد همه ی اونها عین همه!
باتری بکاپ سیستم خودم رو کندم زدم باز برق قطع بشه چند ثانیه یا دقیقه عقب میوفته!
دوخازن10میکرو سر VBAT ,VCCمیزارم.کریستال ساعت رو از یه ساعت کندم بدون داغی. بدنه رو به زمین وصل می کنم.
خودآیسی هم روش با رنگ سفید پررنگ نوشته.جای باتری بکاپ با سیم مفتولی به آیسی وصله.باتری رو وصل می کنم بعد مدار رو روشن می کنم.باتری بکپ هم که همه رقمش رو زدم.دیگه چیزی مونده؟
__________________________________________________ _______________________
واسه تغذیه مدار ساعت از چی استفاده کردی؟از آداپتور معمولی؟
با دوستم صحبت می کردم می گفت از اونجایی که این مدار همیشه باید به برق وصل بشه اگه از آداپتور معمولی استفاده کنی یواش یواش گرما روش اثر میزاره حداکثر بعد یه ماه این آداپتور شروع می کنه به خراب شدن و از کار میوفته.باید از تراسهایی مثه تراس آیفن استفاده کنی....
نظرت چیه؟ :nerd:

[حامد رحیمی]

پاسخ : ساختن ساعت

تو مدارت یه مشکلی داره
من با یه ترانس معمولی 10 روز و با یه ترانس 2 امپر سویچینگ 10 تار رله و 2 تا مدار یکی دماسنج و اون یکی ساعت رو راه اندازی کردم فک کنم یه 6 ماهی باشه کار میکنه بدون 1 دقیقه قطع کردن اون در حالیه که یکی از مداراتم هم بدون برق و با باطری بیش از 4 ماه است کار میکنه در ضمن
تمامی قطعات رو با تینر و مسواک تمیز کن تا باطریت خالی نشه و ساعت درست کار کنه :bye

[shahin-shargh]

پاسخ : ساختن ساعت

دوباره سلام.ایام محرم رو تسلیت میگم.انشاالله از یاران حضرت اباعبدالله باشیم.
من مدار ساعت رو روی برد برد بستم.تغذیه های ds1307 و میکرو رو جدا از هم کردم(5ولتی).باتری بکاپ دکمه ای هم فقط به ds1307 وصله.
وقتی فقط تغذیه میکرو رو قطع می کنم و بعد وصل می کنم ساعت به صورت تصادفی یه ثانیه ای می زنه. هربار که قطع و وصل می کنم یه عددی.
یادت باشه تغذیه برق شهرds1307 و باتری بکاپ هم وصله......من فقط تغذیه میکرو قطع و وصل کردم.
ظاهرا اشکال از ds1307 و باتری بکاپ نیست!
مشکل از میکرو و تغذیه اون هست.شاید نویز قطع و وصله.....ولی من چندتا خازن واسه نویز گذاشتم.
مدار و برنامه هم که ماله یزدکیته.

[narek]

پاسخ : ساختن ساعت

داداش برنامه یزد کیتو بیخیال شو منم از اون استفاده میکردم دقیقا همین مشکل شما رو داشتم با هر بار خاموش روشن یه 10 -20 ثانیه عقب جلو میشد!
من از همین برنامه هایی که تو این انجمن بود استفاده کردم جواب گرفتم شما هم امتحان کن
خبرشو بده... :bye

[حامد رحیمی]

پاسخ : ساختن ساعت

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

[shahin-shargh]

پاسخ : ساختن ساعت

سلام به narek عزیز و حامد عزیز. :applause:
ظاهرا برنامه انجمن هم همین برنامه ی یزد کیت بود که رفقا توسعه اش دادن.
narek عزیز یعنی شما میگی این برنامه ها باهم فرق دارن؟ دمت گرم این برنامه بزار واسم.ممنونم :agree:
حامد جان.
منظورت رو متوجه نشدم.
این پول پ و پول دادن که واسه تغییر متغیر ثانیه و دقیقه و ساعته. :eek:
مشکل من تغذیه خود آی سی میکرو هست(قطع و وصل کلید منبع تغذیه).چیزی که narek گفت منظورمه.
یه جایی گیر داره ولی نمی دونم کجاست؟
یعنی مشکل برنامه است مثلا مشکل ارتباط I2C هست؟!
یا مشکل سخت افزاری داره؟! :eek:

[narek]

پاسخ : ساختن ساعت

اگر اشتباه نکنم این برنامه بود:
$regfile = "m8def.dat"
$crystal = 1000000
'------------------------ lcd -----------------------------------------------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Pind.0 , E = Pind.1 , Db4 = Pind.2 , Db5 = Pind.3 , Db6 = Pind.4 , Db7 = Pind.5
Cls

'--------------------------- ds 1307 -----------------------------------------
$lib "ds1307clock.lib"
'configure the scl and sda pins
Config Sda = Portd.7
Config Scl = Portd.6
'address of ds1307
Const Ds1307w = &HD0 ' Addresses of Ds1307 clock
Const Ds1307r = &HD1
'------------------------------ key --------------------------------------------
Config Pinc.1 = Input
Config Pinc.2 = Input
Config Pinc.3 = Input
Config Pinc.4 = Input
'------------------------------------------------------------------------------
Config Debounce = 30

Dim A As Byte , B As Byte , Data1 As Byte , C As Byte

Dim Seco As Byte , Mine As Byte , Hour As Byte , Detaa As Word

'----------------------------------------------------------------------------
Cursor Off
'-----------------------------

'-------------------------------------------------------------------------------
Main:
Do
Gosub Ds1307
Gosub 24_12
Gosub Chekkey

Loop
'-------------------------------------------------------------------------------
Ds1307:
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' start address in 1307
I2cstart ' Generate start code
I2cwbyte Ds1307r ' send address
I2crbyte Seco , Ack 'sec
I2crbyte Mine , Ack ' MINUTES
I2crbyte Hour , Nack

' Hours
I2cstop

Seco = Makedec(seco) : Mine = Makedec(mine) : Hour = Makedec(hour)

If Seco > 59 Then Seco = 0
If Mine > 59 Then Mine = 0
If Hour > 23 Then
Hour = 0
Gosub Seco
End If

Return
'-------------------------------------------------------------------------------
24_12:
If Pinc.4 = 1 Then Gosub Disply_24
If Pinc.4 = 0 Then Gosub Disply_12
Return
'-------------------------------------------------------------------------------
Disply_24:

Locate 1 , 1
Lcd "Time = " ; Hour ; ":" ; Mine ; ":" ; Seco ; " "
Locate 2 , 6
Lcd "(24)"
Return

'-------------------------------------------------------------------------------
Disply_12:

If Hour = 0 Then Hour = 12
If Hour > 12 Then Hour = Hour - 12

Locate 1 , 1
Lcd "Time = " ; Hour ; ":" ; Mine ; ":" ; Seco ; " "
Locate 2 , 6
Lcd "(12)"
Return
'-------------------------------------------------------------------------------
Chekkey:

Debounce Pinc.1 , 0 , Seco , Sub
Debounce Pinc.2 , 0 , Mine , Sub
Debounce Pinc.3 , 0 , Hour , Sub


Return
'---------------------------------------------
Seco:
Incr Seco
If Seco > 59 Then Seco = 0
Seco = Makebcd(seco)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' starting address in 1307
I2cwbyte Seco
I2cstop
Return

'-------------------------------------
Mine:
Incr Mine
If Mine > 59 Then Mine = 0
Mine = Makebcd(mine)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 1 ' starting address in 1307
I2cwbyte Mine
I2cstop
Return
'-------------------------------------

Hour:
Incr Hour
If Hour > 23 Then Hour = 0
Hour = Makebcd(hour)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 2 ' starting address in 1307
I2cwbyte Hour
I2cstop

Return
'-------------------------------------

End


تقریبا همون برنامه یزد کیت است فقط برای یزد کیت این قسمت :

I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' start address in 1307
I2cstart ' Generate start code
I2cwbyte Ds1307r ' send address
I2crbyte Seco , Ack 'sec
I2crbyte Mine , Ack ' MINUTES
I2crbyte Hour , Nack

' Hours
I2cstop

دو بار نوشته شده که فکر کنم مشکلش همین باشد
اینو امتحان کنید ببینید مشکلتان حل میشود یا نه.

[shahin-shargh]

پاسخ : ساختن ساعت

دستت درد نکنه :job:
ولی این برنامه رو امتحان کردم کار نمی کنه.یعنی رو 0 می مونه و تکون نمی خوره.
خیلی با کلید و تغذیه ور رفتم.بعید می دونم مشکل برنامه باشه.
گمونم سخت افزار مشکل داشته باشه.قطع و وصل شدن برق تغذیه یه تاثیر بدی رو ارتباط I2Cمیزاره.
یعنی چی این وسط داره چوب لا چرخ میزاره؟!!

قربون روحیه ورزشکاریت :applause:

[narek]

پاسخ : ساختن ساعت

موقع استارت یه پالس به پایه ثانیه بدی راه میفته
pinc.1
اونو باید 1لحضه به زمین وصل کنی
خبرشو بده... :bye

[حامد رحیمی]

پاسخ : ساختن ساعت

ببین داداش شما اگه رو ال سی دی 0 میبینی ممکنه مشکلات زیر رو داشته باشی
1 مقاومت های پول اپ پایه یه اطلا عات ینی همون scl sda رو وصل کردین
2 ممکنه کریستال نوسان سازی نکنه
3 شما باید در اولین لحظه ساعت رو روی یه عددی به غیر 0 تنضیم کنید تا ساعت راه بیفته
کلید هارو وصل کنید و ساعتو جلو بکشید حتما راه میفته

نمی دونم چرا شمابا این برنامه ها مشکل دارید ؟
در ضما حتما pull up pull down رو حتما برو بخون چون اگه سر در نیاری کارت گیره :bye

[shahin-shargh]

پاسخ : ساختن ساعت

سلام.ایول!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
دمت شما گرم........ درست شد........درست درست :nice: :nice: :nice:

واقعا راست میگن که:
در ناامیدی بسی امید است
تو باقلا قاتق یه کم شیوید است!!

همه چی آرومه من چقدر خوشحالم:wow: :wow:
خیلی خیلی ممنونم.

[narek]

پاسخ : ساختن ساعت

مشکل از چی بود؟؟؟ یه توضیحی میدادید دگر

[shahin-shargh]

پاسخ : ساختن ساعت

narek عزیز
نظر شما درست بود.برنامه یه تیکه اضافه داشت.اونو که حذف کردم همه چی درست شد. :job:
راستی واسه استارت اولیه راه نرم افزاری هم هست؟
یه سوال واسه اینکه متغیر در E2PROM ذخیره بشه دستورش اینه؟
DIM X AS ERAM

بازم ممنونم :nerd:

[narek]

پاسخ : ساختن ساعت

راه نرم افزاری که فکر نکنم آخه نیازی هم نیست وقتی با یه باطری تا 10 سال کار کنه دیگه میخواه چیکار؟؟10 سال یه بار باید استارت اولیه بخوره...!!!
بله کاملا درسته فقط حواست باشه وقتی میخوای توی e2prom بنویسی بعدش یه ویت 20 میلی ثانیه بزاری تا عمل نوشتن در e2prom کامل انجام شود.
موفق باشید