Работаю с LPT-портом

[mish_k98]

Работаю с LPT-портом

добрый день.работаю с лпт портом через 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;

Где ошибка?

 

[Vladimir_S]

Где ошибка?

Точно не скажу, но подозреваю, что в левой части, где стоят исключительно d0.

 

[mish_k98]

я извиняюсь конечно.делал в попыхах.изменил d0 на d1,d2 и так далее.всё работает, светодиоды мигают