Реферат: Использование языка программирования Visual Basic для решения математических задач

Остальные таймеры в начальный момент отключены, т.е. для каждого таймера в графе interval установлен 0.

Работа таймера 3 начинается после нажатия кнопки ПУСК:

Private Sub Command1_Click()

Rem старт ПТУРС

Timer3.Interval = 1

End Sub

Полет ракеты описывается следующим блоком:

T = Timer3.Interval

Rem Полет ПТУРС

X1 = V * T * Cos(f - Rnd * 0.1)

Y1 = V * T * Sin(f + Rnd * 0.1)

Label5.Caption = (Label5.Caption + X1)

Label4.Caption = (Label4.Caption + Y1)

Label6.Caption = 12000 - a * k

X0 = Label5.Caption

Y0 = -Label4.Caption

Начальный угол стрельбы задается положением скрола и может меняться в пределах от +25 до -15. Положение скрола, по умолчанию, в свойствах установлено как: max 40; value 10.

А строка:

Label3.Caption = (25 - VScroll1)

определяет, что начальный угол стрельбы Label3.Caption =15.

Таймер 2 начинает работать, если высота полета ПТУРС становится меньше -50, т.е. снаряд врезался в землю:

If Y0 > 50 Then Timer2.Interval = 1,

при этом запускается программа взрыва:

Private Sub Timer2_Timer()

Rem: фейерверк

Rem: a угол разлета

Rem: r радиус разлета, n количество осколков

Rem: коэффициенты 1 и 4 определяют ширину и высоту разлета

X1 = Label5.Caption