Использование языка программирования Visual Basic для решения математических задач
Категория реферата: Рефераты по информатике, программированию
Теги реферата: картинки реферат, инновационный менеджмент
Добавил(а) на сайт: Sevost'janov.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
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 определяют ширину и высоту разлета
Рекомендуем скачать другие рефераты по теме: сочинение тарас, оформление реферата.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата