Works out the distance between two points.
Works out the distance between two points.
Rate Works out the distance between two points.
(1(1 Vote))
Function workOutDistance(x1 As Single, y1 As Single, x2 As Single, y2 As Single) As Single
workOutDistance = Math.Sqr(((Abs(x1 - x2)) * (Abs(x1 - x2))) + ((Abs(y1 - y2)) * (Abs(y1 - y2))))
End Function
Works out the distance between two points. Comments
No comments yet — be the first to post one!
Post a Comment