Ошибка 5

[CORBA]

Написал такой код. Суть в следующем нарисовать с центра пикчербокса, например 30 линий разной длины, но не больше 1500.
Но почему то приложение рушится на строке вычесляющей длину линии. И выдаёт Runtime Error 5. В чём тут трабла? Заранее благодарен за ответ.

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

Private Sub Command1_Click()
Static i As Integer
Dim xc As Integer
Dim yc As Integer
Dim dx As Double
Randomize
xc = Picture1.Width \ 2
yc = Picture1.Height \ 2
i = 0
Do While i < 30
  x = CInt(Rnd * Picture1.Width)
  y = CInt(Rnd * Picture1.Height)
  dx = ((xc - x) ^ 2 - (yc - y) ^ 2) ^ 0.5 'Вот на этом месте рушится
   If CInt(dx) < 1500 Then
    Picture1.Line (xc, yc)-(x, y)
     i = i + 1
   End If
Loop
End Sub

[darksun]

Я бы попробовал в dx не формулу загонять, а число, если не рушится, то формулу упрощать по-всякому, пока не найдешь место, из-за которого рушится. ИМХО, выводы делать будет гораздо легче.

[d3drm]

если (yc - y) ^ 2) отрицательное, то как извлечь корень?

[tyomitch]

d3drm, как у тебя квадрат отрицательным получится?


Дело, конечно, в формуле: вместо минуса посередине должен стоять плюс.

[CORBA]

точно, что не ноесть лопухнулся, спасибо за ответ.