 Графика, Лабораторка 11 |
ВНИМАНИЕ!
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
  |
| Marina |
 13.06.2005 13:15
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 8 Пол: Женский Репутация:  0   |
Шарик, вылетает из случайной точки PaintBox
под случайным углом. Ударяясь о края PaintBox, он изменяет направление своего движения в соответствии с обычными физическими законами (угол падения равен углу отражения). Кто-нибудь помогите решить?? Delphi 7 Очень надо  |
   |
 
|
| Dark |
13.06.2005 14:46
Сообщение
#2
|
 Знаток  Группа: Пользователи Сообщений: 408 Пол: Мужской Репутация: 3 |
а что не получается
-------------------- - Где я?
- Во тьме. - В какой тьме? - Во тьме твоего мозга. |
|
|
|
| Marina |
13.06.2005 15:04
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 8 Пол: Женский Репутация: 0 |
Цитата(Dark @ 13.06.05 14:46) а что не получается да вообще всё,как нарисовать шарик и заставить его бегать и чтобы эти углы получались(падения/отражения) ??? Всё это в paint box |
|
|
|
| Dark |
13.06.2005 15:07
Сообщение
#4
|
|
Знаток Группа: Пользователи Сообщений: 408 Пол: Мужской Репутация: 3 |
Я конечно не люблю елать за других =0))) но попробую, благо есть на работе немного времени ;)
-------------------- - Где я?
- Во тьме. - В какой тьме? - Во тьме твоего мозга. |
|
|
|
| volvo |
13.06.2005 15:17
Сообщение
#5
|
|
Гость |
Цитата(Marina @ 13.06.05 15:04) как нарисовать шарик и заставить его бегать и чтобы эти углы получались(падения/отражения) ??? Сам алгоритм можешь посмотреть вот тут (правда, на чистом Паскале, останется перенести вывод в PaintBox): Прыгающий шарик |
|
|
|
| Marina |
13.06.2005 15:30
Сообщение
#6
|
|
Группа: Пользователи Сообщений: 8 Пол: Женский Репутация: 0 |
Цитата(Dark @ 13.06.05 15:07) Я конечно не люблю елать за других =0))) но попробую, благо есть на работе немного времени ;) Большое спасибо ;) |
|
|
|
| Marina |
13.06.2005 15:45
Сообщение
#7
|
|
Группа: Пользователи Сообщений: 8 Пол: Женский Репутация: 0 |
Цитата(volvo @ 13.06.05 15:17) Сам алгоритм можешь посмотреть вот тут (правда, на чистом Паскале, останется перенести вывод в PaintBox): Прыгающий шарик Мммм...что то похожее над пораскинуть мозгами немного |
|
|
|
| volvo |
13.06.2005 16:21
Сообщение
#8
|
|
Гость |
Не знаю, как в 7-ке, а в Delphi 6 вот это работает (только в этом случае шарик замедляется после удара о стенку. Чтобы не замедлялся - поменяй значение K на 1):
Прикрепленные файлы 
CrazyBox.rar ( 5.67 килобайт )
Кол-во скачиваний: 141 |
|
|
|
| Marina |
13.06.2005 16:27
Сообщение
#9
|
|
Группа: Пользователи Сообщений: 8 Пол: Женский Репутация: 0 |
Цитата(volvo @ 13.06.05 16:21) Не знаю, как в 7-ке, а в Delphi 6 вот это работает (только в этом случае шарик замедляется после удара о стенку. Чтобы не замедлялся - поменяй значение K на 1): volvo ты даже не представляешь как я благодарна!!! Сделаю только етот OnPaint чтобы прорисовывалось всё о всё ПуТёМ!!! БААааафое спасибище из Риги ;) |
|
|
|
| Dark |
13.06.2005 16:49
Сообщение
#10
|
|
Знаток Группа: Пользователи Сообщений: 408 Пол: Мужской Репутация: 3 |
Опередил :P
-------------------- - Где я?
- Во тьме. - В какой тьме? - Во тьме твоего мозга. |
|
|
|
| Marina |
13.06.2005 17:23
Сообщение
#11
|
|
Группа: Пользователи Сообщений: 8 Пол: Женский Репутация: 0 |
Цитата(Dark @ 13.06.05 16:49) Опередил :P Dark а твою версию тоже можно,уму разуму наберусь  Кстате как там сделать обработку события OnPaint ? тип Object Inspector\Events\OnPaint два раза чмокнуть и там появится заголовок обработчика...а в нём что написать? |
|
|
|
| Marina |
13.06.2005 18:07
Сообщение
#12
|
|
Группа: Пользователи Сообщений: 8 Пол: Женский Репутация: 0 |
Цитата(volvo @ 13.06.05 16:21) Не знаю, как в 7-ке, а в Delphi 6 вот это работает (только в этом случае шарик замедляется после удара о стенку. Чтобы не замедлялся - поменяй значение K на 1): volvo а это только у меня или так и должно быть шарик замедляется..сначала быстро летит а потом всё медленнее и медленнее... |
|
|
|
| volvo |
13.06.2005 18:30
Сообщение
#13
|
|
Гость |
Я же сказал, ЧТО надо сделать, чтобы он не замедлялся...
 |
|
|
|
| Marina |
13.06.2005 18:34
Сообщение
#14
|
|
Группа: Пользователи Сообщений: 8 Пол: Женский Репутация: 0 |
Цитата(volvo @ 13.06.05 18:30) Я же сказал, ЧТО надо сделать, чтобы он не замедлялся... О,точно!:) А не мог бы ещё помочь с этим OnPaint.. что там надо написать? Простите что так нагло но мне к завтра надо сделать.. |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 29.07.2025 22:42 |