I2C zwischen Atmegas 88

[High Light]

Hallo zusammen,

da bin ich mal wieder seit langer Zeit,
und jetzt soll es mal endlich weiter gehen!!!


Hier habe ich mal den Quellcode für den Master:

$regfile = "m88def.dat"
$crystal = 16000000
$baud = 9600

$lib "I2c_twi.lbx"

Config Twi = 400000


Const Slave1 = &HC0                                         'I2C Adresse slave1
Const Slave2 = &HC2                                         'I2C Adresse slave2
Const Slave3 = &HC4                                         'I2C Adresse slave3


Dim Status As Byte

   Wait 2                                                   'Warte 2 Sekunden
   I2cinit                                                  'Bus initialisieren

Do

   Status = 1

   I2cstart
   I2cwbyte Slave1                                          'Slave1 ansprechen
   I2cwbyte Status                                          'Status
   I2cstop

   Waitms 1000

   I2cstart
   I2cwbyte Slave2                                          'Slave2 ansprechen
   I2cwbyte Status                                          'Status
   I2cstop

   Waitms 1000

   I2cstart
   I2cwbyte Slave3                                          'Slave3 ansprechen
   I2cwbyte Status                                          'Status
   I2cstop

   Waitms 1000


Loop

End

Und hier den für einen Slave:

$regfile = "m88def.dat"
$crystal = 16000000
$baud = 9600

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

    ' 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, LEDs einschalten
    If Neuesbyte <> 0 Then
        Portd = 1                                           ' LEDs einschalten
    End If

Loop

End


' Unterprogramme


' TWI als slave aktivieren
Sub Twi_init_slave
    Twsr = 0                                                ' status und Prescaler auf 0
    Twdr = &HFF                                             ' default
    Twar = &HC0                                             ' Slaveadresse setzen
    Twcr = &B01000100                                       ' TWI aktivieren, ACK einschalten

End Sub

Würde dies nun so funktionieren, oder was muss ich noch ändern???
Muss ich die Pins auch konfigurieren?

Gruß High Light

[Kampi]

Du musst den einzelnen Controller per Config noch sagen welcher Pin SDA und welcher SCL ist.
Beispiel für nen Tiny2313
Config SCL = Portb.7
Config SDA = Portb.5

Das kopierst du einfach und passt die Ports auf deine jeweiligen Controller an. Du siehst ja im Datenblatt welcher Pin SCL und SDA ist.

[High Light]

Ok, danke schon mal.

Und der Rest passt dies schon soweit?
Da müssten doch noch Fehler drin sein oder?

[Kampi]

Ja der meckert beim compilieren rum aber ich finde im moment den Fehler noch nicht.

[guenter1604]

Hallo,

wenn du im Master mit:
$lib "I2c_twi.lbx"

die Hardware SPI benutzt, brauchst du doch keine Config SDA und Config SCL

im Slave fehlt das $lib "I2c_twi.lbx"

Günter

[High Light]

Danke schon mal, ich werde es mal so ausprobieren.
Hoffentlich funktioniert es.
Berichte euch sobald ich ein Ergebnis hab.

Gruß High Light

[High Light]

AAAAAAAAAAAAAllso, habe im Master Config SDA und SCL eingefügt,
dadurch bekomme ich keine Fehlermeldung mehr.
Ebenso habe ich die Libary im Slave eingefügt.

ABBERRR es geht nichts!!!

Weiß nicht warum, kann es auch damit zusammenhängen, dass ich mit der Demo-Version arbeite?????????
Oder sind andere Fehler im Programm???

Gruß High Light

[guenter1604]

AAAAAAAAAAAllllllssssoooo nochmal:

Config SDA und SCL == du willst Software I2C
$lib "I2c_twi.lbx" == du willst Hardware I2C
I2Cinit == du willst Software I2C

was denn nu??

[Jada]

Ich habe kurz ne frage,
damit ich es richtig verstehe, ich muss die beiden controler mittels scl und sda anschließen oder?

MfG Jada

[High Light]

Ich brauch Hardware I2C, weil ich die standartmäßigen Pins
vom Atmege 88 benutzen muss.

Pin 27 = SDA
Pin 28 = SCL

Könntest du mir bitte verraten was ich nun alles ändern muss?

Hat Hardware oder Software I2C Vor- oder Nachteile?

Gruß High Light