سلام دوستان
من یه برنامه می خوام که دما رو روی lm335 نشون بده لطفا کمکم کنید
برنامه ی زیر دو تا خطا داره
اگه شما برنامه بهتری دارین کمکم کنید
$regfile = "m16def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portc.1 , Db5 = Portc.2 , Db6 = Portc.3 , Db7 = -
Portc.4 , E = Portd.2 , Rs = Portd.3
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto
Start Adc
Config Timer0 = Timer , Prescaler = 1024
Enable Interrupts
Enable Timero
On Timer0 Temp -sample
Start Timer0
Dim Sample As Word
Dim Temp As Word
Dim Temp -file As Integer
Dim Sum As Integer
Deflcdchar 0 , 24 , 24 , 32 , 32 , 32 , 32 , 32 , 32,
Cursor Off
Cls
Do
Loop
End
Temp -sample:
Incr Sample
Temp = Getadc(0)
Sum = Sum + Temp
If Sample = 15 Then
Sample = 0
Stop Timer0
Sum = Sum / 15
Sum = Sum - 558
Temp -final = Sum / 2
Select Case Temp -final
Case Is =< 10:
Home L
Lcd "LOW"
Case 11 To 34 :
Home L
Lcd "NORMAL"
Case Is >= 35:
Home L
Lcd "HIGH"
End Select
من یه برنامه می خوام که دما رو روی lm335 نشون بده لطفا کمکم کنید
برنامه ی زیر دو تا خطا داره
اگه شما برنامه بهتری دارین کمکم کنید
$regfile = "m16def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portc.1 , Db5 = Portc.2 , Db6 = Portc.3 , Db7 = -
Portc.4 , E = Portd.2 , Rs = Portd.3
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto
Start Adc
Config Timer0 = Timer , Prescaler = 1024
Enable Interrupts
Enable Timero
On Timer0 Temp -sample
Start Timer0
Dim Sample As Word
Dim Temp As Word
Dim Temp -file As Integer
Dim Sum As Integer
Deflcdchar 0 , 24 , 24 , 32 , 32 , 32 , 32 , 32 , 32,
Cursor Off
Cls
Do
Loop
End
Temp -sample:
Incr Sample
Temp = Getadc(0)
Sum = Sum + Temp
If Sample = 15 Then
Sample = 0
Stop Timer0
Sum = Sum / 15
Sum = Sum - 558
Temp -final = Sum / 2
Select Case Temp -final
Case Is =< 10:
Home L
Lcd "LOW"
Case 11 To 34 :
Home L
Lcd "NORMAL"
Case Is >= 35:
Home L
Lcd "HIGH"
End Select
دیدگاه