📄 form11.frm
字号:
Top = 1800
Width = 1080
End
End
Begin VB.Frame Frame16
BackColor = &H00FFFFFF&
Caption = " 确定弹性影响系数Ze： "
Height = 2775
Left = 3240
TabIndex = 26
Top = 6240
Width = 3975
Begin VB.Frame Frame17
BackColor = &H00FFFFFF&
Caption = "齿轮材料："
Height = 975
Left = 120
TabIndex = 38
Top = 240
Width = 3615
Begin VB.OptionButton Option21
BackColor = &H00FFFFFF&
Caption = "Option21"
Height = 180
Left = 120
TabIndex = 42
Top = 240
Width = 255
End
Begin VB.OptionButton Option22
BackColor = &H00FFFFFF&
Caption = "Option22"
Height = 180
Left = 2280
TabIndex = 41
Top = 240
Width = 255
End
Begin VB.OptionButton Option23
BackColor = &H00FFFFFF&
Caption = "Option23"
Height = 180
Left = 120
TabIndex = 40
Top = 600
Width = 255
End
Begin VB.OptionButton Option24
BackColor = &H00FFFFFF&
Caption = "Option24"
Height = 180
Left = 2280
TabIndex = 39
Top = 600
Width = 255
End
Begin VB.Label Label23
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "锻钢"
Height = 180
Left = 480
TabIndex = 46
Top = 240
Width = 360
End
Begin VB.Label Label28
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "铸钢"
Height = 180
Left = 2640
TabIndex = 45
Top = 240
Width = 360
End
Begin VB.Label Label29
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "球墨铸铁"
Height = 180
Left = 480
TabIndex = 44
Top = 600
Width = 720
End
Begin VB.Label Label30
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "灰铸铁"
Height = 180
Left = 2640
TabIndex = 43
Top = 600
Width = 540
End
End
Begin VB.Frame Frame18
BackColor = &H00FFFFFF&
Caption = "配对齿轮材料："
Height = 1335
Left = 120
TabIndex = 27
Top = 1320
Width = 3615
Begin VB.OptionButton Option25
BackColor = &H00FFFFFF&
Caption = "Option25"
Height = 180
Left = 120
TabIndex = 32
Top = 240
Width = 255
End
Begin VB.OptionButton Option26
BackColor = &H00FFFFFF&
Caption = "Option26"
Height = 180
Left = 2280
TabIndex = 31
Top = 240
Width = 255
End
Begin VB.OptionButton Option27
BackColor = &H00FFFFFF&
Caption = "Option27"
Height = 180
Left = 120
TabIndex = 30
Top = 600
Width = 255
End
Begin VB.OptionButton Option28
BackColor = &H00FFFFFF&
Caption = "Option28"
Height = 180
Left = 2280
TabIndex = 29
Top = 600
Width = 255
End
Begin VB.OptionButton Option29
BackColor = &H00FFFFFF&
Caption = "Option29"
Height = 180
Left = 120
TabIndex = 28
Top = 960
Width = 255
End
Begin VB.Label Label31
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "灰铸铁"
Height = 180
Left = 480
TabIndex = 37
Top = 240
Width = 540
End
Begin VB.Label Label32
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "球墨铸铁"
Height = 180
Left = 2520
TabIndex = 36
Top = 240
Width = 720
End
Begin VB.Label Label33
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "铸钢"
Height = 180
Left = 480
TabIndex = 35
Top = 600
Width = 360
End
Begin VB.Label Label34
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "锻钢"
Height = 180
Left = 2520
TabIndex = 34
Top = 600
Width = 360
End
Begin VB.Label Label35
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "夹布塑料"
Height = 180
Left = 480
TabIndex = 33
Top = 960
Width = 720
End
End
End
Begin VB.CommandButton Command3
Caption = "Exit"
Height = 495
Left = 960
TabIndex = 25
Top = 8280
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "计算"
Height = 495
Left = 960
TabIndex = 24
Top = 7440
Width = 1095
End
Begin VB.Frame Frame4
Height = 9135
Index = 0
Left = 3120
TabIndex = 23
Top = 0
Width = 15
End
Begin VB.Frame Frame3
Height = 15
Index = 0
Left = 0
TabIndex = 14
Top = 4680
Width = 3015
End
Begin VB.Frame Frame2
BackColor = &H00FFFFFF&
Caption = " 确定转矩转速参数： "
Height = 1575
Index = 0
Left = 120
TabIndex = 11
Top = 2760
Width = 2895
Begin VB.TextBox Text6
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 375
Left = 1440
TabIndex = 5
Top = 840
Width = 735
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 375
Left = 1440
TabIndex = 4
Top = 360
Width = 735
End
Begin VB.Label Label37
BackColor = &H00FFFFFF&
Caption = "m/s"
Height = 255
Left = 2280
TabIndex = 87
Top = 960
Width = 255
End
Begin VB.Label Label13
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "N/m"
Height = 180
Left = 2280
TabIndex = 84
Top = 480
Width = 270
End
Begin VB.Label Label6
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "小齿轮转速："
Height = 180
Index = 0
Left = 240
TabIndex = 13
Top = 960
Width = 1080
End
Begin VB.Label Label5
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "传递的转矩："
Height = 180
Index = 0
Left = 240
TabIndex = 12
Top = 480
Width = 1080
End
End
Begin VB.Frame Frame1
BackColor = &H00FFFFFF&
Caption = " 确定已知参数： "
Height = 2295
Left = 120
TabIndex = 6
Top = 240
Width = 2895
Begin VB.TextBox Text4
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 375
Left = 1440
TabIndex = 2
Top = 1200
Width = 735
End
Begin VB.TextBox Text3
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 375
Left = 1440
TabIndex = 3
Top = 1680
Width = 735
End
Begin VB.TextBox Text2
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 375
Left = 1440
TabIndex = 1
Top = 720
Width = 735
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H80000018&
Height = 375
Left = 1440
TabIndex = 0
Top = 240
Width = 735
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "模 数："
Height = 180
Left = 240
TabIndex = 10
Top = 1320
Width = 1080
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "锥 距："
Height = 180
Index = 0
Left = 240
TabIndex = 9
Top = 1800
Width = 1080
End
Begin VB.Label Label2
BackColor = &H00FFFFFF&
Caption = "大齿轮齿数："
Height = 255
Index = 0
Left = 240
TabIndex = 8
Top = 840
Width = 1095
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "小齿轮齿数："
Height = 180
Left = 240
TabIndex = 7
Top = 360
Width = 1080
End
End
End
Attribute VB_Name = "Form11"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command2_Click()
Dim z1 As Single
Dim z2 As Single
Dim b As Single
Dim m As Single
Dim lxj As Single
Dim t As Single
Dim v As Single
Dim wq As Single
Dim jq As Single
Dim k As Single
Dim kA As Single
Dim kaa As Single
Dim kha As Single
Dim kfa As Single
Dim kv As Single
Dim kb As Single
Dim aa As Single
Dim c As Integer
Dim bb As Single
Dim cc As Single
Dim ftp As Single
Dim khb As Single
Dim kfb As Single
Dim n As Single
Dim h As Single
Dim yfa As Single
Dim ysa As Single
Dim ze As Single
Dim ea As Single
Dim at As Single
Dim bn As Single
Dim bs As Single
Dim an As Single
Dim khbbe As Single
Dim zj As Single
Dim cr As Single
Dim u As Single
If Option1.Value = True Then
If Option5.Value = True Then
kA = 1
ElseIf Option6.Value = True Then
kA = 1.1
ElseIf Option7.Value = True Then
kA = 1.25
ElseIf Option8.Value = True Then
kA = 1.5
End If
End If
If Option2.Value = True Then
If Option5.Value = True Then
kA = 1.25
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -