Difference between revisions of "AVR Embedded Tutorial - Shiftregister/de"

From Free Pascal wiki
Jump to navigationJump to search
m
Line 32: Line 32:
  
 
Für den Port wird eine Variable deklariert, dies hat den Vorteil, das man nicht alle Ports in den Shiftregister-Funktionen ändern muss.
 
Für den Port wird eine Variable deklariert, dies hat den Vorteil, das man nicht alle Ports in den Shiftregister-Funktionen ändern muss.
<syntaxhighlight lang="pascal">
+
<syntaxhighlight>
 
var
 
var
 
   shiftPORT: byte absolute PORTA;
 
   shiftPORT: byte absolute PORTA;
Line 45: Line 45:
  
 
==Schieberegister schreiben 74HC595==
 
==Schieberegister schreiben 74HC595==
<syntaxhighlight lang="pascal">
+
<syntaxhighlight>
 
procedure shiftOut595(val: Byte);
 
procedure shiftOut595(val: Byte);
 
var
 
var
Line 63: Line 63:
  
 
==Schieberegister lesen 74HC165==
 
==Schieberegister lesen 74HC165==
<syntaxhighlight lang="pascal">
+
<syntaxhighlight>
 
function ShiftIn165: Byte;
 
function ShiftIn165: Byte;
 
var
 
var
Line 70: Line 70:
 
   Result := 0;
 
   Result := 0;
 
   for i := 0 to 7 do begin  // LSBFIRST
 
   for i := 0 to 7 do begin  // LSBFIRST
     Result := (Result shl 1) or ((shiftPIN and (1 shl dataInPin)) shr dataInPin);
+
     Result   := (Result shl 1) or ((shiftPIN and (1 shl dataInPin)) shr dataInPin);
 
     shiftPORT := shiftPORT or (1 shl clockPin);
 
     shiftPORT := shiftPORT or (1 shl clockPin);
 
     shiftPORT := shiftPORT and not (1 shl clockPin);
 
     shiftPORT := shiftPORT and not (1 shl clockPin);
 
   end;
 
   end;
end;</syntaxhighlight>
+
end;
 +
</syntaxhighlight>
  
 
==Schieberegister Arduino==
 
==Schieberegister Arduino==
 
Diese Version entspricht dem '''shiftIn''' von Arduino.
 
Diese Version entspricht dem '''shiftIn''' von Arduino.
<syntaxhighlight lang="pascal">
+
<syntaxhighlight>
 
function ShiftIn: Byte;
 
function ShiftIn: Byte;
 
var
 
var
Line 86: Line 87:
 
   for i := 0 to 7 do begin  // LSBFIRST
 
   for i := 0 to 7 do begin  // LSBFIRST
 
     shiftPORT := shiftPORT or (1 shl clockPin);
 
     shiftPORT := shiftPORT or (1 shl clockPin);
     Result := (Result shl 1) or ((shiftPIN and (1 shl dataInPin)) shr dataInPin);
+
     Result   := (Result shl 1) or ((shiftPIN and (1 shl dataInPin)) shr dataInPin);
 
     shiftPORT := shiftPORT and not (1 shl clockPin);
 
     shiftPORT := shiftPORT and not (1 shl clockPin);
 
   end;
 
   end;
Line 99: Line 100:
  
 
====Beispiel für ein 74HC165====
 
====Beispiel für ein 74HC165====
<syntaxhighlight lang="pascal">
+
<syntaxhighlight>
 
var
 
var
 
   b: Byte;
 
   b: Byte;
Line 113: Line 114:
  
 
====Beispiel für kaskadierte 74HC165====
 
====Beispiel für kaskadierte 74HC165====
<syntaxhighlight lang="pascal">
+
<syntaxhighlight>
 
var
 
var
 
   b0, bn: Byte;
 
   b0, bn: Byte;
Line 132: Line 133:
  
 
====Beispiel für ein 74HC595====
 
====Beispiel für ein 74HC595====
<syntaxhighlight lang="pascal">
+
<syntaxhighlight>
 
var
 
var
 
   b: Byte;
 
   b: Byte;
Line 147: Line 148:
  
 
====Beispiel für kaskadierte 74HC595====
 
====Beispiel für kaskadierte 74HC595====
<syntaxhighlight lang="pascal">
+
<syntaxhighlight>
 
var
 
var
 
   b0, bn: Byte;
 
   b0, bn: Byte;
Line 166: Line 167:
  
 
== Siehe auch ==
 
== Siehe auch ==
* Übersichtseite [[AVR Embedded Tutorial/de]]
+
* Übersichtseite [[AVR Embedded Tutorial/de|AVR Embedded Tutorial]]
  
 
Autor: [[User:Mathias|Mathias]]
 
Autor: [[User:Mathias|Mathias]]

Revision as of 20:37, 15 June 2018

Template:Translate

Schieberegister

Der Beispielcode ist für ein ATtiny44. Schieberegister werden folgende verwendet:

  • Lesen: 74HC165
  • Schreiben: 74HC595.

Achtung, die Leseroutine ist nicht kompatibel mit Arduino shiftIn(... ! Die Arduino Lesefunktion ist für andere Schieberegister. Der Clock muss anders angesteuert werden.

Will man MSB und LSB vertauschen, dann muss man dementsprechend einfach to mit downto austauschen.

Portzugriffe

Wie die Schieberegisterbefehle auf die Ports zugreifen, siehe hier: GPIO-Ausgabe.
Nicht vergessen die Ausgänge auch als Ausgang einzustellen (DDRx).

Port-Konstanten

Die verwendeten Pins des ATtiny44 und der Shiftregister. Beim AVR kann man beliebige Pins nehmen. Ich habe die Ports, ausgenommen des Data-Ports, global deklariert, somit ist der Zugriff aus die Schiftregister ein wenig schneller. Wen man sie lokal übergeben würde, würde alles komplizierter werden, da wir direkten Portzugriff verwenden. Arduino macht dies anders, aber dafür ist es etwa um den Faktor 10x langsamer.

IC Attiny44 74HC165 74HC595
PinNr Bezeichnung PinNr Bezeichnung PinNr Bezeichnung
dataOutPin 13 PA0 14 DS
dataInPin 12 PA1 10 DS
latchPin 11 PA2 1 PL 12 ST_CP
clockPin 10 PA3 2 CP 11 SH_CP

Für den Port wird eine Variable deklariert, dies hat den Vorteil, das man nicht alle Ports in den Shiftregister-Funktionen ändern muss.

var
  shiftPORT: byte absolute PORTA;
  shiftDDR:  byte absolute DDRA;
  shiftPIN:  byte absolute PINA;
const
  dataOutPin = 0;
  dataInPin  = 1;
  latchPin   = 2;
  clockPin   = 3;

Schieberegister schreiben 74HC595

procedure shiftOut595(val: Byte);
var
  i: Byte;
begin
  for i := 7 downto 0 do begin  // MSBFIRST
    if (val and (1 shl i)) <> 0 then begin
      shiftPORT := shiftPORT or (1 shl dataOutPin);
    end else begin
      shiftPORT := shiftPORT and not (1 shl dataOutPin);
    end;
    shiftPORT := shiftPORT or (1 shl clockPin);
    shiftPORT := shiftPORT and not (1 shl clockPin);
  end;
end;

Schieberegister lesen 74HC165

function ShiftIn165: Byte;
var
  i: Byte;
begin
  Result := 0;
  for i := 0 to 7 do begin  // LSBFIRST
    Result    := (Result shl 1) or ((shiftPIN and (1 shl dataInPin)) shr dataInPin);
    shiftPORT := shiftPORT or (1 shl clockPin);
    shiftPORT := shiftPORT and not (1 shl clockPin);
  end;
end;

Schieberegister Arduino

Diese Version entspricht dem shiftIn von Arduino.

function ShiftIn: Byte;
var
  i: Byte;
begin
  Result := 0;
  for i := 0 to 7 do begin  // LSBFIRST
    shiftPORT := shiftPORT or (1 shl clockPin);
    Result    := (Result shl 1) or ((shiftPIN and (1 shl dataInPin)) shr dataInPin);
    shiftPORT := shiftPORT and not (1 shl clockPin);
  end;
end;

Beispiel für die Verwendung der Schieberegister

Lesen von einem Schieberegister

Bevor man das Schieberegister auslesen kann, muss der Portzustand in das Latchregister geschrieben werden, dies geschieht über den LatchPin.

Beispiel für ein 74HC165

var
  b: Byte;
begin

  // Daten in Latch
  shiftPORT := shiftPORT and not (1 shl latchPin);
  shiftPORT := shiftPORT or (1 shl latchPin);

  // Schieberegister auslesen
  b := ShiftIn74HC165;

Beispiel für kaskadierte 74HC165

var
  b0, bn: Byte;
begin

  // Daten in Latch
  shiftPORT := shiftPORT and not (1 shl latchPin);
  shiftPORT := shiftPORT or (1 shl latchPin);

  // Schieberegister auslesen
  b0 := ShiftIn74HC165;
  //...
  bn := ShiftIn74HC165;

Schreiben in ein Schieberegister

Wen die Daten in das Schieberegister geschrieben sind, muss man noch den Latch Takten, das die aktuellen Ausgänge aktiv werden.

Beispiel für ein 74HC595

var
  b: Byte;
begin
  b := 123;

  // Schieberegister schreiben
  shiftOut595(b);

  // Daten in Latch
  shiftPORT := shiftPORT and not (1 shl latchPin);
  shiftPORT := shiftPORT or (1 shl latchPin);

Beispiel für kaskadierte 74HC595

var
  b0, bn: Byte;
begin
  b0 := 123;
  //...
  bn := 789;

  // Schieberegister schreiben
  shiftOut595(b0);
  // ...
  shiftOut595(bn);

  // Daten in Latch
  shiftPORT := shiftPORT and not (1 shl latchPin);
  shiftPORT := shiftPORT or (1 shl latchPin);

Siehe auch

Autor: Mathias