Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

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

При этом таймер 3 остановится при дальнейшем опускании снаряда до -100:

If Y0 > 100 Then Timer3.Interval = 0

При достижении ракеты цели по дальности:

If Label5.Caption > 11500 - (Label1.Caption) Then Timer4.Interval = 1

начинает работать таймер 4. В этом случае проверяется высота полета, и если она меньше 200 включается таймер 5:

Private Sub Timer4_Timer()

If Label4.Caption < 200 Then Timer5.Interval = 1

End Sub

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

Private Sub Timer5_Timer()

Рекомендуем скачать другие рефераты по теме: сочинение тарас, оформление реферата.



Предыдущая страница реферата | 2  3  4  5  6  7  8  9  10  11  12 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки