Программный код «Маятник»

Private Sub Command1_Click()

Dim T As Integer, A, v, S, T2 As Double

T = Val(Text1)

A = Val(Text2)

v = Val(Text3)

T1 = 1 / v

S = A * 4 / T1 * T

Text4 = S

End Sub

Private Sub Command2_Click()

'Слево на право

Y = x + 8

Q1.FillStyle = Solid

Q1.FillColor = vbBlue

Q1.Line (0, 10)-(-Y, x), vbBlue

Q1.Circle (-Y, x), 1, vbBlue

x = x - 1

End Sub

Private Sub Command3_Click()

'Справо направо

Y = x + 8

Q1.FillStyle = Solid

Q1.FillColor = vbRed

Q1.Line (0, 10)-(Y, x), vbRed

Q1.Circle (Y, x), 1, vbRed

x = x + 1

End Sub

Private Sub Command4_Click()

'справо налево

Y = x + 8

Q1.FillStyle = Solid

Q1.FillColor = vbGreen

Q1.Line (0, 10)-(Y, x), vbGreen

Q1.Circle (Y, x), 1, vbGreen

x = x - 1

End Sub

Private Sub Command5_Click()

'Слево налево

Y = x + 8

Q1.FillStyle = Solid

Q1.FillColor = vbMagenta

Q1.Line (0, 10)-(-Y, x), vbMagenta

Q1.Circle (-Y, x), 1, vbMagenta

x = x + 1

End Sub

Private Sub Timer1_Timer()

Q1.Scale (-10, 10)-(10, -10)

Q1.Cls

Select Case p

Case Is = 1

If N < 9 Then

N = N + 1

Command2_Click

Else

m = 0

x = -7

p = p + 1

End If

Case Is = 2

If m < 9 Then

m = m + 1

Command3_Click

Else

b = 0

x = 0

p = p + 1

End If

Case Is = 3

If b < 9 Then

b = b + 1

Command4_Click

Else

v = 0

x = -7

p = p + 1

End If

Case Is = 4

If v < 9 Then

v = v + 1

Command5_Click

Else

N = 0

x = 0

p = 1

End If

End Select

End Sub