Я только хотел про переменную спросить, значит в верном направлении думаю, будем пробовать если не получиться спрошу. Спасибо.
Ну наверно что-то типа этого в примитиве конечно, работает но с одной особенностью.
Чем больше задержка Delay тем кнопка не точно по нажатию срабатывает. Тратиться время я это понимаю но как обойти. Чтоб кнопка на нажатие четко срабатывала, а то перескакивает бывает.
Цитата:
program Pic12F629Svet;
var i,r:word;
begin { Main program }
r:=1;
i:=1;
TRISIO:=0;
While true do
begin
if r=1 then i:=1;
if r=2 then i:=50;
if r=3 then i:=200;
if r=4 then i:=700;
if r=5 then i:=2000;
GPIO:=0x00;
VDelay_ms(i);
GPIO:=0xff;
VDelay_ms(i);
if Button (GPIO, 4, 1, 0) then
begin
r:=r+1;
if r=6 then
begin
r:=1;
i:=1;
end;
end;
end;
end.
|