поворот на угол в VB6

[Азамат Казанчев]

пролема такая: написал программу поварачивающую две линии на угол в цикле, цикл повторяется по таймеру, но с каждум поторением начальная и конечные позиции линий смещаются на небольшой угол. почему? Вот код

Private Sub Timer2_Timer()
dLine(1).x = 0: dLine(1).y = 0
dLine(2).x = 0: dLine(2).y = -1.5
dLine(3).x = 0: dLine(3).y = -1.5
'====Перевод координат (из дек. в полярные)

pLine(2).Theta = GetAngle(0, 0, dLine(2).x, dLine(2).y)
pLine(2).R = GetDistance(0, 0, dLine(2).x, dLine(2).y)
pLine(3).Theta = GetAngle(0, 0, dLine(3).x, dLine(3).y)
pLine(3).R = GetDistance(0, 0, dLine(3).x, dLine(3).y)
'====== ПРОЦЕСС ПОВОРОТА ============
' Только нужно не забыть перевести градусы в радианы.


If Text2.Text < 35 Then
Text1.Text = Text1.Text + 1
Text2.Text = Text2.Text + 1
pLine(3).Theta = pLine(3).Theta - Text1.Text * PI / 180
pLine(2).Theta = pLine(2).Theta + Text1.Text * PI / 180
ElseIf (Text2.Text > 34) And (Text2.Text < 95) Then
Text2.Text = Text2.Text + 1
Text1.Text = Text1.Text - 1
pLine(3).Theta = pLine(3).Theta - Text1.Text * PI / 180
pLine(2).Theta = pLine(2).Theta + Text1.Text * PI / 180
Else
Text2.Text = -35

End I

dLine(2).x = Cos(pLine(2).Theta) * pLine(2).R
dLine(2).y = Sin(pLine(2).Theta) * pLine(2).R
dLine(3).x = Cos(pLine(3).Theta) * pLine(3).R
dLine(3).y = Sin(pLine(3).Theta) * pLine(3).R


End Sub

прошу помочь кто может

[OlegVE]

Здравствуйте
1. Каждая переменная имеет свою точность, константа PI тоже. Но не это, по видимому, главное.
2. Экранные координаты заведомо дискретные. Не знаю что такое pLine, но в следующем коде

...
pLine(2).Theta = GetAngle(0, 0, dLine(2).x, dLine(2).y)
...

Вы используете в вычислениях похоже именно такие. Или Вам надо использовать массив или найти способ корректировки подгоняя под экран.
До свидания

[Азамат Казанчев]

здраствуй.
и первое и второе замечания правильны, я о них знаю, поэтому у меня проблемы не с ними. вот что у меня по второму твоему замечанию

Private Sub Form_Load()
Picture1.ScaleMode = vbCentimeters
  Picture1.FillColor = vbRed
    Picture1.FillStyle = 0
dLine(1).x = 0: dLine(1).y = o
dLine(2).x = 0: dLine(2).y = -1.5
dLine(3).x = 0: dLine(3).y = -1.5
End Sub

может еще что подскажешь?

[OlegVE]

VB6 - не мой язык. Больше ничего не могу добавить. Что я заметил, так это

...
dLine(1).x = 0: dLine(1).y = o
...

буква о, а не ноль.
Втрое. Строки в VB6 разделяются двоеточием?
До свидания

[Азамат Казанчев]

за букву спс, но ничего не изменилось, а на счет : -это не строки а массивы, и программа не хочет их менять.
Может я не так написал? у меня есть цикл поворачивающий линию на угол. цикл повторяется по таймеру как только заканчивается, но с каждым повторение линии (их начальные и конечные координаты) смещаются на небольшой угол. как с этим бороться