Wieder I2C TWI

[oratus sum]

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:



'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:

'================================================= ==============================
'=========================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?

[linux_80]

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 !

[oratus sum]

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...

[linux_80]

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.

[oratus sum]

da wäre doch diese Zeile oder?

Twdr = Slave And &HFE ' slave adresse + Write

[linux_80]

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.

[Bammel]

Hallo,

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


'************************************************* ******************************
' 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

[oratus sum]

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...

[Bammel]

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

[jo_robot]

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:

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

[linux_80]

@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.

[jo_robot]

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.


'================================================= ==============================
'***| 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:


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

[rolber]

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

[jo_robot]

Wenn ich es richtig verstanden habe, kannst Du mit dem Slave keine Daten "Senden".
aber theoretisch müsste es doch gehen


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.

[rolber]

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

[jo_robot]

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.

[rolber]

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

Roland

[jo_robot]

ok. aber funktionieren tuts trotzdem noch nich :(

[rolber]

Master

holt sich 18 Daten vom Slave :

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

[jo_robot]

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.

[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.

[jo_robot]

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 :(

[jo_robot]

'************************************************* ******************************
' 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.

[jo_robot]

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)