Einzelnen Beitrag anzeigen

Benutzerbild von Assun
Assun

Registriert seit: 3. Feb 2005
Ort: Hilzingen am Bodensee
469 Beiträge
 
Delphi 2005 Personal
 
#19

Re: Lauflicht mit 8LED's

  Alt 30. Sep 2005, 16:30
OMG es geht !!!

Ihr wisst gar nicht wie mich das freut

soo, jetzt habe ich auch schon die erste Frage

wenn ich folgendes mache :

Delphi-Quellcode:
//////////////////// LED Night Rider /////////////////////////////
Anzahl := StrToInt(Edit1.Text);
for i:=1 to Anzahl do
begin
out32(888,1);
sleep(255);
out32(888,2);
sleep(255);
out32(888,4);
sleep(255);
out32(888,8);
sleep(255);
out32(888,16);
sleep(255);
out32(888,32);
sleep(255);
out32(888,64);
sleep(255);
out32(888,128);

out32(888,128);
sleep(255);
out32(888,64);
sleep(255);
out32(888,32);
sleep(255);
out32(888,16);
sleep(255);
out32(888,8);
sleep(255);
out32(888,4);
sleep(255);
out32(888,2);
sleep(255);
out32(888,1);
end
end;
dann wird dieser "Knight Rider" effekt () zwar so oft wiederholt wie angegeben aber mein Programm ist für diese Zeit blockiert wegen den vielen Sleeps die Sleeps sind aber notwendig, da das Lauflicht sonst nicht klappt...

Gibt es ne alternative für sleep bei der das Programm noch ansprechbar ist ??


EIDT : Sorry, habs über die Suche gefunden...nix für ungut

stichwort Delay
Sebastian Dietrich
http://Assun.de - bald komplett überarbeitet
  Mit Zitat antworten Zitat