$regfile = "M16def.dat" $crystal = 8000000 Config Lcdpin = Pin , Rs = Portb.7 , E = Portb.6 , Db4 = Portb.5 , Db5 = Portb.4 , Db6 = Portb.3 , Db7 = Portb.2 Config Lcd = 16 * 2 Cursor Off Config Portb.0 = Output Config Timer1 = Counter , Edge = Rising Config Timer0 = Timer , Prescale = 1024 Enable Interrupts Enable Timer0 Enable Timer1 On Ovf1 Pulsecount On Ovf0 Lable Dim A As Long , I As Long , B As Byte , M As Integer , U As Long '* Config 1wire = Portb.0 Dim Byte0 As Byte Dim Byte1 As Byte Dim Sign As String * 1 Dim T As String * 4 Dim T1 As Single Dim T2 As Single Dim L As Single Dim H As Single Dim Ll As String * 4 Dim Hh As String * 4 '* B = 0 Start Timer0 Cls Lcd "project 1" Waitms 1000 Do Loop End Lable: Incr I If I > 30 Then Stop Timer0 Home M = -7587.2 A = B * 65536 A = A + Counter1 A = A - 110 U = A - 7351 U = U * M U = U / 100000 '***************************************************************************************************** '******************************* '******************************* '******************************* 'in adad haro baraye damaye made nazareton taghir bedin L = 37.4 : H = 37.7 '******************************* '******************************* '******************************* Ll = Fusing(l , "#.#") Hh = Fusing(h , "#.#") '************** '************** Cursor Off 1wreset If Err = 1 Then Lcd "No DS18B20" Else 1wwrite &HCC 1wwrite &H44 Waitms 250 1wreset 1wwrite &HCC 1wwrite &HBE Byte0 = 1wread() Byte1 = 1wread() If Byte1 > 248 Then Byte0 = &HFF - Byte0 Byte1 = &HFF - Byte1 Sign = "-" Else Sign = "+" End If T1 = Byte0 / 16 T2 = Byte1 * 16 T1 = T1 + T2 If Sign = "-" Then T1 = T1 + 1 End If If Sign = "+" And T1 = 0 Then Sign = " " End If '********** T = Fusing(t1 , "#.&&") '********** End If '*************** '*************** '***************************************************************************************************** Cls Lcd "d:" ; Sign ; T ; Chr(223) ; "C" Home L : Lcd "r:" ; U ; "% " '*********************************** '*********************************** B = 0 I = 0 Counter1 = 0 Start Timer0 End If Return Pulsecount: Incr B : Counter1 = 0 Return
دیدگاه