Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 16.12.2009, 17:14   #1
malir
Новичок
Джуниор
 
Регистрация: 14.12.2009
Сообщений: 2
По умолчанию не знаю как доделать

Полукруг должен двигаться по полукругу
Код я написал тока он крутиться по кругу,куда мне вставить условие чтоб остановить движение по кругу, и чтоб он двигался по прямой

Код:
 const
cx=200;
cy=200;
r=100;

 procedure TForm4.FormActivate(Sender: TObject);
    begin
    a:=0;
    form4.Timer1.Enabled:=false;
    end;

procedure ris1;
begin
g:=pi/180;
x:=cx+round(r*cos(a*g));
y:=cy+round(r*sin(a*g));
 form4.canvas.Brush.color:=clRed;
Form4.Canvas.Pen.Color:=clred;
form4.Canvas.Pie(x,y,x+100,y+100,x+0,y+50,x+100,y+50);
end;

 procedure ris2;
 begin
 x:=x+1;
 form4.canvas.Brush.color:=clRed;
Form4.Canvas.Pen.Color:=clred;
form4.Canvas.Pie(x,y,x+100,y+100,x+0,y+50,x+100,y+50);
 end;

procedure ster1;
begin
form4.Canvas.Brush.Color:=clbtnface;
 Form4.Canvas.Pen.Color:=clbtnface;
form4.Canvas.Pie(x,y,x+100,y+100,x+0,y+50,x+100,y+50);
g:=pi/180;
x:=cx+round(r*cos(a*g));
y:=cy+round(r*sin(a*g));
end;

procedure ster2;
begin
 form4.canvas.Brush.color:=clBtnFace;
Form4.Canvas.Pen.Color:=clBtnFace;
form4.Canvas.Pie(x,y,x+100,y+100,x+0,y+50,x+100,y+50);
  x:=x+1;
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
 x:=50;
y:=50;
Form4.Timer1.Enabled:=True;
Form4.timer1.Interval:=1;
end;

procedure TForm4.Timer1Timer(Sender: TObject);
begin
ster1;
 a:=a+1;
ris1;
end;

Последний раз редактировалось malir; 16.12.2009 в 17:37.
malir вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме 20000 рублей в месяц

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как такое сделать (извените. но даже не знаю как это называется) Van'Denis HTML и CSS 3 30.08.2009 09:46
не знаю как доделать прогу на паскале pavel42 Помощь студентам 8 06.05.2009 15:34
Не знаю как сделать. prikolist Microsoft Office Excel 4 28.11.2008 23:13
Не знаю как и сказать... Старовъръ Общие вопросы Delphi 4 29.06.2008 08:23


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS