peyman sadeghian 30,244 اشتراک گذاری ارسال شده در 2 فروردین، ۱۳۹۰ دراین پروژه قصد داریم به معرفی یک ساعت دیجیتال با میکرو 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 پایه ی دیگر مربوط به کاتد ها هستند.برای ساختن اعداد باید کاتد ها را خاموش یا روشن میکنند.ما به طور قرار دادی به صورت مشخص شده در عکس زیر کاتد ها را نام گذاری میکنیم تا کار برنامه نویسی آسان تر گردد. توجه کنید این نام گذاری کاملا قراردادی است و شما می توانید به صورتی که می خواهید نام گذاری کنید اما مبنای این برنامه نام گذاری اینگونه ی این 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 استفاده کنید.نحوه اتصال درشکل های زیر آمده است. اما از دیگرپورت های میکرو برای روشن وخاموش کردن 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.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 زیر استفاده کنید. 2 نقل قول لینک به دیدگاه
ارسال های توصیه شده
به گفتگو بپیوندید
هم اکنون می توانید مطلب خود را ارسال نمایید و بعداً ثبت نام کنید. اگر حساب کاربری دارید، برای ارسال با حساب کاربری خود اکنون وارد شوید .