مشکل در lm35 ???

[m.minoo]

سلام بچه ها.
توی برنامه زیر میخام ک میانگین دما رو نشون بده واگر میانگین بیش از 25 بود فن ها روشن وهیترها خاموش بشود و برعکس.برنامه درسته ب نظرم ولی پروتئوس ارور میده نمیدونمlm35 ها مشکل داره یا نه :angry: لطفا یه نگاه کنید ببینید مشکل کجاست؟؟؟؟؟ همچنین توی برنامه میخام با باز شدن در فنها روشن وبا بسته بودن فنها خاموش شوند چه جوری یک بودن پورت رو چک کنم؟( البته برنامه هنوز ناقصه) همچنین میخام ک میانگین نور را هم با ldr حساب و روی ال سی دی نشون بدم این کارو جچوری انجام بدم؟؟؟؟؟
(ممنون میشم اگه تو هر قسمت بتونید بهم کمک کنید) :cry2: :cry2: :cry2:
اینم عکس پروتئوس :

$regfile = "m32def.dat"
$crystal = 1000000

Config Lcd = 16 * 4
Config Lcdbus = 4
Config Lcdpin = Pin , Db7 = Portb.7 , Db6 = Portb.6 , Db5 = Portb.5 , Db4 = Portb.4 , E = Portb.3 , Rs = Portb.2

Config Porta = Input
Config Portb = Output
Config Portc = Output
Config Portd = Input

Config Adc = Single , Prescaler = Auto , Reference = Off
Stop Adc
Start Adc
Enable Adc

Dim A As Word , B As Word , C As Word , D As Word
 Dim E As Single , F As Single , G As Single , H As Single , I As Single , Sum As Single , Temp As Single
Dim M As String * 6

Do
A = Getadc(0)
B = Getadc(1)
C = Getadc(2)
D = Getadc(3)

Cls
Home
E = A * 0.09765
F = B * 0.09765
G = C * 0.09765
H = D * 0.09765
Sum = E + F
Sum = Sum + G
Sum = Sum + H
I = Sum / 4

Temp = Fusing(i , "#.####")
Lcd "value"
Lcd Temp
Set Portc.2
Set Portc.3

If Temp > 20 Then
Set Portc.0
Set Portc.1
Reset Portc.2
Reset Portc.3
Wait 20

Else
Reset Portc.0
Reset Portc.1
Set Portc.2
Set Portc.3
Wait 20

End If

Reset Portc.0
Reset Portc.1
Reset Portc.2
Reset Portc.3


'If Portd.0 Then
Set Portc.0
Set Portc.1        '?????????
Locate 2 , 1
Lcd "open door"
Locate 3 , 1
Lcd "fan on"
Wait 20

'Else
Reset Portc.0
Reset Portc.1
Locate 2 , 1
Lcd "close door"
Locate 3 , 1
Lcd "fan off"
Wait 20


Waitms 500
Loop
End