ساخت دماسنج با avr
ساخت دماسنج با avr-مداری را که تصویر آن را ملاحظه می فرمایید مدار یک دماسنج دیجیتال .
با میکرونترلر atmega8 و سنسور lm35 می باشد.
که می تواند دما را از -50 تا 150 درجه سانتیگراد برای شما نمایش دهد
میکروکنترلرatmega8دارای مبدل آنالوگ به دیجیتال 10بیتی می باشد که یسگنال خروجی lm35 را دریافت کرده.
پس از تقویت آن را به سیگنال دیجیتال تبدیل کرده و روی سون سگمنت نمایش می دهد
اتصال lm 35 به فیبر مدار چاپی را بصورت کوتاه متصل کنید و طوری فیبر مدار چاپی را ترسیم کنید
که قطعات گرما زا نزدیک lm35 نباشد تا باعث خطا شود
مدار با ولتاژ5ولت کار می کند و باید از دقت بالای برخوردار باشد
ساخت دماسنج با avr
ساخت دماسنج با avr
‘www.pc21.ir’
$regfile = “m8def.dat”
$crystal = 1000000
Config Portd = Output
Config Portb = Output
Config Adc = Single , Prescaler = Auto , Reference = Internal
Dim A As Word , B As Word , C As Single , W As Word , D As Byte , S As Byte
Start Adc
Declare Sub Comm
Declare Sub Temp
Declare Sub Refresh
‘=============================’www.pc21.ir’===========================================
Do
Call Refresh
Call Temp
Call Comm
Loop
‘===============================’www.pc21.ir’=================================== =====
Sub Temp
A = Getadc(0)
B = Getadc(1)
C = A – b
C = C / 4
If C > 0 Then
S = 12
W = C
Cls : Lcd W
End If
If C < 0 Then
S = 11
C = C / -1
W = C
Cls : Lcd W
End If
End Sub
‘================================’www.pc21.ir’========================================
Sub Comm
Portd = &B0111 : D = 10 : Call Refresh
Portd = &B1011 : D = W Mod 10 : Call Refresh
Portd = &B1101 : D = W / 10 : Call Refresh
Portd = &B1110 : D = S : Call Refresh
Portd = &B1111 : D = 0
End Sub
‘================================’www.pc21.ir’=======================================
Sub Refresh
Portb = Lookup(d , 7seg)
Waitms 4
End Sub
‘==================================’www.pc21.ir’====================================
7seg:
Data &H3F , &H6 , &H5B , &H4F , &H66 , &H6D , &H7D , &H7
Data &H7F , &H6F , &H63 , &H40 , &H00