ADC

[ilgar]

1)وقتی ولتاژ رفرنسو 5 ولت خارجی میدین، طبیعیه که با تغییر این ولتاژ مقداری که میکرو میخونه هم تغییر می کنه
2)اگه میکروتون داغ میکنه احتمالاً جریان میکشه (غیر طبیعی) و این باعث افت ولتاژ میشه
3)اگه میکرو و سنسور به هم نزدیک باشن داغ شدن میکرو دمای سنسورو از طریق مسهای روی فیبر بالا میبره

[رسول]

3)اگه میکرو و سنسور به هم نزدیک باشن داغ شدن میکرو دمای سنسورو از طریق مسهای روی فیبر بالا میبره

آره همینطوره
اگه به رگولاتورت (7805) هم نزدیک باشه بازم دماش دقیق نمیشه وبالا میره

البته 55 به هیچ وجه تغییر نمی کنه ؛ یعنی وقتی دستم میزارم روی lm35 دما بازهم همون 55 درجه هست.

معلومه دیگه اگه دستتو روش بذاری بیشتر از 55 نمیشه چون دمای بدن حدود 37 درجه هستش

خب با یه چیز خیلی سرد امتحان کن ببین پایین میاد!!

[SMNsoft]

من با یه میکر دیگه هم امتحان کردم ولی بازم 55 بود. حتی میکرو رو تو یخچال هم گذاشتم ولی باز هم تغییر نکرد!!!
فکر کنم باید بی خیال 2.56 ولت بشم!!

[t3r!p3000]

آخه جالبیش اینجاست من تا حالا مشکلی نداشتم !

نمونه مدار که با رفرنس داخلی 2.56 ولتاژ و دما و جریان رو خوندم :
http://www.iranled.com/forum/showthread....8#pid64888

[t3r!p3000]

دما سنج با سون سگمنت !!

یه دماسنج ساده با دقت 0.25 درجه با استفاده از سنسور LM35 و میکرو atmega16 و یه سون سگمنت سه تایی کاتد مشترک !!
در برنامه از رفرنس داخلی استفاده شده است !!!

نقشه مدار :

برنامه تحت بسکام :

کد php:

$regfile = "m16def.dat" : $crystal = 1000000

Config Portb = Output , Portd = Output

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

Dim A As Word , W As Word , C As Word
Dim First As Word , Secend As Word , Thirt As Word

Start Adc

Do

   A = Getadc(7) : A = A * 25

   If A > 10000 Then :
      First = 10 : Secend = 10 : Thirt = 10
   Else :
      First = A / 1000 : W = First * 1000
      A = A - W : Secend = A / 100
      W = Secend * 100 : A = A - W : Thirt = A / 10
      If First = 0 Then First = 14
   End If

   For C = 0 To 50
      Set Portd.1
      Set Portd.2
      Reset Portd.0
      Portb = Lookup(first , Digits)
      Reset Portb.7
      Waitms 10

      Set Portd.0
      Set Portd.2
      Reset Portd.1
      Portb = Lookup(secend , Digits)
      Set Portb.7
      Waitms 10

      Set Portd.0
      Set Portd.1
      Reset Portd.2
      Portb = Lookup(thirt , Digits)
      Reset Portb.7
      Waitms 10
   Next

Loop


End
'******** Data **********************************
Digits:
Data 63 , 6 , 91 , 79 , 102 , 109 , 125 , 7 , 127 , 111 , 64 , 128 , 56 , 70 , 00
'     0    1   2    3    4     5     6     7   8     9     -    dp    L    +
'************************************************ 


و دریافت فایل پروتئوس و نقشه و برنامه مدار و .. در پیوست !!!