USI - I2C - Master

Hallo,

da ich mich schon über einen längeren Zeitraum mit dem USI-Modul der AVRs beschäftige, hatte ich heute wieder Zeit und Lust, etwas daran zu optimieren.

Herausgekommen ist eine Bascom-Library um sie in ein Programm einzubinden, damit man die typischen Bascom-Befehle für I2C verwenden kann.
Es muss also nur diese Lib eingebunden werden, dann kann ganz normal mit Config ... und I2cwbyte usw. weitergearbeitet werden.

Sieht dann so aus:

Code:

$lib "i2c_usi.lbx" Config Scl = Portb.7 ' Ports fuer I2C-Bus Config Sda = Portb.5 'Config I2cdelay = 10 ' je höher der Wert umso langsamer der Bus I2cinit ' usw.

Da ich von den original Lib's abgeschaut habe, weiss ich nicht was man alles verbreiten darf, deshalb erstmal nur die compilierte Version im Anhang, denn in der Demo von Bascom sind auch die vorcompilierten Libs dabei, die jeder einsehen kann.

Meine Testumgebung:
Master : Tiny2313, oder Tiny45
Slaves : DS1621 Tempsensor, PCF8574 um den Wert an LEDs auszugeben.

hier noch ein Bildchen mit der Tiny45 Umgebung:
Bild hier
Click zum vergrössern
Auf den ersten 7 LEDs des PCF wird der Temperaturwert angegeben, die 8. LED, ganz rechts, gibt die 0.5 Grad an.

Die Vorgeschichte ist in diesem Thread zu lesen:
https://www.roboternetz.de/phpBB2/ze...ag.php?t=25058
weiteres im Wiki unter
USI (Avr)
und
Bascom und USI-Kommunikation

Hier noch mein Testprogramm auf den Tiny's:

Code:

' USI-I2C Testprogramm ' mit DS1621 @ &H90 ' mit PCF8574 @&H40 ' ' ohne Interrupt und ohne Timer ' Temperatur von DS1621 lesen, und an PCF ausgeben ' dient nur zum testen, mit den eingebauten Bascom Befehlen '$regfile = "attiny2313.dat" '$crystal = 16000000 $regfile = "attiny45.dat" $crystal = 8000000 '$baud = 9600 $lib "i2c_usi.lbx" ' I2C benutzt USI-Modul Waitms 500 ' Falls T2313 die 1. Version 'Config Scl = Portb.7 ' Ports fuer IIC-Bus 'Config Sda = Portb.5 ' diese für Tiny45 und Co. Config Scl = Portb.2 ' Ports fuer IIC-Bus Config Sda = Portb.0 'Config I2cdelay = 10 ' je höher der Wert umso langsamer der Bus ' 10 ergibt ca. 100kHz (sollte zumindest) I2cinit ' Debug LED Led Alias Portb.1 Config Led = Output Led = 0 Const Ds1621w = &H90 Const Ds1621r = &H91 Dim Lowtemp As Byte Dim Hightemp As Byte Dim Tempvar1 As Byte Dim Tempvar2 As Byte Const Pcf8574w = &H40 ' Hauptprogramm Do ' Temperatur lesen Gosub Ds1621temp ' Wert an PCF senden, erst umrechnen für die LEDs Tempvar1 = Not Lowtemp Tempvar2 = Not Hightemp Tempvar1 = Tempvar1 And Tempvar2 I2cstart I2cwbyte Pcf8574w I2cwbyte Tempvar1 I2cstop Waitms 50 ' Debug, solange es Blinkt ist's gut Toggle Led Loop End Ds1621temp: ' Messen anstossen 'I2csend Ds1621w , &HEE I2cstart I2cwbyte Ds1621w I2cwbyte &HEE I2cstop ' If Err = 1 Then Print "I2C-Err ! 1 " ' der DS1621 braucht mind. 400ms zum Temperatur umwandeln ! Waitms 500 ' Wert auslesen I2cstart I2cwbyte Ds1621w I2cwbyte &HAA I2cstart I2cwbyte Ds1621r I2crbyte Lowtemp , Ack I2crbyte Hightemp , Nack I2cstop If Err = 0 Then ' Negativer Wert ? If Lowtemp.7 = 1 Then Lowtemp = Not Lowtemp If &H80 > Hightemp Then Incr Lowtemp End If ' Print "-" ; Else ' Print " " ; End If ' Print Lowtemp ; "," ; If Hightemp = &H80 Then ' Print "5" Else ' Print "0" End If Else ' Print "I2C-Err ! " End If Return

Sicherheitshalber schreib ich's nochmal her, diese Lib ist nur für den Masterbetrieb geeignet !

Multimaster hab ich noch nicht erprobt, im Moment wird nur überprüft, ob die Startsequenz abgesetzt werden konnte. Evtl. könnte man davor noch abfragen ob wirklich beide Leitungen high sind.

USI - I2C - Master - Lib