Справочник Жаркова по проектированию и программированию искусственного интеллекта. Том 11: Программирование на Visual Basic искусственного интеллекта. Издание 2. Валерий Алексеевич Жарков

Чтение книги онлайн.

СКАЧАТЬ Intersect и IntersectsWith (рис. 5.2) для обнаружения пересечения двух прямоугольников.

      

      Рис. 5.2. Подсказка с методами Intersect и IntersectsWith.

      Определение для наиболее применяемого метода IntersectsWith (который далее и мы будем часто применять) с параметром (Rectangle rect) структуры Rectangle на главных (в мире программирования) языках приведено в табл. 5.2.

      Таблица 5.2.

      Определение метода Rectangle.IntersectsWith структуры Rectangle.

      Visual Basic (Declaration)

      Public Function IntersectsWith ( _

      rect As Rectangle _

      ) As Boolean

      Visual Basic (Usage)

      Dim instance As Rectangle

      Dim rect As Rectangle

      Dim returnValue As Boolean

      returnValue = instance.IntersectsWith(rect)

      C#

      public bool IntersectsWith (

      Rectangle rect

      )

      C++

      public:

      bool IntersectsWith (

      Rectangle rect

      )

      J#

      public boolean IntersectsWith (

      Rectangle rect

      )

      JScript

      public function IntersectsWith (

      rect : Rectangle

      ) : Boolean

      Этот метод IntersectsWith обнаруживает пересечение заданного нами первого прямоугольника со вторым прямоугольником, объявленного здесь как параметр rect.

      Если метод определит, что ни одна точка одного прямоугольника не находится внутри другого прямоугольника, то метод возвращает логическое значение False.

      А если метод определит, что хотя бы одна точка одного прямоугольника находится внутри другого прямоугольника, то метод IntersectsWith возвращает логическое значение True, и это значение применяется для изменения направления движения какого-либо прямоугольника на противоположное (чтобы уйти от дальнейшего пересечения), например, в таком коде:

      'Проверяем столкновение объектов:

      If (cheeseRectangle.IntersectsWith(breadRectangle)) Then

      'Изменяем направление движения на противоположное:

      goingDown = Not goingDown

      'В момент столкновения подаем звуковой сигнал Beep:

      Beep()

      End If

      5.3. Код и выполнение программы

      Теперь в проекте, который мы начали разрабатывать в предыдущей главе (и продолжаем в данной главе) объявляем два прямоугольника, а приведённый выше код в теле метода Form1_Paint заменяем на тот, который дан на следующем листинге (с подробными комментариями).

      Листинг 5.1. Метод для рисования изображения.

      Текст программы опубликован в предыдущем Издании данной книги.

      А вместо приведённого выше метода updatePositions для изменения координат записываем следующий метод, дополненный кодом для обнаружения столкновения объектов.

      Листинг 5.2. Метод для изменения координат и обнаружения столкновения объектов.

      Текст программы опубликован в предыдущем Издании данной книги.

      В режиме выполнения (Build, Build Selection; Debug, Start Without Debugging) при помощи кнопок и мыши мы можем перемещать хлеб и этим хлебом, как ракеткой, отбивать СКАЧАТЬ