سلام دوستان
من با سنسور pt100یک دماسنج ساختم اما درست نشان نمی ده مشکل برنامه کجاست
من با سنسور pt100یک دماسنج ساختم اما درست نشان نمی ده مشکل برنامه کجاست
کد:
$regfile = "m8def.dat" '
$crystal = 1000000
$hwstack = 30
$swstack = 60
$framesize = 50
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pind.3 , Db5 = Pind.2 , Db6 = Pind.1 , Db7 = Pind.0 , Rs = Pind.5 , E = Pind.4
Cls
Cursor Off
Locate 1 , 6 : Lcd "start....."
Wait 2
Cls
Dim I As Byte
Deflcdchar 1 , 28 , 20 , 28 , 32 , 32 , 32 , 32 , 32
Dim Adc1 As Word
Dim Adc0 As Word
Dim Adc1_20 As Long
Dim Adc0_20 As Long
Dim Bitt As Bit
Dim Singlee0 As Single
Dim Singlee1 As Single
Dim Temp As Single
Dim Stringg As String * 10
Enable Interrupts
Start Adc
Main:
Do
Adc0_20 = 0
For I = 1 To 10
Adc0 = Getadc(0)
Waitms 10
Adc0_20 = Adc0_20 + Adc0
Next I
Adc0_20 = Adc0_20 / 10
For I = 1 To 10
Adc1 = Getadc(1)
Waitms 10
Adc1_20 = Adc1_20 + Adc1
Next I
Adc1_20 = Adc1_20 / 10
Singlee0 = Adc0_20 * 4.887585
Singlee1 = Adc1_20 * 4.887585
Temp = Singlee0 - Singlee1
Temp = Temp * 10
Temp = Temp / 45
Stringg = Fusing(temp , "#.#")
Locate 1 , 1
Lcd "Temp=" ; Stringg ; " " ; Chr(1) ; "C" ; " "
Waitms 300
Toggle Bitt
If Bitt = 1 Then
Locate 1 , 16
Lcd "."
End If
If Bitt = 0 Then
Locate 1 , 16
Lcd " "
End If
Loop
End
دیدگاه