С помощью lineto, moveto нарисован самолет на Delphi летящий с заданым ускорением.
Нужно сделать что-бы он по нажатию на Button скидывал бомбы вниз.
Помогите, плиз.
Сорцы прикреплены в файле.
Прикрепленные файлы
Airplane.zip ( 9.72 килобайт )
Кол-во скачиваний: 229
Вот посидел, поработал. Что-то получилось.
Мож кому-то пригодиться.
Прикрепленные файлы
Airplane_2.zip ( 9.53 килобайт )
Кол-во скачиваний: 266
Занятная задачка...
Если уж рисовать на канве формы, то с помощью одного таймера, к тому же бомба должна лететь по параболе... при этом начальная скорость бомбы равна горизонтальной скорости самолета
Там надо играться с константами масштаба, скорости, ускорения...
Надо, но это пока все, чего удалось достич вчера.
Мож кто-то поможет дописать?
Упс... я забыл прикрепить файл с исходником, только вечером теперь смогу прикрепить
18.05 -это по моим меркам еще день (в смысле светло за окном), у меня вечер начинается где-то в 21.00
Ок. Буду ждать сорц.
вот...
если отключить комаду form1.refresh, то будет видна траектория полета
Прикрепленные файлы
Airplane_1.zip ( 12.44 килобайт )
Кол-во скачиваний: 192
Работает. Огромное спасибо.
Но, если ввести в поле Edit1, Edit2 не целое число, то вылезает ошибка
Можно сделать что-бы можно было сбрасывать несколько бомб?
Подумать надо...
это же надо рисовать с помощью одного таймера, потому что когда разные таймеры начинаешь включать и делаешь form1.refresh, ерунда получается... стирается то, что не должно стираться
Мож еще кто-нить чем-то поможет?
Может не мучиться и оставить вертикальное падение бомб
Это же не "Ил-2" всё-таки...
Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)