Помогите пожалуйста перевезти программу и описать каждую строчку что означает СРОЧНО НАДО
| Код |
Private Sub Command1_Click()
h = Val(Text1.Text)
g = 9.8
t0 = Sqr(2 * h / g)
t0 = Int(t0 * 10) / 10
Text2.Text = t0
v = g * t0
v = Int(v * 10) / 10
Text3.Text = v
P1.Scale (0, 0)-(250, 600)
P1.Line (15, 15)-(15, 15 + h), vbRed
P1.Circle (30, 15), 10, vbRed
For q = 0 To 100000000
Next
For t = 0 To t0 Step 1
x = 30
y = 15 + g * t ^ 2 / 2
P1.Circle (x, y), 10, vbRed
P1.Print t
For q = 0 To 100000000
Next
P1.Circle (x, y), 10, &H8000000F
a1 = g * (t + 1) ^ 2 / 2
a2 = g * t ^ 2 / 2
a = a1 - a2
List1.AddItem a
Next
P1.Circle (30, 15 + h), 10, vbRed
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
P1.Cls
List1.Clear
End Sub
|
|