|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
21.10.2010, 12:51 | #1 |
Пользователь
Регистрация: 19.10.2010
Сообщений: 25
|
Движение фигуры По диагонали
Здравствуйте всем, Вот у меня такая проблемка, у чет не получаеться привести фигуру в движение по диагонали: вот код по которому надо сделать движение:
procedure TFigure.Move; var Temp:integer; begin hide; temp:=x+x1; if (temp<0) or (temp>maxsize-size) then x1:=-x1; x:=x+x1; temp:=y-y1; if (temp<0) or (temp>size-maxsize) then y1:=-y1; y:=y+y1; show; end; помогите исправить чтобы фигура двигалась по диагонали координаты должны задаваться не цыфрами а как показано на коде!!!!!!! надо это в Delphi! Последний раз редактировалось Weyner; 21.10.2010 в 12:58. Причина: добавить где надо кодировать! |
21.10.2010, 13:23 | #2 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,526
|
для горизонтального движения
Код:
программа — запись алгоритма на языке понятном транслятору
Последний раз редактировалось evg_m; 21.10.2010 в 13:26. |
21.10.2010, 13:33 | #3 | ||
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Цитата:
I'm learning to live...
|
||
21.10.2010, 13:58 | #4 |
Пользователь
Регистрация: 19.10.2010
Сообщений: 25
|
fd
движение происходит по image по её диагонали , нихера не работает !
|
21.10.2010, 14:14 | #5 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Поставь свой код в таймер. И вообще разве можно что понять по тому что ты написал? Это так. Получение координат не более. Совершенно не отражает механизма отрисовки изображения.
I'm learning to live...
|
|
21.10.2010, 14:39 | #6 |
Пользователь
Регистрация: 19.10.2010
Сообщений: 25
|
тема закрыта!!
Вот правильно как делать надо!!!
temp:=x+x1; if (temp-size div 2<0) or (temp+size div 2 >maxsize) then x1:=-x1; x:=x+x1; temp:=y+y1; if (temp-size div 2<0) or (temp+size div 2 >maxsize) then y1:=-y1; y:=y+y1; |
21.10.2010, 15:10 | #7 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Тему-то я закрою...
Только на будущее - У нас принято оформлять код специальным тэгом - при помощи кнопочки "#". Только... И не значком #. И не РНР-кодом. И не значком цитаты. И не собственными "ручками". Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе... Модератор |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Движение фигуры | Виталюкас | Общие вопросы Delphi | 2 | 28.04.2010 10:44 |
Движение фигуры в PaitBox | Виталюкас | Общие вопросы Delphi | 7 | 27.04.2010 10:39 |
Движение фигуры по окружности | &RiU | Помощь студентам | 3 | 31.10.2009 20:39 |
Движение фигуры по траектории | Dgohn | Общие вопросы Delphi | 3 | 08.01.2009 09:36 |