رفتن به مطلب

ساعت دیجیتال توسط ATmega8


ارسال های توصیه شده

Digital_Clock_Frame.jpg

دراین پروژه قصد داریم به معرفی یک ساعت دیجیتال با میکرو AVRATMEGA8 بپردازیم.درابتدا با پیکره بندی کردن ساعت داخلی این میکرو درمحیط BASCOM آشنا می شویم.توجه داشته باشید برای راه اندازی این ساعت به یک کریستال با مقدار32/768 نیاز پیدا میکنید. در ادامه پایه و اساس نمایش اعداد بر روی سون سگمنت ( 7SEGMENT ) را توسط این برنامه بررسی میکنیم. همانطور که میدانید ساعت داخلی میکروهای 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 پایه ی دیگر مربوط به کاتد ها هستند.برای ساختن اعداد باید کاتد ها را خاموش یا روشن میکنند.ما به طور قرار دادی به صورت مشخص شده در عکس زیر کاتد ها را نام گذاری میکنیم تا کار برنامه نویسی آسان تر گردد.

7Segment.jpg

توجه کنید این نام گذاری کاملا قراردادی است و شما می توانید به صورتی که می خواهید نام گذاری کنید اما مبنای این برنامه نام گذاری اینگونه ی این 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 = 1 : Portd.2 = 0 : Portd.1 = 1 : Portd.0 = 1 :

Portc.2 = 1 : Portc.3 = 1 : Portc.4 = 0

و حال کار اصلی میکرو:

 

2- خاموش کردن سون سگمنت شماره یک

 

4- خاموش سون سگمنت شماره دو

 

6- خاموش سون سگمنت شماره سه

 

8- خاموش سون سگمنت شماره چهار

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

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.gif

C945_A1015.gif

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

Config Debounce = X

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

Digital_Clock_Front.jpg

Digital_Clock_Top.jpg

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

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

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

'-----------------------------------------------

' 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.5 = 0 : Portb.5 = 1

Ddrd.3 = 0 : Portd.3 = 1

Declare Sub Sa_zyad

Declare Sub Da_zyad

Do

Debounce Pinb.5 , 0 , Da_zyad , Sub

Debounce Pind.3 , 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

_hour = 12

End If

If _min = 60 Then

_min = 0

End If

If _min

_min = 59

End If

Loop

End 'end program

7seg:

Incr Sel_7seg

Select Case Sel_7seg

Case 1:

Portb.3 = 1 : Portb.0 = 0 : Portb.1 = 0 : Portd.6 = 0

Flag = Yekan_m

Case 2:

Portb.3 = 0 : Portb.0 = 1 : Portb.1 = 0 : Portd.6 = 0

Flag = Dahgan_m

Case 3:

Portb.3 = 0 : Portb.0 = 0 : Portb.1 = 1 : Portd.6 = 0

Flag = Yekan_h

Case 4:

Portb.3 = 0 : Portb.0 = 0 : Portb.1 = 0 : Portd.6 = 1

Flag = Dahgan_h

Sel_7seg = 0

End Select

Select Case Flag

Case 0:

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

Portc.2 = 0 : Portc.3 = 0 : Portc.4 = 0

Case 1:

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

Portc.2 = 1 : Portc.3 = 1 : Portc.4 = 0

Case 2 :

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

Portc.2 = 0 : Portc.3 = 0 : Portc.4 = 1

Case 3:

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

Portc.2 = 0 : Portc.3 = 1 : Portc.4 = 0

Case 4:

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

Portc.2 = 1 : Portc.3 = 1 : Portc.4 = 0

Case 5:

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

Portc.2 = 0 : Portc.3 = 1 : Portc.4 = 0

Case 6:

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

Portc.2 = 0 : Portc.3 = 0 : Portc.4 = 0

Case 7:

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

Portc.2 = 1 : Portc.3 = 1 : Portc.4 = 0

Case 8:

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

Portc.2 = 0 : Portc.3 = 0 : Portc.4 = 0

Case 9:

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

Portc.2 = 0 : Portc.3 = 1 : Portc.4 = 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

این مدار طرحی بود که توسط فهیم فاریابی طراحی و ارسال شده که برای تماس یا ایشان میتوانید از ایمیل fahimfaryabi[AT]yahoo[DOT]com زیر استفاده کنید.

  • Like 2
لینک به دیدگاه
×
×
  • اضافه کردن...