2 Stück LM75 an einem Controller (I2C-Bus) (GELÖST)

[HPM]

Hallo Forumler,

ich hab hier ein kleines Verständnisproblem!

Ich will eine Pumpe nach 2 verschiedenen Temp- Kriterien steuern. Dazu will ich 2 Temp.-fühler (LM75) an einer I2C auslesen. Ich hab nun schon mehrmals im Forum gelesen und auch RN-Wissen gequält, bin aber immer noch nicht so richtig hinter die Funktion der Ansteuerung gestiegen, wenn mann mehrere Geräte an einem Bus betreibt.

Hier mal mein vorbereiteter Code, der allerdings genau in dem Tempfühler SUP (ganz unten) nicht ausprogrammiert ist.

Kann mir da jemand mit größerer Erfahrung in den Dingen weiter helfen?

'-------------------------------------------------------------------------------
' Controller Grundeinstellung
'-------------------------------------------------------------------------------
$regfile = "m8def.dat"                                      'Prozessor MEGA8
$crystal = 1000000                                          'int. 1MHz-Takt



'-------------------------------------------------------------------------------
' Display Grundeinstellung
'-------------------------------------------------------------------------------
Config Lcd = 16 * 2                                         '16Zeichen 2Zeilen
Config Lcdbus = 4                                           '4 bit mode
Config Lcdmode = Port
Config Lcdpin = Pin , Rs = Portd.0 , E = Portd.1 , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7
'Mega8 Anschlüsse          Bein 2         Bein 3          Bein 6          Bein 11         Bein 12         Bein 13
'Displayanschluss          Bein 6         Bein 4          Bein 11         Bein 12         Bein 13         Bein 14
'Displayanschluss (Rest)   Bein 1 = GND   Bein 2 = +5V    Bein 3 = Kontrast



'-------------------------------------------------------------------------------
' Temperaturerfassung LM75 Grundeinstellung
'-------------------------------------------------------------------------------
Declare Sub Tempfuehler()

Const Lm75slavewrite = &H90
Const Lm75slaveread = &H91
Dim Lm75high As Byte
Dim Lm75low As Byte

Dim Wasser As Byte
Dim Luft As Byte
Dim Tempvar As Byte

Config Sda = Portc.4
Config Scl = Portc.5



'-------------------------------------------------------------------------------
' Eingänge, Ausgänge, Allgemeine Variablen
'-------------------------------------------------------------------------------

Config Pinb.1 = Input                                       ' Pumpe Hand EIN
Config Pinb.2 = Output                                      ' Pumpe Ausgang

Portb = &B11111111                                          ' alle PullUP ein

Portb.2 = 1                                                 ' 1= Pumpe Aus

'*******************************************************************************
'*******************************************************************************
'*                                                                             *
'*                               Hauptprogramm                                 *
'*                                                                             *
'*******************************************************************************
'*******************************************************************************

Do

Hand:
If Pinb.1 = 0 Then                                          ' 0 = Schalter Ein
Portb.2 = 0                                                 ' 0= Pumpe Ein
Locate 1 , 1
Lcd "! Hand  !       "
Locate 2 , 1
Lcd "! Hand  !       "
Goto Hand
End If

'-------------------------------------------------------------------------------


Call Tempfuehler()


'-------------------------------------------------------------------------------
' Display
'-------------------------------------------------------------------------------

Cls

Deflcdchar Print , 12 , 18 , 18 , 12 , 32 , 32 , 32 , 32    ' °=Grad-Zeichen

Locate 1 , 1
Lcd "Wasser="
Locate 1 , 9
Lcd Wasser
Locate 1 , 15
Lcd Chr(0) ; "C"

Locate 2 , 1
Lcd " Luft="
Locate 2 , 9
Lcd Luft
Locate 2 , 15
Lcd Chr(0) ; "C"

'-------------------------------------------------------------------------------
' Steuerung
'-------------------------------------------------------------------------------

'Steuerung, wenn Wasser zu kalt
Tempvar = Luft - 2
If Wasser < 22 And Wasser < Tempvar Then
Goto Pumpe_ein
End If

'Steuerung, wenn Wasser zu warm
Tempvar = Luft + 2
If Wasser >= 25 And Wasser > Tempvar Then
Goto Pumpe_ein
End If

Portb.2 = 1                                                 ' 1= Pumpe AUS
Goto Endesteuerung

Pumpe_ein:
Portb.2 = 0                                                 ' 0= Pumpe EIN

Endesteuerung:

Loop

End

'*************** ENDE HauptProgramm ********************************************




'*******************************************************************************
'*                                                                             *
'*                 Unterprogramme  und Interrupt Routinen                      *
'*                                                                             *
'*******************************************************************************



'-------------------------------------------------------------------------------
' Sub  LM75-Temperaturfühler
'-------------------------------------------------------------------------------
Sub Tempfuehler()
'*****  Temperaturfühler 1 *****
   I2cinit
   I2cstart
   I2cwbyte Lm75slaveread
   I2crbyte Lm75high , Ack
   I2crbyte Lm75low , Nack
   I2cstop
   If Lm75high > 127 Then
      Wasser = Lm75high And 127
      Wasser = Not Wasser
      Incr Wasser
   Else
      Wasser = Lm75high                                     '+/- Wert 'Korr. falsche Anzeige
   End If

'*****  Temperaturfühler 2 *****

   I2cinit
   I2cstart
   I2cwbyte Lm75slaveread
   I2crbyte Lm75high , Ack
   I2crbyte Lm75low , Nack
   I2cstop
   If Lm75high > 127 Then
      Luft = Lm75high And 127
      Luft = Not Luft
      Incr Luft
   Else
      Luft = Lm75high                                       '+/- Wert 'Korr. falsche Anzeige
   End If

'*******************************

Wait 5

End Sub
'-------------------------------------------------------------------------------

[Vitis]

aaaalso ...

ein Bus hat die Funktion mehrere Peripheriebausteine über die gleichen Leitungen
zu betrieben, sprich zu lesen und zu schreiben i.d.R..
Busse gibt es viele, serielle sind oft entweder der I2C, der auch als TWI bezeichnet wird
oder SPI.
TWI / I2C hat den Vorteil, dass nur zwei Leitungen benötigt werden,
bei SPI brauchts minimum 3, mit Chip Select 4 Verbindungen.
Dafür braucht am TWI im Gegensatz zu SPI jeder Busteilnehmer eine
bestimmte Adresse,
da ja alle Busteilnehmer die selben Kommandos erhalten.
Oft haben die Bausteine noch eine Möglichkeit verschiedene Adressen zugewiesen
zu bekommen, meist indem man Pins auf GND oder VSS legt.
Zusätzlich wird in der Adresse noch kodiert, ob ein Schreib- oder Lesezugriff erfolgt,
meist über das letzte Bit der Adresse.

Und im Übrigen ... Bei Codes mit GOTO lese ich mich gar nicht erst ein ... Spaghetti gibts
nur auf dem Teller

[HPM]

Hallo Vitis,

vielen Dank, für die ausführliche Abhandlung über Bus- Systeme.

[StevieL]

Hallo Peter,

ich mag GOTO im Code auch nicht, das ist aber ein anderes Thema.

Du musst auf jeden Fall die Sensoren mit unterschiedlichen Adressen ausstatten.

Const Lm75slavewrite = &H90
Const Lm75slaveread = &H91

reicht nicht. Du musst auch noch Lm75slave2write oder so ähnlich für den zweiten Chip deklarieren und diese Adresse(n) dann im Codeteil für den zweiten Sensor verwenden. Am Chip musst du die Adresse dann natürlich auch noch hardwaremäßig einstellen.

Beim Abfragen mehrerer Sensoren würde ich übrigens eine Funktion verwenden, die die Basisadresse des Sensors als Parameter übergibt und die Temperatur als Ergebnis zurückliefert (Declare Function LM75_gettemp(byval Device As Byte) As Single)

[HPM]

Hallo StevieL,

vielen Dank, für die Infos!
Genau das war der Anstoß, hab das Problem gelöst.
Seltsamerweise hatte ich die beiden LM75 für den Test ohne Schutzkondensatoren (100nF) betrieben. Da hat sich ein seltsamer Drift ergeben und die Anzeige war ständig unruhig.

Jetzt funktioniert aber meine Schaltung tadellos!

Bei den Recherchen ist mir jetzt aber aufgefallen, dass die LM75 an max. 1m Kabellänge betrieben werden sollen. Ich habe aber den Einen bei ca. 1m und den Anderen bei ca. 2m.

Wenn es nicht funbktioniert muss ich dann wohl auf 1wire umsteigen und dann fängt die Sache von vorn an

Das mit der Funktion hört sich interessant an. Allerdings bin ich diesbezüglich noch nicht so sattelfest, deswegen auch GOTO

Danke vielmals und noch gutes Gelingen bei Deinen Projekten.