Wieder I2C TWI

Hallo,

Ich versuche gerade aus den zwei Bsp Programmen im Wiki und den AVR Dokus ein m16 Slave zu programmieren.

Mein Master ist ein RN2560 Modul Slave wie erwähnt ein Mega16

Mein Master funktioniert einwandfrei. Ich habe aus dem Wiki die 2 Beispiele Transmitter und Reciever kombiniert- Dann habe ich die einzelnen bsps für den Slave hergenommen (einmal Recieve, einmal Transmit) - funktioniert.

Wenn ich aber die 2 Beispiele für den Slave kombinieren, funktioniert das Auslesen der Bytes nicht.

Hier mein Slave Code:

Code:

---


'Microcontroller
'================
$regfile = "m16def.dat"
$crystal = 1000000
$hwstack = 32
$swstack = 10
$framesize = 40

Config Scl = Portc.0                                        'Ports fuer IIC-Bus
Config Sda = Portc.1
Config I2cdelay = 10

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
Portb = 0

' Hauptschleife
Do
    ' hier könnte ihr Code stehen
Portb = 0

    ' 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

        ' will der Master ein Byte haben
        If Twi_status = &HA8 Or Twi_status = &HB8 Then
            Twdr = 245                                      ' neue Daten ausgeben
        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
        Portb = 1
    Wait 1                                                  ' 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 = &H20                                            ' Slaveadresse setzen
    Twcr = &B01000100                                      ' TWI aktivieren, ACK einschalten
End Sub

---

Master:

Code:

---

'===============================================================================
'=========================Beginn der Initialisierung============================
'===============================================================================
'\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
'============================== Deklaration ====================================
'$sim
$prog , 255 , &B11011001 ,                                  'Quarz an / Teiler aus / Jtag aus
$regfile = "m2560def.dat"                                  'Definitionsfile für M2560 Prozessor
$hwstack = 82                                              '80 Hardwarestack
$framesize = 68                                            '64 Framesize
$swstack = 68                                              '44 Softwarestack
$baud = 19200                                              'Baudrate für UART
$crystal = 16000000                                        'Quarzfrequenz

'================================ Port Konfiguration ===========================

Config Pind.5 = Output
Config Portc = Output


Config Scl = Portd.0                                        'Ports fuer IIC-Bus
Config Sda = Portd.1
Config I2cdelay = 10

Config Com3 = 19200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Serialin3 = Buffered , Size = 100
Config Serialout3 = Buffered , Size = 1


Led_go Alias Portd.5                                        'Status LED am Controller
Led_stat Alias Portb.0

Const Mars_firmware = "0.0.1"
Const Mars_filename = "Master_trancieve.bas"
Const Mars_filedate = "21.02.2010"

Declare Sub Twi_send_byte(byval Slave As Byte , Zeichen As Byte)
Declare Function Twi_read_byte(byval Slave As Byte) 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 X As Byte                                              ' Zeichen von TWI
Dim Error As Byte                                          ' Fehlermerker

' TWI Init
Twcr = &B00000100                                          ' erstmal nur TWI aktivieren
Twsr = 0                                                    ' Status und Prescaler Register
Twbr = 72
'======================INIT===============================

'======================INIT===============================
Init:



  Led_go = 0
  Led_stat = 1
  'Open  UART
  Open "COM3:" For Binary As #3
  Print #3 , "============="
  Print #3 , Mars_firmware
  Print #3 , Mars_filename
  Print #3 , Mars_filedate
  Print #3 , "============="

'========================================================

'=====================MAIN LOOP=========================
Main:
Wait 1

B = 2
X = Twi_read_byte(&H20)
If X = 245 Then Toggle Led_go
Call Twi_send_byte(&H20 , B)

Print #3 , X
Goto Main
' Unterprogramme
Sub Twi_send_byte(byval 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
        ' 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 Sub

' 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

---

Slave hat die Adresse &H20


Und jetzt eine generelle Frage:
was ist der Unterschied zwischen TWI und I2C?

Wenn im Slave das Programm aus dem Wiki für "auf Abruf Senden " läuft dann kann ich per TWI im Master das Byte auslesen, benutze ich jedoch die standart I2C Befehle:

I2Cstart
I2Cwbyte &H20
I2Crbyte X
I2Cstop

funktioniert es nicht, wieso?

Hi,

Wie im Wiki bei TWI zu lesen, ist es das selbe wie I2C. ;)

Wo schreibst Du diese zuletzt genannten I2C-Befehle hin (Master/Slave) ?
Diese Befehle kann man nur beim Master benutzen !

PS:
Eine Sekunde Wartezeit beim Slave ist fast etwas lang, um damit etwas gescheites zu Testen !

Ja aber die eine Sekunde hat funktioniert. Es hat natürlich ein wenig komisch reagiert, aber das war ja zu erwarten. Es schaltet auf jeden Fall auf High/Low halt nicht regelmäßig aber zum. weiss ich , dass er die Daten erhält.

Natürlich werden die I2C Befehle vom Master gesendet.

Okay ist das gleiche...

Was sagst du zum Code? Das müsste doch funktionieren. Ich sitz schon fast den ganzen tag dran...

Mit den Bascom-I2C-Befehlen muss das auch gehen.
Das einzige was mit jetzt auffällt, wäre die SlaveAdresse bei Deinem Beispiel,
beim lesen vom Slave muss diese +1 zur Schreibadresse sein, also hier &H21 !

PS:
Zum debuggen kannst Du nach jedem I2C-Befehl ein Print TWSR einbauen, um zu sehen wie's dem TWI-Modul geht.

da wäre doch diese Zeile oder?

Twdr = Slave And &HFE ' slave adresse + Write

Ja für write muss das erst Bit gelöscht sein, was mit dem AND geschieht, beim lesen muss es gesetzt sein, da muss irgendwo ein OR &H01 sein.

Hallo,

schau dir mal unter stehenden code an. diesen verwende ich bei mir und der läuft ganz gut.

Code:

---

'*******************************************************************************
'  um mit dem master zu senden folgenden code benutzen
'
'  I2cstart
'  i2cwbyte &H22    'slave-id
'  I2cwbyte 1      'für motor 1
'  I2cwbyte PWM1
'  I2cwbyte PWM1b  'falls die pwm variable größer als ein byte ist
'  I2cstop
'
'*******************************************************************************

'===============================================================================
'***| Mikrocontroller Config |**************************************************
'===============================================================================

'Microcontroller
'================
$regfile = "m8def.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 10
$framesize = 40


'TWI
'====
Declare Sub Twi_init_slave
Dim Twi_control As Byte
Dim Twi_status As Byte
Dim Command As Byte
Dim Index As Byte
Dim Newbyte As Byte
Dim I2cbyte(10) As Byte
Dim N As Byte

Enable Interrupts


'Init
'=====
For N = 1 To 10
  I2cbyte(n) = 0
Next N

Command = 0
Index = 0

Call Twi_init_slave

'-------------------------------------------------------------------------------
'***| Hauptprogramm |***********************************************************
'-------------------------------------------------------------------------------
Do
    Newbyte = 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
            Command = Twdr                                  ' neue Daten merken
            Newbyte = 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 verarbeiten
    If Newbyte <> 0 Then

      'Register zuordnen -> Befehl
      Select Case Command

              Case 1
              Gosub Motor1

              Case 2
              Gosub Motor2

              Case 3
              Gosub Motor3


      End Select


    End If

Loop
End




'-------------------------------------------------------------------------------
'***| Motor 1 |*****************************************************************
'-------------------------------------------------------------------------------
Motor1:

  Index = 1
  '1 Byte holen / gibt an wieviele bytes geholt werden sollen hier im beispiel max. 10 "i2cbyte(1 bis 10)"
  Gosub I2c_rx

  'PWM1 = i2cbyte(1)

Return


'-------------------------------------------------------------------------------
'***| Motor 2 |*****************************************************************
'-------------------------------------------------------------------------------
Motor2:

  Index = 1                                                '1 Byte holen
  Gosub I2c_rx

  'PWM2 = i2cbyte(1)

Return


'-------------------------------------------------------------------------------
'***| Motor 3 |*****************************************************************
'-------------------------------------------------------------------------------
Motor3:

  Index = 1                                                '1 Byte holen
  Gosub I2c_rx

  'PWM3 = i2cbyte(1)

Return



'-------------------------------------------------------------------------------
'***| I2C-BUS Daten Empfangsroutinen |******************************************
'-------------------------------------------------------------------------------
I2c_rx:

 For N = 1 To Index
 'erstes Byte empfangen
 Newbyte = 0
 Do

    Twi_control = Twcr And &H80

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

        If Twi_status = &H80 Or Twi_status = &H88 Then
            I2cbyte(n) = Twdr
            Newbyte = 2
        End If

        Twcr = &B11000100
    End If

    If Newbyte = 2 Then Exit Do

 Loop

 Next N

Return

'-------------------------------------------------------------------------------
'***| I2C-BUS Daten Senderoutinen |******************************************
'-------------------------------------------------------------------------------
I2c_tx:

For N = 1 To Index
 'erstes Byte empfangen
 Newbyte = 0
 Do

    Twi_control = Twcr And &H80

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

        If Twi_status = &HA8 Or Twi_status = &HB8 Then
            Twdr = I2cbyte(n)
            Newbyte = 2
        End If

        Twcr = &B11000100
    End If

    If Newbyte = 2 Then Exit Do

 Loop

Next N

Return

'-------------------------------------------------------------------------------
'***| TWI: Slavekonfiguration |*************************************************
'-------------------------------------------------------------------------------

Sub Twi_init_slave
    Twsr = 0                                                ' status und Prescaler auf 0
    Twdr = &HFF                                            ' default
    Twar = &H22                                            ' Slaveadresse setzen  I2C-RX-Adr:Hex22
    Twcr = &B01000100                                      ' TWI aktivieren, ACK einschalten
End Sub

---

Gruß,
Bammel

Ich werde versuchen mal den Master auf die standart I2C Befehle um zu setzen, sollte ja funktionieren.

@Bammel
Vom Prinzip ist es ja genauso, ist ja alles vom RN Wiki bzw Ulli Sommer Buch

Ich vertiefe mich grad sehr im Detail in die Materie... mal sehen ob ich dann waas finden kann...

den code habe ich von herrn ulli sommer per mein geschickt bekommen... naja so in der art ich habs dann nur in eine for next schleife gesetzt

hey könnt ihr mir vielleicht ein wenig auf die Sprünge helfen? Ich hab mich jetzt auch schon ne ganze Weile damit beschäftigt. Ich hab den Code jetzt mal für Versuchszwecke 1:1 übernommen. Das Senden zum Slave funktioniert auch einwandfrei. Wenn ich jetzt aber was zurückschicken will also Slave Trans. bzw Masterrec., dann geht das irgendwie nicht.

liege ich richtig wenn ich in jetzt ein Byte übertragen möchte dieses zunächst in i2cbyte(1) z.b. schreibe und dann die i2c_tx aufrufe oder?

Am Master hab ich folgendendes geschrieben:

Code:

---

i2cstart
i2cwbyte &h22 
i2cwbyte 1 ' signal für den slave ein byte zu schicken
i2crbyte var, nack
i2cstop

---

oder muss ich da zwischen durch den Salve mit &h23 als Adresse initialisieren oder sowas? wär echt gut wenn ihr mir helfen könnt, bin nämlich leicht unter Zeitdruck, ist für ein schulisches Projekt.

grüße Jo

@jo,
äh, ja, nach dem Senden der 1, gleich ein erneutes i2cstart und die &h23 hinterher sollte klappen, wenn der Slave das so haben will
:)
Weil lesen und senden während einer Übertragung geht nicht, deshalb gibt es am Anfang das R/W Flag, mit dem man das Festlegt.

hey.. Ich habe mein Problem wohl nicht gut geschildert. Naja das am Master war schonmal der erste Fehler, aber in meinem Slave hats sicher auch noch irgendwo Fehler.
Ich muss einen Sensor abfragen, (8 I/O Werte) und dann 2 byte auf Befehl vom Master übertragen. Master ist ein Mega32 und Slave ein Mega8. Ich habe den Code von Bammel mal übernommen und der Weg Master --> Slave funktioniert auch einwandfrei. aber Slave-->Master funktioniert nicht.

Hier mal der Slave Code.

Code:

---

'===============================================================================
'***| Mikrocontroller Config |**************************************************
'===============================================================================

'Microcontroller
'================
$regfile = "m8def.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 10
$framesize = 40


'TWI
'====
Declare Sub Twi_init_slave
Dim Twi_control As Byte
Dim Twi_status As Byte
Dim Befehl As Byte
Dim Anzahl_bytes As Byte
Dim Neuesb_flagge As Byte
Dim Buffer(8) As Byte
Dim N As Byte                                              'zähler/index variable

Enable Interrupts


'Init
'=====
Portb.2 = 0
For N = 1 To 8
  Buffer(n) = 0
Next N

Befehl = 0
Anzahl_bytes = 0
Soll_motor_r = 100
Soll_motor_l = 100

Call Twi_init_slave

'-------------------------------------------------------------------------------
'***| Hauptprogramm |***********************************************************
'-------------------------------------------------------------------------------
'auf Befehle vom master warten

Do
    Neuesb_flagge = 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
            Befehl = Twdr                                  ' neue Daten merken
            Neuesb_flagge = 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 verarbeiten
    If Neuesb_flagge <> 0 Then

      'Register zuordnen -> Befehl
      Select Case Befehl

              Case 1
              Gosub Klappen_abfrage

              Case 10
              Gosub Beep

              Case 255
              Gosub Softreset


      End Select


    End If

Loop
End



'-------------------------------------------------------------------------------
'***|KLappenabfrage|*****************************************************************
'-------------------------------------------------------------------------------
Klappen_abfrage:
Incr Soll_motor_r
Incr Soll_motor_l

Buffer(1) = Soll_motor_r
Buffer(2) = Soll_motor_l
Anzahl_bytes = 2
Gosub I2c_tx


Return
'-------------------------------------------------------------------------------
'***| I2C-BUS Daten Empfangsroutinen |******************************************
'-------------------------------------------------------------------------------
I2c_rx:


 For N = 1 To Anzahl_bytes
 'erstes Byte empfangen
 Neuesb_flagge = 0
 Do

    Twi_control = Twcr And &H80

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

        If Twi_status = &H80 Or Twi_status = &H88 Then
            Buffer(n) = Twdr
            Neuesb_flagge = 2
        End If

        Twcr = &B11000100
    End If

    If Neuesb_flagge = 2 Then Exit Do

 Loop

 Next N

Return

'-------------------------------------------------------------------------------
'***| I2C-BUS Daten Senderoutinen |******************************************
'-------------------------------------------------------------------------------
I2c_tx:
'-?????
    Twar = &H23                                            ' Slaveadresse setzen I2C-RX-Adr:Hex23
'-??????
For N = 1 To Anzahl_bytes
 'erstes Byte empfangen
 Neuesb_flagge = 0
 Do

    Twi_control = Twcr And &H80

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

        If Twi_status = &HA8 Or Twi_status = &HB8 Then
            Twdr = Buffer(n)
            Neuesb_flagge = 2
        End If

        Twcr = &B11000100
    End If

    If Neuesb_flagge = 2 Then Exit Do

 Loop

Next N
'????
    Twar = &H22                                            ' Slaveadresse setzen  I2C-RX-Adr:Hex22
'?????
Return

'-------------------------------------------------------------------------------
'***| TWI: Slavekonfiguration |*************************************************
'-------------------------------------------------------------------------------

Sub Twi_init_slave
    Twsr = 0                                                ' status und Prescaler auf 0
    Twdr = &HFF                                            ' default
    Twar = &H22                                            ' Slaveadresse setzen  I2C-RX-Adr:Hex22
    Twcr = &B01000100                                      ' TWI aktivieren, ACK einschalten
End Sub

---

In Fragezeichen habe ich mal makiert was ich noch hinzugefügt habe was aber auch nicht richtig ist, wie es scheint.

am Master hab ich auch schon verschiedene Codes ausprobiert ausprobiert:

Code:

---

Sub Automatik

  Waitms 10
    I2cstart
    I2cwbyte Mega8_adresse
    I2cwbyte 1
    I2cstop
    ?? waitms 10
    I2cstart
    I2cwbyte Mega8_adresse_r
    I2crbyte E , Ack
    I2crbyte W , Nack
    I2cstop


End Sub

---

Ich empfange mit der "i2crbyte" am master immer das byte, welches ich als letzes geschickt habe, in meinem Fall die Adresse des Slaves (bei h22 und h23)

Danke für schonmal im Vorraus an alle die sich meiner erbarmen ;) aber ich finde den Fehler echt nicht. Ich mache schon eine halbe Ewigkeit damit rum

Hallo !

Wenn ich es richtig verstanden habe, kannst Du mit dem Slave keine Daten "Senden".
Dann wäre Multimaster die einzig machbare Lösung.
Du solltest mal versuchen alle Aktionen vom Master zu erledigen:
Also entweder :
Master sendet an Slave
Oder :
Master holt Daten vom Slave

Roland

Zitat:

---

Zitat von rolber

Wenn ich es richtig verstanden habe, kannst Du mit dem Slave keine Daten "Senden".

---

aber theoretisch müsste es doch gehen

Zitat:

---

Zitat von rolber

Dann wäre Multimaster die einzig machbare Lösung.
Du solltest mal versuchen alle Aktionen vom Master zu erledigen:
Also entweder :
Master sendet an Slave
Oder :
Master holt Daten vom Slave

Roland

---

äöö... genau das will ich. Aber das lässt sich doch nicht über Multimaster realisieren. Ich brauch einmal Master transmit und slave receive und einmal master receive mit slave transmit. Aber beides auf Kommando vom gleichen Master.

Hallo

Hier der Teil des Programms ,der die Daten zum Master gibt.
Daten: Datas(X)
-------------------------------------------------------------
'Master will ein Byte haben
Case &HA8:
Twdr = Datas(i)
Incr I 'Data1 an Master
Twcr = &B11000100
---------------------------------------------------------------------
Alles klar ?
Sonst weiter fragen
----------------------------------------------------------------------
Daten holen dann vom Master so:

I2creceive &H82 , Datas(i)

Roland

ne gar nix klar :)

1) hab ich das doch schon in "meinem" code (von Herr Sommer) beim slave gepostet --> ziemlich weit unten die tx-routine

2) beim Master wieso &H82? meine slaveadresse ist doch &H22.

&H82 war meine Slave Adresse
Natürlich musst Du &H22 eingeben.
Hatte aus meinem Programm kopiert.

Roland

ok. aber funktionieren tuts trotzdem noch nich :(

Master

holt sich 18 Daten vom Slave :

Code:

---

Sub M32datenholen()                                        'Holt 18 Daten vom M32 Slave
For I = 1 To 18

I2creceive &H82 , Datas(i)                                  'Variable Datas(i) vom M32 Slave
'Print "Data " ; Datas(i)

Next I

Waitms 150

End Sub

---

also der Fehler muss am slave programm liegen. Ich hab mal den Slave aus der Wiki von TWI_Praxis drauf gemacht, der funktioniert tadellos in beide richtungen. aber halt nicht beide zusammen. entweder der slave_transmit oder der slave_receive.

Hallo,
also das zwischen deinen fragezeichen solltest du entfernen. dann konne ich so keinen fehler entdecken.

müsste mich da nochmal genau reinlesen.
aber z.Z. hab ich net so viel zeit bin grade umgezogen und mein inet läuft grade erst wieder.

Zitat:

---

Zitat von Bammel

Hallo,
also das zwischen deinen fragezeichen solltest du entfernen. dann konne ich so keinen fehler entdecken.

müsste mich da nochmal genau reinlesen.
aber z.Z. hab ich net so viel zeit bin grade umgezogen und mein inet läuft grade erst wieder.

---

mhm ja kein problem. Also was ich noch festgestellt habe ist, dass der slave controller sich aufhängt wenn ich ein Byte abfragen will.
Ich versuch da noch rum aber ich muss nach unserem Projektzeitplan das dings seit 4 Wochen am laufen haben :(

Code:

---

'*******************************************************************************
'  um mit dem master zu senden folgenden code benutzen
'
'  I2cstart
'  i2cwbyte &H22    'slave-id
'  I2cwbyte 1      'für motor 1
'  I2cwbyte PWM1
'  I2cwbyte PWM1b  'falls die pwm variable größer als ein byte ist
'  I2cstop
'
'pb4,pb5,pd5,pd6,pd7,pb3,pd3,pb1 klappen
'*******************************************************************************

'===============================================================================
'***| Mikrocontroller Config |**************************************************
'===============================================================================

'Microcontroller
'================
$regfile = "m8def.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 10
$framesize = 40


'TWI
'====
Declare Sub Twi_init_slave
Dim Twi_control As Byte
Dim Twi_status As Byte
Dim Befehl As Byte
Dim Anzahl_bytes As Byte
Dim Neuesb_flagge As Byte
Dim Buffer(8) As Byte
Dim N As Byte                                              'zähler/index variable

'sound
'====
Config Portb.2 = Output                                    'sound
Dim Dauer As Word                                          'für peep


'Klappenabfrage
Dim Bytex As Byte                                          'rechenvariable
Dim Klappen As Byte
Dim Soll_motor_r As Byte
Dim Soll_motor_l As Byte
Config Portb.4 = Input
Config Portb.5 = Input
Config Portd.5 = Input
Config Portd.6 = Input
Config Portd.7 = Input
Config Portb.3 = Input
Config Portd.3 = Input
Config Portb.1 = Input
'pullups
Config Portb.4 = 1
Config Portb.5 = 1
Config Portd.5 = 1
Config Portd.6 = 1
Config Portd.7 = 1
Config Portb.3 = 1
Config Portd.3 = 1
Config Portb.1 = 1


Enable Interrupts


'Init
'=====
Portb.2 = 0
For N = 1 To 8
  Buffer(n) = 0
Next N

Befehl = 0
Anzahl_bytes = 0
Soll_motor_r = 100
Soll_motor_l = 100

Call Twi_init_slave

'-------------------------------------------------------------------------------
'***| Hauptprogramm |***********************************************************
'-------------------------------------------------------------------------------
'auf Befehle vom master warten

Do
    Neuesb_flagge = 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
            Befehl = Twdr                                  ' neue Daten merken
            Neuesb_flagge = 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 verarbeiten
    If Neuesb_flagge <> 0 Then

      'Register zuordnen -> Befehl
      Select Case Befehl

              Case 1
              Gosub Klappen_abfrage

              Case 10
              Gosub Beep

              Case 255
              Gosub Softreset


      End Select


    End If

Loop
End




'-------------------------------------------------------------------------------
'***|KLappenabfrage|*****************************************************************
'-------------------------------------------------------------------------------
Klappen_abfrage:
Incr Soll_motor_r
Incr Soll_motor_l

Buffer(1) = Soll_motor_r
Buffer(2) = Soll_motor_l
Anzahl_bytes = 1
Gosub I2c_tx


Return


'-------------------------------------------------------------------------------
'***| beep |*****************************************************************
'-------------------------------------------------------------------------------
Beep:

  Anzahl_bytes = 1                                        '1 Byte holen
  Gosub I2c_rx

  Dauer = Buffer(1)                                        '1. byte aus buffer
  Dauer = Dauer * 20
  Portb.2 = 1
  Waitms Dauer                                            'piiiiieep
  Portb.2 = 0


Return


'-------------------------------------------------------------------------------
'***| softreset |*****************************************************************
'-------------------------------------------------------------------------------
Softreset:

  Goto &H1C00



Return



'-------------------------------------------------------------------------------
'***| I2C-BUS Daten Empfangsroutinen |******************************************
'-------------------------------------------------------------------------------
I2c_rx:


 For N = 1 To Anzahl_bytes
 'erstes Byte empfangen
 Neuesb_flagge = 0
 Do

    Twi_control = Twcr And &H80

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

        If Twi_status = &H80 Or Twi_status = &H88 Then
            Buffer(n) = Twdr
            Neuesb_flagge = 2
        End If

        Twcr = &B11000100
    End If

    If Neuesb_flagge = 2 Then Exit Do

 Loop

 Next N

Return

'-------------------------------------------------------------------------------
'***| I2C-BUS Daten Senderoutinen |******************************************
'-------------------------------------------------------------------------------
I2c_tx:


For N = 1 To Anzahl_bytes
 'erstes Byte empfangen
 Neuesb_flagge = 0
 Do

    Twi_control = Twcr And &H80

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

        If Twi_status = &HA8 Or Twi_status = &HB8 Then
            Twdr = Buffer(n)
            Neuesb_flagge = 2
        End If

        Twcr = &B11000100
    End If

    If Neuesb_flagge = 2 Then Exit Do

 Loop

Next N

                                            ' Slaveadresse setzen  I2C-RX-Adr:Hex22
Return

'-------------------------------------------------------------------------------
'***| TWI: Slavekonfiguration |*************************************************
'-------------------------------------------------------------------------------

Sub Twi_init_slave
    Twsr = 0                                                ' status und Prescaler auf 0
    Twdr = &HFF                                            ' default
    Twar = &H22                                            ' Slaveadresse setzen  I2C-RX-Adr:Hex22
    Twcr = &B01000100                                      ' TWI aktivieren, ACK einschalten
End Sub

---

also falls du mal zeit hast kannst ja mal "klappenabfrage" angugn. 2 x-beliebige bytes, die in das array geschrieben werden und dann wird die TxRoutine aufgerufen.

ich hab rausgefunden, dass sich das programm an der senderoutine an der stelle aufhängt wo man das byte ausgeben will. Also in der Zeile: "TWCR = Buffer(n)