Использование языка программирования Visual Basic для решения математических задач
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: картинки реферат, инновационный менеджмент
| Добавил(а) на сайт: Sevost'janov.
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата
For i = 1 To 50
a = -6.28 * Rnd / 6
rn = r * Rnd
xc = X2 + rn * 9 * Cos(a)
yc = Y2 + rn * 3 * Sin(a)
PSet (xc, yc), &HFFFF80 * Rnd + &HC0C0FF * Rnd
Next
If X0 > 13000 Then Timer1.Interval = 0
If Y0 > 50 Then Timer2.Interval = 1
If Y0 > 100 Then Timer3.Interval = 0
If Label5.Caption > 11500 - (Label1.Caption) Then Timer4.Interval = 1
End Sub
Private Sub Command1_Click()
Rem старт ПТУРС
Timer3.Interval = 1
End Sub
Private Sub Timer2_Timer()
Rem: фейерверк
Rem: a угол разлета
Rem: r радиус разлета, n количество осколков
Rem: коэффициенты 1 и 4 определяют ширину и высоту разлета
X1 = Label5.Caption
Y1 = -Label4.Caption
r = 200
n = 500
Dim x(10), y(10)
Randomize (Label2.Caption)
For i = 1 To 2
a = -6.28 * Rnd / 2
rn = r * Rnd
xc = X1 + 400 + rn * 1.5 * Cos(a)
yc = Y1 + 5600 + rn * 5 * Sin(a)
PSet (xc, yc), &HFFFF80 * Rnd + &HC0C0FF * Rnd
Next
If Label1.Caption > 200 Then Timer2.Interval = 0
End Sub
Private Sub Timer4_Timer()
If Label4.Caption < 200 Then Timer5.Interval = 1
End Sub
Private Sub Timer5_Timer()
X0 = Label5.Caption
Y0 = -Label4.Caption
r = 100
n = 100
Dim x(100), y(100)
Randomize (Label2.Caption)
For i = 1 To 5
a = -6.28 * Rnd / 2
rn = r * Rnd
xc = X0 + 400 + rn * 3 * Cos(a)
Рекомендуем скачать другие рефераты по теме: сочинение тарас, оформление реферата.
Категории:
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата
Главная