Byte in Gray-Code wandeln

[Helmi]

Hallo,

wie kann ich einen Byte-Wert in einen Gray-Code wandeln?

Gibts hierfür fertige Funktionen und falls ja wo

[jfheins]

Hi,
mal kurz gesucht: byte gray code
http://de.wikipedia.org/wiki/Gray-Co...Bin.C3.A4rcode
MfG

[Helmi]

Zitat von jfheins:

Hi,
mal kurz gesucht: byte gray code
http://de.wikipedia.org/wiki/Gray-Co...Bin.C3.A4rcode
MfG

Soweit war ich auch schon!
Ich keine auch die Seite auf Wikipedia - aber ich fragte ja nach einer fertigen Funktion dafür

[sx2008]

Dieser C-Code lässt sich leicht nach Delphi portieren
http://en.wikipedia.org/wiki/Gray_co...from_Gray_code
Man kann natürlich auch ein gefülltes Array verwenden um die Umrechnung möglichst schnell durchzuführen:
const graycode:array[byte] of byte = (0, 1, 3, 2,...., 128);

[jfheins]

Zitat von Helmi:

Soweit war ich auch schon!
Ich keine auch die Seite auf Wikipedia - aber ich fragte ja nach einer fertigen Funktion dafür

Also eigentlich sollte das jetzt nicht soooo schwer sein. Aber okay, hier ist eine fertige Funktion:

Delphi-Quellcode:

function ValueToGrayCode(Value: Byte):Byte;
begin
  Result :=  Value XOR (Value shr 1);
end;

[Helmi]

Zitat von jfheins:

Aber okay, hier ist eine fertige Funktion:

Delphi-Quellcode:

function ValueToGrayCode(Value: Byte):Byte;
begin
  Result :=  Value XOR (Value shr 1);
end;

Danke! - irgendwie stand ich auf dem Schlauch!