Циклическое включение/выключение реле

[Alejandro]

Помогите реализовать на ST циклическое вкл/выкл релейных дискретных выходов ПЛК Owen 150. Необходимо чтобы программа работала по следующему алгоритму: вкл 1 реле на 2с потом выкл...вкл 2 реле на 2с потом выкл...и так до последнего 4-го реле...после опять вкл 1 реле... и по новой. Как реализовать? Можно ли использовать цикл?

[Малышев Олег]

var
ton_r:TON;
state:byte:=1;
end_var
ton_r(in:=not ton_r.q,pt:=t#2s);
state:=sel(ton_r.q,state,shl(state,1));
state:=sel(state>8,state,1);
r1:=state.0;r2:=state.1;r3:=state.2;r4:=state.3;

[Валенок]

и еще

var
ton_r:TON;
state:byte:=17;
end_var
ton_r(in:=not ton_r.q,pt:=t#2s);
state:=sel(ton_r.q,state,rol(state,1));
r1:=state.0;r2:=state.1;r3:=state.2;r4:=state.3;

[Малышев Олег]

Ха-ха вчера мучительно думал - можно ли проще. Окажись можно. Может еще проще???

[Валенок]

СИ8 + одно реле ?

[Малышев Олег]

(*Цикл r= 1ms*)
var
i:int:=0;
releys AT %qb1 : BYTE
end_var
i:=SEL(i=4000,i+1,0);
relays:=shl(1,(i div 1000));

[Валенок]

(*Цикл задачи(таск) = 2s*)
var
releys AT %qb1 : BYTE
end_var
relays:=mux(relays,1,2,4,0,8,0,0,0,1);

"..игра прекратиться когда все умрут.."

[Малышев Олег]

Плакал, рыдал,посыпал голову пеплом.

[Николай Суриков]

Вот смотрю я на Вас, аж слеза наворачивается..
Валенок победил, 4 строки кода уложил в одну)
Мб теперь стоит бороться за количество символов в строке?)
p.s. дайте ему (Валенку) приз, за рациональное использование машинного времени.

[Валенок]

За призом-то куда приходить ?