Движение курсором.

[Don Leno]

Я реализовал небольшой проект, в котором осуществляется движение "кораблика" за курсором. Все расчеты делались вручную и код работает вполне нормально. Возможно ли как то оптимизировать код или кто нить знает другой способ подобной реализации?

[Mikle]

Тут надо всё по-другому делать, начиная с Option Explicit.

кто нить знает другой способ подобной реализации?

Немного другое, с заданием движения клавиаторой, а направления мышкой:
http://www.gamedev.ru/community/bycircl ... ?id=142139

[Don Leno]

Неподходит, мне нужно управление именно мышью!

[The trick]

Посмотри для определения направления угол необязательно вычислять.

[Don Leno]

Трик, спс, за такой интересный исходник! Как я понял ты пользуешься косинусом и синусом, чтобы задать направление "вектора". Но суть в том что "кораблик" поворачивается за курсором мыши одновременно, и градус я вычисляю чтобы повернуть "кораблик". Но дело в том что я немного неправильно написал функцию CursorMove, если у тебя есть возможность, то посмотри ее. Потому что мне кажется что там можно все написать гораздо проще. Но я не знаю как(((
Сама функция работает но в ней есть неточность.
Как я понимаю мне просто нужно реализовать на какой шаг должен сдвинуться по X и Y, если он находится под определенным градусом. Заметь - градус уже известен! Но так чтобы скорость можно было регулировать))

[Don Leno]

А кстати ты не мог бы геометрически зарисовать, как определяется вектор и его направление в мат. формулах?

[The trick]

Почитай ту тему целиком там все разжевано, нужно знать скалярное произведение и нормировку. Убери условие и "корабль" будет поворачивать с учётом инерции.

[Don Leno]

ок, спс за совет, просмотрю)))

[Don Leno]

Трик, посмотрел код. Вопрос как мне узнать угол поворота от 0 до 360 градусов? Вернее как значение угла в переменной Ang перевести в градусы? Мне необходимо это для поворота изображения.

[Mikle]

Лучше всего - раз и навсегда забыть про градусы, это искусственная величина. Актуальны радианы или обороты.
А привычка к градусам так же вредна, как привычка американцев к футам и милям.

[Don Leno]

И как же мне повернуть изображение если моя АПИ воспринимает только градусы?

[The trick]

И как же мне повернуть изображение если моя АПИ воспринимает только градусы?

Используй PlgBlt для поворота, или трансформацию мира.

[Don Leno]

нашел исходник по PlgBlt, но проблема в том что она вращает изображение не относительно его центра((
Поэтому я взял другой метод.

[The trick]

Еще можно через GDI+ с помощью мировых трансформаций (аналогично как и в GDI).

[Don Leno]

Трик, впервые вижу такую функцию!))) Я даж не знал что в gdi+ такие возможности))

Кстати по проекту движения. В переменной Ang храниться угол в радианах?
Не понимаю как регулировать скорость движения?

[The trick]

Это не GDI+, я имел в виду что еще можно сделать с помощью GDI+.

Не понимаю как регулировать скорость движения?

IncDist

Кстати по проекту движения. В переменной Ang храниться угол в радианах?

Ang - косинус угла (исходя из скалярного произведения векторов)
Для задания матрицы тебе еще нужен будет синус, используй тождество sin(a)^2 + cos(a)^2 = 1

[Don Leno]

Да, точно не GDI+, просто не смотрел код, там по вызову апи сразу видно. Еще один вопрос. У меня есть проект, движение "кораблика" к определенной точке при клике. Но вычисления я производил через проценты. Может кто нить подскажет или подредактирует мой, чтобы он был более точен. А то получается что он чуть-чуть не долетает, либо улетает чуть дальше намеченой точки =)) А хочется чтоб остановился прям в точку!))) Ниже прожект...

[Mikle]

Мерцает жутко твоя программа, скорость движения разная, зависит от расстояния.
Вот пример с постоянной скоростью и точным прибытием, тоже немного мерцает, потому что рендерить надо не так, но принцип расчёта координат по таймеру показывает.

[Don Leno]

))) Mikle, как все просто!!! Спасибо майкл за прожект. За мерцание - ссори, просто тестировал на это внимания не обращал.

[Хакер]

Феерическая дрянь. Особенно вот это:

Код: Выделить всё

'Delay
For s = 0 To 100
ship.Left = ship.Left
ship.Top = ship.Top
Next s

Mikle, разве это не неприемлемо, когда кораблик стартует и останавливается скачкообразно? И меняет направление мгновенно?

Мой пример.

[Mikle]

разве это не неприемлемо, когда кораблик стартует и останавливается скачкообразно? И меняет направление мгновенно?

Конечно, я предпочитаю с инерцией, а тут, как обычно, дал то, что просили.

[Mikle]

Феерическая дрянь. Особенно вот это:

Код: Выделить всё

'Delay
For s = 0 To 100
ship.Left = ship.Left
ship.Top = ship.Top
Next s

Да уж, шедевр )) Я только увидел, что нет форматирования и Option Explicit, и не стал смотреть дальше.

Мой пример.

Умеешь ты удлинять. И вроде лишнего нет, но ДЛИННО!

[Хакер]

И вроде лишнего нет, но ДЛИННО!

Это называется правильное красивое программирование.
И вообще, там не хватает правильных абстракций, изоляций и тому подобного. Но куда автору до этого?

[Mikle]

Ну, что ж, вот мой вариант с "физичным" поведением корабля.

Я тут перепутал кое-какие комментарии, перезалил.

[Mikle]

А если в моём предыдущем примере из процедуры Timer1_Timer выкинуть лишнее, то останется это:

Код: Выделить всё

Private Sub Timer1_Timer()
  Dim v1 As Vector

  v1 = vSubt(TPos, ShPos)
  ShSpd = vAdd(ShSpd, vScale(vNorm(vSubt(vScale(v1, Sqr(2 * PwA / vLen(v1))), ShSpd)), PwA))
  ShPos = vAdd(ShPos, ShSpd)

  DrawShip
End Sub


Это без потери функциональности!
Будь это конкретная игра, я бы так и сделал, оставив комментарий, описывающий откуда это взято.

[ger_kar]

Пару раз у меня в этой функции возникала ошибка деления на ноль

Код: Выделить всё

Public Function vNorm(v As Vector) As Vector
  Dim s As Single

  s = 1 / vLen(v)
  vNorm.x = v.x * s
  vNorm.y = v.y * s
End Function

[Mikle]

Верно, если корабль достигает цели, то начинает незаметно для глаза колебаться около неё, постепенно приближаясь. В какой-то момент может произойти попытка нормализации нулевого вектора, это и в старом варианте возможно, но вероятность ниже. По идее, когда цель достигнута в некотором незаметном для глаза приближении, нужно прекращать расчёты.

[Хакер]

Верно, если корабль достигает цели, то начинает незаметно для глаза колебаться около неё, постепенно приближаясь. В какой-то момент может произойти попытка нормализации нулевого вектора, это и в старом варианте возможно, но вероятность ниже. По идее, когда цель достигнута в некотором незаметном для глаза приближении, нужно прекращать расчёты.

И при этом ты удивляешься, почему же я удлинняю код?

Наверное потому, что, в числе прочего, у меня это предусмотрено?

Код: Выделить всё

            If dist <= tolerance_radius And V2Length(V2Scale(.Speed, dt)) <= tolerance_radius Then
                .Speed.X = 0: .Speed.Y = 0
                .MovementPhase = Idling
            Else

[Mikle]

И при этом ты удивляешься, почему же я удлинняю код?

Не поверишь, я это предвидел ещё в первом варианте, но не фиксировал потому, что там я показал именно математику, а с точки зрения математики будет бесконечное приближение к нулю, там нет ограничения точности. Впрочем возможны варианты точного совпадения координат, когда для достижения цели нужно целое число тиков времени. Но, опять же с точки зрения математики, вероятность такого совпадения стремится к равна! нулю.
Это не был пример правильного программирования, это был пример, объясняющий физику процесса.
А у тебя есть явно лишнее, например - четыре фазы полёта. Их достаточно двух - "летим" и "прилетели".

[Хакер]

А у тебя есть явно лишнее, например - четыре фазы полёта. Их достаточно двух - "летим" и "прилетели".

Почему же? С чего бы?

Поле с фазой используется, чтобы впоследствии определить, что вообще делать: разгоняться или тормозить.

У меня отделена логика принятия решения (некий контроллер принимает решение, что делать, анализируя ситуацию) от логики физических расчётов (добавление a·dt к v). И это правильно.