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