Расчетная программа. Добавить комментарии к коду - VB

Формулировка задачи:

Закоментировать программный код как можно подробнее

Option Explicit
Dim polyTest As New Polygon, PredX As Single, PredY As Single
Public di As Long, CentX As Integer, CentY As Integer

Private Sub CenterMass_Click()
polyTest.Triangulation
Raschet.Visible = True
End Sub
Private Sub Raschet_Click()
polyTest.ОтобразитьРассчётЦентраМасс
End Sub
 
Private Sub TextSetting_Click()
TextWork.Show
End Sub
Private Sub Form_Load()
Randomize
With picTest
.Move 0, 0, ScaleWidth, ScaleHeight
.FillStyle = vbSolid
End With
End Sub
Private Sub new_poligon_Click()
picTest.Cls
polyTest.new_poligon
PredX = 0
PredY = 0
Raschet.Visible = False
End Sub
 
Private Sub picTest_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'****************полином*****************
picTest.Line (X, Y - 2)-(X, Y + 2)
picTest.Line (X - 2, Y)-(X + 2, Y)
 
If PredX <> 0 And PredY <> 0 Then
picTest.Line (PredX, PredY)-(X, Y)
End If
 
PredX = X
PredY = Y
 
polyTest.Point X, Y
 
If Button = 2 Then
picTest.Cls
Set polyTest.Device = picTest
With picTest
.FillColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
polyTest.Draw
End With
End If
 
'****************траектория*****************
'If PredX <> 0 And PredY <> 0 Then
'picTest.Line (PredX, PredY)-(X, Y)
'End If
 
'PredX = X
'PredY = Y
'List1.AddItem (X & "_" & Y)
 
'polyTest.Point X, Y
 
'If Button = 2 Then
'Beep
'Set polyTest.Device = picTest
'picTest.
'polyTest.Draw
'End If
'***************
End Sub

Решение задачи: «Расчетная программа. Добавить комментарии к коду»

textual
                            Листинг программы 
                        

                            'Option Explicit
'Dim polyTest As New Polygon, PredX As Single, PredY As Single
'Public di As Long, CentX As Integer, CentY As Integer
 
 
'Private Sub CenterMass_Click()
'polyTest.Triangulation
'Raschet.Visible = True
'End Sub
'Private Sub Raschet_Click()
'polyTest.ОтобразитьРассчётЦентраМасс
'End Sub
 
'Private Sub TextSetting_Click()
'TextWork.Show
'End Sub
'Private Sub Form_Load()
'Randomize
'With picTest
'.Move 0, 0, ScaleWidth, ScaleHeight
'.FillStyle = vbSolid
'End With
'End Sub
'Private Sub new_poligon_Click()
'picTest.Cls
'polyTest.new_poligon
'PredX = 0
'PredY = 0
'Raschet.Visible = False
'End Sub
 
'Private Sub picTest_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'****************полином*****************
'picTest.Line (X, Y - 2)-(X, Y + 2)
'picTest.Line (X - 2, Y)-(X + 2, Y)
 
'If PredX <> 0 And PredY <> 0 Then
'picTest.Line (PredX, PredY)-(X, Y)
'End If
 
'PredX = X
'PredY = Y
 
'polyTest.Point X, Y
 
'If Button = 2 Then
'picTest.Cls
'Set polyTest.Device = picTest
'With picTest
'.FillColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
'polyTest.Draw
'End With
'End If
 
'****************траектория*****************
'If PredX <> 0 And PredY <> 0 Then
'picTest.Line (PredX, PredY)-(X, Y)
'End If
 
'PredX = X
'PredY = Y
'List1.AddItem (X & "_" & Y)
 
'polyTest.Point X, Y
 
'If Button = 2 Then
'Beep
'Set polyTest.Device = picTest
'picTest.
'polyTest.Draw
'End If
'***************
'End Sub
                        