UserForm построить траекторию полёта

[HpPaviliondv7]

Приветствую всех!
Задание такое: Тело брошено под углом a к горизонту со скоростью v. Построить траекторию полёта.
Алгоритм решения:
1.Находим время полёта тела t = (2 * v * Sin(a)) / g, где g=9.81
2.Разбиваем время допустим на 20 инаходим координаты точки в t1,t2,...t20 и строим траекторию полёта.
координаты можно посчитать по х=v*Cos(a)*t1
y=v*Sin(a)*t1-(g*t1^2)/2
Вобщем начал делать обработка ошибок не работает, и значение t считает отрицательным...вот код программы :
Private Sub CommandButton1_Click()
Dim v As Double, a As Double, t As Double, g As Double
v = TextBox1.Text
If IsNumeric(v) = False Then
Call MsgBox("Vvedite 4islo.", , "Oshibka!")
TextBox1.Text = ""
TextBox1.SetFocus
Exit Sub
End If
v = CDbl(TextBox1.Text)
a = TextBox2.Text
If IsNumeric(a) = False Then
Call MsgBox("Vvedite 4islo.", , "Oshibka!")
TextBox2.Text = ""
TextBox2.SetFocus
Exit Sub
End If
a = CDbl(TextBox2.Text)
g = 9.81
t = (2 * v * Sin(a)) / g
Worksheets(1).Cells(1, 1) = t
End Sub

Или вот сама форма:
http://rghost.net/1524206

Надеюсь на Вашу помощь!

[doober]

ваша ошибка в том.что при вычислении тригонометрических функций используете меру углов в градусах.а надо в радианах

[HpPaviliondv7]

Спасибо, что откликнулись...я уже сам нашол ошибку)

[IgorGO]

решение без UserForm. см. вложение

[HpPaviliondv7]

Сделано великалепно...но мне нужно в юзер форме...помогите пожалуйста!
вот то, что уменя получилось, но не правильно считает координаты и не правильно строит график!
Траектория.rar

[doober]

Так работает

Private Sub CommandButton1_Click()
Dim v As Double, a As Double, t As Double, i As Integer
Dim dStep As Double, dSin As Double, dCos As Double, oCntrl As Control
Const g As Double = 9.81
Const Pi As Double = 3.1415
For Each oCntrl In Frame1.Controls
    If Not IsNumeric(oCntrl.Text) Then
        MsgBox "Input error", vbCritical
        oCntrl.Text = vbNullString
        oCntrl.SetFocus
        Exit Sub
    End If
Next
v = CDbl(TextBox1.Text)
a = CDbl(TextBox2.Text) * Pi / 180
dSin = Sin(a)
dCos = Cos(a)
t = (2 * v * dSin) / g
Label4.Caption = t
dStep = 0
For i = 1 To 20
    Worksheets(1).Cells(i, 1) = v * dCos * dStep
    Worksheets(1).Cells(i, 2) = v * dSin * dStep - (g * (dStep) ^ 2) / 2
    dStep = dStep + t / 20
Next
End Sub

[IgorGO]

или такой еще вариант, с графиком на форме.

[HpPaviliondv7]

Всем спасибо...огроное!

[HpPaviliondv7]

Уважаемые...Я немного переделал все работает вот только осталось оси в графике подписать х и у...и проверку на ошибки для TextBox1 на отрицательные числа...TextBox2 на промежуток значений от 0 до 90...на текст проверку сделал...И для CommandButton4 (очистка) задать, что бы убирал и весь график...все остальное я сделал, что бы убирал...
Помогите пожалуйста вот форма.Траектория_end_version - копия.rar

[HpPaviliondv7]

Вот тоько, что исправил ошибки...все работают...
Осталось подписать оси на графике...подскажите как это сделать...поставить Х и У??Траектория_end_version - копия.rar