добрый день.работаю с лпт портом через inpout32.dll.пытаюсь сделать некую мигалку на 8 светодиодов.ка мне сделать чтобы они включались и потухали с неким интервалом.пробывал сам но неработает.
вот чать кода которую я составил:
iprocedure TForm1.Timer2Timer(Sender: TObject);
begin
if d0=0 then begin
d0:=1;
d0:=2;
d0:=4;
d0:=8;
d0:=16;
d0:=32;
d0:=64;
d0:=128;
Out32(888, d0+d1+d2+d3+d4+d5+d6+d7);
end
else if d0=1 then begin
d0:=0;
d0:=0;
d0:=0;
d0:=0;
d0:=0;
d0:=0;
d0:=0;
d0:=0;
Out32(888, d0+d1+d2+d3+d4+d5+d6+d7);
end;
end;
Где ошибка?