Смоделировать движение - VB

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста в решении задачи на VBA. Задача следующая: Смоделировать движение точки, нарисованной на шаре, причем шар катится по плоскости (вид сверху). -Шар на котором нарисована точка представляет собой обычный круг (панель рисование) и точка – это точно такой же круг, только поменьше. -движение шара у меня смоделировать получилось и точка по нему движется, не выходя за его границы -осталось сделать, чтобы эта точка после того, как она дойдет до краев так называемого «шара» должна исчезнуть на некоторое время (так как мы видим движение сверху), это можно сделать с помощью свойства Visible. Но мне не понятно как записать условие «точка дошла до одной из границ круга»? Это условие можно сформулировать, если б при движении шара и точки у меня изменялись их координаты, но у меня положение шара и точки изменяется не с помощью изменения координат их центров, а с помощью изменения свойств left и top. Пока не могу придумать как это сделать. Буду очень благодарна за вашу помощь.

Решение задачи: «Смоделировать движение»

textual
Листинг программы
  1. w = v / R  'w - угловая скорость, R - радиус шара
  2. al = al + w*dt  'al - текущай угол повотора,
  3. While al > 2*pi
  4.     al = al - 2*pi
  5. Wend
  6. While al < 0
  7.     al = al + 2*pi
  8. Wend
  9. xt = x + R * cos(al)  'абсолютная координата точки
  10. If al < pi Then
  11.     ' точка сверху, ее видно
  12. Else
  13.     ' точка снизе, не видно
  14. End If

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы