Курсовая работа: Расчет составной конструкции системы двух тел

Picture1.CurrentX = xo + 5 * a

Picture1.CurrentY = yo - 2.5 * a

Picture1.Print "q"

Picture1.CurrentX = xo + 8 * a + 8

Picture1.CurrentY = yo - 1 * a

Picture1.Print "q1"

Picture1.CurrentX = xo + 8 * a + 10

Picture1.CurrentY = yo - 1 * a + 25

Picture1.Print "q2"

'Сектор под момент

'Picture1.ForeColor = 0

Picture1.Circle (xo + 1.9 * a, yo + 1 * a), 6, 0, 7 * Atn(1), 3.5 * Atn(1)

Picture1.Line (xo + 2.31 * a, yo + 1.5 * a)-(xo + 1.9 * a + 4.7, yo + 1 * a)

Picture1.Line (xo + 2.31 * a, yo + 1.5 * a)-(xo + 2 * a + 7, yo + 1 * a)

Picture1.DrawWidth = 1

Picture1.DrawStyle = 2

End Sub

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Form_load()

frmDannye.Height = 6195

frmDannye.Width = 9195

End Sub

Option Explicit

Private Sub cmdClose_Click()

Unload Me

End Sub

Private Sub cmdExcel_Click()