سال نو بر همه مهندسان ایران میکرو مبارک !!!!
مرسی مهندس برنامه فکر کنم درسته
کاملش اینه !!
Do
Tmp = 0
Tmpr = 0
For I = 1 To 800
Tmp_adc = Getadc(0)
T = Tmp_adc / 4
Tmp = Tmp + T
Waitms 40
Next I
Tmp = Tmp / 800
'For J = 1 To 30
Rbt = Getadc(1)
' Tm = Rbt - 380
' Rbt = Tm / 31
' Tmpr = Tmpr + Rbt
' Waitms 20
'Next J
'Rbt = Tmpr / 30
If Tmp < Mn Then
Mn = Tmp
End If
If Tmp > Mx Then
Mx = Tmp
End If 'use adc in 8bit mode
Portd = Tmp
Cls
Home
Lcd "T=" ; Fusing(tmp , "#.#") ; "C R=" ; Rbt ; "%"
Locate 2 , 1
Lcd "Min=" ; Fusing(mn , "#.#") ; " Max=" ; Fusing(mx , "#.#")
Waitms 80
Loop
مهندس من هیچ کاری برای ثابت شدن مقدار سنسور انجام ندادم ممکنه بخاطر تغییر بسیار اندک ولتاژ باشه ؟؟؟
میترسم اگه مداری سر راهش قرار بگیره دقتش بیاد پایین
امکان داره با دو تا خازن برا سنسور مشکلش حل بشه؟؟؟
مهندس چه راه حلهایی به ذهنتون میرسه؟؟؟ تشکر