ساخت ساعت دیجیتالی به کمک ال ای دی

[r-el]

پاسخ : ساخت ساعت دیجیتالی به کمک ال ای دی

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

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

[behroz2010]

پاسخ : ساخت ساعت دیجیتالی به کمک ال ای دی

ببخشید چطوری باید بزرگش کرد؟

[r-el]

پاسخ : ساخت ساعت دیجیتالی به کمک ال ای دی

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

[kinj]

پاسخ : ساخت ساعت دیجیتالی به کمک ال ای دی

امروز شنبه هستش و من بی صبرانه منتظر :wow:

[kinj]

پاسخ : ساخت ساعت دیجیتالی به کمک ال ای دی

سلام دوستان
به این تاپیک سر بزنید و پست بزنید .شاید اقا احسان فکر میکنه کسی دیگه راغب نیست

[electronicnarm2010]

پاسخ : ساخت ساعت دیجیتالی به کمک ال ای دی

من دارم میسازمش تموم که شد میزارم ببینید

[r-el]

پاسخ : ساخت ساعت دیجیتالی به کمک ال ای دی

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

[kinj]

پاسخ : ساخت ساعت دیجیتالی به کمک ال ای دی

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

[r-el]

پاسخ : ساخت ساعت دیجیتالی به کمک ال ای دی

سلام
به امیدخدا اموزش رو شروع میکنیم فقط من زیاد وارد جزئیات نمیشم و برنامه رو توضیح میدم با این فرض که دوستان تا حدی به بیسکام و دستورات اشنایی دارن
$regfile = "m8def.dat"
در ابتدای برنامه ای سی رو مشخص میکنیم
$crystal = 1000000
مشخص کردن فرکانس کاری ای سی
$lib "mcsbyte.lbx" ' for smaller code
$lib "ds1307clock.lib"
این دو سطر مربوط به لایبرری خود بیسکامه برای استفاده از ds1307
Config Sda = Portb.7
Config Scl = Portb.6
مشخص کردن اتصال دو پایه ارتباط i2c ای سی ساعت به میکرو جهت ارتباط میکرو با ایسی
Const Ds1307w = &HD0 ' Addresses of Ds1307 clock
Const Ds1307r = &HD1
این دو سطر مربوط به ادرسهای خواندن و نوشتن ایسی ساعته برای خواندن اطلاعات و نوشتن اطلاعات روی ای سی
Config Portd = Output
Config Portb.0 = Output
Config Portb.4 = Output
Config Portb.5 = Output

Config Pinb.1 = Input
Config Pinb.2 = Input
Config Pinb.3 = Input

Config Portc.2 = Output
Config Portc.3 = Output
Config Portc.4 = Output
Config Portc.5 = Output
مشخص کردن پایه های ورودی و خروجی
Config Clock = User
برای استفاده از دستورات پرش و خواندن اطلاعات از ds و یا نوشتن مقادر از طریق ارتباط i2c از این دستور استفاده میکنیم و در صورتی که بخوایم از ds استفاده نکنیم و باز روتین نرم افزاری کلاک درست کنیم باید از دستور clock soft استفاده کنیم و با استفاده از دستورsecticبه روتین مربوطه پرش میکنیم
Config Adc = Single , Prescaler = Auto
با استفاده از این دستور adc میکرو رو فعال و اماده استفاده میکنیم برای خواندن دمای محیط
تا همین حد اگر سوالی بود من در خدمتم
تا تونستم به زبان ساده توضیح دادم و باز برا فردا شب ادامه رو میذارم

[behroz2010]

پاسخ : ساخت ساعت دیجیتالی به کمک ال ای دی

ببخشید چطوری باید بزرگش کرد؟

:angry: :angry: :angry: :angry: :angry:

[r-el]

پاسخ : ساخت ساعت دیجیتالی به کمک ال ای دی

:angry: :angry: :angry: :angry: :angry:

عزیز جان هیچ کار سختی نیس مگه شما الکترونیک نخوندی؟
در ادامه توضیح میدم در موردش

[r-el]

پاسخ : ساخت ساعت دیجیتالی به کمک ال ای دی

Dim Weekday As Byte

Dim S As Byte , M As Byte , H As Word , Ma As Word , Mlb As Byte , Hl1 As Word
Dim A As Byte , B As Byte , Mha As Word , Mla As Word , Lm As Word , Sl As Byte
Dim Mh As Byte , Yh As Byte , Yl As Byte , Monh As Byte , Monl As Byte , Jumptemp As Byte
Dim Ml As Byte , Dh As Byte , Dl As Byte , Jump As Word , Jump1 As Word
Dim Hh As Byte , Of As Byte , R As Byte , Yyh As Byte , Yyl As Byte , Day1 As Word
Dim Hl As Byte , Hh1 As Word , L As Word , L1 As Byte , Lm1 As Word , Da As Word
Dim Moh As Byte , Mol As Byte , Monha As Word , Monla As Word , Mona As Word
Dim Dha As Word , Dla As Word , Aa As Byte , T As Byte , C As Byte , Gettemp As Byte
Dim Ad2 As Byte , S1 As Byte , W As Word , Sh As Byte , Sa As Byte , Sla As Byte , Sm As Byte , Sha As Byte
Dim Ad1 As Word , Day As Eram Byte , Rooz As Eram Byte , D As Byte
Dim Ad As Word , Ad3 As Byte , Test2 As Byte , Y As Byte , Sefr As Byte
معرفی متغیر های مورد نیاز در برنامه
Ok Alias Pinb.1
Down Alias Pinb.2
Up Alias Pinb.3
تعریف 3پایه ار میکرو بعنوان ورودی برای اتصال کلیدهای تنظیم
Slash Alias Portd.0
Dot Alias Portb.0
تعریف دو پایه برای چشمک زن ثانیه و اسلش تاریخ
Hom:
تعریف یک لیبل برای پریدن به اول برنامه گاهی لازم داریم که از نقطه ای از برنامه به یه نقطه دیگه از مدار پرش کنیم و برنامه ای یا خطی از برنامه رو اجرا کنیم
Do
تعریف یک حلقه نا محدود برای اجرای برنامه و یا قسمتی از برنامه
Gosub Getdatetime
با استفاده از این دستور به لیبل مقادیر ds میریم برای خواندن مقادیر ساعت و تاریخ
Dh = _day / 10
Dl = _day Mod 10
Monh = _month / 10
Monl = _month Mod 10
Mh = _min / 10
Ml = _min Mod 10
Hh = _hour / 10
Hl = _hour Mod 10
S1 = _sec Mod 10
حالا پس از خواندن مقادیر از ds باید اونارو تقسیم کنیم و هرکدومو تو یه متغیر قرار بدیم برای نمایش بر روی سگمنتها

[kinj]

پاسخ : ساخت ساعت دیجیتالی به کمک ال ای دی

چرا تقسیم بر 10؟؟

[r-el]

پاسخ : ساخت ساعت دیجیتالی به کمک ال ای دی

سلام
شما 4تا سگمنت داری که روی اولی و دومی باید مثلا عدد 13رو نمایش بدی خوب باید چکار کنی ؟
به 10 تقسیم میکنی یه باقیمانده داری یه خارج قسمت
خارج قسمت عدد 1 و باقیمانده عدد 3درسته؟

[r-el]

پاسخ : ساخت ساعت دیجیتالی به کمک ال ای دی

Portd = Lookup(hh , Test)
Set A1
Waitms 2
Reset A1

Portd = Lookup(hl , Test)
Set A2
Waitms 2
Reset A2

Portd = Lookup(mh , Test)
Set A3
Waitms 2
Reset A3

Portd = Lookup(ml , Test)
Set A4
Waitms 2
Reset A4
خواندن مقادیر ساعت و دقیقه و نمایش بر روی سگمنتها
set dot
waitms 500
reset dot
waitms 500
loop
با تاخیر 500میلی پایه مربوط به دات رو صفرو یک میکنیم و همین روند ادامه پیدا میکنه
خوشحالم که کسی نظری نداشت