I2C zwischen atmeg32

[Jada]

Hallo,
ich habe ein Problem. Ich möchte RGB's über ein I2C Slave anstueren.
Unten habe ich I2C Master und ein I2C Slaver Programm aufgeführt. Ich möchte wissen wie der I2C Slaver erkennt welcher Port angesprochen wird. Kann mir bitte jemand helfen?

Master:

$regfile = "m32def.dat" 
$crystal = 16000000 
$baud = 9600
Config SCL = Portc.0 
Config SDA = Portc.1

$lib "I2c_twi.lbx" 

Config Twi = 400000 


Const Slave1 = &HC0                                         'I2C Adresse slave1 
Const Slave2 = &HC2                                         'I2C Adresse slave2 
Const Slave3 = &HC4                                         'I2C Adresse slave3 


Dim Status As Byte 

   Wait 2                                                   'Warte 2 Sekunden 
   I2cinit                                                  'Bus initialisieren 

Do 

   Status = 1 

   I2cstart 
   I2cwbyte Slave1                                          'Slave1 ansprechen 
   I2cwbyte Status                                          'Status 
   I2cstop 

   Waitms 1000 

   I2cstart 
   I2cwbyte Slave2                                          'Slave2 ansprechen 
   I2cwbyte Status                                          'Status 
   I2cstop 

   Waitms 1000 

   I2cstart 
   I2cwbyte Slave3                                          'Slave3 ansprechen 
   I2cwbyte Status                                          'Status 
   I2cstop 

   Waitms 1000 


Loop 

End

Slaver:

$regfile = "m32def.dat" 
$crystal = 16000000 
$baud = 9600 

Config Portc = Output                                       ' kompletter Portc als Ausgang 

Dim Twi_control As Byte                                     ' Controlregister lokale kopie 
Dim Twi_status As Byte 
Dim Twi_data As Byte 

Dim Neuesbyte As Byte                                       ' Bytemerker 

Declare Sub Twi_init_slave 

Twi_data = 0 
Call Twi_init_slave                                         ' TWI aktivieren 

' alle LEDs ein 
Portc = 0 

' Hauptschleife 
Do 

    ' Merker zurücksetzen 
    Neuesbyte = 0 

    ' schauen ob TWINT gesetzt ist 
    Twi_control = Twcr And &H80                             ' Bit7 von Controlregister 

    If Twi_control = &H80 Then 
        Twi_status = Twsr And &HF8                          ' Status 

        ' wurde ein Byte geschickt 
        If Twi_status = &H80 Or Twi_status = &H88 Then 
            Twi_data = Twdr                                 ' neue Daten merken 
            Neuesbyte = 1                                   ' merken das ein neues Byte da ist 
        End If 

        ' TWINT muss immer gelöscht werden, damit es auf dem Bus weiter geht 
        Twcr = &B11000100                                   ' TWINT löschen, erzeugt ACK 
    End If 

    ' wenn ein neues Byte gekommen ist, LEDs einschalten 
    If Neuesbyte <> 0 Then 
        Portc = 1                                           ' LEDs einschalten 
    End If 

Loop 

End 


' Unterprogramme 


' TWI als slave aktivieren 
Sub Twi_init_slave 
    Twsr = 0                                                ' status und Prescaler auf 0 
    Twdr = &HFF                                             ' default 
    Twar = &HC0                                             ' Slaveadresse setzen 
    Twcr = &B01000100                                       ' TWI aktivieren, ACK einschalten 

End Sub

[Richard]

Warum eigentlich SO kompliziert? Bascom hat doch für Senden
und Empfangen eigene Befehle! Schau Dier doch einmal die Demos
an!

In der Zeit in welcher DU an diesem Thema herumstolperst, habe ich
Einen US Entfernungssensor auf ein Servo geklebt. Aus den Demos
für Servos und den Demo für den US Sensor ein Programm zueammen
Kopiert mit dem ich fast 360 Grad in 15 Grad schritten Hindernisse
feststellen kann. Das hat maximal 2 h gedauert. Kann man sicherlich
verfeinern, aber zum testen und lernen wie es im Prinzip geht sind
die Bascom Beispiele echt sehr gut, wenn man sie denn einmal ausprobiert!

Wer jedes mal das Rad neu erfinden WILL, hat zu viel Zeit. Wer es
wirklich besser machen will..Der lernt Assembler.

Ach ja, das Byte welches Du mit Send sendest.. legt fest welcher Ausgang
1 oder 0 ist, sollte logisch sein? in Deinem Programm sendest Du aber
anscheinen nichts außer der Adresse?

Noch etwas, wenn Du alles über Register selber steuern willst, nehme besser c. Bascom selber belegt etliche Register selber (für sich), das kann Probleme geben..unter Bascom ist es besser auch die Bascom Routinen
zu benutzen weil halt keiner genau weiß was von Bascom selber möglich
einfach übergebügelt wird. ((

Gruß Richard