Автор Тема: [Математика] Движение точки по окружности.  (Прочитано 2171 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Ganibal95 [?]

  • GreenBytes
  • AutoIt Гуру
  • *****
  • Сообщений: 866
  • Репутация: 236
  • Пол: Мужской
  • GreenBytes
    • GreenBytes
    • Награды
  • Версия AutoIt: 3.3.14.0
Здравствуйте, такая проблема нужно вращать точку по окружности на 360 градусов. Точка вращения красная, Зеленая точка это я типо в центре радара. :)

Код: AutoIt [Выделить]
#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
 


Надеюсь на вашу помощь :)

Русское сообщество AutoIt

[Математика] Движение точки по окружности.
« Отправлен: Июль 25, 2012, 20:11:13 »

Оффлайн AZJIO [?]

  • VIP
  • *
  • Сообщений: 2713
  • Репутация: 1137
    • мой сайт
    • Награды
  • Версия AutoIt: 3.3.8.1
Код: AutoIt [Выделить]
#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

« Последнее редактирование: Июль 25, 2012, 23:20:06 от AZJIO »

Русское сообщество AutoIt

Re: [Математика] Движение точки по окружности.
« Ответ #1 Отправлен: Июль 25, 2012, 20:23:04 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
7 Ответов
7567 Просмотров
Последний ответ Январь 23, 2010, 20:51:27
от oneDmitry
4 Ответов
13136 Просмотров
Последний ответ Декабрь 15, 2009, 19:03:09
от Sspl
6 Ответов
4075 Просмотров
Последний ответ Январь 23, 2014, 07:51:27
от Safron9999
5 Ответов
5820 Просмотров
Последний ответ Январь 15, 2012, 04:51:06
от CreatoR
7 Ответов
6218 Просмотров
Последний ответ Октябрь 24, 2012, 23:48:20
от Vagner_Hate
12 Ответов
4343 Просмотров
Последний ответ Ноябрь 13, 2013, 13:31:47
от ava
6 Ответов
2328 Просмотров
Последний ответ Апрель 14, 2014, 17:27:10
от AZJIO
1 Ответов
830 Просмотров
Последний ответ Март 18, 2015, 17:42:51
от madmasles
2 Ответов
799 Просмотров
Последний ответ Июль 07, 2015, 23:10:43
от Tapok
7 Ответов
377 Просмотров
Последний ответ Февраль 14, 2018, 16:07:09
от InnI