Archiv verlassen und diese Seite im Standarddesign anzeigen : 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:
$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:
$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:
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.
linux_80
23.08.2006, 17:35
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.
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
@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.
:-k
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 !
:-k
nächstes Edit:
wenn ich die Variable mit Byval angebe, so wie in der Fehlermeldung angegeben, dann gehts wieder !
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
: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.
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?
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?
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.
$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 !
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!
Habe nochmals die Pullups kontrolliert, jedoch zunächst ohne Erfolg. Ich habe dann die Pullups abgezwickt und die internen Pullups eingeschaltet.
Schon Blödsinn ...
Wenn die Hardware TWI Schnittstelle aktiv ist, ist der Pullup ohne Funktion.
Aber der externe bringt bei mir auch nicht den gewünschten Erfolg.
Die Verbindung zwischen dem Master und dem Slave funktioniert immer noch nicht so richtig.
Nun habe ich, um eine Fehlerquelle auszuschließen, einmal an den Master ein PCF8574 Porterweiterungs IC von Phillips drangehängt.
Dort funktioniert das Auslesen und Setzen des Bytes mit folgendem Master - Code tadellos:
$regfile = "M16def.dat"
$crystal = 16000000
$framesize = 64
$swstack = 64
$hwstack = 64
$baud = 19200
$lib "i2c_twi.lbx"
Config Scl = Portc.0
Config Sda = Portc.1
I2cinit
Config Twi = 100000
Dim X As Byte
Const Pcf8574 = &H41
X = 0
Do
I2creceive Pcf8574 , X
Print X ; " ";
Print "Error: " ; Err;
Wait 1
Loop
End
Gehe ich nun wieder aber auf den Master - Receiver - Code aus dem Wiki zurück, geht mal wieder nix und ich habe das üblich beschriebene Problem von oben.
Daraus kann ich doch schließen, dass an dem Code doch irgentwas faul ist oder nicht??? Genau das gleiche Bord, gleiche Pullups usw.. nur der Code ist anders..und schon gehts nicht.
Ich will hier niemanden kritisieren, aber dennoch die Frage:
Seit ihr wirklich sicher, dass der Master Code stimmt???
Oder gibt es noch irgentwelche Fehlerquellen, die ich noch nicht kenne, wenn die Hardware 100% richtig ist ( und der PCF8574 auch ) ? Irgentwas Übersinnliches?!
Die beiden Slave - Codes aus dem Wini funktionieren mit dem Master Code von dem Post drüber auch einwandfrei. Aber wie gesagt, sobald ich das mit dem Master - Receiver Code aus dem Wiki machen will, geht nix mehr...sehr seltsam.
Daher würd ich gerne mal wissen, was sich hinter den Befehlen I2csend und I2creceive verbirgt? ( --> geht so in Richung PicNick )
Und wie kann ich die beiden Slave Arten kombinieren, dass ein Slave senden und auch empfangen kann?
Gruss Hacker
Powered by vBulletin® Version 4.2.5 Copyright ©2024 Adduco Digital e.K. und vBulletin Solutions, Inc. Alle Rechte vorbehalten.