VB.NET 获取从一个点到另一个点的方向

Question

我需要此功能才能继续我的简单滚动射击游戏的进度。

Public Function GetDirection(origin As Point, target As Point) As Single
    'do some trigonometry here
    Return Direction
End Function

通常我会插入这些参数：GetDirection(player_point, MousePosition)

并在此上下文中使用它们：

Dim direction As Single = GetDirection(player_point, MousePosition)
Dim blt_increment_x As Single = Math.Sin(direction)
Dim blt_increment_y As Single = Math.Cos(direction)

现在可以使用这些变量来移动我的子弹实体：

blt_point.X += blt_increment_x
blt_point.Y += blt_increment_y

我只需要这个 GetDirection() 函数的代码。目前我不知道从哪里开始，我一直将它设置为 return 0。我正在使用 VB.NET。谢谢！ :)

对于那些想知道的人，这是我的游戏截图，非常让人想起 diep.io :)

Answer 1

你应该使用Math.Atan2方法。我不是 VB 开发人员，但我认为您可以将以下伪代码转换为 VB:

direction = Math.Atan2(target.Y - origin.Y, target.X - origin.X)

但是查看您的代码并注意到您将在下一行中使用 Math.Sin 和 Math.Cos，整个想法毫无意义。移动方向由 X 和 Y 坐标的差异指定。如果你想有一个恒定的速度，你的代码可能是这样的

dX = target.X - origin.X
dY = target.Y - origin.Y 
len = Math.Sqrt(dX*dX + dY*dY)
blt_increment_x = Speed * dX / len
blt_increment_y = Speed * dY / len

VB.NET 获取从一个点到另一个点的方向

VB.NET Get direction from one point to another

vb.net

math

gdi+

trigonometry