📄 linkages.frm
字号:
VERSION 5.00
Begin VB.Form linkages
BackColor = &H00FFFFFF&
Caption = "齿轮－五杆机构的运动分析程序"
ClientHeight = 5310
ClientLeft = 4605
ClientTop = 2700
ClientWidth = 9360
Icon = "linkages.frx":0000
LinkTopic = "Form1"
ScaleHeight = 5310
ScaleWidth = 9360
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame3
BackColor = &H00FFFFFF&
Height = 495
Left = 120
TabIndex = 2
Top = 120
Width = 9135
Begin VB.Label Label14
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Caption = "齿轮－五杆机构的运动分析软件"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 35
Top = 120
Width = 8655
End
End
Begin VB.Frame Frame2
BackColor = &H00FFFFFF&
Caption = "信息输入框"
Height = 4455
Left = 4680
TabIndex = 1
Top = 720
Width = 4575
Begin VB.Frame Frame5
BackColor = &H00FFFFFF&
Caption = "必要参数"
Height = 2055
Left = 120
TabIndex = 14
Top = 240
Width = 4335
Begin VB.TextBox Text12
Alignment = 1 'Right Justify
Height = 270
Left = 3600
TabIndex = 24
Text = "30"
Top = 1680
Width = 495
End
Begin VB.TextBox Text11
Alignment = 1 'Right Justify
Height = 270
Left = 3600
TabIndex = 23
Text = "10"
Top = 1320
Width = 495
End
Begin VB.TextBox Text7
Alignment = 1 'Right Justify
Height = 270
Left = 3600
TabIndex = 22
Text = "120"
Top = 600
Width = 495
End
Begin VB.TextBox Text8
Alignment = 1 'Right Justify
Height = 270
Left = 3600
TabIndex = 21
Text = "100"
Top = 960
Width = 495
End
Begin VB.TextBox Text6
Alignment = 1 'Right Justify
Height = 270
Left = 3600
TabIndex = 20
Text = "1"
Top = 240
Width = 495
End
Begin VB.TextBox Text5
Alignment = 1 'Right Justify
Height = 270
Left = 1680
TabIndex = 19
Text = "11"
Top = 1680
Width = 495
End
Begin VB.TextBox Text4
Alignment = 1 'Right Justify
Height = 270
Left = 1680
TabIndex = 18
Text = "5"
Top = 1320
Width = 495
End
Begin VB.TextBox Text3
Alignment = 1 'Right Justify
Height = 270
Left = 1680
TabIndex = 17
Text = "11"
Top = 960
Width = 495
End
Begin VB.TextBox Text2
Alignment = 1 'Right Justify
Height = 270
Left = 1680
TabIndex = 16
Text = "10"
Top = 600
Width = 495
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
Height = 270
Left = 1680
TabIndex = 15
Text = "4"
Top = 240
Width = 495
End
Begin VB.Label Label13
BackColor = &H00FFFFFF&
Caption = "∠FBC的大小："
Height = 255
Left = 2280
TabIndex = 34
Top = 1680
Width = 1215
End
Begin VB.Label Label12
BackColor = &H00FFFFFF&
Caption = "BF的长度："
Height = 255
Left = 2280
TabIndex = 33
Top = 1320
Width = 1095
End
Begin VB.Label Label9
BackColor = &H80000009&
Caption = "初始角φ："
Height = 255
Left = 2280
TabIndex = 32
Top = 960
Width = 1455
End
Begin VB.Label Label8
BackColor = &H80000009&
Caption = "初始角θ："
Height = 255
Left = 2280
TabIndex = 31
Top = 600
Width = 1455
End
Begin VB.Label Label6
BackColor = &H80000009&
Caption = "齿轮的传动比："
Height = 255
Left = 2280
TabIndex = 30
Top = 240
Width = 1335
End
Begin VB.Label Label5
BackColor = &H80000009&
Caption = "机架AE的长度："
Height = 255
Left = 120
TabIndex = 29
Top = 1680
Width = 1575
End
Begin VB.Label Label4
BackColor = &H80000009&
Caption = "连架杆DE的长度："
Height = 255
Left = 120
TabIndex = 28
Top = 1320
Width = 1455
End
Begin VB.Label Label3
BackColor = &H80000009&
Caption = "连杆CD的长度："
Height = 255
Left = 120
TabIndex = 27
Top = 960
Width = 1455
End
Begin VB.Label Label2
BackColor = &H80000009&
Caption = "连杆BC的长度："
Height = 255
Left = 120
TabIndex = 26
Top = 600
Width = 1335
End
Begin VB.Label label1
BackColor = &H80000009&
Caption = "连架杆AB的长度："
Height = 255
Left = 120
TabIndex = 25
Top = 240
Width = 1455
End
End
Begin VB.Frame Frame4
BackColor = &H00FFFFFF&
Caption = "选择参数"
Height = 2055
Left = 120
TabIndex = 3
Top = 2280
Width = 4335
Begin VB.CommandButton Command3
Caption = "数据分析"
Enabled = 0 'False
Height = 375
Left = 3120
TabIndex = 10
Top = 600
Width = 975
End
Begin VB.OptionButton Option2
BackColor = &H00FFFFFF&
Caption = "BCD逆时针"
Height = 255
Left = 1200
TabIndex = 9
Top = 1440
Width = 1335
End
Begin VB.OptionButton Option1
BackColor = &H00FFFFFF&
Caption = "BCD顺时针"
Height = 255
Left = 1200
TabIndex = 8
Top = 1080
Value = -1 'True
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "退出"
Height = 375
Left = 3120
TabIndex = 7
Top = 1560
Width = 975
End
Begin VB.CommandButton Command4
Caption = "图形分析"
Height = 375
Left = 3120
TabIndex = 6
Top = 1080
Width = 975
End
Begin VB.TextBox Text10
Alignment = 1 'Right Justify
Height = 270
Left = 1680
TabIndex = 5
Text = "1"
Top = 240
Visible = 0 'False
Width = 495
End
Begin VB.TextBox Text9
Alignment = 1 'Right Justify
Height = 270
Left = 1680
TabIndex = 4
Text = "1"
Top = 600
Width = 495
End
Begin VB.Label Label10
BackColor = &H00FFFFFF&
Caption = "装配方法："
Height = 255
Left = 120
TabIndex = 13
Top = 1080
Width = 1575
End
Begin VB.Label Label11
BackColor = &H80000009&
Caption = "主动轮的转动圈数： 周"
Height = 255
Left = 120
TabIndex = 12
Top = 240
Visible = 0 'False
Width = 2655
End
Begin VB.Label Label7
BackColor = &H80000009&
Caption = "步进精度： 度"
Height = 255
Left = 120
TabIndex = 11
Top = 600
Width = 2415
End
End
End
Begin VB.Frame Frame1
BackColor = &H00FFFFFF&
Caption = "图例"
Height = 4455
Left = 120
TabIndex = 0
Top = 720
Width = 4455
Begin VB.Image Image1
Height = 4005
Left = 240
Picture = "linkages.frx":0CCA
Top = 240
Width = 4080
End
End
Begin VB.Menu file
Caption = "文件(&F)"
Begin VB.Menu new
Caption = "新建"
Shortcut = ^N
End
Begin VB.Menu fenge2
Caption = "-"
End
Begin VB.Menu exit
Caption = "退出"
Shortcut = ^X
End
End
Begin VB.Menu help
Caption = "帮助(&H)"
Begin VB.Menu about
Caption = "关于"
End
End
End
Attribute VB_Name = "linkages"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Const pi = 3.14159265358979
Public bPat As Byte
Public l1, L2, l3, l4, L5, l6 As Double '定义各个杆的长度
Public RAB As Double '定义为传动比
Public Y1, Y2, Y3, Y4, YBCD, Y6 As Double '定义各个角度
Public W1, W2, W3, W4 As Double '定义各个角速度
Public A1, A2, A3, A4 As Double '定义各个角加速度
Public BJ As Double '步进
Public num As Double '做为循环的次数使用
Public XA, YA, XB, YB, XD, YD, XE, YE As Double
Public VB, Ab, Vbx, Vby, Vcx, Vcy, Vfx, Vfy, Abx, Aby, Acx, Acy, Afx, Afy As Double '定义几个中间运用到的函数
Public XF, YF, XC, YC, VC, AC As Double '最终的结果
Private Sub about_Click()
frmAbout.Show
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -