mehrere DS18s20

[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

[Hendi (Gast)]

Now you have Plan, Benny ! :-)
(Wie war das noch ?

no mail.
no plan.
)

Grüße,
Hendi

[Benny K. (do4bmw)]

Genau so!

tnx

[Bernd (Gast)]

Er meint, no EMail-ADR, no Plan.....

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600

Config 1wire = Portb.0

Config Lcd = 40 * 4
Config Lcdpin = Pin , Rs = Portb.6 , Db4 = Portb.7 , Db5 = Portd.5 ,
Db6 = Portd.6 , Db7 = Portd.7 , E = Portb.1 , E2 = Portb.2


Dim ___lcdno As Bit
Dim T1 As Byte
Dim T2 As Byte
Dim I As Byte
Dim Id1(8) As Byte
Dim Id2(8) As Byte
Dim Ar1(2) As Byte
Dim Ar2(2) As Byte


 ___lcdno = 0
  Initlcd
  Cursor Off
  Cls

 ___lcdno = 1
 Initlcd
 Cursor Off
 Cls




Id1(1) = 1wsearchfirst()
Id2(1) = 1wsearchnext()


Do
1wreset
        'reset
1wwrite &H55
        'Match Rom command
1wwrite Id1(1) , 8
        'Id von Sensor 1
1wwrite &H44
        'Convert T

Waitms 300
        'warten bis convert T fertig ist
1wreset
        'reset
1wwrite &H55
        'match rom command
1wwrite Id1(1) , 8
        'id von sensor 1
1wwrite &HBE
        'scratchpad lesen
Ar1(1) = 1wread(1)
        'erstes byte auslesen, da steht Temp drin
Ar1(2) = 1wread(1)
        'zweites Byte auslesen, wenn 00000000 dann pos vorzeichen, wenn
11111111 dann neg vorzeichen


Waitms 500
1wreset
        'reset
1wwrite &H55
        'Match Rom command
1wwrite Id2(1) , 8
        'Id von Sensor 2
1wwrite &H44
        'Convert T

Waitms 300
        'warten bis convert T fertig ist
1wreset
        'reset
1wwrite &H55
        'match rom command
1wwrite Id2(1) , 8
        'id von sensor 2
1wwrite &HBE
        'scratchpad lesen
Ar2(1) = 1wread(1)
        'erstes byte auslesen, da steht Temp drin
Ar2(2) = 1wread(1)
        'zweites Byte auslesen, wenn 00000000 dann pos vorzeichen, wenn
11111111 dann neg vorzeichen

T1 = Ar1(1) / 2
T2 = Ar2(1) / 2






 ___lcdno = 0


  Upperline

    If Ar1(2) = 0 Then
        'wenn byte 2 aus dem sensor = 0 dann temp pos, sonst neg
       Lcd "Temperatur 1:" ; " " ; T1

     Else
      Lcd "Temperatur 1:" ; "-" ; T1

    End If

  Lowerline

        If Ar2(2) = 0 Then
        'wenn byte 2 aus dem sensor = 0 dann temp pos, sonst neg
       Lcd "Temperatur 2:" ; " " ; T2

     Else
      Lcd "Temperatur 2:" ; "-" ; T2

    End If

 ___lcdno = 1

  Upperline
   Lcd "ID 1:" ; Id1(1) ; Id1(2) ; Id1(3) ; Id1(4) ; Id1(5) ; Id1(6)
; Id1(7) ; Id1(8)

  Lowerline
   Lcd "ID 2:" ; Id2(1) ; Id2(2) ; Id2(3) ; Id2(4) ; Id2(5) ; Id2(6)
; Id2(7) ; Id2(8)

Waitms 500

Loop