ساعت توسط ATmega8 | ایران سیستم روبوتیک
طرف قرارداد بانک ملت

فروشگاه ما با نام تجاری (نیاز جهان) متصل به درگاه پرداخت آنلاین بانک ملت میباشد. قسمت فروشگاه های اینترنتی صفحه 48

خبرنامه پیامکی

جهت عضویت در خبرنامه پیامکی ایران سیستم روبوتیک (نیاز جهان) عدد ۲ را به این شماره ارسال کنید 30008536000118

جهت لغو عضویت عدد 3 را ارسال نمایید

کاربرحاضر
1 کاربر در حال خواندن این صفحه.
Users: 1 مهمان
جستجوی سریع


 دراین پروژه قصد داریم به معرفی یک ساعت دیجیتال با میکرو AVRATMEGA8 بپردازیم.درابتدا با پیکره بندی کردن ساعت داخلی این میکرو درمحیط BASCOM آشنا می شویم.توجه داشته باشید برای راه اندازی این ساعت به یک کریستال با مقدار32/768 نیاز پیدا میکنید. در ادامه پایه و اساس نمایش اعداد بر روی سون سگمنت ( 7SEGMENT ) را توسط این برنامه بررسی میکنیم. همانطور که میدانید ساعت داخلی میکروهای AVR از طریق کد زیر در محیط بسکام پیکره بندی می شود:

ساعت دیجیتال توسط میکروکنترلر AVR

 

Config Clock = Soft , Gosub = Sectic
Time= “_hour:_min:_sec””

متغییرهای _hour و _min و _sec متغییرهایی هستند که خود کامپایلر بسکام با پیکره بندی ساعت برای مشخص نمودن ساعت و دقیقه و ثانیه تعریف میکند.ما در این برنامه قصد داریم تنها مقادیر _hour و _min را بروی سون سگمنت نمایش دهیم.اما شما با درک برنامه ودر صورت علاقه می توانید مقدار _sec را نیز بر روی سون سگمنت نمایش دهید. توجه داشته باشید تا وقتی که کد Enable Interrupts را در محیط برنامه نویسی تایپ نکنید ساعت به جریان نمی افتد. Gosub = Sectic در واقع زیربرنامه ای است که میکرو هر یک ثانیه به سراغ آن رفته و دستورات موجود در آن را اجرا میکند. در این برنامه ما از 4 سون سگمنت آند مشترک تکی بهره برده ایم.هر کدام از این سون سگمنت ها دارای 10 پایه هستند.دو پایه از این 10 پایه مشترکا آند این سون سگمنت ها ، یک پایه مربوط به DAT سون سگمنت و7 پایه ی دیگر مربوط به کاتد ها هستند.برای ساختن اعداد باید کاتد ها را خاموش یا روشن میکنند.ما به طور قرار دادی به صورت مشخص شده در عکس زیر کاتد ها را نام گذاری میکنیم تا کار برنامه نویسی آسان تر گردد.

نمای سون سگمنت به همراه راهنمای قطعات و پایه ها

توجه کنید این نام گذاری کاملا قراردادی است و شما می توانید به صورتی که می خواهید نام گذاری کنید اما مبنای این برنامه نام گذاری اینگونه ی این 7 کاتد است. ما باید هر 7 کاتد همه ی سون سگمنت ها را به هم وصل کرده سپس آنها را به 7 پورت از پورت های میکرو متصل نماییم.و باید هر کدام از آند های سون سگمنت ها را به یک پورت میکرو متصل کنیم.پس ما برای راه اندازی سون سگمنت ها تنها به 11 پورت میکرو نیاز داریم. همان طور که گفتیم بعد از پیکره بندی ساعت داخلی میکرو با دو متغییر _hour و _min ( در این برنامه ) سرو کار داریم. می دانید این عدد ها می تواند یک رقمی یا دو رقمی باشند.اگر این عدد ها تنها مقادیری یک رقمی داشتند کار ما ساده بود اما چون مقادیری دو رقمی نیز پیدا می کنند برای نمایش آنها روی سون سگمنت به مشکل برخورد میکنیم. ما برای حل این مشکل در این برنامه هر یک از متغییر های _hour و _min را به دو متغییر دیگر تقسیم می کنیم تا نمایش اعداد روی سون سگمنت ها راحت تر شود. در این برنامه متغییر _hour به دو متغییر Yekan_h و Dahgan_h و متغییر _min به دو متغییر Yekan_m و Dahgan_m از طریق کد های زیر:

Tmp_h = _hour Mod 100
Dahgan_h = Tmp_h / 10
Yekan_h = Tmp_h Mod 10

Tmp_m = _min Mod 100
Dahgan_m = Tmp_m / 10
Yekan_m = Tmp_m Mod 10

تبدیل می شوند.در کدهای بالا Tmp یک متغییر واسط است. حال که برای هر سون سگمنت یک متغییر داریم نوبت به نمایش عدد ها روی سون سگمنت ها است.ما ابتدا عدد ها را با صفر و یک کردن 7 پورت مشخص شده می سازیم و مشخص می کنیم. مثلا در این برنامه برای ساختن عدد یک با ید این 7 پورت بصورت زیر باشند:

Portc.= 1 : Portd.= 0 : Portd.= 1 : Portd.= 1 :
Portc.= 1 : Portc.= 1 : Portc.= 0

و حال کار اصلی میکرو:
1- روشن کردن سون سگمنت شماره ی یک(از سمت راست) و نشان دادن مقدار Yekan_m
2- خاموش کردن سون سگمنت شماره یک
3- روشن کردن سون سگمنت شماره دو ونشان دادن مقدار Dahgan_m
4- خاموش سون سگمنت شماره دو
5- روشن کردن سون سگمنت شماره سه ونشان دادن مقدار Yekan_h
6- خاموش سون سگمنت شماره سه
7- روشن کردن سون سگمنت شماره چهار و نشان دادن Dahgan_h
8- خاموش سون سگمنت شماره چهار
ما در این برنامه از متغییر واسط دیگری به نام Flag استفاده میکنیم.این متغییر هر بار مساوی با یکی از مقادیر: Yekan_m و Dahgan_m و Yekan_h و Dahgan_h است.قبلا ما مقادیر 0 تا 9 را برای Flag از طریق دستور Select Case Flag مشخص کردیم که در هر یک از این case ها با گذاشتن 0 یا 1 جلوی 7 پورت مشخص شده اعداد را ساخته ایم. در بالا دیدیم که میکرو آند سون سگمنت ها را به ترتیب از راست به چپ روشن و خاموش میکند و مقادیر مشخص را نمایش میدهد. اما در سرعت های پایین این خاموش و روشن شدن ها معلوم است و اعداد نمایش داده شده قابل تشخیص نیست.یعنی باید میکرو این 8 عمل را به دفعات زیاد در ثانیه انجام دهد.برای رفع این مشکل ما در این برنامه از طریق دستور:

Config Timer0 = Timer , Prescale = 8
Enable Timer0
On Timer0 7seg
Start Timer0

تایمرصفر میکرو را پیکره بندی می کنیم.اما متغییر 7seg در واقع پرچم سرریزی تایمر صفر است.با هر بار پرچم سرریزی تایمر صفر میکرو به سراغ زیر برنامه 7seg رفته و دستور موجود در آن ( که در این برنامه انجام همان 8 عمل ذکر شده در بالا است ) را اجرا میکند. حالا چشم ما قابل به تشخیص این روشن وخاموش شدن ها نیست.جالب است اگر یک دوربین جلوی این ساعت بگیرید می توانید این روشن و خاموش شدن ها را ببینید. شما این ساعت را می توانید روی هر سون سگمنتی اجرا کنید که ما در زیر نحوه استفاده این برنامه را برای انواع مختلف آن توضیح داده ایم: 1- برای سون سگمنت های کوچک: در این جا نیازی به ترانزیستور ندارید ومی توانید پورت ها را مستقیم به میکرو متصل کنید.فقط توجه کنید سون سگمنت ها جریانی بیشتر از mA20 نکشد، چون برای میکرو مشکل پیش می آید. 2- برای سون سگمنت های 5 ولت به بالا: در این صورت نیاز به ترانزیستور پیدا می کنید. به طوری که برای 7 بخش ( کاتد ها ) از C945 وبرای 4 بخش( آندها ) از ترانزیستور C945 به علاوه A1015 استفاده کنید.نحوه اتصال درشکل های زیر آمده است.

ترانزیستور C945

ترانزیستور C945 و ترانزیستور A1015

اما از دیگرپورت های میکرو برای روشن وخاموش کردن DAT سون سگمنت ها به عنوان ثانیه شمار (شما می توانید از DAT های خود سون سگمنت ها نیز استفاده کنید ) واتصال کلید برای تنظیم ساعت و دقیقه بصورت زیر استفاده می کنیم: 1- برای ثانیه شمار در زیر برنامه Sectic دستور Toggle Portx.y ( در این برنامه Toggle Portd.7 و Toggle Portb.2 ) را قرار می دهیم.بدین صورت هر ثانیه DAT ها روشن و خاموش می شوند. 2-برای اتصال کلید ها از دستور زیر بهره می بریم:

Config Debounce = X

که X مقادیر معینی می پذیرد.در واقع Debounce یک لرزه گیر برای کلید است بطوری که اگر به مقدار X دست خود را روی کلید نگه ندارید زیر برنامه معیین اجرا نمی شود.استفاده از این دستور نیاز به کد های دیگر نیز دارد که به طور کامل در برنامه آمده اند. شما می توانید این ساعت را بصورت کوچک (برای ماشین)،رو میزی،دیواری درست کنید واز داشتن یک ساعت دیجیتال خوب لذت ببرید.

ساعت دیجیتال ساخته شده نمای جلو

ساعت دیجیتال نمای بالا

نقشه مدار ساعت دیجیتال

جهت دانلود فایل پرتیوس بر روی تصویر فوق کلیک کنید

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

‘———————————————–
‘   the program of digital clock on 7seg-ment
‘          wrote by:fahim faryabi
‘               1387/11/16
‘———————————————–
$regfile = “m8def.dat”
$crystal = 8000000
Config Timer0 = Timer , Prescale = 8
Config Portd = Output
Config Portc = Output
Config Portb = Output
Config Clock = Soft , Gosub = Sectic
Time= “01:01:00”
Config Debounce = 25
Enable Interrupts
Enable Timer0
On Timer0 7seg
Start Timer0
Dim Sel_7seg As Byte
Dim Dahgan_m As Byte
Dim Yekan_m As Byte
Dim Flag As Byte
Dim Tmp_m As Byte
Dim Dahgan_h As Byte
Dim Yekan_h As Byte
Dim Tmp_h As Byte
Ddrb.= 0 : Portb.= 1
Ddrd.= 0 : Portd.= 1
Declare Sub Sa_zyad
Declare Sub Da_zyad

Do

Debounce Pinb., 0 , Da_zyad , Sub
Debounce Pind., 0 , Sa_zyad , Sub

Tmp_h = _hour Mod 100
Dahgan_h = Tmp_h / 10
Yekan_h = Tmp_h Mod 10

Tmp_m = _min Mod 100
Dahgan_m = Tmp_m / 10
Yekan_m = Tmp_m Mod 10

If _hour = 13 Then
_hour = 01
End If

If _hour < 1 Then
_hour = 12
End If

If _min = 60 Then
_min = 0
End If

If _min < 0 Then
_min = 59
End If

Loop
End                       ‘end program

7seg:
Incr Sel_7seg
Select Case Sel_7seg
Case 1:
Portb.= 1 : Portb.= 0 : Portb.= 0 : Portd.= 0
Flag = Yekan_m
Case 2:
Portb.= 0 : Portb.= 1 : Portb.= 0 : Portd.= 0
Flag = Dahgan_m
Case 3:
Portb.= 0 : Portb.= 0 : Portb.= 1 : Portd.= 0
Flag = Yekan_h
Case 4:
Portb.= 0 : Portb.= 0 : Portb.= 0 : Portd.= 1
Flag = Dahgan_h
Sel_7seg = 0
End Select

Select Case Flag
Case 0:
Portc.= 1 : Portd.= 0 : Portd.= 0 : Portd.= 0 :
Portc.= 0 : Portc.= 0 : Portc.= 0
Case 1:
Portc.= 1 : Portd.= 0 : Portd.= 1 : Portd.= 1 :
Portc.= 1 : Portc.= 1 : Portc.= 0
Case 2 :
Portc.= 0 : Portd.= 0 : Portd.= 0 : Portd.= 1 :
Portc.= 0 : Portc.= 0 : Portc.= 1
Case 3:
Portc.= 0 : Portd.= 0 : Portd.= 0 : Portd.= 1 :
Portc.= 0 : Portc.= 1 : Portc.= 0
Case 4:
Portc.= 0 : Portd.= 0 : Portd.= 1 : Portd.= 0 :
Portc.= 1 : Portc.= 1 : Portc.= 0
Case 5:
Portc.= 0 : Portd.= 1 : Portd.= 0 : Portd.= 0 :
Portc.= 0 : Portc.= 1 : Portc.= 0
Case 6:
Portc.= 0 : Portd.= 1 : Portd.= 0 : Portd.= 0 :
Portc.= 0 : Portc.= 0 : Portc.= 0
Case 7:
Portc.= 1 : Portd.= 0 : Portd.= 0 : Portd.= 1 :
Portc.= 1 : Portc.= 1 : Portc.= 0
Case 8:
Portc.= 0 : Portd.= 0 : Portd.= 0 : Portd.= 0 :
Portc.= 0 : Portc.= 0 : Portc.= 0
Case 9:
Portc.= 0 : Portd.= 0 : Portd.= 0 : Portd.= 0 :
Portc.= 0 : Portc.= 1 : Portc.= 0
End Select
Return

Sub Sa_zyad
Incr _hour
End Sub

Sub Da_zyad
Incr _min
_sec = 0
End Sub

Sectic:
Toggle Portd.7
Toggle Portb.2
Return

از این محصول 2,012 بازدید شده است.
این محصول در تاریــخ ۱۳۹۰/۹/۲۵ به فــروشگاه اضافــه شده است.
دسته بندی : مقالات اموزشی

نــــــام
ایـمیـل
سایـت


برچسب ها : , , , , , , , , , , , , , ,

امروز : پنج شنبه ۲ آذر ۱۳۹۶ | Today : Thursday 23 November 2017
فروشگاه نیاز جهان متصل به درگاه پرداخت آنلاین بانک ملت میباشد


up