DS18B20 multiplexen

[Uwe H. (uwe1981)]

Hallo mal wieder :-)
Ich bastel grad mit vier DS18B20 rum und würde gern jedem Sensor seinen 
eigenen Pin am Controller geben, statt alle zusammen per 1wire an einen 
Pin. Meine Überlegung war, einfach den Pin für 1wire nach jeder Messung 
neu zu bestimmen und damit alle vier Sensoren in Reihe abfragen. In etwa 
so:


Do
CONFIG 1WIRE = PORTC.1

Temperatur messen

CONFIG 1WIRE = PORTC.2

Temperatur messen

CONFIG 1WIRE = PORTC.3

Temperatur messen

usw.

loop

Was meint ihr, haut das hin oder kriegt der Controller nen Koller dabei? 
:-)

Grüße

[Peter D. (peda)]

Uwe Heydemann schrieb:
> Was meint ihr, haut das hin oder kriegt der Controller nen Koller dabei?
> :-)

Der Controller auf keinen Fall.
Aber Dein Bascom könnte meckern.
Probiers aus oder lies die Doku.


Peter

[Jörg S. (vitaminc)]

Warum nicht alle gleichzeitig?

[sBronco (Gast)]

Das geht, ich mach das mit einem M128 und 6 Sensoren:

SUB DSRESET
   For ch = 1 to Channels
      Select Case ch
         Case 1:
            1wreset PinG , 1
            1wwrite &HCC , 1 , Ping , 1
            1wwrite &H44 , 1 , Ping , 1
         Case 2:
            1wreset PinG , 0
            1wwrite &HCC , 1 , Ping , 0
            1wwrite &H44 , 1 , Ping , 0
         Case 3:
            1wreset Pind , 7
            1wwrite &HCC , 1 , Pind , 7
            1wwrite &H44 , 1 , Pind , 7
         Case 4:
            1wreset Pind , 6
            1wwrite &HCC , 1 , Pind , 6
            1wwrite &H44 , 1 , Pind , 6
         Case 5:
            1wreset Pind , 5
            1wwrite &HCC , 1 , Pind , 5
            1wwrite &H44 , 1 , Pind , 5
         Case 6:
            1wreset Pind , 4
            1wwrite &HCC , 1 , Pind , 4
            1wwrite &H44 , 1 , Pind , 4
      End Select
    Next
   Flag.0 = 1
End Sub
'##################################################
SUB DSREAD
   For ch = 1 to Channels
      Select Case ch
         Case 1:
            1wreset PinG , 1
            1wwrite &HCC , 1 , Ping , 1
            1wwrite &HBE , 1 , Ping , 1
            DsData(1) = 1wread(9 , PinG , 1 )
            1wreset PinG , 1
         Case 2:
            1wreset PinG , 0
            1wwrite &HCC , 1 , Ping , 0
            1wwrite &HBE , 1 , Ping , 0
            DsData(1) = 1wread(9 , PinG , 0 )
            1wreset PinG , 0
         Case 3:
            1wreset Pind , 7
            1wwrite &HCC , 1 , Pind , 7
            1wwrite &HBE , 1 , Pind , 7
            DsData(1) = 1wread(9 , Pind , 7 )
            1wreset Pind , 7
         Case 4:
            1wreset Pind , 6
            1wwrite &HCC , 1 , Pind , 6
            1wwrite &HBE , 1 , Pind , 6
            DsData(1) = 1wread(9 , Pind , 6 )
            1wreset Pind , 6
         Case 5:
            1wreset Pind , 5
            1wwrite &HCC , 1 , Pind , 5
            1wwrite &HBE , 1 , Pind , 5
            DsData(1) = 1wread(9 , Pind , 5 )
            1wreset Pind , 5
         Case 6:
            1wreset Pind , 4
            1wwrite &HCC , 1 , Pind , 4
            1wwrite &HBE , 1 , Pind , 4
            DsData(1) = 1wread(9 , Pind , 4 )
            1wreset Pind , 4
      End Select

      TempA = DsData(1) And 1
      If TempA = 1 Then Decr DsData(1)
      TempA = Makeint(DsData(1) , DsData(2))
      TempA = TempA * 50
      TempA = TempA - 25
      TempB = DsData(8) - DsData(7)
      TempB = TempB * 100
      TempB = TempB / DsData(8)
      TempA = TempA + TempB
      Currenttemp(ch) = TempA / 10
      glcd.0 = 1
      If Currenttemp(ch) > 999 then
         Currenttemp(ch) = 999
         Active.ch = 0
      else
         Active.ch = 1
      End If
   next

      glcd.2 = 1


End Sub

[sBronco (Gast)]

zwischen DSRESET und DSREAD wartet er allerdings 8x 100ms lang und tut 
solang anderes

In der Main Loop steht der Teil so drin:

'###########  Sensor
      If cPoll >= tPoll then
         Set RED
         If flag.0 = 0 then
            tPoll = 8 : cPoll = 0 : Flag.0 = 1 : Call DSRESET
         else
            tPoll = 50 : cPoll = 0 : Flag.0 = 0 : Call DSREAD
            flag.7 = 1
         End If
         Reset RED
      End If
'###########

[Uwe H. (uwe1981)]

Jörg Salzer schrieb:
> Warum nicht alle gleichzeitig?

Weil die Sensoren später austauschbar sein müssen OHNE 
Programmierer-Eingriff. Leider wird die Reihenfolge und die Zuordnung 
der Sensoren anhand der Seriennummer gesteuert. Wenn ich also aus dem 
bestehenden System einen Sensor tausche, ändert sich bedingt durch die 
neue Seriennummer automatisch die Reihenfolge und somit auch die 
Zuordnung der Variablen, was dann den Effekt hat, das Temp1 plötzlich 
bei Temp2 angezeigt wird, etc. Man muss also erst die Adresse des 
Sensors auslesen und das Programm entsprechend updaten oder dem Sensor 
eine Zuordnung ins Register sschreiben, um seinen Platz in der Reihe zu 
bestimmen. Sprich: Programmierereingriff. Wenn die Sensoren hingegen 
autonom auf eigenen Kanälen liegen, spielt das keine Rolle weil die 
Reihenfolge durch das Ansprechen der Kanäle festgelegt ist und nicht 
durch die Seriennummer.



sBronco

Ich bin noch Anfänger, so ganz blick ich noch nicht durch. Hast Du 
mehrere Ports als 1wire deklariert oder switcht Du die "Config 1wire" im 
Ablauf von Port zu Port?

[sBronco (Gast)]

ohne deklaration, nur mit den geposteten Befehlen.


Der Grund für 6 verschiedene Pins war;
 wenn das Teil mal verbaut ist,
welcher Sensor gehört jetzt zu welchem Kanal?
Wenn mal einer Defekt ist, wie wird neu zugewiesen?

Ich hab mir dafür eine Routine geschrieben, die neue Sensoren sucht und 
fragt wo sie hingehören, war alles viel zu kompliziert und umständlich.
So ist absolut klar wo was dazugehört.

[sBronco (Gast)]

Nachtrag:

Mein Gerät regelt die Lüfter in meinem PC, dh. der muß Multitasking
machen, egal welche Eingaben ich mach oder auf welcher Seite der Anzeige
ich bin, der Regelt immer weiter, das waren mir irgendwann zu viele
Steuerflags abzufragen, um im Programmablauf wieder an die Stelle zu 
kommen
an der ich meine Eingaben machen muß.

[Uwe H. (uwe1981)]

sBronco schrieb:
> ohne deklaration, nur mit den geposteten Befehlen.
>
>
> Der Grund für 6 verschiedene Pins war;
>  wenn das Teil mal verbaut ist,
> welcher Sensor gehört jetzt zu welchem Kanal?
> Wenn mal einer Defekt ist, wie wird neu zugewiesen?
>
> Ich hab mir dafür eine Routine geschrieben, die neue Sensoren sucht und
> fragt wo sie hingehören, war alles viel zu kompliziert und umständlich.
> So ist absolut klar wo was dazugehört.


So, hier sind meine fertigen 1wire-Multiplex-Routinen (haaaa, wie das 
klingt :-))

Beide Routinen getestet, funktioniert einwandfrei und lässt sich 
beliebig erweitern. Wer Interesse hat, da oben sind die Quellcodes. 
Danke für den Tipp sBronco, das war die Lösung, die ich gesucht habe.

Uwe