Lauflicht mit 8LED's

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von fneuweiler · begonnen am 9. Sep 2005 · letzter Beitrag vom 1. Mai 2006

Vorheriger Beitrag

Nächster Beitrag

hibbert

Registriert seit: 26. Aug 2003
Ort: Berlin
262 Beiträge

Delphi 2005 Personal

#24

Re: Lauflicht mit 8LED's

1. Okt 2005, 16:37

also ich mache das so:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure leuchten(led1,led2,led3,led4,led5,led6,led7,led8:boolean);

var x:integer;

begin

x:=0;

// soll LED 1 leuchten ?

if led1 = true then x:= x +1;

// soll LED 2 leuchten ?

if led2 = true then x:=x+2;

// soll LED 3 leuchten ?

if led3 = true then x:= x +4;

{...}

Out32(888,x);

end;