DirextX编程

开发平台：

Visual Basic

获取位置旋转弧度.bas：源码内容

							Attribute VB_Name = "获取位置旋转弧度"
Option Explicit
' Download by http://www.codefans.net
Public Const PI = 3.1415928
Public Function GetRot(X As Single, Y As Single) As Single
    If X > 0 And Y > 0 Then GetRot = PI + Atn(X / Y)
    If X > 0 And Y < 0 Then GetRot = 2 * PI + Atn(X / Y)
    If X < 0 And Y > 0 Then GetRot = PI + Atn(X / Y)
    If X < 0 And Y < 0 Then GetRot = 2 * PI + Atn(X / Y)
    If X = 0 Then GetRot = CSng(IIf(Y <= 0, 0, PI)) 'PI / 2, 3 * PI / 2))
    If Y = 0 Then GetRot = CSng(IIf(X < 0, PI / 2, 3 * PI / 2))
End Function

						