مجتمع فنی و حرفه ای دانشمند با مجوز رسمی سازمان فنی و حرفه ای کشور، مرکز آموزش علوم کامپیوتر ، رباتیک و الکترونیک برای همه دختران ،پسران ،خردسالان ،کودکان،نوجوانان و بزرگسالان

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

آموزشگاه رباتیک در تهران     تلفن    :  77422883

آموزش عملی  AVR

آموزش رباتیک برای همه به زبان ساده   -  آموزش پروژه های AVR درس دوم

 آموزش برنامه نویسی    BASCOM - AVR    بسکام  ای وی آر

پروژه اول :

مي خواهيم برنامه اي بنويسيم كه يك عدد آي سي ميكرو ATMEGA8 بتواند يك عدد LED را روشن كند. يعني ساده ترين كاري كه مي شود با آي سي ميكرو انجام داد.

$regfile = "M8def.dat"   در سطر اول  میکرو را معرفی میکنیم

$crystal = 8000000       مقدار فرکانس را بصورت پیش فرض انتخاب میکنیم

Config Portb = output                                                                               

                               پورت b   آی سی را به عنوان خروجی در نظر  بگیریم  

Set Portb.0

                      پین  یا  پایه صفر از پورت b را  یک قرار بده ( روشن کن)

End

اکنون با انتقال برنامه فوق بوسیله نرم افزار بسکام  به میکرو و اتصال  LED به پایه 14 آسی ( پایه 7 به   مثبت  پنج ولت و پایه 8 به منفی پنج ولت متصل می گردد )

LED  روشن می شود.

پروژه  دوم   :  8  عدد LED با هم روشن شده و بعد از اندک مدتی خاموش گردند و این عمل چشمک زدن تکرار شود

$regfile = "M8def.dat"

$crystal = 8000000

Config Portb = output

Do                                            این دستور برای شروع حلقه است و یعنی انجام بده

Set Portb.0           

         پین  یا  پایه صفر از پورت b را  یک قرار بده ( روشن کن)

Set Portb.1

          پین  یا  پایه یک از پورت b را  یک قرار بده ( روشن کن)

Set Portb.2

Set Portb.3

Set Portb.4

Set Portb.5

Set Portb.6

Set Portb.7

      پین  یا  پایه  هفت از پورت b را  یک قرار بده ( روشن کن)

   ( تا اینجای برنامه همه  led ها روشن شده اند )

Waitms 200

     به مدت 200 میلی ثانیه صبر کن

Reset Portb.0

     پین  یا  پایه صفر از پورت b را  صفر قرار بده ( خاموش کن)

Reset Portb.1

Reset Portb.2

Reset Portb.3

Reset Portb.4

Reset Portb.5

Reset Portb.6

Reset Portb.7

پین  یا  پایه هفت از پورت b را  یک صفرقرار بده ( خاموش کن)

Waitms 200

 به مدت 200 میلی ثانیه صبر کن

Loop

به شروع حلقه برو و دستورات را تکرار کن

End

( پایه های شماره 14-15-16-17-18-19 - 9- 10 پایه های پورت b  آی سی میکرو ATMEGA8 می باشند)

پروژه  سوم  :  8  عدد LED با هم روشن شده و بعد از اندک مدتی خاموش گردند و این عمل چشمک زدن تکرار شود ( همان مدار قبلی با برنامه کوتاه تر)

$regfile = "M8def.dat"

$crystal = 8000000

Config portb = output

Do

Toggle portb

مقدار پایه های پورت b  را معکوس کن ( اگر یک هستند ، صفر و اگر صفر هستند ، یک قرار بده )

Waitms 200

Loop

End

  به این ترتیب 8 عدد LED متصل شده به آی سی با فاصله زمانی 200 میلی ثانیه ، روشن و خاموش می شوند.

 درصورتیکه به  مجموعه مدارات و پروژه های عملی AVR علاقمند هستید می توانید مجموعه های نقشه و پروژه های  AVR را از سایت www.daneshmandco.ir دانلود نمایید و یا مجموعه سی دی های مجموعه نقشه و پروژه های  avr را از موسسه صفا رایانه www.cdsiran.com یا www.cdsiran.ir   خرید نمایید.