|
RN3QGA Просьба, когда код выкладываете, обрамляйте тегами (quote, code, php),
[PHP]program SveticP16F629;
const A: array [0..8] of byte=
(%00000001,%00000110,93,
%00000010,%00000101,93,
%00000100,%00000011,93);
var I,J,g: byte;
begin
while true do
begin
for I:=0 to 18 do
begin
g:=I+I+I;
TRISIO:=A[g];
GPIO:=A[g+1];
Delay_us(1000);
end;
end;
end.
[/PHP]
а то плохо воспринимается.
|