[Математика] Движение точки по окружности.

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Радар", 200, 200, -1, -1)
$BK = GUICtrlCreateLabel('',50,100,5,5)
GUICtrlSetBkColor(-1,0xFF0000)
$BK2 = GUICtrlCreateLabel('',100,100,5,5)
GUICtrlSetBkColor(-1,0x00FF00)
;---- Черный экскиз -------
GUICtrlCreateLabel('',100,0,1,200)
GUICtrlSetBkColor(-1,0)
GUICtrlCreateLabel('',0,100,200,1)
GUICtrlSetBkColor(-1,0)
GUISetState(@SW_SHOW)


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$k = 0
$hGui = GUICreate("Радар", 200, 200, -1, -1)
$BK = GUICtrlCreateLabel('', 50, 100, 5, 5)
GUICtrlSetBkColor(-1, 0xFF0000)
$BK2 = GUICtrlCreateLabel('', 100, 100, 5, 5)
GUICtrlSetBkColor(-1, 0x00FF00)
;---- Черный экскиз -------
GUICtrlCreateLabel('', 100, 0, 1, 200)
GUICtrlSetBkColor(-1, 0)
GUICtrlCreateLabel('', 0, 100, 200, 1)
GUICtrlSetBkColor(-1, 0)
GUISetState(@SW_SHOW)

$pi = 2 * ACos(0)
$nRadian = 180 / $pi
$Ypos = 100
$Xpos = 100
$R = 40
$v = 0
AdlibRegister('_Go', 10)
While 1
	If GUIGetMsg()=-3 Then Exit
WEnd

Func _Go()
	$v += 1
	If $v = 360 Then
		$v = 0
		$k += 1
		WinSetTitle($hGui, '', $k)
	EndIf
	GUICtrlSetPos($BK, $R * Cos($v / $nRadian) + $Xpos, $R * Sin($v / $nRadian) + $Ypos)
EndFunc