آموزش سریع میکروکنترلر AVR

ROBOTICS

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

نوشته شده توسط رضا سپاس یار

فهرست مطالب:

فيوز بيت ها، منابع کلاک وReset
آشنايي با زبان C
پروژه 1: فلاشر ساده
پروژه 2: کانتر يک رقمي با 7-Segment
پروژه 3: نمايشگر کريستال مايع (LCD)
پروژه 4: اسکن صفحه کليد ماتريسي
پروژه 5: نمايشگرهاي LED Dot Matrix
وقفه هاي خارجي
پروژه 6: آشکار ساز عبور از صفر
تايمر/کانتر صفر
پروژه 7: فرکانس متر ديجيتال
پروژه 8: کنترل موتورDC باPWM
عملکرد تايمر دو
پروژه 9: ساعت با وضعیت آسنکرون تایمر
تايمر/کانتر يک
پروژه 10: کنترل سروُ موتور
پروژه 11: توليد موج سينوسي
پورت سريال (RS-232)
پروژه 12: پورت سريال در ويژوال بيسيک
پروژه 13: ارتباط دهي USB با RS232
I2C Bus (TWI)
پروژه 1۴: ارتباط با EEPROM هاي I2C
مبدل آنالوگ به ديجيتال
پروژه 1۵: اندازه گيري دما با سنسور LM35
مقايسه کننده ي آنالوگ
SPI Bus
Mode هاي Sleep و تايمر Watchdog


http://www.avr.ir/files/avr.zip
 

mrm 2010

عضو جدید
با سلام این برنامه سنسور دما با ال سی دی و 7سگمنت هستش امیدوارم بتونین استفاده کنین:
فقط کافیه این برنامه رو کپی کرده و در بسکام وارد کنید.در داخل برنامه فونت های به هم ریخته درست میشن.

$regfile = "m32def.dat"
Config Lcdpin = Pin , Rs = Pinc.1 , E = Pinc.2 , Db4 = Pinc.3 , Db5 = Pinc.4 , Db6 = Pinc.5 , Db7 = Pinc.6
Config Adc = Single , Prescaler = Auto , Reference = Off
Config Porta = Input
Config Portb = Output
Config Portd = Output
Config Portc = Output
Config Lcd = 16 * 2
Enable Interrupts
Start Adc
Enable Adc
Start Adc
Dim A As Word
Dim B As Single
Dim M As String * 10
Dim X As Single
Dim I As Single
Dim J As Single
Dim D As String * 10
Dim Q As Single
Cls

Do

A = Getadc(0)
B = A / 2.046
M = Fusing(b , "#.##")
X = Val(m)
X = Int(x)
X = X / 10
I = Int(x)
J = Frac(x)
D = Fusing(j , "#.##")
Q = Val(d)
'Q = Fusing(q , "#.##")

Select Case I
Case 0 : Portb = &H3F
Case 1 : Portb = &H06
Case 2 : Portb = &H5B
Case 3 : Portb = &H4F
Case 4 : Portb = &H66
Case 5 : Portb = &H6D
Case 6 : Portb = &H7D
Case 7 : Portb = &H07
Case 8 : Portb = &H7F
Case 9 : Portb = &H6F
End Select

Select Case Q
Case 0.00 To 0.09 : Portd = &H3F
Case 0.091 To 0.19 : Portd = &H06
Case 0.191 To 0.29 : Portd = &H5B
Case 0.291 To 0.39 : Portd = &H4F
Case 0.391 To 0.49 : Portd = &H66
Case 0.491 To 0.59 : Portd = &H6D
Case 0.591 To 0.69 : Portd = &H7D
Case 0.691 To 0.79 : Portd = &H07
Case 0.791 To 0.89 : Portd = &H7F
Case 0.891 To 0.99 : Portd = &H6F
End Select

Locate 1 , 1
Lcd I
Locate 2 , 1
Lcd Q

Loop

End 'end program
7seg:
Data &H3F , &H06 , &H5B , &H4F , &H66 , &H6D , &H7D , &H07 , &H7F , &H6F
 

esmae

عضو جدید
سلام کسی پروژه رو با میکروکنترلر آرم و lpc 1768 نداره ؟ لطفا کمکم کنین:cry:
 

Similar threads

بالا