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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.01.2012, 20:19   #1
Женька Good
Форумчанин
 
Регистрация: 15.03.2011
Сообщений: 126
По умолчанию как заставить объект двигаться по ромбу? Делфи

Подскажите алгоритм, как заставить двигаться любой объект, будь то картинка и ли кнопка, по ромбу. Т.е. направление движения должно напоминать ромб.
Женька Good вне форума Ответить с цитированием
Старый 29.01.2012, 11:47   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

элементарно.
Код:
присвоить координатам x,y начальное значение объекта
в цикле пока выполняется нужное условие (например, не нажата клавиша)
   выводим_объект_в_позиции_X_Y
   ждём малое_время (например, 50 мс)
   выводим_объект_цветом_фона (т.е. стираем его)
   наращиваем одну из координат (например X:=X+малыйшаг;
   вычисляем Y в зависимости от X (и значения Y)
конец цикла
p.s. для движения по ромбу - нужно учитывать в какой области (координатной четверти) находится точка X,Y и, в зависимости от этого, брать для вычисления новой координаты уравнение нужной прямой - (уравнения прямых составляющих ромб, разумеется).
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как заставить крутиться объект ВалекFCRK Общие вопросы Delphi 2 13.11.2011 20:38
Как заставить двигаться объект по форме ВалекFCRK Общие вопросы Delphi 2 10.11.2011 16:03
как заставить окружность двигаться в обратную сторону? phasha Помощь студентам 8 17.10.2011 18:54
Как заставить Image двигаться по прямой к указанной точке? Yougan Общие вопросы Delphi 6 30.05.2011 23:59
как заставить компонент Shape двигаться по ступенькам Ogurez Помощь студентам 1 31.10.2010 11:07