Dim Shaus(8) As Byte
Shaus(1) = &H10 : Shaus(2) = &H9D : Shaus(3) = &HFB : Shaus(4) = &H30 : Shaus(5) = &H02 : Shaus(6) = &H08 : Shaus(7) = &H00 : Shaus(8) = &HA7
Dim Sladen(8) As Byte
Sladen(1) = &H10 : Sladen(2) = &HBA : Sladen(3) = &HF0 : Sladen(4) = &H30 : Sladen(5) = &H02 : Sladen(6) = &H08 : Sladen(7) = &H00 : Sladen(8) = &HA7

'und so weiter ... eigentlich nur die codes die es mir davor auf dem display angezeigt hat :)

.....



Sub Tempauslesen(a As Integer):
   Config 1wire = Portb.4
   If Dsp = 1 Then
      Cls
      Locate 1 , 1
      Lcd "bitte warten"
   End If
   1wreset
   If Err = 1 And Dsp = 1 Then
      Locate 2 , 1
      Lcd "E reset 1"
      Wait 2
      Cls
   End If
   Waitus 500
   1wwrite &H55
      Select Case A
         Case 1 : 1wverify Sdrausen(1)
         Case 2 : 1wverify Shaus(1)
         Case 4 : 1wverify Smatte1(1)
         Case 5 : 1wverify Smatte2(1)
         Case 6 : 1wverify Smatte3(1)
         Case 7 : 1wverify Smatte4(1)
         Case 8 : 1wverify Skessel(1)
      End Select
   If Err = 1 And Dsp = 1 Then
      Locate 2 , 1
      Lcd "E verify 1"
      Wait 2
      Cls
   End If
   1wwrite &H44
   Waitms 750
   1wreset
   If Err = 1 And Dsp = 1 Then
      Locate 2 , 1
      Lcd "E reset 2"
      Wait 2
      Cls
   End If
   Waitus 500
   1wwrite &H55
      Select Case A
         Case 1 : 1wverify Sdrausen(1)
         Case 2 : 1wverify Shaus(1)
         Case 4 : 1wverify Smatte1(1)
         Case 5 : 1wverify Smatte2(1)
         Case 6 : 1wverify Smatte3(1)
         Case 7 : 1wverify Smatte4(1)
         Case 8 : 1wverify Skessel(1)
      End Select
   If Err = 1 And Dsp = 1 Then
      Locate 2 , 1
      Lcd "E verify 2"
      Wait 2
      Cls
   End If
   Tempsc(1) = 0
   Tempsc(2) = 0
   1wwrite &HBE
   Tempsc(1) = 1wread(9)
   Temp(a) = Makeint(tempsc(1) , Tempsc(2))
   If Dsp = 1 Then
      Call Tempzustr(temp(a))
      Locate 2 , 1
      Lcd Str(temp(a))
      Wait 1
   End If
End Sub