Picture1.Line (xo + 8 * a + a / 3 - 3, yo + 2 * a + 7)-(xo + 8 * a, yo + 2 * a + 1)
Picture1.Circle (xo + 8 * a - a / 3 - 2, yo + 2 * a + 6), 1
Picture1.Circle (xo + 8 * a + a / 3 - 3, yo + 2 * a + 8), 1
Picture1.Line (xo + 8 * a - a / 3 - 4, yo + 2 * a + 7)-(xo + 8 * a + a / 3 - 2, yo + 2 * a + 10)
'D
Picture1.Circle (xo + 8 * a, yo - 3 * a), 1
Picture1.Line (xo + 8 * a, yo - 3 * a)-(xo + 8 * a + 2, yo - 3 * a + 5)
Picture1.Circle (xo + 8 * a + 2, yo - 3 * a + 5), 1
'Сила P1
Picture1.Line (xo + 5 * a, yo - 1 * a)-(xo + 4.5 * a - 1.5 * a * Sin(alfa - 0.7 * Atn(1)), yo - 0.4 * a * Cos(alfa)), &HC0&
Picture1.Line (xo + 4.5 * a - 1.5 * a * Sin(alfa - 0.7 * Atn(1)), yo - 0.4 * a * Cos(alfa))-(xo + 4.5 * a, yo - 0.4 * a), &HC0&
Picture1.Line (xo + 4.5 * a - 1.5 * a * Sin(alfa - 0.7 * Atn(1)), yo - 0.4 * a * Cos(alfa))-(xo + 4.3 * a, yo - 0.8 * a), &HC0&
'Сила P2
Picture1.Line (xo + 3 * a, yo - 1 * a)-(xo + 1 * a + 2 * a * Cos(alfa), yo - 2.5 * a - Sin(alfa)), &HC0&
Picture1.Line (xo + 1 * a + 2 * a * Cos(alfa), yo - 2.5 * a - Sin(alfa))-(xo + 2.16 * a, yo - 1 * a - 10), &HC0&
Picture1.Line (xo + 1 * a + 2 * a * Cos(alfa), yo - 2.5 * a - Sin(alfa))-(xo + 2.5 * a, yo - 1 * a - 12), &HC0&
'Рисуем нагрузку q
Picture1.DrawWidth = 1.2
For s = xo + 3 * a To xo + 5 * a Step 5
Picture1.Line (s, yo - 2 * a)-(s, yo - 1 * a)
Picture1.Line (s, yo - 10)-(s - 0.8, yo - a * 1.5)
Picture1.Line (s, yo - 10)-(s + 0.8, yo - a * 1.5)
Next s
Picture1.Line (xo + 3 * a, yo - 2 * a)-(xo + 5 * a, yo - 2 * a)
'q2-q1
Picture1.Line (xo + 8 * a, yo - 1 * a)-(xo + 8 * a + 5, yo - 1 * a)
Picture1.Line (xo + 8 * a + 5, yo - 1 * a)-(xo + 8 * a + 10, yo + 2 * a)
Picture1.Line (xo + 8 * a + 10, yo + 2 * a)-(xo + 8 * a, yo + 2 * a)
Picture1.Line (xo + 8 * a, yo + 2 * a)-(xo + 8 * a + 10, yo + 2 * a)
Picture1.Line (xo + 8 * a, yo + 2 * a)-(xo + 8 * a + 3, yo + 2 * a - 1)
Picture1.Line (xo + 8 * a, yo + 2 * a)-(xo + 8 * a + 3, yo + 2 * a + 1)
Picture1.Line (xo + 8 * a, yo - 1 * a)-(xo + 8 * a + 3, yo - 1 * a - 1)
Picture1.Line (xo + 8 * a, yo - 1 * a)-(xo + 8 * a + 3, yo - 1 * a + 1)
Picture1.Line (xo + 8 * a, yo - 1 * a)-(xo + 8 * a + 3, yo - 1 * a - 1)
Picture1.Line (xo + 8 * a, yo - 1 * a + 5)-(xo + 8 * a + 6, yo - 1 * a + 5)
Picture1.Line (xo + 8 * a, yo - 1 * a + 5)-(xo + 8 * a + 3, yo - 1 * a + 4)
Picture1.Line (xo + 8 * a, yo - 1 * a + 5)-(xo + 8 * a + 3, yo - 1 * a + 6)
Picture1.Line (xo + 8 * a, yo - 1 * a + 10)-(xo + 8 * a + 7, yo - 1 * a + 10)
Picture1.Line (xo + 8 * a, yo - 1 * a + 10)-(xo + 8 * a + 3, yo - 1 * a + 9)
Picture1.Line (xo + 8 * a, yo - 1 * a + 10)-(xo + 8 * a + 3, yo - 1 * a + 11)
Picture1.Line (xo + 8 * a, yo - 1 * a + 15)-(xo + 8 * a + 8, yo - 1 * a + 15)
Picture1.Line (xo + 8 * a, yo - 1 * a + 15)-(xo + 8 * a + 3, yo - 1 * a + 14)
Picture1.Line (xo + 8 * a, yo - 1 * a + 15)-(xo + 8 * a + 3, yo - 1 * a + 16)
Picture1.Line (xo + 8 * a, yo - 1 * a + 20)-(xo + 8 * a + 9, yo - 1 * a + 20)
Picture1.Line (xo + 8 * a, yo - 1 * a + 20)-(xo + 8 * a + 3, yo - 1 * a + 19)
Picture1.Line (xo + 8 * a, yo - 1 * a + 20)-(xo + 8 * a + 3, yo - 1 * a + 21)
Picture1.Line (xo + 8 * a, yo - 1 * a + 25)-(xo + 8 * a + 10, yo - 1 * a + 25)
Picture1.Line (xo + 8 * a, yo - 1 * a + 25)-(xo + 8 * a + 3, yo - 1 * a + 24)
Picture1.Line (xo + 8 * a, yo - 1 * a + 25)-(xo + 8 * a + 3, yo - 1 * a + 26)
'Подпись точек заделки
Picture1.DrawWidth = 1.1
Picture1.FontSize = 12
Picture1.CurrentX = xo - 6
Picture1.CurrentY = yo + 12
Picture1.Print "A"
Picture1.CurrentX = xo + 8 * a - 10
Picture1.CurrentY = yo - 1 * a + 25
Picture1.Print "B"
Picture1.CurrentX = xo + 25
Picture1.CurrentY = yo - 5
Picture1.Print "C"
Picture1.CurrentX = xo + 7 * a + 15
Picture1.CurrentY = yo - 2 * a - 15
Picture1.Print "D"
Picture1.CurrentX = xo + 3 * a + 10
Picture1.CurrentY = yo - 0.3 * a
Picture1.Print "P1"
Picture1.CurrentX = xo + 1.5 * a
Picture1.CurrentY = yo - 2 * a
Picture1.Print "P2"
Picture1.CurrentY = yo + 1 * a
Picture1.Print "M"
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()
Dim XL As New Excel.Application
XL.Workbooks.Open App.Path & "\MyBook.xls"
XL.Visible = True
Set XL = XL.ActiveWorkbook.Sheets.Application
With XL.ActiveSheet
.Cells(1, 2) = "Исходные данные"
.Cells(2, 1) = "F1="
.Cells(3, 1) = "F2="
.Cells(4, 1) = "M="
.Cells(5, 1) = "alfa1="
.Cells(2, 2) = Val(frmDannye.tbP1.Text)
.Cells(3, 2) = Val(frmDannye.tbP2.Text)
.Cells(4, 2) = Val(frmDannye.tbM.Text)
.Cells(5, 2) = pi * alf1 / 180
.Cells(2, 3) = "kH"
.Cells(3, 3) = "kH"
.Cells(4, 3) = "kH*m"
.Cells(5, 3) = "рад"
.Cells(1, 6) = "Расчет реакций"
.Cells(2, 6) = "Шарнирное закрепление:"
.Cells(3, 6) = "Rd="
.Cells(4, 6) = "Rb="
.Cells(5, 6) = "Xa="
.Cells(6, 6) = "Ya="
.Cells(10, 6) = "Скользящая заделка:"
.Cells(11, 6) = "Rd="
.Cells(12, 6) = "Rb="
.Cells(13, 6) = "Xa="
End With
End Sub
Private Sub Command1_Click()
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)
RaschetSharnir
msfgSharnir.TextMatrix(1, 1) = Str(Round(Rd, 2))
msfgSharnir.TextMatrix(2, 1) = Str(Round(Rb, 2))
msfgSharnir.TextMatrix(3, 1) = Str(Round(Xa, 2))
msfgSharnir.TextMatrix(4, 1) = Str(Round(Ya, 2))
RaschetZadelka
msfgZadelka.TextMatrix(1, 1) = Str(Round(Rd, 2))
msfgZadelka.TextMatrix(2, 1) = Str(Round(Rb, 2))
msfgZadelka.TextMatrix(3, 1) = Str(Round(Xa, 2))
End Sub
Private Sub Form_Load()
End Sub
Private Sub vixod_Click()
Unload Me
End Sub