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

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

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

آموزش عملی  AVR

                                     پروژه دماسنج برای ATMEGA16

$regfile = "m16def.dat"

$crystal = 1000000

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , _

Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2

Config Lcd = 16 * 2

Dim T As Word

Config Adc = Single , Prescaler = Auto , Reference = Internal

Start Adc

 Do 

T = Getadc(2)

T = T / 4

 Cls

Cursor Off

Lcd "TEMP = " ; T

Waitms 500

 Loop

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

$regfile = "m16def.dat"
$crystal = 1000000
Config Porta.0 = Input
Config Portb.1 = Output
Do
If Pina.0 = 1 Then
Sound Portb.1 , 100 , 150
End If
Loop
End

پروژه ایجاد صدای بوق

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

پروژه چراغ راهنما

$regfile = "m16def.dat"
$crystal = 1000000
Config Portb = Input
Config Portd = Output
Dim A As Byte


Do

Debounce Pinb.0 , 1 , Main1
Debounce Pinb.1 , 1 , Main2

Loop

Main1:

Portd = &B00000001
Debounce Pinb.1 , 1 , Main2
Waitms 600
Portd = &B00010000
Debounce Pinb.1 , 1 , Main2
Waitms 600

Goto Main1


Main2:

For A = 7 To 0 Step -1
Portd = &B00001100
Debounce Pinb.0 , 1 , Main1
Wait 1
Next A

For A = 2 To 0 Step -1
Portd = &B00001010
Debounce Pinb.0 , 1 , Main1
Wait 1
Next A

For A = 7 To 0 Step -1
Portd = &B00100001
Debounce Pinb.0 , 1 , Main1
Wait 1
Next A

For A = 2 To 0 Step -1
Portd = &B00010001
Debounce Pinb.0 , 1 , Main1
Wait 1
Next A

Goto Main2

 

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

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