AVR Embedded Tutorial - Analog Write/de

From Lazarus wiki
Revision as of 17:00, 12 October 2018 by Mathias (talk | contribs) (→‎Beispiel)
Jump to navigationJump to search

Template:Translate

PWM Analog Write

Titel

In diesem Beispiele wird ein Atmega328 verwendet.

Sleep

Eine einfache Pausenfunktion, das die LEDs langsam hell und dunkel werden.

  procedure sleep;
  var
    i: Int16;
  begin
    for i := 0 to 1999 do asm Nop end;
  end;

Beispiel

In diesem Beispiel wird die PWM Frequenz sehr langsam eingestellt, so das man ein Flackern der LEDs wahr nimmt. So sieht man gut, das ein analoger Ausgang in Wirklichkeit moduliert ist. Folgendes muss eingestellt werden:

  • Mit DDRx müssen die PWM-Ausgänge als Ausgang eingestellt werden.
  • COMxx gibt die Pins an, auf PWM laufen sollen, beim ATmega328 gibt es 6 Pins, welche in diesem Modus laufen können. Wobei jeder Timer 2 Ausgänge bedienen kann.
  • WGM aktiviert die PWM-Ausgabe beim Timer.
  • TCCR0B wird auf einen Clock von 1024 eingestellt, wählt man einen kleineren Wert, dann sieht man kein Flackern der LEDs mehr.
  • OCR0 gibt die HIGL Länge der Modulation an. 0 ist aus, 128 Mittelwert und 255 ist das Maximum.
var
  i: integer; // Schleifenzähler
begin
  // PD6 und PD7 auf Ausgang
  DDRD := %01100000;

  // PD6 und PD7 als PWM
  TCCR0A := (%10 shl COM0A) or (%10 shl COM0B) or (1 shl WGM0);

  // Timer 0 aktivieren, Clock / 1024
  TCCR0B := TCCR0B or %101;

  // Hauptschleife, welche die LEDs kontinuierlich heller und dunkler macht.
  repeat
    for i := 0 to 255 do begin
      OCR0A := i;
      OCR0B := 255 - i;
      sleep;
    end;
    for i := 0 to 255 do begin
      OCR0A := 255 - i;
      OCR0B := i;
      sleep;
    end;
  until 1 = 2;
end.

Stolperfalle

Light bulb  Hinweis: Da PWM mittels Timer gesteuert ist, kann es Überschneidungen mit den Timerfunktionen geben.

Für Timerfunktionen siehe hier:

Siehe auch

Autor: Mathias