ممنون، دیگه بیخیالش شدم، تونستم با adc مقدار ولتاژ رو بخونم، ولی چون خطی نیست نتونستم رابطه مناسبی براش پیدا کنم، به این نتیجه رسیدم که این کار شدنی نیست البته با این سنسور، فکر کنم باید بگردم یه سنسور خوب از بازار پیدا کنم که خروجیش خطی باشه.
ممنون از همه دوستانی که کمک کردند.
سلام دوستان
من مدار رو بستم و کار کرد ولی مشکلم اینه که نوشته های روی ال سی دی هی چشمک میزنن که نمی تونی بفهمی چی به چیه، من فرکانس رو به جای 8 مگاهرتز گذاشتم 1 مگاهرتز، برنامه رو هم به این شکل تغییر دادم که در این حالت ال سی دی دیگه چشمک نمیزنه، ولی آیا برنامه در فرکانس یک مگاهرتز درست کار میکنه و اصلا تفاوت بین 1 مگاهرتز و 8 مگاهرتز چیه؟
لطفا پاسخ بدید، این هم کد:
کد:
$regfile = "m8def.dat"
$crystal = 1000000
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Internal
Config Clock = Soft
Time$ = "12:00:00"
Dim Adcin As Word
Config Portd = Output
Portd = &H00
Enable Interrupts
Start Adc
Cls
Cursor Off
Do
If _hour > 5 And _hour < 19 Then
' _hour = saate time$
'pine lamp roshan
Else
'pine lamp khamoush
End If
If _min = 0 Then
'pine fan roshan
Elseif _min = 3 Then
'pine fan khamoush
'pine samavar roshan
End If
If _min = 5 Then
'pine samavar khamoush
'pine motor roshan
Elseif _min = 6 Then
'pine motor khamoush
End If
'Enable Adc
Adcin = Getadc(0) 'be pine adc0 vasl shavad.
Adcin = Adcin / 3.996
Select Case Adcin
Case Is > 24 :
Locate 1 , 1 : Lcd Adcin ; "'ctemp is high"
Locate 2 , 1 : Lcd Time$
waitms 100
'pine speaker khasti high ya low mishe. speaker roshan
Case Is < 21 :
Locate 1 , 1 : Lcd Adcin ; "'c temp is low"
Locate 2 , 1 : Lcd Time$
waitms 100
'pine speaker khasti high ya low mishe speaker roshan
Case Is > 20 :
Locate 1 , 1 : Lcd Adcin ; "'c Temp Normal"
Locate 2 , 1 : Lcd Time$
waitms 100
Case Is < 23 :
Locate 1 , 1 : Lcd " Temp Normal"
Locate 2 , 1 : Lcd Time$
waitms 100
Case Else
'pine speaker khasti high ya low mishe speaker khamoush- halate addi.
End Select
Loop