I²C funktioniert nicht

Hallo,

ich benutze ein Mega16 als Master und ein Mega8 als Slave. SDA und SCL Leitungen miteinander verbunden und jeweils ein Pullup von 10k nach +5V. Soweit zu der Hardware.

Softwareseitig hab ich diese Codes am laufen:

Master:

Code:

---

$regfile = "M16def.dat"                                    ' the used chip
$crystal = 16000000                                        ' frequency used

Declare Sub Twi_send_byte(byval Slave As Byte , Zeichen As Byte)

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

Dim B As Byte                                              ' Zeichen von UART
Dim Error As Byte                                          ' Fehlermerker

' TWI init
Twcr = &B00000100                                          ' erstmal nur TWI aktivieren
Twsr = 0                                                    ' Status und Prescaler Register
Twbr = 72                                                  ' Bit Rate Register, 100kHz

' Startausgabe
Print "TWI Master Transmitter"

' Hauptschleife
Do

    B = 1

    ' Den Wert zum Slave senden
    Call Twi_send_byte(&H40 , B)

Loop

End

' Unterprogramme

' TWI send_byte
' sendet ein Byte und schliesst die Übertragung ab
Sub Twi_send_byte(slave As Byte , Zeichen As Byte)
    Error = 0                                              ' Fehler zurücksetzen

    ' Startbedingung
    Twcr = &B10100100                                      ' TWINT

    ' warten bis TWINT gesetzt ist
    Gosub Twi_wait_int

    ' wenn Zugriff auf den Bus erlaubt, Slaveadresse ausgeben
    If Twi_status = &H08 Or Twi_status = &H10 Then
        Twdr = Slave And &HFE                              ' slave adresse + Write
        Twcr = &B10000100                                  ' TWINT löschen, Byte senden

        ' warten bis TWINT gesetzt ist
        Gosub Twi_wait_int

        ' Slave hat sich gemeldet
        If Twi_status = &H18 Or Twi_status = &H20 Then
            Twdr = Zeichen                                  ' Daten
            Twcr = &B10000100                              ' TWINT löschen, Byte senden

            ' warten bis TWINT gesetzt ist
            Gosub Twi_wait_int

            ' Zeichen wurden gesendet
            If Twi_status = &H28 Or Twi_status = &H30 Then
                Error = 0                                  ' kein Fehler
            Else
                Error = Twi_status                          ' Fehler
            End If

        Else
            ' kein slave
            Error = Twi_status                              ' Fehler
        End If

        ' Stopbedingung kommt hier immer im Ablauf, egal welcher Status
        Twcr = &B10010100                                  ' TWINT löschen, Stop senden

    Else
        ' Bus belegt, wird er wieder freigegeben
        Twcr = &B10000100                                  ' TWINT löschen, Bus freigeben
        Error = Twi_status                                  ' Fehler
    End If

End Sub

' warten bis TWINT gesetzt ist, status auslesen
Twi_wait_int:
    Do
        Twi_control = Twcr And &H80
    Loop Until Twi_control = &H80

    Twi_status = Twsr And &HF8                              ' status
Return

---

Slave:

Code:

---

$regfile = "m8def.dat"                                      ' the used chip
$crystal = 16000000                                        ' frequency used
'$baud = 9600                                              ' keine baud rate angeben !

Config Portd = Output                                      ' kompletter PortD 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
Portd = 0

' Hauptschleife
Do
    ' hier könnte ihr Code stehen


    ' 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, dieses an PortD ausgeben
    If Neuesbyte <> 0 Then
        Portd = Twi_data                                    ' Daten auf PortD ausgeben
    End If

Loop

End


' Unterprogramme


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

End Sub

---

Eigentlich sollte der Master doch die ganze Zeit brav seine 1 senden und der Slave empfangen und am Port D die 1 binär ausgeben. Also am Pin 2 oder 13 ( weiss grad nicht welcher Pin LSB oder MSB ist ). Sprich ich müsste an einem der beiden Pins +5V haben. So ist es aber nicht...

Die beiden Codes sind eigentlich nur aus dem RN Wissensbereich entnommen worden. Somit schließ ich eigentlich ein Softwarefehler aus. Aber an der Hardware gibts ja eigentlich auch nix falsch zu machen. Hab alles schon x-mal überprüft!

Meine Frage nun: Wo denkt ihr liegt der Fehler???

Mim Oszi hab ich den Mega16 mal geprüft. Der scheint mir ständig seine 1 zu schicken....


Bin so langsam am verzweifeln...

Ich hoffe auf Hilfe! Danke.

Gruss Hacker

Ich habe grad mal den Master debuggt. Er bleibt in dieser Do-Loop Schleife hängen:

Code:

---

Twi_wait_int:
    Do
        Twi_control = Twcr And &H80
    Loop Until Twi_control = &H80

    Twi_status = Twsr And &HF8                              ' status
Return

---

Der Slave kommt bis in die große Do-Loop Schleife aber springt in kein einziges If rein.

Hallo,
Wenn das genauso aus dem Wiki ist, sollte es funktionieren,
bau mal auch die Print Error Zeilen ein, wenn er soweit kommt, sieht manwas der meint.
Denn normalerweise sollte er immer durchlaufen, auch wenn der Slave nicht da ist.

Sonst fällt mir erstmal nix ein, ausser,
ist die Masse miteinander verbunden ?

Die Massen sind miteinander verbunden. Beim Compilen vom Mastercode kommt immer man sollte "byval" bei der Sub verwenden...da meckert er rum.

Habs dann halt immer rein gemacht. Aber das kann der Fehler ja nicht sein oder?

Werd die Print Error Zeilen reinmachen. MElde mich gleich wieder.

Hab nochmal nachgeguckt: Bis zur Errorausgabe, wo es im Wiki drin steht, kommt er ja gar nicht. Er hängt ja in der Loop vom Twi_wait_init fest und kommt nicht mehr weiter. Sprich "Twi_control = &H80" trifft nie ein. --> Der Slave setzt das 7. Bit vom Twcr nicht...also liegts am Slave....

Du meinst, den Start bringt er nicht nichtmal fertig ? Dann glaubt er irgendwie, daß der Bus besetzt ist und wartet bis ewig und drei Tage.

Beim Slave initialisieren fehlt TWINT
Twcr = &B01000100
sollte sein :
Twcr = &B11000100

Danke erstmal PicNick für deine Hilfe. Ich habe es nun in &B11000100 umgeändert. Jetzt krieg ich am PC über UART zumindest die Ausgabe, was gesendet wurde. Es kommen keine Fehler.

Aber am Slave kommt am PortD nix an!

Noch was seltsames ich kann immer nur 3 Bytes schicken. Dann will es nicht mehr! Sprich ich krieg keine Ausgabe mehr am Terminal aber auch keine Fehlermeldungen.

Ich benutze exakt den Code vom Wiki.

Moment. Kann es sein, dass

' TWINT muss immer gelöscht werden, damit es auf dem Bus weiter geht
Twcr = &B11000100

mit der Initialisierung verwechselt wurde. ?

Einmal 11000100 und einmal 01000100

Wars auch nicht.... Also die Hardware - Seite ist auf jeden Fall einmal auszuschließen. Das liegt eindeutig am Code!!

@linux_80 bist du dir sicher, dass das genau der Code ist, der bei dir zu Hause funktioniert? Evt. den falschen kopiert?!

Etwas verwirrend: TWINT wird gelöscht, indem man 1 reinschreibt.