LMDLights ansteuern mit Binär Werte

[Ratte]

Es geht auch so:

Delphi-Quellcode:

var
   b,h,i:byte;
   bools:array[1..8] of boolean;
begin
   b:=255;  //Wert der ausgewertet wird
   h:=1;
   for i:=1 to 8 do
   begin
      bools[i]:=false;
      IF (h and b) >0 THEN bools[i]:=true;
      h:= (h*2) mod 255;   //sonst würde es bei 8 b:=256 heißen --> Überlauf
   end;
//LEDs an/aus
end;

mfg,
Ratte

//Edit: kleine optimierung