Анимация движения линии, пока не будет нажата клавиша

@HaXoq4uBbIu' :) · Регистрация: 11.01.2011

Author24 — интернет-сервис помощи студентам

Pascal

Uses GraphABC,crt;
Var i:integer;
Begin
Floodfill(10,10,clyellow);
Setwindowsize(800,600);
Setpencolor (clBlack);
Roundrect(15,15,785,585,15,15);
Rectangle(310,350,770,480);
Rectangle(330,380,550,450);
lockdrawing;
For i:=1 to 200 do begin
clearwindow(clyellow);
Setpencolor (clBlack);
Roundrect(15,15,785,585,15,15);
Rectangle(310,350,770,480);
Rectangle(330,380,550,450);
setpencolor(cllime);
Line(340+i,380,340+i,445); 
setpencolor(cllime);
redraw;
sleep(10);
end;
Begin
Setwindowsize(800,600);
lockdrawing;
For i:=200 downto 1 do begin
clearwindow(clyellow);
Setpencolor (clBlack);
Roundrect(15,15,785,585,15,15);
Rectangle(310,350,770,480);
Rectangle(330,380,550,450);
setpencolor(cllime);
Line(340+i,380,340+i,445); 
redraw;
sleep(10);
end;
end;
end.

надо чтоб линия бегала до тех пор покамись не нажму клавишу

@MaiLoJ · 23.05.2011, 21:54

Pascal

Uses GraphABC,crt;
Var i:integer;
Begin
repeat
Floodfill(10,10,clyellow);
Setwindowsize(800,600);
Setpencolor (clBlack);
Roundrect(15,15,785,585,15,15);
Rectangle(310,350,770,480);
Rectangle(330,380,550,450);
lockdrawing;
For i:=1 to 200 do begin
clearwindow(clyellow);
Setpencolor (clBlack);
Roundrect(15,15,785,585,15,15);
Rectangle(310,350,770,480);
Rectangle(330,380,550,450);
setpencolor(cllime);
Line(340+i,380,340+i,445);
setpencolor(cllime);
redraw;
sleep(10);
end;
Begin
Setwindowsize(800,600);
lockdrawing;
For i:=200 downto 1 do begin
clearwindow(clyellow);
Setpencolor (clBlack);
Roundrect(15,15,785,585,15,15);
Rectangle(310,350,770,480);
Rectangle(330,380,550,450);
setpencolor(cllime);
Line(340+i,380,340+i,445);
redraw;
sleep(10);
end;
end;
until keypressed;

@HaXoq4uBbIu' :) · 24.05.2011, 15:06 **[ТС]**

Ошибка ожидался оператор. а если место keypressed пишу readkey то другая ошибка repeat должно иметь тип boolean

Добавлено через 5 часов 1 минуту

Сообщение от HaXoq4uBbIu' :)

Ошибка ожидался оператор. а если место keypressed пишу readkey то другая ошибка repeat должно иметь тип boolean

произошла ошибка ) я с утречка не посмотрел внимательно)) все работает спасибо так и спасибо нажал ))

@HaXoq4uBbIu' :) 1 / 1 / 1 Регистрация: 11.01.2011 Сообщений: 44
	24.05.2011, 15:06 [ТС]	3
	Ошибка ожидался оператор. а если место keypressed пишу readkey то другая ошибка repeat должно иметь тип boolean Добавлено через 5 часов 1 минуту Сообщение от HaXoq4uBbIu' :) Ошибка ожидался оператор. а если место keypressed пишу readkey то другая ошибка repeat должно иметь тип boolean произошла ошибка ) я с утречка не посмотрел внимательно)) все работает спасибо так и спасибо нажал )) 0