Технический форум - Заставить двигаться по кругу

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Заставить двигаться по кругу (http://www.tehnari.ru/f43/t49139/)

Хелен

20.03.2011 17:50

Заставить двигаться по кругу

чтоб решить проблему с демоном, решаю такую мини программку.
Точка движется по кругу. зелёная точка.
что нужно сделать чтобы вместо точки двигался какой-нить символ? тот же "%". пока удалось засунуть его только в угол программы ((

Код:

uses crt,graph;

var x0,y0,x1,y1,r,gd,gm:integer;

    i:longint;

begin

gd:=detect;

initgraph(gd,gm,'');

x0:=getmaxX div 2;

y0:=getmaxY div 2;

r:=y0-100;

i:=1;

repeat

x1:=x0+round(r*sin(i*pi/180));

y1:=y0-round(r*cos(i*pi/180));

setcolor(green);

outtextXY(x, y, '%)');

circle(x1,y1,1);

delay(1000);

setcolor(0);



circle(x1,y1,1);

i:=i+1;

until keypressed;

end.

AlexZir

21.03.2011 08:58

Вот малость исправленный вариант:

Код:

uses crt,graph;

var x0,y0,x1,y1,i,r,gd,gm:integer;

begin

gd:=detect;

initgraph(gd,gm,'');

x0:=getmaxX div 2;

y0:=getmaxY div 2;

r:=y0-100;

i:=0;

repeat

x1:=x0+round(r*sin(i*pi/180));

y1:=y0-round(r*cos(i*pi/180));

setcolor(green);

outtextXY(x1, y1, '%)');

circle(x1,y1,1);

delay(10);

setcolor(0);

circle(x1,y1,1);

if i<361 then inc(i) else i:=0;

until keypressed;

end.

Отличия выделены цветом, но, в принципе, и ваш вариант вполне работоспособен, стоило только указать правильные имена переменных в команде outtextxy() :))
У вас была выставлена слишком большая задержка - секунда, поэтому вы и не видели результата :))

Хелен

21.03.2011 16:01

не совсем то, что я имела ввиду)
у вас получилась линия в виде круга, а я хотела чтобы двигалась настолько быстро, чтобы только мигал значок "%" по траектории круга, а не вычерчивал его, т.е. чтобы не был видел в каждой точке круга, а например в восьми.

Vladimir_S

21.03.2011 16:30

Цитата:

Сообщение от Хелен (Сообщение 489333)

Вот:

Код:

uses crt,graph;

var

 x0,y0,x1,y1,i,r,gd,gm:integer;

begin

 gd:=detect;

 initgraph(gd,gm,'');

 x0:=getmaxX div 2;

 y0:=getmaxY div 2;

 r:=y0-100;

 i:=0;

 repeat

  x1:=x0+round(r*sin(i*pi/180));

  y1:=y0-round(r*cos(i*pi/180));

  SetBkColor(Black);

  If (i mod 45)=0 then

   begin

    setcolor(green);

    outtextXY(x1, y1, '%)');

    delay(100);

    setcolor(black);

    outtextXY(x1, y1, '%)');

   end;

 if i<361 then inc(i) else i:=0;

 until keypressed;

end.

Так?

Хелен

21.03.2011 18:28

То что надо! спасибо большое, продолжаю трудится над монстрами =)

AlexZir

22.03.2011 06:08

Более конкретно задачи ставьте, а то сначала малопонятно было, что именно вам надо сделать.

Я бы сделал сначала стирание на старом месте, а потом рисование на новом месте, чтобы по выходу из цикла символ на экране оставался.

Часовой пояс GMT +4, время: 06:39.