REM взрыв

200 REM взрыв

r = 30

n = 500

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

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

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

DIM x(n), y(n)

RANDOMIZE (TIMER)

FOR I = 1 TO n

a = -6.28 * RND / 2

rn = r * RND

xc = x2 + rn * .5 * COS(a)

yc = y2 + rn * 1 * SIN(a)

PSET (xc, yc), 9 + 9 * RND

PRESET (x(i), y(i))

NEXT

END

Приложение 2

VERSION 5.00

Begin VB.Form Form1

BackColor = &H8000000D&

BorderStyle = 1 ‘Fixed Single

Caption  = “Form1”

ClientHeight = 7770

ClientLeft = 45

ClientTop = 435

ClientWidth = 8670

FillColor = &H00C0FFFF&

LinkTopic = “Form1”

MaxButton = 0 ‘False

MinButton = 0 ‘False

ScaleHeight = 7770

ScaleWidth = 8670

StartUpPosition = 3 ‘Windows Default

Begin VB.CommandButton Command1

Caption  = “Пуск”

Height = 495

Left = 720

TabIndex = 2

Top  = 5280

Width = 1215

End

Begin VB.VscrollBar Vscroll1

Height = 1935

Left = 240

Max  = 80

MousePointer = 9 ‘Size W E

TabIndex = 1

TabStop  = 0 ‘False

Top  = 2400

Value = 80

Width = 255

End

Begin VB.HscrollBar Hscroll1

Height = 255

Left = 240

Max  = 15000

Min  = 10

MousePointer = 7 ‘Size N S

TabIndex = 0

Top  = 4800

Value = 100

Width = 8295

End

Begin VB.Label Label9

Caption  = “Ошибка”

Height = 375

Left = 2160

TabIndex = 11

Top  = 5400

Width = 975

End

Begin VB.Line Line1

X1 = 600

X2 = 600

Y1 = 4680

Y2 = 480

End

Begin VB.Label Label8

Caption  = “0”

Height = 375

Left = 3120

TabIndex = 10

Top  = 5400

Width = 1095

End

Begin VB.Label Label7

Caption  = “Дальность”

Height = 375

Left = 2160

TabIndex = 9

Top  = 5880

Width = 975

End

Begin VB.Label Label6

Caption  = “угол(градус)”

Height = 375

Left = 4800

TabIndex = 8

Top  = 5880

Width = 975

End

Begin VB.Label Label5

Caption  = “дист(м)”

Height = 375

Left = 4800

TabIndex = 7

Top  = 5400

Width = 975

End

Begin VB.Label Label4

Caption  = “Label4”

Height = 15

Left = 5040

TabIndex = 6

Top  = 6000

Width = 135

End

Begin VB.Label Label3

BackColor = &H80000018&

Caption  = «0»

Height = 375

Left = 3120

TabIndex = 5

Top  = 5880

Width = 1095

End

Begin VB.Label Label2

BackColor = &H80000018&

Caption  = «0»

Height = 375

Left = 5760

TabIndex = 4

Top  = 5880

Width = 1095

End

Begin VB.Label Label1

BackColor = &H80000018&

Caption  = «0»

Height = 375

Left = 5760

TabIndex = 3

Top  = 5400

Width = 1095

End

Begin VB.Line Line2

X1 = 600

X2 = 8400

Y1 = 4680

Y2 = 4680

End

End

Attribute VB_Name = “Form1”

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Hscroll1_Change()

Cls

Label1 = Hscroll1

X1 = Hscroll1 * 0.507

Line (X1 + 550, 4500)-(X1 + 600, 4650), &HC0FFFF, BF

End Sub

Private Sub Vscroll1_Change()

Label2 =80 – Vscroll1

End Sub

Private Sub Command1_Click()

X0 = 600

Y0 = 4680

X2 = X0

Y2 = Y0

v = 300

g = 9.8

a = Label2

f = a * 3.14 / 180

100 q = 0.00005

t = t + q

Rem k – коэффициент сопротивления воздуха

k = 0.0001

vs = v * Cos(f) – (k – k / (k + v * Cos(f)))

vh = v * Sin(f) – (k – k / (k + v * Sin(f)))

s = vs * t

h = (vh * t – (g * t ^ 2) / 2)

s = v * t * Cos(f)

h = v * t * Sin(f) – (g * t ^ 2) / 2

v = Sqr(vs ^ 2 + vh ^ 2)

Line (X2, Y2)-(X0 + s, Y0 – h), &HFF&

X2 = X0 + s

Y2 = Y0 – h

If h < 0 Then GoTo 200

GoTo 100

200 Label3 = s * 4.32 1

v = X1 2 * 2

Label8 = Hscroll1 – s * 4.32 1

End Sub

Приложение 3

Private Sub Form_Load()

Label1.Caption = 0

Label2.Caption = 0

Label3.Caption = 0

Label4.Caption = 0

Label5.Caption = 0

Label6.Caption = 0

Label13.Caption = 0

Label15.Caption = 0

Label17.Caption = 0

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Label1.Caption + Timer1.Interval

Label2.Caption = Label2.Caption + Timer2.Interval

Label13.Caption = Label13.Caption + Timer3.Interval

Label15.Caption = Label15.Caption + Timer4.Interval

Label17.Caption = Label17.Caption + Timer5.Interval

a = Label1.Caption

T = Timer3.Interval

k = 1.2

V = 30

Label3.Caption = (250 - VScroll1) 10

q = Label3.Caption

f = q * 3.14 / 180

Rem Поверхность

Line (14850, 5640)-(350, 5820), &H80000002, BF

Rem Танк

Line (12000 - a * k, 5620)-(12850 - a * k, 5520), &HFFFF&, BF

Line (11920 - a * k, 5540)-(12000 - a * k, 5530), &HFFFF&, BF

Line (11900 - a * k, 5550)-(12000 - a * k, 5540), &HFFFF&, BF

Line (11920 - a * k, 5560)-(12000 - a * k, 5550), &HFFFF&, BF

Line (11940 - a * k, 5570)-(12000 - a * k, 5560), &HFFFF&, BF

Line (11950 - a * k, 5590)-(12000 - a * k, 5570), &HFFFF&, BF

Line (11970 - a * k, 5600)-(12000 - a * k, 5590), &HFFFF&, BF

Line (12825 - a * k, 5600)-(12900 - a * k, 5580), &H8000000F, BF

Line (12800 - a * k, 5620)-(12900 - a * k, 5600), &H8000000F, BF

Line (12850 - a * k, 5620)-(13950 - a * k, 5520), &H8000000F, BF

Rem башня танка

Line (12200 - a * k, 5440)-(12650 - a * k, 5500), &HFFFF&, BF

Line (11900 - a * k, 5460)-(12200 - a * k, 5460), &HFFFF&

Line (12650 - a * k, 5440)-(12750 - a * k, 5500), &H8000000F, BF

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

Rem ПТУРС

Line (X0 + 300, 5550 + Y0)-(X0 + 400, 5500 + Y0), &H8000000F, BF

Line (X0 + 300, 5550 + Y0)-(X0 + 500, 5600 + Y0), &H8000000F, BF

Line (X0 + 300, 5450 + Y0)-(X0 + 550, 5500 + Y0), &H8000000F, BF

Line (400 + X0, 5500 + Y0)-(420 + X0, 5550 + Y0), &HFF&, BF

Line (400 + X0, 5525 + Y0)-(550 + X0, 5525 + Y0), &HFF&

Rem дым

X2 = 12820 - a * k

Y2 = 5620

r = 30

n = 1

Dim x(10), y(10)

Randomize (Label1.Caption)

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)

yc = Y0 + 5600 + rn * 5 * Sin(a)

PSet (xc, yc), &HFFFF80 * Rnd + &HC0C0FF * Rnd

If Label17.Caption < 150 Then Timer1.Interval = 0

Next

End Sub