طراحی کنترلر، مدارت دلخواه، پروژه ها و تمرینات درس میکروکنترلرها
خروجی سه کاناله با کنترل سرعت به صورت مجزا، دو کلید افزایشی و کاهشی برای کنترل سرعت در هر کانال، فرکانس های مختلف و ثابت برای هر کانال، جریان خروجی بیش از 10 آمپر و ولتاژ بیش از 30 ولتاین پروژه بدون نیاز به دریافت نور می تواند بر اساس تاریخ، ساعت، عرض جغرافیایی و طول جغرافیایی هر استان زمان طول و غروب خورشید را محاسبه کرده و به طور دقیق در این بازه زمانی لامپ های روشنایی را فعال کند. همچنین دارای یک تایمر داخلی می باشد که قابلیت فعال و غیر فعال کردن آن وجود دارد. دستگاه کلا با 3 کلید قابل تنظیم و برنامه ریزی می باشد.این پروژه یک فرستنده گیرنده رادیویی با برد 100 تا 200 می باشد، که قابلیت کنترل 20 کانال مجزا به همراه کنترل سرعت موتور DC را دارد. از ماژول HMT و HMR و 20 عدد دیپ سوئیچ و درایور L298N برای موتور استفاده شده است.این پروژه یک ماشین حساب ساده با چهار عمل اصلی بروی نمایشگر گرافیگی می باشد.این پروژه قادر خواهد بود که یک ماشین را به صورت بیسیم در جهات جلو و عقب و چپ و راست با سرعت دلخواه کنترل و همچین با کلید استپ ماشین را ثابت (ترمز) نماید.
پروژه کنترل دور موتور با PWM و جریان خروجی بالا با avr

MCP-19

پروژه کنترل دور موتور با PWM و جریان خروجی بالا با avr
پروژه تایمر-ساعت نجومی (فتوسل بدون نور)

MCP-26

پروژه تایمر-ساعت نجومی (فتوسل بدون نور)
پروژه کنترل 20 کاناله-به همراه کنترل سرعت موتور با avr

MCP-10

پروژه کنترل 20 کاناله-به همراه کنترل سرعت موتور با avr
پروژه ماشین حساب ساده با السیدی گرافیکی و avr

MCP-34

پروژه ماشین حساب ساده با السیدی گرافیکی و avr
پروژه ماشین کنترلی بی سیم با avr

MCP-20

پروژه ماشین کنترلی بی سیم با avr

آموزش ميكرو كنترلر AVR به زبان بيسيك (قسمت سوم)

در اين قسمت آموزشي به تشريح دستور CASE و زير برنامه ها و نحوي فراخواني آنها مي پردازيم.
دستور العمل CASE :
به كمك اين دستور شما مي تواند محتواي يك متغيير را نسبت به يك بازه عددي انتخاب كنيد و سپس براي اين بازه ها زير برنامه بنويسيد تا ميكرو اين برنامه ها را نسبت به محدوده بازه و متغيير انجام بده.
ساده تر ميگيم: به عنوان مثال شما يك برنامه دماسنج مي خواهيد بنويسيد. بعد از اندازه گيري دما شما مي خواهيد به ميكرو بگيد كه اگر دما از 0 تا 20 درجه بود فلان كار رو انجام بده و اگر دما از 21 تا 30 بود فلان كار رو انجام بده و اگر دما از 31 تا 40 بود فلان كار رو انجام بده. به همين سادگي شما مي توانيد به ميكرو فرمان بدهيد كه اگر دما در اين بازه بود اين كار رو انجام بده.
همين توضيحات رو به كمك اين دستور به صورت برنامه مي نويسيم:
Regfile="m8def.dat"
Crystal=8000000
Dim t as byte

از بخش سفارش طراحی هم اکنون درخواست خود را ثبت کنید
حل و تشریح کلیه تمرینات درس میکروکنترلر AVR
طراحی و ساخت مدارات دلخواه شما با میکروکنترلر AVR


.
برنامه اندازه گيري دما و ريختن عدد دما در متغيير T .  
.
Select case t
Case 0 to 20 :
                  …
Case 21 to 30:
                 …
Case 31 to 40:
                 …
End select
قالب اين دستور به اين صورت مي باشد   متغيير    select   case
     شما مي توانيد تعداد زيادي CASE تعريف كنيد بستگي به برنامه تون داره. و در نهايت با دستور END SELECT به دستور SELCET CASE خاتمه مي دهيد.
همچين شما مي توانيد CASE را به اين صورت هم انتخاب كنيد:
مثلا اگر دما بزرگتر از 35 درجه بود فلان كار رو انجام بده:
Select case t
Case is >35
End select
و يا كوچكتر باشد:
Select case t
Case is <35
End select
و يا CASE ما يه عدد خاص باشد مثلا 20 درجه:
Select case t
Case 20:
End select
خوب انواع حالت هاي مختلف اين دستور را همرا با يك مثلا گفتيم. اميدورام كه متوجه شده باشيد.
معرفي زير برنامه ها :
براي اجراي يك زير برنامه ابيتدا بايد در اوايل برنامه نام ريز برنامه را تعريف كنيم و بعد هم بقيه كار ها مانند فراخواني در 8051 مي باشد.
قالب آن به اين صورت مي باشد:
نام متغيير      Declare sub
.
.
.
: نام متغيير
دستورات زير برنامه
End sub
با يك مثال اين دستور را بيشتر توضيح مي دهيم:
Regfil = "m8def.dat"
Crystal = 8000000
Config portb= output
Declare sub wait_d
Dim s as byte
Do
Portb= 20
Call wait_d
Portb= 50
Call wait_d
Portb= 55
Call wait_d
Loop
End
 
wait_d:
for s =1 to 10
waitms 1000
next s
end sub
خوب ما در اين برنامه مي خواستيم سه عدد 20 و 50 و 55 را با فواصل زماني 10 ثانيه به خروجي پورت B بفرستيم. براي اينكه طول برنامه زياد نشود ما برنامه تاخير 10 ثانيه اي رو به صورت يك زير برنامه نوشتيم و هز ر جا كه لازم شود به كمك دستور Call آن را فراخواني مي كنيم.
ابتدا در اول برنامه ما نام زير برنامه يعني wait_d  را تعريف كرديم و در آخر برنامه اين اسم رو نوشتيم و بعد اون هم : گذاشتيم كه در اينجا شروع زير برنامه مي باشد و بعد هم برنامه رو نوشتيم و در نهايت دستور END SUB رو مي نويسيم.
حالا هر جا كه لازم باشه از تاخير 10 ثانيه اي استفاده كنيم كافي بنويسيم Call wait_d
 
دستور Gosub:
عملكرد اين دستور هم شبيه به دستور بالايي مي باشد با اين تفاوت كه لازم نيست نام زير برنامه رو تعريف كنيم. و همچنين آخر زير برنامه ديگه با END SUB تمام نميشه بلكه بايد RETURN بنويسيم.
مثال بالا رو با اين دستور مي نويسم:
Regfil = "m8def.dat"
Crystal = 8000000
Config portb= output
Dim s as byte
Do
Portb= 20
gosub wait_d
Portb= 50
gosub wait_d
Portb= 55
gosub wait_d
Loop
End
 
wait_d:
for s =1 to 10
waitms 1000
next s
Return
 
در قسمت بعدي به آموزش پيكره بندي و امكانات AVR مي پردازيم.

  منبع: www.picpars.com

  لطفا مقالات، آموزش‌ها و پروژه های خود را به آدرس ایمیل ارتباطی ایمیل نمائید تا آن را با نام خودتان در سایت منتشر کنیم.

به این مطلب امتیاز دهید

برچسب ها:
تاریخ ارسال چهارشنبه، 21 بهمن ماه، 1388    نویسندهنویسنده: مدیریت    نظرات 2 نظر    بازدید بازدید [ 10721 ]   پرینتنسخه چاپی
فایل پی دی اف فایل پی دی اف   ارسال به دوستان ارسال به دوستان