Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.03.2011, 20:16   #1
lylyfam
Новичок
Джуниор
 
Регистрация: 12.03.2011
Сообщений: 1
По умолчанию анимация в делфи

Помогите пожалуйста сделать такую анимацию, чтобы объект двигался по косинусу. Использую классы.
lylyfam вне форума Ответить с цитированием
Старый 12.03.2011, 20:29   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Использую классы.
да хоть потоки...

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

А вообще, по сути, ничего сложного:
в цикле
- стираете объект по старым координатам.
- вычисляете новую координату, увеличивая x на очень малое число (шаг анимации),
для каждого x считаете y := cos(x) * МасштабныйКоэффициент;
- рисуете объект по новым координатам round(x), round(y)
делаете небольшую паузу
конец цикла
Serge_Bliznykov вне форума Ответить с цитированием
Старый 14.05.2011, 18:55   #3
OlegPrograming5
Пользователь
 
Регистрация: 12.01.2009
Сообщений: 42
По умолчанию

Вместо паузы и цикла можно использовать таймер. Если координата X (или Y, как вам нужно по задаче) больше определённого значения, вы просто выключаете таймер. (Enabled:=False).
OlegPrograming5 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
анимация в Делфи Htenez Общие вопросы Delphi 0 16.12.2010 09:37
анимация serj-07 Общие вопросы Delphi 17 10.01.2010 10:39
Анимация nimf Общие вопросы Delphi 6 07.08.2009 10:21
Анимация BuTeK1 Паскаль, Turbo Pascal, PascalABC.NET 0 19.01.2009 00:30
Анимация SanekIrk Общие вопросы Delphi 11 08.08.2008 15:24