Multiple DS18B20 circuit detection and temperature display on a single line

'Result: The proteus simulation runs successfully, and the temperature is displayed in a loop. Theoretically, no matter how many DS18B20 are hung, it will work.
 

$regfile = "m16def.dat"
$crystal = 3276800
Baud = 9600
Declare Sub Screen()

Config 1wire = Portd.7 'Define single bus interface
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.1 , Rs = Porta.0 'Define LCD interface
Config Lcd = 16 * 2 'Define LCD type as 1602
Cls
Cursor Off 'Turn off cursor display

Dim Romdat(8) As Byte
Dim Romadd As Byte
Dim T(2) As Byte
Dim Wd As Word
Dim Temp As Single
Dim A As Byte
Dim M As Byte
Dim N As Byte
Dim I As Byte
Screen
Lcd "Welcome to"
Locate 2, 2: Lcd " http://ycavr.cn "
Wait 2
Screen
1 wreset
If Err = 0 Then 'If there is a DS18B20 on the bus, then detect the temperature and display it. If there is no DS18B20, then end the program.
   Lcd "DS18B20 OK!"
Else
   Lcd "ERROR !"
   End End
If

Romadd = 1
Romdat(1) = 1wsearchfirst() 'Find the first device
For N = 1 To 8
   Writeeeprom Romdat(N), Romadd
   Incr Romadd
Next

Do
   Romdat(1) = 1wsearchnext() 'Search for the next one until all are found.
   For N = 1 To 8
      Writeeeprom Romdat(N), Romadd 'Write the ROM address to the EEPROM
      Incr Romadd
   Next
Loop Until Err = 1
I = 1wirecount() 'Return the number of DS18B20 on the bus
Screen
Lcd "Found " ; I ; " Sensors" 'Show the number of DS18B20
Wait 1

Do
   Romadd = 1
1 wreset
1 wwrite &HCC 'Skip ROM match
1 wwrite &H44 'Start temperature conversion'Waitms
   20
   For M = 1 To I
      Screen
      Lcd "No. " ; M
      For N = 1 To 8
         Readeeprom Romdat(N), Romadd
         Incr Romadd
      Next

1      wreset
1      wwrite &H55                                          'ROM匹配
      For N = 1 To 8
1         wwrite Romdat(N)
      Next
1      wwrite &HBE                                          '读转换温度
      For N = 1 To 2
         T(n) = 1wread()
      Next
      Wd = T(2) * 255
      Wd = Wd + T(1)
      Locate 2, 1
      If T(2) > 15 Then
         Lcd "T= -"
         Wd = Not Wd
         Incr Wd
      Else
         Lcd "T= +"
      End If
      Temp = Wd / 16
      Lcd Temp ; " C "
      Print M; Temp
      Wait 2
   Next
Loop
End

Sub Screen()
Local J As Byte
For J = 1 To 16
   Locate 1, J: Lcd "*"
   Locate 2, J: Lcd "*"
   Waitms 30
Next
For J = 16 To 1 Step -1
   Locate 1, J: Lcd " "
   Locate 2, J: Lcd " "
   Waitms 30
Next
Home
End Sub