Pi
As Single = 3.14
Dim VO, A, S, L
As Double Private Sub CmdCalc_Click () r Введення початкових значень VO = Val (txtVO.Text) A = Val (txtA.Text) S = Val (txtS.Text) L = Val (txtL.Text) 'Попадання в майданчик = VO Л 2 * Sin (2 * A * Pi/180)/G.Text = X
Select Case XIs
txtM.Text = "Недоліт"
Case Is> S + L
txtM.Text = "Переліт"
Case Else
txtM.Text = "Попадання" End Select End Sub
Для візуалізації формальної моделі побудуємо траєкторію руху тіла (графік залежності висоти м'ячика над поверхнею землі від дальності польоту). Забезпечимо графік осями координат і виведемо положення майданчика. p align="justify"> 4) Помістити на форму графічне поле, в якому буде здійснюватися побудова графіка, і доповнити програмний код подієвої процедурою:
Побудова графіка
For Т = 0 То 10 Step 0.1
Y = V0 * Sin (А * Pi/180) * Т - G/2
X = V0 * Cos (А * Pi/180) * T picl. Scale (0, 15) - (S + 5, -5) picl . PSet (X, Y) Next T f Вісь X . Line (0, 0) - (50, 0) For I = 0 To 50 Step 5 . PSet (I, 0) picl. Print I Next I
'Вісь Y
picl. Line (0, -5) - (0, 15) For I = -5 To 20 Step 5 picl
