Lauflicht mit 8LED's

[turboPASCAL]

Nach dem Vorschlag von hibbert so:

Delphi-Quellcode:

const
  LPT_Port = $378; // LPT Port 1 (dezimal 888)

procedure LEDs(led1,led2,led3,led4,led5,led6,led7,led8: Boolean);
var
  Value: Byte;
begin
  Value := 0;

  if led1 then Value := Value +   1;
  if led2 then Value := Value +   2;
  if led3 then Value := Value +   4;
  if led4 then Value := Value +   8;
  if led5 then Value := Value +  16;
  if led6 then Value := Value +  32;
  if led7 then Value := Value +  64;
  if led8 then Value := Value + 128;

  Out32(LPT_Port, Value);
end;

// Aufruf zB so:
LEDs(True, False, False, False, False, False, False, False);

Es geht aber doch viel einfacher:

Delphi-Quellcode:

const
  LPT_Port = $378; // LPT Port 1 (dezimal 888)

procedure SetLEDs(Value: Byte);
begin
  Out32(LPT_Port, Value);
end;

// Aufruf:

SetLEDs($00000001);  // Setzt die LED 1
SetLEDs($00000011);  // Setzt die LED 1 & 2
SetLEDs($10000001);  // Setzt die LED 1 & 8
SetLEDs($00000000);  // alles aus

oder einfach so:

Delphi-Quellcode:

Out32($378, $00000001); // Setzt die LED 1
...
Out32($378, $10000001); // Setzt die LED 1 & 8

Bitte mal Testen...