Wiki-KopieMirror

Dies ist ein Mirror des Wikis von pascal.chat. Bearbeiten, Verlauf und Anmeldung finden dort statt.

AVR Embedded Tutorial - I²C, TWI/de

Deutsch · English

I²C / TWI

Vorwort

Dieser Code ist für einen Atmega328/Arduino mit 16MHz.

Wie man die UART ansteuert, steht hier:

Beschreibung

Dieses Beispiel demonstriert die Kommunikation mit der I²C/TWI - Schnittstelle.

Als Slave-Geräte werden 2 AD1115 A/D-Wandler verwendet. Diese sind sehr einfach in der Handhabung und sind auch sehr einfach erhältlich. Was sehr wichtig ist, dass man bei TWIStart die Adresse um ein Bit nach links verschiebt und anschließend mittels Write/Read mit or verknüpft. Es gibt viele Tutorials dazu. Dort sieht man das leider sehr schlecht.

PulUp-Widerstände sind nicht nötig, da diese schon auf der Platine des ADS1115 verbaut sind.

I²C Funktionen

Konstanten

pascal
const
  CPU_Clock = 16000000; // Taktfrequenz Arduino, default 16MHz.
  ADSaddr0  = $48;      // Adresse Wandler 0
  ADSaddr1  = $49;      // Adresse Wandler 1
  I2C_Takt  = 400000;   // I²C-Takt (400KHz)
  TWI_Write = 0;
  TWI_Read  = 1;

I²C inizialisieren

pascal
  procedure TWIInit;
  const
    TWBR_val = byte((CPU_Clock div I2C_Takt) - 16) div 2;
  begin
    TWSR := 0;
    TWBR := byte(TWBR_val);
  end;

I²C Senden/Empfangen starten

pascal
  procedure TWIStart(addr: byte);
  begin
    // Senden/Empfangen einleiten
    TWCR := 0;
    TWCR := (1 shl TWINT) or (1 shl TWSTA) or (1 shl TWEN);
    while ((TWCR and (1 shl TWINT)) = 0) do begin
    end;

    // Adresse des Endgerätes senden
    TWDR := addr;
    TWCR := (1 shl TWINT) or (1 shl TWEN);
    while ((TWCR and (1 shl TWINT)) = 0) do begin
    end;
  end;

I²C Senden/Empfang beendet

pascal
  procedure TWIStop;
  begin
    TWCR := (1 shl TWINT) or (1 shl TWSTO) or (1 shl TWEN);
  end;

Zeichen Senden

pascal
  procedure TWIWrite(u8data: byte);
  begin
    TWDR := u8data;
    TWCR := (1 shl TWINT) or (1 shl TWEN);
    while ((TWCR and (1 shl TWINT)) = 0) do begin
    end;
  end;

Zeichen Empfangen

Bis auf das vorletzte Zeichen muss mit TWIReadACK(... gelesen werden. Das letzte Zeichen muss mit TWIReadNACK(... gelesen werden.

pascal
  // Lesen bis zum vorletzten Zeichen.
  function TWIReadACK: byte;
  begin
    TWCR := (1 shl TWINT) or (1 shl TWEN) or (1 shl TWEA);
    while (TWCR and (1 shl TWINT)) = 0 do begin
    end;
    Result := TWDR;
  end;

  // Letztes Zeichen lesen.
  function TWIReadNACK: byte;
  begin
    TWCR := (1 shl TWINT) or (1 shl TWEN);
    while (TWCR and (1 shl TWINT)) = 0 do begin
    end;
    Result := TWDR;
  end;

Note: Anmerkung: Diese Funktionen bleibt bei einem Hardware-Fehler, oder die Slave-Adresse falsch ist, hängen !

Zeichen Empfangen mit Fehlerabfrage

Das diese Funktionen nicht hängen bleiben, muss man in der while-Schleife einen Zähler einbauen.

Wen der Zähler 255 erreicht, wird die Schleife unterbrochen und ein Fehler ausgegeben.

255 wird erreicht, wen an der I²C-Adresse kein Gerät gefunden wird.

pascal
// Lesen bis zum vorletzten Zeichen.
function TWIReadACK_Error: byte;
var
  err:byte;
begin
  err := 0;
  TWCR := (1 shl TWINT) or (1 shl TWEN) or (1 shl TWEA);
  while ((TWCR and (1 shl TWINT)) = 0) and (err < 255) do begin
    Inc(err);
  end;
  if err = 255 then begin
    UARTSendString('I²C-Timeout');
    Result := 0;
  end else begin
    Result := TWDR;
  end;
end;

// Letztes Zeichen lesen.
function TWIReadNACK_Error: byte;
var
  err:byte;
begin
  err := 0;
  TWCR := (1 shl TWINT) or (1 shl TWEN);
  while ((TWCR and (1 shl TWINT)) = 0) and (err < 255) do begin
    Inc(err);
  end;
  if err = 255 then begin
    UARTSendString('I²C-Timeout');
    Result := 0;
  end else begin
    Result := TWDR;
  end;
end;

ADS1115 spezifischen Code

Dieser Code ist ADS1115 spezifischen, andere I²C-Geräte müssen im Datenblatt nachgeguckt werden.

pascal
  // Parameter an ADS1115 schicken und Messen einleiten
  procedure WriteADS1115(addr: UInt16);
  begin
    TWIStart((addr shl 1) or TWI_Write);
    TWIWrite(1);
    TWIWrite(%11000011);  // High
    TWIWrite(%11100011);  // Low
    TWIStop;
  end;

  // Messung von ADS1115 auslesen.
  function ReadADS1115(addr: UInt16): UInt16;
  begin
    TWIStart((addr shl 1) or TWI_Write);
    TWIWrite(0);
    TWIStop;

    TWIStart((addr shl 1) or TWI_Read);
    Result := TWIReadACK * $100 + TWIReadNACK;
    TWIStop;
  end;

Beispiel

pascal
var
  Data: Integer;
  s:    ShortString;

begin
  asm cli END; // Interrupt sperren.
  UARTInit;
  TWIInit;
  asm sei END; // Interrupt frei geben.

  repeat
    WriteADS1115(ADSaddr0);
    Data := ReadADS1115(ADSaddr0);

    str(Data: 6, s);
    UARTSendString('Kanal 0: ');
    UARTSendString(s);

    WriteADS1115(ADSaddr1);
    Data := ReadADS1115(ADSaddr1);

    str(Data: 6, s);
    UARTSendString(' Kanal 1: ');
    UARTSendString(s);
    UARTSendString(#13#10);
  until 1 = 2;
end.

Parameter ADS1115

Eine Auflistung der Parameter des ADS1115. Mehr Infos im Datenblatt.

Bit-Belegung des ADS1115:

Low: 11100011 High: 11000011

<thead>

</thead> <tbody>

<strong>1</strong> : Start a single conversion (when in power-down state)</td>

<strong>001</strong> : AINP = AIN0 and AINN = AIN3<br /> <strong>010</strong> : AINP = AIN1 and AINN = AIN3<br /> <strong>011</strong> : AINP = AIN2 and AINN = AIN3<br /> <strong>100</strong> : AINP = AIN0 and AINN = GND<br /> <strong>101</strong> : AINP = AIN1 and AINN = GND<br /> <strong>110</strong> : AINP = AIN2 and AINN = GND<br /> <strong>111</strong> : AINP = AIN3 and AINN = GND</td>

<strong>001</strong> : FSR = ±4.096 V<br /> <strong>010</strong> : FSR = ±2.048 V (default)<br /> <strong>011</strong> : FSR = ±1.024 V<br /> <strong>100</strong> : FSR = ±0.512 V<br /> <strong>101</strong> : FSR = ±0.256 V<br /> <strong>110</strong> : FSR = ±0.256 V<br /> <strong>111</strong> : FSR = ±0.256 V<br />

<strong>1</strong> : Single-shot mode or power-down state (default)</td>

<strong>001</strong> : 16 SPS<br /> <strong>010</strong> : 32 SPS<br /> <strong>011</strong> : 64 SPS<br /> <strong>100</strong> : 128 SPS (default)<br /> <strong>101</strong> : 250 SPS<br /> <strong>110</strong> : 475 SPS<br /> <strong>111</strong> : 860 SPS<br />

<strong>1</strong> : Window comparator</td>

<strong>1</strong> : Actice high</td>

<strong>1</strong> : Latching comparator</td>

<strong>01</strong> : Assert after two conversions<br /> <strong>10</strong> : Assert after four conversions<br /> <strong>11</strong> : Disable comparator and set ALERT/RDY pin to high-impedance (default)</td>

</tbody>

Siehe auch

Autor: Mathias

From the Free Pascal wiki, page "AVR Embedded Tutorial - I²C, TWI/de", as it stood on 2020-03-06 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.

Version 2, zuletzt geändert von WikiArchive .