Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Графика на основе Канвы

Автор: DRAGON88 2.4.2009, 09:24

Солнце с 10 лучами вращается против часовой стрелки с дискретом 10^0/сек. Длина цикла 30 сек. Запуск движения – команда контекстного меню.

Помогите её решить!!!!!!!!! smile

Автор: THandle 2.4.2009, 12:17

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: Dmi3ev 5.4.2009, 10:12

ты думаешь бесплатно за тебя тут все сделают??? я, например не буду, но как делать скажу, если не ленивый, то осилишь
1) вот в принципе рисуется солнце (в примере рисуется только одни луч) это есть основа, сначала нужно нарисовать

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Canvas.Brush.Style:=bsSolid;
Form1.Canvas.Brush.Color:=clYellow;
Form1.Canvas.Pen.Color:=clYellow;
Form1.Canvas.Pen.Width:=5;

Form1.Canvas.Ellipse(100,100,200,200);

Form1.Canvas.MoveTo(150,150);
Form1.Canvas.LineTo(150,50);
end;

end.

2) надо сделать, чтобы оно вращалось, а это разбивается на два этапа
-правила вращения ()

Цитата

часовой стрелки с дискретом 10^0/сек. Длина цикла 30 сек.

вот они у тебя
-каким макаром будем осуществлять вращение, советую тебе не заморачиваться и просто перед тем как рисовать следующее положение, делать

Код


Form1.Refresh;

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

Автор: zim22 5.4.2009, 11:02

Цитата(DRAGON88 @ 2.4.2009, 09:24

)

Солнце с 10 лучами вращается против часовой стрелки с дискретом 10^0/сек. Длина цикла 30 сек

можно три статические картинки солнца нарисовать. в каждой отклонение визуальное лучей сделать на какой-то шаг. а потом отображать по очереди эти картинки и будет эффект движения ! smile

Автор: DRAGON88 6.4.2009, 12:08

Получииииииииилось!!!!!!! smile