Prosty Termometr-pytanie...

'Termometr 4 punktowy DS18b20 



$regfile = "m8def.DAT"                                      

$crystal = 1000000                                          

'Deklaracja portów od wyświetlacza LCD 

Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5 



Config Lcd = 16 * 2                                        



'*************************************WAŻNE********************************************** 



Config 1wire = Portd.5                                      



Dim I1 As Integer , Ss As String * 6 

Dim I2 As Integer 

Dim I3 As Integer 

Dim I4 As Integer 



Dim Dsid1(8) As Byte 

Dim Dsid2(8) As Byte 

Dim Dsid3(8) As Byte 

Dim Dsid4(8) As Byte 

Dim B As Byte                                              

Dim W As Byte                                                



Deflcdchar 0 , 8 , 20 , 11 , 4 , 4 , 4 , 3 , 32              



Cursor Off                                                  

Cls                                                          

Lcd "Lada Samara 1.3s" ;                                

Lowerline 

Lcd "        2008        " 

Wait 5 

Cls 

W = 1wirecount() 

Lcd "Ilosc czujnikow:"                                      

Waitms 500 

Lcd W 

Wait 3 

Cls                                                        

Dsid1(1) = 1wsearchfirst()                                  

Dsid2(1) = 1wsearchnext()                                    

Dsid3(1) = 1wsearchnext()                                    

Dsid4(1) = 1wsearchnext() 



'*******************Odczyt numerów ID czujników temperatury********************* 



If Dsid1(8) = Crc8(dsid1(1) , 7) Then                        

 Locate 1 , 1 

 Lcd "CRC OK Czujnik 1 ID" 

 Wait 1 

 Locate 1 , 1 

 For B = 1 To 8 

 Lcd Hex(dsid1(b)) 

 Next 

End If 

Wait 2 



If Dsid2(8) = Crc8(dsid2(1) , 7) Then 

 Locate 2 , 1 

 Lcd "CRC OK Czujnik 2 ID" 

 Wait 1 

 Locate 2 , 1 

 For B = 1 To 8 

 Lcd Hex(dsid2(b)) 

 Next 

End If 

Wait 2 



If Dsid3(8) = Crc8(dsid3(1) , 7) Then 

 Locate 1 , 1 

 Lcd "CRC OK Czujnik 3 ID" 

 Wait 1 

 Locate 1 , 1 

 For B = 1 To 8 

 Lcd Hex(dsid3(b)) 

 Next 

End If 

Wait 2 



If Dsid4(8) = Crc8(dsid4(1) , 7) Then 

 Locate 2 , 1 

 Lcd "CRC OK Czujnik 4 ID" 

 Wait 1 

 Locate 2 , 1 

 For B = 1 To 8 

 Lcd Hex(dsid4(b)) 

 Next 

End If 

Wait 2 

Cls 



'*******************koniec odczytu ID czujników temperatury********************* 



Do 

   1wreset 

   1wwrite &H55 

   1wverify Dsid1(1)                                        

   1wwrite &HBE 

   I1 = 1wread(2) 

'--------------------------------- 

   1wreset 

   1wwrite &H55 

   1wverify Dsid2(1)                                        

   1wwrite &HBE 

   I2 = 1wread(2) 

'--------------------------------- 

   1wreset 

   1wwrite &H55 

   1wverify Dsid3(1)                                        

   1wwrite &HBE 

   I3 = 1wread(2) 

'--------------------------------- 

   1wreset 

   1wwrite &H55 

   1wverify Dsid4(1)                                        

   1wwrite &HBE 

   I4 = 1wread(2) 

'--------konwersja temp dla wszystkich dsow 

   1wreset 

   1wwrite &HCC 

   1wwrite &H44 

Wait 1 







   I1 = I1 * 10 

   I1 = I1 / 16 

   'If I1 > 0 Then Cls                                        

   Ss = Str(i1) 

   Ss = Format(ss , " 0.0") 

   Locate 1 , 1                                              

   Lcd "Wew" ; Ss ; Chr(0) ; 



   I2 = I2 * 10 

   I2 = I2 / 16 

   'If I2 > 0 Then Cls 

   Ss = Str(i2) 

   Ss = Format(ss , " 0.0") 

   Locate 2 , 1 

   Lcd "Zew" ; Ss ; Chr(0) ; 



   I3 = I3 * 10 

   I3 = I3 / 16 

   'If I3 > 0 Then Cls 

   Ss = Str(i3) 

   Ss = Format(ss , " 0.0") 

   Locate 1 , 11 

   Lcd "Chlo" ; Ss ; Chr(0) ; 



   I4 = I4 * 10 

   I4 = I4 / 16 

   'If I4 > 0 Then Cls 

   Ss = Str(i4) 

   Ss = Format(ss , " 0.0") 

   Locate 2 , 11 

   Lcd "Gaz" ; Ss ; Chr(0) ; 



Loop