$regfile = "M8def.dat" $crystal = 8000000 Config Adc = Single , Prescaler = Auto Config Pind.0 = Input 'Calbirataion Button Config Pinb.0 = Output 'Hot Rly Config Pinb.1 = Output 'Cold LED Config Pinb.2 = Output 'Hot LED Config Pinb.3 = Output 'Hot & Cold LED *** Yellow Config Pinb.4 = Output 'Sender LED Config Pinb.5 = Output 'Cold Rly Dim After As Word 'ADC value After turning on led Dim Before As Word 'ADC value before turning on led Dim Pure As Long Dim Miangin As Long Dim Mcount As Byte Dim E2 As Word 'E2prom value Start Adc Enable Adc Portb.2 = 1 Waitms 25 Portb.2 = 0 Waitms 25 Portb.2 = 1 Waitms 25 Portb.2 = 0 Waitms 25 If Pind.0 = 1 Then Goto Calibrate Main: Mcount = 0 Miangin = 0 While Mcount < 200 Portb.4 = 1 After = Getadc(0) Portb.4 = 0 Before = Getadc(0) Pure = Before - After Pure = Abs(pure) Miangin = Miangin + Pure Incr Mcount Wend Miangin = Miangin / 200 Readeeprom E2 , 0 If E2 = 0 Then Goto Calibrate If Miangin <= E2 Then 'if sen value == e2prom value relay for 5 sec on then off Portb.2 = 0 Else Portb.2 = 1 End If Cls Lcd Miangin Waitms 25 Goto Main Calibrate: Mcount = 0 Miangin = 0 While Mcount < 200 Portb.4 = 1 After = Getadc(0) Portb.4 = 0 Before = Getadc(0) Pure = Before - After Pure = Abs(pure) Miangin = Miangin + Pure Incr Mcount Wend Miangin = Miangin / 200 Writeeeprom Miangin , 0 Waitms 10 Cls Lcd "Calibrated" Locate 2 , 1 Lcd Miangin Waitms 50 Goto Main End
دیدگاه