📄 cyjmoving.frm
字号:
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
HelpContextID = 2
Index = 5
Left = 5160
TabIndex = 6
Text = "5.2"
Top = 510
Width = 1020
End
Begin VB.TextBox ChgT
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
HelpContextID = 2
Index = 4
Left = 1920
TabIndex = 5
Text = "3.935"
Top = 2460
Width = 1020
End
Begin VB.TextBox ChgT
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
HelpContextID = 2
Index = 3
Left = 1920
TabIndex = 4
Text = "2.82"
Top = 1810
Width = 1020
End
Begin VB.TextBox ChgT
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
HelpContextID = 2
Index = 2
Left = 1920
TabIndex = 3
Text = "3.026"
Top = 1160
Width = 1020
End
Begin VB.TextBox ChgT
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
HelpContextID = 2
Index = 1
Left = 1920
TabIndex = 2
Text = "1.064"
Top = 510
Width = 1020
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "基杆水平投影I(米)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 7
Left = 3240
TabIndex = 15
Top = 2520
Width = 1785
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "支架中 心 高H(米)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 5
Left = 3240
TabIndex = 14
Top = 570
Width = 1785
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "减速箱中心高G(米)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 4
Left = 3240
TabIndex = 13
Top = 1545
Width = 1785
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "后臂长度C(米)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 3
Left = 240
TabIndex = 12
Top = 1875
Width = 1365
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "前臂长度A(米)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 2
Left = 240
TabIndex = 11
Top = 2520
Width = 1365
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "连杆长度P(米)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 9
Left = 240
TabIndex = 10
Top = 1215
Width = 1365
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "曲柄半径R(米)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 10
Left = 240
TabIndex = 9
Top = 570
Width = 1365
End
End
Begin VB.Menu Menu_Moving
Caption = "几何关系"
End
Begin VB.Menu Menu_Exit
Caption = "退 出"
End
End
Attribute VB_Name = "CyjMoving"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Menu_Exit_Click()
Unload Me
End Sub
Private Sub Menu_Moving_Click()
Dim Rcyj As Single, Pcyj As Single, Ccyj As Single, Acyj As Single, Icyj As Single
Dim Hzhjcyj As Single, Hjsxcyj As Single
Dim Set0 As Single, Spr As Single
Dim XO As Single, YO As Single, XO1 As Single, YO1 As Single
Dim XA As Single, YA As Single, XB As Single, YB As Single
Dim XD As Single, YD As Single
Dim BeamAngle As Single
Dim SetCal As Single
Rcyj = Val(ChgT(1).Text)
Pcyj = Val(ChgT(2).Text)
Ccyj = Val(ChgT(3).Text)
Acyj = Val(ChgT(4).Text)
Hzhjcyj = Val(ChgT(5).Text)
Hjsxcyj = Val(ChgT(6).Text)
Icyj = Val(ChgT(7).Text)
SetCal = Val(TextCrankAngle.Text)
Call XYPosition_Cal(SetCal, Rcyj, Pcyj, Ccyj, Acyj, Icyj, Hzhjcyj, Hjsxcyj, Set0, Spr, _
XO, YO, XO1, YO1, XA, YA, XB, YB, XD, YD, BeamAngle)
Call Fig_CyjMoving(Rcyj, Pcyj, Ccyj, Acyj, Icyj, Hzhjcyj, Hjsxcyj, _
XO, YO, XO1, YO1, XA, YA, XB, YB, XD, YD, BeamAngle)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -