$regfile = "m8def.dat" $crystal = 1000000 Config Portb.1 = Output Config Portb.2 = Output Config Int0 = Rising Config Int1 = Falling Config Timer1 = Timer , Prescale = 1 Enable Interrupts Enable Int0 Enable Int1 On Int0 Int0_int On Int1 Int1_int Stop Timer1 Start Timer1 Config Lcdpin = Pin , Db4 = Pind.1 , Db5 = Pind.7 , Db6 = Pind.5 , Db7 = Pind.4 , E = Pind.0 , Rs = Pind.6 Config Lcd = 16 * 2 Cursor Off Dim X As Integer Dim Xf As Word Dim Xl As Word Dim Temp As Single Dim L As Byte Dim Lop2 As Byte Dim Lop1 As Byte Dim Cn As Byte Dim Cl As Byte Dim F As Single Do X = Xl + Xf F = Xl / X Locate 1 , 1 Lcd F F = F - 0.32 Temp = F / 0.0047 Locate 2 , 1 Lcd Round(temp) ; "c " Lcd Timer1 Loop Int1_int: Stop Timer1 Xl = Timer1 Timer1 = 0 Start Timer1 Return Int0_int: Stop Timer1 Xf = Timer1 Timer1 = 0 Start Timer1 Return End
دیدگاه