I²C Atmega 644 - Atmega 48

[tenor]

Hallo,
ich möchte beide AVRs miteinander per TWI verbinden.
Der Master (644) soll dem Slave ein paar byte zuschicken.
Ich lese mich da schon die ganze Zeit ein und wollte eben anfangen mit den Beispielen aus der Hilfe.

Ist es richtig, das man für den Slave eine extra Library benötigt, die kostenpflichtig ist (15€)?
Oder ist diese Lib nicht wirklich notwendig und es geht auch anders?

Hat jemand vielleicht ein Codebeispiel für Master und Slave? Für den Slave (und dem festlegen der Adresse) finde ich recht wenig.

Besten Dank!

 

[StevieL]

Hallo Tenor,

ich gehe davon aus, dass du in BASCOM programmieren willst. Da gibt es zum Einen die von dir erwähnte, kostenpflichtige LIB. Zum Anderen kannst du aber auch auf die TWI-Register zugreifen und einiges in Hardware erledigen lassen. Dazu ist es aber erforderlich, die entsprechenden TWI-Ports zu verwenden.

Falls du die aber nicht verwenden kannst oder willst, wirst du um die LIB nicht herumkommen.

 

[tenor]

Danke Stevie,
habe es erstmal mit den Registern soweit hinbekommen
Jetzt muss ich erstmal schauen wie ich das hinbekomme, das ich eine Fehlermeldung bekomme wenn der Slave die Daten nicht bekommt...
Sonst nutzt das ja mit dem Master nix

hier mal der Code für den Slave: (für die die änhliche Probleme hatten)

$regfile = "m48def.dat"
$crystal = 8000000
$lib "i2c_twi.lbx"                                          ' Für Hardware TWI

Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portd.1 , Rs = Portd.0
Config Lcd = 16 * 2                                         'configure lcd screen

Config Portc = Output                                       'LCD Display
Config Portd = Output
Config Pind.5 = Output
Config Pind.6 = Output
Config Pinb.1 = Output
Config Pinb.2 = Output
Config Pind.3 = Output
Config Pinb.3 = Output

Twsr = 0                                                    ' status und Prescaler auf 0
Twdr = &HFF                                                 ' default
Twar = &H40                                                 ' Slaveadresse setzen
Twcr = &B01000100                                           ' TWI aktivieren, ACK einschalten

Dim Twi_control As Byte                                     ' Controlregister lokale kopie
Dim Twi_status As Byte
Dim Twi_data As Byte
Dim Neuesbyte As Byte                                       ' Bytemerker
Twi_data = 0


Initlcd                                                     'init display again
Cursor On

Tccr0a = &B10100011
Tccr0b = &B00000010
Tccr1a = &B10100011
Tccr1b = &B00000010
Tccr2a = &B10100011
Tccr2b = &B00000010

Cls
Dim A As Integer , B As Integer
Main:
Cls

A = 50
B = 100
Do

Ocr0a = A
Ocr0b = B
Ocr1a = A
Ocr1b = B
Ocr2a = A
Ocr2b = B
If A = 255 Then A = 0
If B = 0 Then B = 255


    ' 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
        Lcd Twi_data                                        ' Daten auf PortD ausgeben
    End If




Loop

Und hier der Master:

$regfile = "m644def.dat"
$crystal = 16000000


Config Lcdpin = Pin , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 , E = Porta.1 , Rs = Porta.0
Config Lcd = 16 * 2                                         'configure lcd screen
Config Porta = Output                                       'LCD Display
Enable Interrupts

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

Main:
Initlcd                                                     'init display again
Cursor On
Cls
Lcd "Test"
Do

  B = 86
 ' Den Wert zum Slave senden
  Call Twi_send_byte(&H40 , B)
  Wait 1
  Locate 1 , 1
  Lcd B

Loop


' TWI send_byte
' sendet ein Byte und schliesst die Übertragung ab
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

' 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