سلام دوستان
من با سنسور 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
دیدگاه