I²C funktioniert nicht

**hacker** · 24.08.2006, 16:05

Dann also doch 01000100.

Geht aber trotzdem nicht. Es kommen keine Errors, es wird aber auch das empfangene Byte nicht an Port D angezeigt.

**linux_80** · 24.08.2006, 19:18

Zitat von hacker

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

ja freilich, ich hab nur den,
den Testaufbau hab ich auch gleich als Bild mit dazu eingebaut.
Wenn man genau hinschaut, sieht man sogar die LEDs leuchten

Darf ich mal fragen, laufen die AVRs auch bestimmt mit 16MHz ?
Aber selbst dann müsste er irgendwann wieder zurückkommen, wenns auch ziemlich langsam geht, bei zB 1MHz.

Hast Du schon mal probiert, den Slave wegzulassen, also nur die Pullups beim Master uns sonst nix ?
Was ist das für ein Board, sind da evtl. noch LEDs dran, die die Signale beeinflussen ?

und gleich ein Edit:
kann es sein, das da Bascom wieder in Problem hat, denn ich kann das mit der neuen Version auch nicht mehr Compilieren !
Meine Quelldatei hat immer noch das Datum vom Januar, und da ist es gegangen !
Die Hex-Datei hab ich auch noch da, und mit der geht es !

nächstes Edit:
wenn ich die Variable mit Byval angebe, so wie in der Fehlermeldung angegeben, dann gehts wieder !

**hacker** · 24.08.2006, 20:53

Beide AVRs 100% mit 16MHz und auch den richtigen Fuesbits. Das Board ist eigens erstellt von mir. Dort hängt nix dran außer Portstecker. Den Master allein zu betreiben und dann die Terminalausgabe anzuschauen, hab ich auch schon versucht. Immer das gleiche Ergebnis: Es werden mir genau 3 Ziffern angezeigt. Und nicht mehr. Also gebe ich eine einstellige Zahl zum senden ein, kann ich 3 verschiedene oder gleiche Zahlen senden. Dann kommt nichts mehr am Terminal. Versuche ich jedoch eine zweizahlige Zahl zu senden, kann ich danach nur noch eine Ziffer anzeigen . Also am Terminal sprich werden als Variable B immer nur max. 3 Ziffern angezeigt.

Kannst du mir mal deine *.hex Dateien schicken. Den Master aber bitte für einen Mega16 statt 32. So langsam hab ich das Gefühl, dass Bascom totalen Mist compiled.

Ein verzweifelter Hacker...

**linux_80** · 24.08.2006, 22:58

Das mit den 3 Ziffern/Zahlen versteh ich nicht ganz wie Du das meinst,
aber ich denke es könnte sein, da B ein Byte ist, und es max. bis 255 geht, also 3 Ziffern pro Zahl.
In meinem Testprogramm gibt man eine Zahl (0-255) ein, dann mit Enter wird die Zahl an den Slave gesendet !

Hier das Testprogramm aus dem Wiki (Master Transmit) für den M16 (16MHz), geht auch auch dem M32, da der mehr RAM hat

Code:

:100000000C942A001895000018950000189500001F
:10001000189500001895000018950000189500002C
:10002000189500001895000018950000189500001C
:10003000189500001895000018950000189500000C
:1000400018950000189500001895000018950000FC
:10005000189500008FE58DBFC0E4E8E34E2E84E0E4
:100060008EBFD4E0F4E05F2EEEEFF3E0A0E6B0E068
:1000700088278D933197E9F787E689B980E080BDBD
:1000800088E18AB9662484E086BF80E081B988E48B
:1000900080B9EAE0F4E00E9433010E943A0133E0C3
:1000A0000E940D01A0E2B4E00E94BA01A3E6B0E014
:1000B0000C935A924A9280E4A42DB52D8C9381E042
:1000C0000E940901E3E6F0E0FA93EA930E948600B9
:1000D000249681E00E940501A0E2B4E0E3E6F0E0AE
:1000E0000E9470010E942B01E2E2F4E00E943301C1
:1000F000A0E2B4E0E4E6F0E00E94E9010E942B01F6
:100100000E943A010C944F00F894FFCF80E0809356
:10011000640084EA86BF0E94F2000091610008300A
:1001200081E009F080E08F9300916100003181E06F
:1001300009F080E09F91892B882311F40C94EB0047
:10014000AA81BB810C914EEF042303B984E886BFDA
:100150000E94F20000916100083181E009F080E026
:100160008F9300916100003281E009F080E09F915F
:10017000892B882311F40C94E300A881B9818C9118
:1001800083B984E886BF0E94F200009161000832C2
:1001900081E009F080E08F9300916100003381E0FD
:1001A00009F080E09F91892B882311F40C94DD00E5
:1001B00080E0809364000C94E10080916100809362
:1001C00064000C94E700809161008093640084E9EE
:1001D00086BF0C94F10084E886BF80916100809313
:1001E0006400089506B740E80423A0E6B0E00C934D
:1001F00000916000003811F00C94F20001B148EF5A
:100200000423A1E6B0E00C930895481A8827580A01
:100210000895480E8827581E0895A0E2B4E017D02C
:100220008D3049F0883079F03323C9F38D933A95B6
:1002300063FE23D0F4CF63FC03C01FD08AE01DD03F
:1002400088278C93089519D011973395E8CF5F9B39
:10025000FECF8CB10895A0E2B4E08D91882311F017
:100260000CD0FBCF08950E944A01802D11F005D0DB
:10027000FACF08958DE001D08AE05D9BFECF8CB966
:1002800008953197F1F70895689462F80895E89415
:1002900062F80895C895319600200895040F151F3F
:1002A000261F371F0895000F111F221F331F0895A7
:1002B00000951095209530950F5F1F4F2F4F3F4FA2
:1002C0000895019110810EC0019111912191308109
:1002D0000BC00191108117FF05C03FEF2FEF04C045
:1002E000008111272227332737FF03C0E1DF8DE28A
:1002F0008D93CF93DF93CF92DF92EF92AA24BB240A
:10030000CC24DD24EE2440E2CAE0DD2755E093E36F
:100310008881890F87FD9F7083FD907F891B89935A
:100320005A95A9F7C0DFAA1CBB1CCC1CDD1CEE1C17
:100330004A9551F7E894EFE0FF2782910ED0EB3019
:10034000E0F71EF068948A2D0CD088278D93EF90EB
:10035000DF90CF90DF91CF910895982F829501D0B3
:10036000892F8F70805D26F0803309F4089568949A
:100370008D93089500271127222733271DD08A3314
:1003800028F4803318F005D015D0F9CF0EF490CFB3
:10039000089580538F93402F512F622F732F83DF47
:1003A00082DF7CDF80DF8F919927080F191F291FBB
:1003B000391F08958D910895E894FCDF8032E9F3A8
:1003C0008B32D9F38930C9F38D3211F46894F2CFAE
:1003D000089541E003C042E001C044E0E40F8827F3
:1003E000F81F8291982F829506D0892F04D04A95C4
:1003F000C1F70C9402028F708A3008F0895F805D2B
:100400008D93089588278D930895545749204D6101
:1004100073746572205472616E736D697474657261
:0C0420000000204572726F72203A20002C
:00000001FF

Das Programm geht auch, wenn kein Slave dran hängt.

**hacker** · 25.08.2006, 10:10

hmmm hat genau die gleiche Wirkung wie vorher. Auch wenn ich das Programm ohne den Slave dran laufen lasse, müsste ich doch bei jeder Eingabe meinen eingegebenen Wert und zumindest "Error: " zurückkriegen, oder nicht?

Code:

Do
    ' hier könnte ihr Code stehen 

    ' warten bis etwas über UART kommt 
    Input B

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

    ' Ausgabe, damit wir sehen was geschehen ist 
    Print B ;
    Print " Error : " ;
    Print Hex(error)                                        ' error status Ausgeben 

Loop

Er gibt mir nämlich nur den Wert zurück. Und das ziemlich seltsam.
Ich sag mal so: Ich hab 3 Ziffern zur Verfügung. Mehr krieg ich nicht zurück. Und die 3 Ziffern kann ich halt aufteilen. Entweder ich schick vom Terminal 3 mal eine Ziffer oder z.B eine dreistellige Zahl auf einmal. Zumindest krieg ich dann die 3 Ziffern zurück und dann aber nix mehr, bis zum Reset vom Controller.

Es ist ein neuer Mega16, xtra grad nochmal ein neuen ausgekramt.

An was könnt das liegen?

**hacker** · 25.08.2006, 11:12

Sry für die vielen Posts. Aber des sollte bald klappen...komme schon ein bisschen unter Zeitdruck!

Hab jetzt den Code hier mal genommen für den Master. Der kommt bei Twi_wait_int() in die Loop und bleibt darin hängen. Mit oder ohne Slave scheint ihm dabei egal zu sein.

Code:

$regfile = "M16def.dat"                                     ' the used chip
$crystal = 16000000
$baud = 19200                                               ' 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
B = 0
Do

    Incr B

    If B = 255 Then

      B = 0

    End If

    Print B ; " ";

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

    Print B ; " ";

    Wait 1

Loop

End

' Unterprogramme

' TWI send_byte
' sendet ein Byte und schliesst die Übertragung ab
Sub Twi_send_byte(slave As Byte , Zeichen As Byte)

    Print "Twi_send_byte() ";
    Error = 0                                               ' Fehler zurücksetzen

    ' Startbedingung
    Print "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
        Print "Slaveadresse ";
        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
            Print "Slave hat sich gemeldet ";
            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
            Print "Kein Slave da ";
            Error = Twi_status                              ' Fehler
        End If

        ' Stopbedingung kommt hier immer im Ablauf, egal welcher Status
        Print "Stoppbedingung ";
        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:

    Print "Twi_wait_int() ";
    Do
        Twi_control = Twcr And &H80
        'Print "Do - Loop " ;
    Loop Until Twi_control = &H80
    Print "Nach Do-Loop ";
    Twi_status = Twsr And &HF8                              ' status
Return

Also Ausgabe krieg ich:

Twi Master Transmitter
1
Twi_send_byte()
Startbedingung
Twi_wait_int

...und das wars. weiter kommt er nicht!

**linux_80** · 25.08.2006, 21:22

Hallo,
ich hab das jetzt mal probiert,
denn der Code läuft ja so bei mir und auf dem RN-Control.

Den Zustand den Du beschreibst bekomme ich nur, wenn ich die Pullups weg mache !
Wenn ich nur SCL auf GND lege, wartet der AVR solange, bis ich das wieder loslasse, und sendet dann.
Wenn ich allerdings SDA auf GND lege, kommt der AVR nicht mehr zurück, auch wenn ich den Pullup wieder aktiviere, hilft nur ein Reset !

Also würde ich sagen musst Du nochmal die Pullups kontrollieren !

**hacker** · 28.08.2006, 20:19

Habe nochmals die Pullups kontrolliert, jedoch zunächst ohne Erfolg. Ich habe dann die Pullups abgezwickt und die internen Pullups eingeschaltet. Nun läuft beim Master das Programm vollständig und immer wieder durch. Das Komische dabei ist, er gibt mir am Terminal eine "Slave hat sich gemeldet!" - Nachricht aus, obwohl ich das Kabel noch nicht in die Steckverbindung zum Slave gesteckt hab. Wenn ich jetzt SCL und SDA mit dem Slave verbinde bleibt er wieder prompt in der twi_wait_int Sub hängen. Das hier trifft nich ein: Twcr And &H80 = &H80

So langsam frag ich mich echt, ob ich nicht zu blöd für das ganze bin...

Das kann doch nicht so schwer sein, 2 Leitungen zu verbinden und den Code auf die zu 2 µCs jagen!