In diesem Artikel folgen einige Programmbeispiele um das TWI-Hardwaremodul der AVRs zu verwenden. Näheres zu TWI und I2C finden sich in den entsprechenden Artikeln. Die Beispiele sind zwar in Bascom Basic verfasst, aber so ausgeführt, das es möglich sein sollte das Prinzip mit jeder anderen Sprache nachvollziehen zu können.
Inhaltsverzeichnis
Übertragungsarten
Bei TWI gibt es die folgenden Übertragungsarten
- Master Transmitter (nur senden)
- Master Receiver (empfangen)
- Slave Transmitter (auf Abruf senden)
- Slave Receiver (nur empfangen)
Abhängig von der Anwendung kann der AVR alle Arten der Übertragung im gleichen Programm ausführen.
Master
Ist der AVR Master, bestimmt er was und wie schnell es auf dem I2C-Bus zugeht. (Ausnahme: Clock_Stretching )
Zur Bestimmung der Bus-Geschwindigkeit ist der Bit Rate Generator zuständig. Mit der Formel auf der Bit Rate Generator Seite müssen sie den Wert für das Register TWBR berechnen
In den Beispielen wird das Board RN-Control mit einem Mega32, und als Slave ein PCF8574, da sich dieser leicht ansteuern lässt.
Transmitter
- Nur Senden
Der Master sendet einem Slave ein (oder mehrere) Bytes, und schliesst die Übertragung anschliessend ab.
Das Gegenstück wäre Slave Receiver.
Beispielprogramm sendet ein Byte zum Slave mit Adresse 64 (0x40 bzw. &H40):
' TWI Testprogramm
' mit PCF8574 @ &H40
'
' TWI ohne Interrupt
' ein Byte senden
$regfile = "M32def.dat" ' the used chip
$crystal = 16000000 ' frequency used
$baud = 9600 ' baud rate
Declare Sub Twi_send_byte(slave As Byte , Zeichen As Byte)
Dim Twi_control As Byte ' Controlrgister 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 ' Bit Rate Register
' Startausgabe
Print "TWI master"
' Hauptschleife
Do
' hier könnte ihr Code stehen
' warten bis etwas über UART kommt
Input B
' Den Wert zum Slave senden
Call Twi_send_byte(&H40 , B)
' Ausgabe, damit wir sehen was geschehen ist
Print B ;
Print " Error : " ;
Print Hex(error) ' error status Ausgeben
Loop
End
' Unterprogramme
' TWI send_byte
' sendet ein Byte und schliesst die Übertragung ab
Sub Twi_send_byte(slave As Byte , Zeichen As Byte)
Error = 0 ' Fehler zurücksetzen
Twcr = &B10100100 ' TWINT | TWSTA | TWEN
' warten bis TWINT gesetzt ist
Gosub Twi_wait_int
' wenn zugriff auf den Bus gewährt 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
' Stop kommt hier immer im ablauf, egal welcher Status
Twcr = &B10010100 ' TWINT löschen, Stop senden
Else
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
Receiver
Nur Empfangen
'
Slave
Transmitter
auf Abruf Senden
'
Receiver
Nur Empfangen
'
Siehe auch
|
An diesem Artikel arbeitet gerade Mitglied linux_80.
Am besten momentan noch keine gravierenden Ergänzungen / Änderungen vornehmen. Dieser Hinweis verschwindet wenn der Autor soweit ist. Sollte dieser Hinweis länger als drei Tage auf einer Seite sein, bitte beim Autor linux_80 per PM / Mail oder Forum nachfragen ob er vergessen wurde. |
--Linux 80 15:31, 15. Jan 2006 (CET)