Перевод программы из vb 6.0 в visual basic 2010

 
0
 
.NET
ava
denis121 | 26.11.2016, 19:36
Помогите пожалуйста перевезти программу и описать каждую строчку что означает СРОЧНО НАДО

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

Kommentare (0)

Kommentare werden nicht hinzugefügt

Registrieren Sie sich oder melden Sie sich an, um schreiben zu können.
Unternehmen des Tages
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Mitwirkende
advanced
Absenden