BASCOM , drei DS1820 ansprechen !?h

[Benny K. (do4bmw)]

Hy

hat einer von euch ein programm beispiel in BASCOM
wie ich mehrere DS18s20 ansprechen kann ?? ich mache das im moment so

ist ein teil eines programm, nur würde ich nun gerne noch zwei weitere
hinzufügen.

wie mache ich das am besten ?! habe da kein plan.

gruss Benny

---



Sub Messungen
Startmessung:
  1wreset                                                   'reset
the
device
  1wwrite &HCC                                              'read ROM
command
  1wwrite &H44
  Waitms 100                                                'read ROM
command
  1wreset                                                   'reset
the
device
  1wwrite &HCC                                              'read ROM
command
  1wwrite &HBE                                              'read ROM
command
  For I = 1 To 2
    Ar(i) = 1wread()                                        'place
into array
  Next
  Temperatur = Ar(1)
  If Ar(2) > 0 Then Temperatur = 0 Else Shift Temperatur , Right

Getrc5(address , Command)
 If Flag = 1 Then
     ' Lcd "  "
   Flag = 0
 End If
 If Address <> 255 Then
   Reset Command.7
   'Lcd Command ; "   "
   Lastcommand = Command
   Flag = 1
 End If

If Flag_c = 0 Then
   Flag_c = 1
   Wait 1
   Cls
  Goto Startmessung
End If
End Sub Messungen