Шарик, вылетает из случайной точки PaintBox
под случайным углом. Ударяясь о края PaintBox, он
изменяет направление своего движения в соответствии
с обычными физическими законами (угол падения равен
углу отражения). Кто-нибудь помогите решить?? Delphi 7
Очень надо

а что не получается

да вообще всё,как нарисовать шарик и заставить его бегать и чтобы эти углы получались(падения/отражения) ??? Всё это в paint box

Я конечно не люблю елать за других =0))) но попробую, благо есть на работе немного времени ;)

Сам алгоритм можешь посмотреть вот тут (правда, на чистом Паскале, останется перенести вывод в PaintBox): Прыгающий шарик

Большое спасибо ;)

Мммм...что то похожее над пораскинуть мозгами немного

Не знаю, как в 7-ке, а в Delphi 6 вот это работает (только в этом случае шарик замедляется после удара о стенку. Чтобы не замедлялся - поменяй значение K на 1):

volvo ты даже не представляешь как я благодарна!!! Сделаю только етот OnPaint чтобы прорисовывалось всё о всё ПуТёМ!!! БААааафое спасибище из Риги ;)

Опередил :P

Dark а твою версию тоже можно,уму разуму наберусь Кстате как там сделать обработку события OnPaint ? тип Object Inspector\Events\OnPaint два раза чмокнуть и там появится заголовок обработчика...а в нём что написать?

volvo а это только у меня или так и должно быть шарик замедляется..сначала быстро летит а потом всё медленнее и медленнее...

Я же сказал, ЧТО надо сделать, чтобы он не замедлялся...

О,точно!:) А не мог бы ещё помочь с этим OnPaint.. что там надо написать? Простите что так нагло но мне к завтра надо сделать..