Недавно добавленные исходники

•  TDictionary Custom Sort  534

•  Fast Watermark Sources  899

•  3D Designer  1 827

•  Sik Screen Capture  1 474

•  Patch Maker  1 482

•  Айболит (remote control)  1 406

•  ListBox Drag & Drop  1 174

•  Доска для игры Реверси  21 785

•  Графические эффекты  1 354

•  Рисование по маске  1 294

•  Перетаскивание изображений  1 096

•  Canvas Drawing  968

•  Рисование Луны  813

•  Поворот изображения  770

•  Рисование стержней  814

•  Paint on Shape  493

•  Генератор кроссвордов  762

•  Головоломка Paletto  667

•  Теорема Монжа об окружностях  855

•  Пазл Numbrix  617

 

 

Архив исходников

   
  Базы данных
  Графика & Мультимедиа
  Сети & Интернет
  Система
  Разное
   

Ссылки и Баннеры ...

 

Delphi Sources

Delphi Sources

 




 

ИСХОДНИК ПРОГРАММЫ

 

. : Pursuit (преследование) : .

 

Delphi - Визуальное моделирование кривой преследования хищника, преследующего добычу

Исходник программы, показывающей пример визуального моделирования кривой преследования хищника, преследующего добычу, когда жертва бежит по прямой линии.

В этом примере кролик убегает от собаки, чтобы добраться до своей норы. Собаку можно перетащить в любую исходную позицию (события OnDragOver, OnDragEnd), а скорость для каждого животного может быть установлена произвольно, по желанию. В примере по умолчанию собака бежит в 3 раза быстрее кролика и вот-вот его поймает.

Примечания

Хотя мы можем использовать спрайты или изображения животных, в этой версии используется элемент управления TShape. Мы поместили эллипсы DogShape, RabbitShape и HoleShape на TPanel, которая определяет наше «игровое поле». Оказывается, что хотя TPanel имеет свойство «Color», оно игнорируется (по крайней мере, в Delphi 7 это так). Чтобы получить зеленое «травянистое» поле был наложен TImage, чтобы сделать зеленый фон.

Скорости, задаваемые пользователем для DogSpeed и RabbitSpeed определяют количество пикселей, на которые нужно перемещаться животным в текущем направлении при каждом прохождении цикла. Цикл завершается, когда выполняется одно из трех условий:

  • Собака ловит кролика.
  • Кролик достигает безопасного места в своей норе.
  • StopFlag имеет значение true. Это происходит, когда при нажатии кнопки Reset, которая очищает поле, перемещает собаку и кролика обратно в их исходные положения, устанавливает StopFlag в значение True.

Просмотры: 392
Дата: 27.06.2021, Автор: Gary Darby
Написать сообщение:
 

 

 

Скачать (324 Кб)   ↓ 6   Регистрация >>

 

© 2004-2022 "DS"

Соглашение пользователя / Реклама / Карта сайта             Created by BrokenByte Software