Archiv verlassen und diese Seite im Standarddesign anzeigen : Hilfe bei TWI
Guten Tag,
ich habe folgendes Problem:
Ich möchte eine TWI Verbindung zwischen 2 bis 7 µC aufbauen wo über einen bestimmten Kontroller bestimmte Daten zu den anderen µC (1 bis 6) gesendet werden. Diese sollen die Daten erkennen, vergleichen und dann darauf antworten.
Ist dies mit dem Normalen Master Slave Betrieb möglich?
Oder geht diese nur im Multimaster Betrieb?
Die Berichte im Wiki hab ich gelesen bin aber nicht viel schlauer daraus geworden....
MfG Dämmi
Wenn nur einer das große Wort führt und die anderen nur was tun, wenn sie gefragt werden, reicht "normaler" Master-Slave Betrieb völlig. Is ja auch so bei den Port expandern und div. Sensoren.
Multimaster brauchst du nur dann, wenn einer der "slaves" von SICH AUS auf die Idee kommt, er müsse den anderen µC's jetzt sofort was erzählen
Hi danke für die Antwort
Also meine Idee war diese es gibt einen Master und max 6 Slave.
Der Master schickt ein befehl an die Slaves das diese in einen besonderen Modus gehen sollen. Jetzt kann an den Slaves bestimmte inputs auf High gesetzt werden und der Slave sendet ein bestimmtes Byte an den Master der Speichert diesen ab. Wenn der Anwender genug Bytes gespeichert hatt setzt er ein Input am Master auf High und lässt alle Slaves aus den besonderen Modus gehen.
Ich habe die Vorlagen für Slave Receiver und Transmitter unter TWI Praxis in 1 Funktion und 1 Unterprogramm geschrieben. Jetzt wird Unterprogramm fürs Empfangen beim Master immer wieder durchgelaufen und nur wenn ein Input gesetzt wird soll er die funktion fürs senden aufrufen.
Der Master ist dann ja nur im Empfang Modus. Aber dieser empfängt nun auch Signale wenn der Slave auch Signale empfangen soll...
Hm kann leider keinen Code Schicken sitz grade in der Firma und ich müsste diesen noch einmal neu Schreiben reiche ihn heute Nachmittag nach.
Ich hoffe mir kann geholfen werden.....
Noch mals Danke
MfG dämmi
Hi,
Also bin nun schon ein Stück weiter daher habe ich auch meinen Code nicht beigefügt weil dieser nun schon erweitert wurde und ich glaube das Problehm im grunde gelöst zu haben.
Aber eine frage habe ich noch...
Immer wenn mehrere Slaves mit unterschiedlichen Adressen Bytes an den Master senden wollen und der Master die Adressen nach und nach abfragt gibt es bei mir fehler. Kann man das überhaubt so machen und ist das Normal das es dann fehler gibt oder soll ich meinen jetztigen Code mal anhängen?
Danke für jede Hilfe
mfg dämmi
Wenn mehrere Teilnehmer einfach irgendwann gegenseitig was senden wollen, sind "collisions" (BusLost) immer möglich.
https://www.roboternetz.de/wissen/index.php/TWI_Praxis_Multimaster#Konflikte
Hi danke für die schnelle Antwort.
Also wenn ich das nun so richtig verstehe ist das was ich vorhabe doch nur mit dem Multimaster möglich?
Also im Prinzip will ich nichts anderes als ein Master an 6 Slaves ein befehl schickt. Wenn die Slaves den Befehl erhalten haben soll über eine tasteingabe an den Slaves Bytes in einen Zwischenspeicher glegt werden. Wenn nun wieder ein Befehl an die Slaves geht sollen diese die im Zwichenspeicher liegenden Bytes hintereinander zum Master senden bzw der master soll diese abrufen.
Das klappt bei mir auch alles leider nur mit einem angeschloßenen Slave...
Sobald 2 Slaves angeschloßen sind bleibt das Prog stehen wenn der Master die Daten wieder abholen soll....
mfg dämmi
Ich glaub', du denkst zu kompliziert
In deinem Fall gehst du am besten von EINEM Master aus.
1) Der sendet an seine Slaves mit Master-WRITE ein Byte, das den Modus dieser Slaves bestimmt.
d.h. dieses Kontrollbyte kriegen sie einfach irgendwann auf's Auge gedrückt.
2) Der holt von seinen Slaves mit Master-READ die Zwischen-Speicher-Bytes ab.
Beides kann er mit den stink-normalen Bascom I2c-Funktionen machen.
Die Slaves machen zwei Sachen:
1) je nach dem gerade aktuellen Kontroll-BYte kümmern sie sich um Tasten oder sonstwas
2) Sie lauschen am I2C Bus, dabei kommen zwei Status-Varianten:
2 a) Slave Receive: es kommt ein neues Kontroll-Byte
2 b) Slave Transmit: sie schicken ihre Datenbytes
Das geht am lockersten wohl mit der TWI-Interrupt Funktion, da haben sie die Hände frei für 1)
Konflikte und Reibereien am Bus kann es da nicht geben
Danke für die Antwort,
Also so wie du es beschrieben hast wollte ich das auch machen..... klappt nur nicht ^^ also doch überlegung richtig also mus dann ja der Code falsch sein. Dieser ist nun aber schon sehr lang im Atmega32 18% beim Master.
Also schreibe ich einfach ma Code Auszüge wo es Probleme macht.
Master:
Ersoll an einer stelle allen Slaves hintereinander den befehl geben den Status zu Wechseln das macht ich so:
i2cstart
i2cwbyte &h40
i2cwbyte &h09
i2cstop
waitms 1
i2cstart
i2cwbyte &h41
i2cwbyte &h09
i2cstop
usw.....
und die Slaves laufen einfach die Slave Receiver routine aus dem TWI Praxis durch und sollen auf das ankommene Signal reagieren.
Nur bei 2 Slaves gehts nicht der erste Slave bekommt den Befehl noch der 2 nicht mehr.....
So das als erster Fehler, wenn das Klappt können wir bzw ich ja weiter schauen.
Danke für die großartige Hilfe
mfg dämmi
Beim Zeus, die nächste Adresse nach &H40 kann nur &H42 sein
(&H41 ist der selbe slave, aber lesen )
Wichtig: Alle Slaves haben gerade Adressen
Das bit 0 = 1 bedeutet LESEN (vom Slave)
Ups hab mich auch verschrieben. Es geht auch nicht, wenn der 2 Slave mit &h50 adressiert ist und der 3 mit &h60 usw.
Gut, dann ist aber eins klar: beim Master kann dann der Fehler mal nicht liegen.
Wirst du Code der Slaves rausrücken müssen.
Die Slaves laufen einfach die Slave Receiver Routine aus dem TWI Praxis durch.
Ich hab die ein Beispiel hergerichtet, das für die Slaves prinzipiell passen sollte.
("PRINT" mußt du natürlich nicht machen)
deine Sachen müsstest du natürlich einfügen, Timer usw, das mit den Tasten etc.
MySlave.bas ist sozusagen das Slave-Hauptprogramm
mytwi.bas wird includiert, brauchst (sollst) du nix ändern
mytwi.lib muss in das Bascom-Directory, wo die ganzen Lib's stehen
bei mir ist das z.B. "C:\Program Files\MCS Electronics\BASCOM-AVR\LIB"
Die Master Sachen würde ich mit normalen I2c funktionen machen, damit kennst du dich ja aus
Hi,
ich werde mir deinen Code ma anschauen und hoffen das ich alles verstehe ^^....
Ein sehr großes Danke für deine Mühe
Hier ist mal mein Code vom Master und den Slaves.
Er gibt mir nun diesen fehler aus
Unknown interrupt [TWSI]
Code: On Twsi Twi_mst_slv_isr , Nosave
weiß keiner warum ich so einen fehler bekomme????
Versuch mal:
Code: On Twi Twi_mst_slv_isr , Nosave
(TWI statt TWSI)
Ich fürchte, da sind sich die Bascom-Versionen nicht ganz einig
Morgen,
danke für die Hilfe. Das mit dem TWI anstatt des TWSI hat geklappt und die Slaves önnen nun alle senden.
Aber ein Problem habe ich noch:
Ich möchte gerne alle Slaves nacheinander Fragen ob sie Daten haben und die dann auch empfangen, weil die Slaves sonst ja in der Sende Routine bleiben.
Ich wollte hierzu die Error Variable von der TWI_read_byte Funktion aus dm Wiki nehmen nur die Scheint immer null zu sein auch wenn der Slave eigentlich schon alle Bytes gesendet hat....
Hier mal der Code.....
'-------------------------------------------------------------------------------
Projekt: Midi Looper inter
'-------------------------------------------------------------------------------
'-----------------------------Registrierung-------------------------------------
$regfile = "m32def.dat" 'Konfiguration auf ATmega 32
$lib "i2c_twi.lbx"
$crystal = 16000000 'Quarztakt 16MHz
$baud = 9600
Config Twi = 400000
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 32 ' default use 10 for the SW stack
$framesize = 32
$eeprom
I2cinit
Declare Function Twi_read_byte(byval Slave As Byte) As Byte ' default use 40 for the frame space
'-----------------------------Configuration-------------------------------------
Config Porta = Output
Config Portb = Output
Config Portc = Input
'-----------------------------Dimensionierung-----------------------------------
Dim Uart As Byte
Dim Var(90) As Byte
Dim Vare(90) As Eram Byte
Dim Ausvar1(90) As Byte
Dim Ausvar2(90) As Byte
Dim Ausvar3(90) As Byte
Dim Ausvar4(90) As Byte
Dim Ausvar5(90) As Byte
Dim Ausvar6(90) As Byte
Dim Ausvar7(90) As Byte
Dim Ausvar8(90) As Byte
Dim Ausvar9(90) As Byte
Dim Ausvar10(90) As Byte
Dim Ausvare1(90) As Eram Byte
Dim Ausvare2(90) As Eram Byte
Dim Ausvare3(90) As Eram Byte
Dim Ausvare4(90) As Eram Byte
Dim Ausvare5(90) As Eram Byte
Dim Ausvare6(90) As Eram Byte
Dim Ausvare7(90) As Eram Byte
Dim Ausvare8(90) As Eram Byte
Dim Ausvare9(90) As Eram Byte
Dim Ausvare10(90) As Eram Byte
Dim Slave(6) As Byte
Dim Slavestat(6) As Byte
Dim Ebene As Byte
Dim Ebenee As Eram Byte
Dim Flanke1 As Bit
Dim Impuls1 As Bit
Dim Impuls2 As Bit
Dim Impuls3 As Bit
Dim Progmodus As Bit
Dim Z As Byte
Dim X As Byte
Dim Fusssch As Integer
Dim W As Integer
Dim Gleich As Bit
Dim Gleichuart As Bit
Dim Maxi As Byte
Dim Ausprog As Bit
Dim Twi_control As Byte
Dim Twi_status As Byte
Dim Twi_data As Byte
Dim Error As Byte
Dim Sendbyte As Byte
Dim Loeschen As Bit
Dim Reseten As Bit
Dim Startwert As Byte
Dim Altuart As Byte
Dim Emfaengt As Byte
Dim Fussschsp As Byte
Led1 Alias Portb.0
Led2 Alias Porta.0
Led3 Alias Porta.1
Tast1 Alias Pinc.3
Tast2 Alias Pinc.5
Tast3 Alias Pinc.4
'-----------------------------Vorkonfiguration----------------------------------
Impuls1 = 0
Impuls2 = 0
Impuls3 = 0
Flanke1 = 0
Progmodus = 0
Fusssch = 0
X = 0
W = 0
Led1 = 1
Led2 = 1
Led3 = 1
Gleich = 0
Maxi = 6
Ausprog = 0
Loeschen = 0
Altuart = 0
Ebene = Ebenee
Emfaengt = &H00
Slave(1) = &H40
Slave(2) = &H50
Slave(3) = &H60
Slave(4) = &H70
Slave(5) = &H80
Slave(6) = &H90
Slavestat(1) = 0
Slavestat(2) = 0
Slavestat(3) = 0
Slavestat(4) = 0
Slavestat(5) = 0
Slavestat(6) = 0
For Fusssch = 1 To Maxi Step 1
Var(fusssch) = Vare(fusssch)
Ausvar1(fusssch) = Ausvare1(fusssch)
Ausvar2(fusssch) = Ausvare2(fusssch)
Ausvar3(fusssch) = Ausvare3(fusssch)
Ausvar4(fusssch) = Ausvare4(fusssch)
Ausvar5(fusssch) = Ausvare5(fusssch)
Ausvar6(fusssch) = Ausvare6(fusssch)
Ausvar7(fusssch) = Ausvare7(fusssch)
Ausvar8(fusssch) = Ausvare8(fusssch)
Ausvar9(fusssch) = Ausvare9(fusssch)
Ausvar10(fusssch) = Ausvare10(fusssch)
Next
Led1 = 0
Led2 = 0
Led3 = 0
Waitms 500
Led1 = 1
Led2 = 1
Led3 = 1
Waitms 1000
Ebene = 1
Emfaengt = Twi_read_byte(slave(1))
If Emfaengt = Slave(1) Then Slavestat(1) = 1
Emfaengt = Twi_read_byte(slave(2))
If Emfaengt = Slave(2) Then Slavestat(2) = 1
Emfaengt = Twi_read_byte(slave(3))
If Emfaengt = Slave(3) Then Slavestat(3) = 1
Emfaengt = Twi_read_byte(slave(4))
If Emfaengt = Slave(4) Then Slavestat(4) = 1
Emfaengt = Twi_read_byte(slave(5))
If Emfaengt = Slave(5) Then Slavestat(5) = 1
Emfaengt = Twi_read_byte(slave(6))
If Emfaengt = Slave(6) Then Slavestat(6) = 1
If Slavestat(1) = 1 Then
Led1 = 0
Waitms 200
Led1 = 1
Waitms 1000
End If
If Slavestat(2) = 1 Then
For Z = 1 To 2 Step 1
Led1 = 0
Waitms 200
Led1 = 1
Waitms 200
Next
Waitms 1000
End If
If Slavestat(3) = 1 Then
For Z = 1 To 3 Step 1
Led1 = 0
Waitms 200
Led1 = 1
Waitms 200
Next
Waitms 1000
End If
If Slavestat(4) = 1 Then
For Z = 1 To 4 Step 1
Led1 = 0
Waitms 200
Led1 = 1
Waitms 200
Next
Waitms 1000
End If
If Slavestat(5) = 1 Then
For Z = 1 To 5 Step 1
Led1 = 0
Waitms 200
Led1 = 1
Waitms 200
Next
Waitms 1000
End If
If Slavestat(6) = 1 Then
For Z = 1 To 6 Step 1
Led1 = 0
Waitms 200
Led1 = 1
Waitms 200
Next
Waitms 1000
End If
'----------------------------Hauptprogramm--------------------------------------
Do
If Tast1 = 1 And Flanke1 = 0 And Impuls1 = 0 Then
Led1 = 0
Progmodus = 1
Flanke1 = 1
Impuls1 = 1
Waitms 200
End If
If Tast1 = 1 And Flanke1 = 1 And Impuls1 = 0 Then
Led1 = 1
Progmodus = 0
Flanke1 = 0
Impuls1 = 1
Waitms 200
End If
If Tast1 = 0 Then Impuls1 = 0
If Ebene = 1 Then
Startwert = 1
Maxi = 2
Led2 = 0
Led3 = 1
End If
If Ebene = 2 Then
Startwert = 3
Maxi = 4
Led2 = 1
Led3 = 0
End If
If Ebene = 3 Then
Startwert = 5
Maxi = 6
Led2 = 0
Led3 = 0
End If
If Progmodus = 1 Then
Led1 = 0
X = 0
Loeschen = 0
Do
Loop Until Tast2 = 1 Or Tast3 = 1
If Tast2 = 1 Then Uart = &H11
If Tast3 = 1 Then Uart = &H12
If Tast1 = 0 Then
For Fusssch = Startwert To Maxi Step 1
If Uart = Var(fusssch) Then
Gleich = 1
Fussschsp = Fusssch
Fusssch = Maxi
Led1 = 1
Waitms 100
Led1 = 0
Waitms 100
Led1 = 1
Waitms 100
Led1 = 0
Ausprog = 1
For W = 1 To 6 Step 1
If Slavestat(w) = 1 Then
I2cstart
I2cwbyte Slave(w)
I2cwbyte &H09
I2cstop
Waitms 1
End If
Next
Else
Gleich = 0
End If
Next
If Gleich = 0 Then
X = Startwert - 1
For Fusssch = Startwert To Maxi Step 1
If Var(fusssch) = 0 Then
Var(fusssch) = Uart
Vare(fusssch) = Var(fusssch)
Fussschsp = Fusssch
Fusssch = Maxi
Gosub Blinken
Ausprog = 1
For W = 1 To 6 Step 1
If Slavestat(w) = 1 Then
I2cstart
I2cwbyte Slave(w)
I2cwbyte &H09
I2cstop
Waitms 1
End If
Next
Else
X = X + 1
End If
Next
If X = Maxi Then
For Z = 0 To 5 Step 1
Led1 = 1
Waitms 400
Led1 = 0
Waitms 400
Loeschen = 1
Next
For Fusssch = Startwert To Maxi Step 1
Var(fusssch) = 0
Vare(fusssch) = Var(fusssch)
Next
End If
End If
Do
Led1 = 1
Waitms 50
Led1 = 0
Waitms 50
Loop Until Tast1 = 1 Or Loeschen = 1
If Ausprog = 1 Then
For W = 1 To 6 Step 1
If Slavestat(w) = 1 Then
I2cstart
I2cwbyte Slave(w)
I2cwbyte &H08
I2cstop
Waitms 1
End If
Next
Waitms 200
'------------ab hier fragt er alle Slaves ab---------------------------------------
Fusssch = Fussschsp
Z = 0
For W = 1 To 6 Step 1
If Slavestat(w) = 1 Then
If Z = 0 Then
Emfaengt = Twi_read_byte(slave(w))
If Error = 0 Then
Ausvar1(fusssch) = Emfaengt
'----------------------------Z soll nur einen hörer gezählt werden wenn error = 0-------------------------------------------------------------
Z = Z + 1
Ausvare1(fusssch) = Ausvar1(fusssch)
Emfaengt = 0
End If
End If
If Z = 1 Then
Emfaengt = Twi_read_byte(slave(w))
If Error = 0 Then
Ausvar2(fusssch) = Emfaengt
Z = Z + 1
'Gosub Blinken
Ausvare2(fusssch) = Ausvar2(fusssch)
emfaengt = 0
End If
End If
If Z = 2 Then
Emfaengt = Twi_read_byte(slave(w))
If Error = 0 Then
Ausvar3(fusssch) = Emfaengt
Z = Z + 1
'Gosub Blinken
Ausvare3(fusssch) = Ausvar3(fusssch)
emfaengt = 0
End If
End If
If Z = 3 Then
Emfaengt = Twi_read_byte(slave(w))
If Error = 0 Then
Ausvar4(fusssch) = Emfaengt
Z = Z + 1
'Gosub Blinken
Ausvare4(fusssch) = Ausvar4(fusssch)
emfaengt = 0
End If
End If
If Z = 4 Then
Emfaengt = Twi_read_byte(slave(w))
If Error = 0 Then
Ausvar5(fusssch) = Emfaengt
Z = Z + 1
'Gosub Blinken
Ausvare5(fusssch) = Ausvar5(fusssch)
emfaengt = 0
End If
End If
If Z = 5 Then
Emfaengt = Twi_read_byte(slave(w))
If Error = 0 Then
Ausvar6(fusssch) = Emfaengt
Z = Z + 1
'Gosub Blinken
Ausvare6(fusssch) = Ausvar6(fusssch)
emfaengt = 0
End If
End If
If Z = 6 Then
Emfaengt = Twi_read_byte(slave(w))
If Error = 0 Then
Ausvar7(fusssch) = Emfaengt
Z = Z + 1
'Gosub Blinken
Ausvare7(fusssch) = Ausvar7(fusssch)
emfaengt = 0
End If
End If
If Z = 7 Then
Emfaengt = Twi_read_byte(slave(w))
If Error = 0 Then
Ausvar8(fusssch) = Emfaengt
Z = Z + 1
'Gosub Blinken
Ausvare8(fusssch) = Ausvar8(fusssch)
emfaengt = 0
End If
End If
If Z = 8 Then
Emfaengt = Twi_read_byte(slave(w))
If Error = 0 Then
Ausvar9(fusssch) = Emfaengt
Z = Z + 1
'Gosub Blinken
Ausvare9(fusssch) = Ausvar9(fusssch)
emfaengt = 0
End If
End If
If Z = 9 Then
Emfaengt = Twi_read_byte(slave(w))
If Error = 0 Then
Ausvar10(fusssch) = Emfaengt
Z = Z + 1
'Gosub Blinken
Ausvare10(fusssch) = Ausvar10(fusssch)
emfaengt = 0
End If
End If
For X = 1 To 30 Step 1
Emfaengt = Twi_read_byte(slave(w))
Next
End If
Next
'--------------------------in das unterprogramm blinken wird aber 10 mal gesprungen-------------
For W = 0 To Z Step 1
Gosub Blinken
Next
Led1 = 0
Waitms 500
End If
If Loeschen = 0 Then
Led1 = 1
Progmodus = 0
Flanke1 = 0
Ausprog = 0
Impuls1 = 1
End If
End If
End If
If Progmodus = 0 Then
Do
Loop Until Tast2 = 1 Or Tast3 = 1 Or Tast1 = 1
If Tast1 = 0 Then
If Tast2 = 1 Then Uart = &H11
If Tast3 = 1 Then Uart = &H12
For W = 1 To 6 Step 1
I2cstart
I2cwbyte Slave(w)
I2cwbyte &H10
I2cstop
Waitms 1
Next
Waitms 1
If Gleichuart = 1 Then
Altuart = 0
Gleichuart = 0
End If
If Uart <> Altuart Then
For Fusssch = Startwert To Maxi Step 1
If Var(fusssch) = Uart Then
For W = 1 To 6 Step 1
I2cstart
I2cwbyte Slave(w)
I2cwbyte Ausvar1(fusssch)
I2cstop
Waitms 1
I2cstart
I2cwbyte Slave(w)
I2cwbyte Ausvar2(fusssch)
I2cstop
Waitms 1
I2cstart
I2cwbyte Slave(w)
I2cwbyte Ausvar3(fusssch)
I2cstop
Waitms 1
I2cstart
I2cwbyte Slave(w)
I2cwbyte Ausvar4(fusssch)
I2cstop
Waitms 1
I2cstart
I2cwbyte Slave(w)
I2cwbyte Ausvar5(fusssch)
I2cstop
Waitms 1
I2cstart
I2cwbyte Slave(w)
I2cwbyte Ausvar6(fusssch)
I2cstop
Waitms 1
I2cstart
I2cwbyte Slave(w)
I2cwbyte Ausvar7(fusssch)
I2cstop
Waitms 1
I2cstart
I2cwbyte Slave(w)
I2cwbyte Ausvar8(fusssch)
I2cstop
Waitms 1
I2cstart
I2cwbyte Slave(w)
I2cwbyte Ausvar9(fusssch)
I2cstop
Waitms 1
I2cstart
I2cwbyte Slave(w)
I2cwbyte Ausvar10(fusssch)
I2cstop
Next
End If
Next
Else
Gleichuart = 1
End If
Altuart = Uart
End If
End If
Loop
End
'Unterprogramme
' TWI read_byte
' holt ein Byte und schliesst die Übertragung ab
Function Twi_read_byte(slave As Byte) As Byte
Error = 0 ' Fehler zurücksetzen
Twi_read_byte = 0 ' Wert vorbelegen
' 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 Or &H01 ' slave adresse + Read
Twcr = &B10000100 ' TWINT löschen, Byte senden
' warten bis TWINT gesetzt ist
Gosub Twi_wait_int
' Slave hat sich gemeldet
If Twi_status = &H40 Then
Twcr = &B10000100 ' TWINT löschen, Byte senden
' kein ACK (TWEA = 0) senden, weil wir nur ein Byte lesen wollen
' warten bis TWINT gesetzt ist
Gosub Twi_wait_int
' ein Byte wurde empfangen
If Twi_status = &H58 Or Twi_status = &H50 Then
Twi_read_byte = Twdr ' Daten lesen
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
' nach einem STOP wird TWINT nicht mehr gesetzt,
' man darf/kann also nicht darauf warten !
Else
' Bus belegt, wird er wieder freigegeben
Twcr = &B10000100 ' TWINT löschen, Bus freigeben
Error = Twi_status ' Fehler
End If
End Function
' 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
' status nur zu Debugzwecken ausgeben, weil Bus sehr langsam wird !
' Print "Err " ; Hex(twi_status)
Return
Blinken:
Led1 = 1
Waitms 200
Led1 = 0
Waitms 200
Return
Ich habe auch schon versucht die zu empfangenen Bytes abzufragen ob das die richtigen sind dies funktioniert aber leider auch nicht....
Einer eine Idee?
Danke für alles mfg dämmi
Weiss nicht, ob ich dich jetzt richtig verstehe.
Wenn der Master sich vom Slave daten holt, kann der Slave weder ACKen noch NACKen, das kann nur der Master.
Beim Letzten (oder einzigen) gelesenen Byte setzt der Master NACK, dann weiss auch der Slave, dass es nun aus ist mit dem Übertragen.
Hi,
Jetzt weiß ich nicht was du mir damit sagen willst.
Das Problem welches ich in meiner Routine habe ist das Z immer ein höher gezählt wird. Das heißt error muss immer auf 0 sein auch wenn der Slave zb nur 2 Byte sendet.
Wenn Z nun auf 10 ist werden die gesendeten Bytes des 2. Slaves nicht gespeichert.
Die übertragung an sich funktioniert ja.
Powered by vBulletin® Version 4.2.5 Copyright ©2024 Adduco Digital e.K. und vBulletin Solutions, Inc. Alle Rechte vorbehalten.