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

Unload Me

frmRaschet.Show

End Sub

Private Sub Form_load()

frmRaschet.Height = 5325

frmRaschet.Width = 8340

For i = 0 To 1

msfgSharnir.ColAlignment(i) = 4

msfgZadelka.ColAlignment(i) = 4

Next i

msfgSharnir.TextMatrix(0, 0) = "Сила"

msfgSharnir.TextMatrix(0, 1) = "Значение"

msfgSharnir.TextMatrix(1, 0) = "Rd"

msfgSharnir.TextMatrix(2, 0) = "Rb"

msfgSharnir.TextMatrix(3, 0) = "Xa"

msfgSharnir.TextMatrix(4, 0) = "Ya"

msfgZadelka.TextMatrix(0, 0) = "Сила"

msfgZadelka.TextMatrix(0, 1) = "Значение"

msfgZadelka.TextMatrix(1, 0) = "Rd"

msfgZadelka.TextMatrix(2, 0) = "Rb"

msfgZadelka.TextMatrix(3, 0) = "Xa"

Vyvod

End Sub

Private Sub vscrlUgol_Change()

txtUgol.Text = vscrlUgol.Value

Vyvod

End Sub

Public Sub Vyvod()

'beta = Val(txtUgol.Text)