Для тех кто знает формулы...

[Gemini]

Вопрос по формуле: как можно сделать поворот картинки за мышкой (поросто вращалась?) если учесть что картинка может вращаться на 360 градусов.

Я знаю X и Y Мышки.
И X и Y Изображения.

[tyomitch]

Быстрая вращалка картинок тут: http://mix.web.ur.ru/v7.rar

Угол: ATN((Yмышки - Yкартинки) \ (Xмышки - Xкартинки))

[Gemini]

Спасибо! (Приду домой попробую )

[Ennor]

http://bbs.vbstreets.ru/viewtopic.php?p=37984#37984

[tyomitch]

http://bbs.vbstreets.ru/viewtopic.php?p=37984#37984

Афаикт, там только для WinNT?
А у меня для всех

[Gemini]

tyomitch эта формула (ATN((Yмышки - Yкартинки) \ (Xмышки - Xкартинки))) возвращает какието другие значения (-0,1... и так далее) а мне надо чтобы возвращалось значение от 0 до 360.
Как это можно осуществить???

P.S. Может кто-нибудь встречался с этим вопросом?

[tyomitch]

Держи

Код: Выделить всё

Option Explicit
Private Xk As Single, Yk As Single
Private Const Pi = 3.14159265358979

Private Sub Form_Load()
ScaleMode = vbPixels
FillStyle = vbFSSolid
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim phi As Single
    If X = Xk Then phi = Pi / 2 Else phi = Atn((Yk - Y) / (X - Xk))
    If phi < 0 Then phi = phi + Pi
    If Y > Yk Then phi = phi + Pi
    Caption = Round(180 / Pi * phi, 2) & "°"
End Sub

Private Sub Form_Paint()
Cls
Circle (Xk, Yk), 4
End Sub

Private Sub Form_Resize()
Xk = ScaleWidth / 2: Yk = ScaleHeight / 2
Refresh
End Sub


[Gemini]

Спасибо большое!!!