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

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

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

آموزش عملی  AVR

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

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

پروژه چهارم :

   نمایش کلمه Mahmod  روی LCD کاراکتری  2*16

regfile = "M8def.dat"$

crystal = 8000000$

Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , -

   Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4

در سطر سوم  پیکر بندی پایه هایLCD را معرفی کرده ایم

Config Lcd = 16 * 1                                

در این سطر نوع LCD  را تعریف کردیم

CLs                                               

    را پاک کنLCD

Lcd "Mahmod" 

End   

دانلود فایل پروتئوس و بسکام نمایش کلمه بر روی LCD

پروژه پنجم :

كلمه bahram در سطر اول و ali در سطر دوم LCD نمايش داده شوند

$regfile = "M8def.dat"

$crystal = 8000000

Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , _

Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4

Config Lcd = 20 * 4

نوع LCD را 4*20 انتخاب کرده ایم

Lcls

Lcd "bahram"

Lowerline

کلمه ALI  را در سطر پایین نشان بده

Lcd "ali"

End

دانلود فایل پروتئوس و بسکام پروژه فوق

پروژه ششم :

عد 46 بر صفحه نمايش نشان داده شود و بعد  يك واحد بر آن اضافه گردد و دوباره كم شود

$regfile = "M8def.dat"

$crystal = 8000000

Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , -

Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4

Config Lcd = 16 * 2

Dim G As Byte

G = 46

Do

Cls

Lcd G

Waitms 500

Incr G

متغییر G را یک واحد افزایش بده

Cls

Lcd G

Waitms 500

Decr G

متغییر G  را یک واحد کاهش بده

Cls

Lcd G

Waitms 500

Loop

End

دانلود فایل پروتئوس و بسکام پروژه فوق

پروژه هفتم :

با استفاده از یک عددLCD  و 8 عدد LED ، از عدد 1 تا 10 را شمرده و متوقف شود و بعد از آن LED ها به حالت چشمكزن درآيند

$regfile = "m8def.dat"

$crystal = 8000000

Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , -

Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4

Config Portd = Output

 Dim A As Byte

Do

Incr A

Cls

Lcd A

While A = 10

به شرط آنکه  A  مساوی  عدد 10 شد  آنگاه

Toggle Portd

پورت d را ( که به LED ها وصل است ) معکوس کن

Waitms 40

Wend

دوباره ( برنامه LED  ها ) را پیمایش کن

Waitms 100

Loop

End

دانلود فایل پروتئوس و بسکام پروژه فوق

پروژه هشتم:

نمايش اعداد 0 تا 9 روي سون سگمنت آند مشترك

$regfile = "M8def.dat"

$crystal = 8000000

CONFIG PORTd = OUTPUT

dim a as byte

DO

for a = 0 to 9 step 1

برای متغییر a   از  0  تا 9 را یکی یکی بشمار

portd = lookup(a , MAHMOD)

برای تشخیص وضعیت متغییر a که پورت d  منظور شده است باید به زیر برنماه ای که با برچسب فرضی MAHMOD  مشخص شده است ، نگاه کند

waitms 200

next a

LOOP

end

MAHMOD:

data &Hc0 , &Hf9 , &Ha4 , &Hb0 , &H99 , &H92 , _

 &H82 , &Hf8 , &H80 , &H90

 عبارت فرضی MAHMOD  پیکر بندی سون سگمنت آند مشترک را مشخص می کند که همیشه همینطور است

دانلود پروتئوس و بسکام پروژه فوق

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