📄 form10.frm
字号:
Height = 180
Left = 2280
TabIndex = 20
Top = 600
Width = 255
End
Begin VB.Label Label23
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "锻钢"
Height = 180
Left = 480
TabIndex = 27
Top = 240
Width = 360
End
Begin VB.Label Label28
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "铸钢"
Height = 180
Left = 2640
TabIndex = 26
Top = 240
Width = 360
End
Begin VB.Label Label29
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "球墨铸铁"
Height = 180
Left = 480
TabIndex = 25
Top = 600
Width = 720
End
Begin VB.Label Label30
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "灰铸铁"
Height = 180
Left = 2640
TabIndex = 24
Top = 600
Width = 540
End
End
Begin VB.Frame Frame18
BackColor = &H00FFFFFF&
Caption = "配对齿轮材料："
Height = 975
Left = 120
TabIndex = 8
Top = 1320
Width = 3615
Begin VB.OptionButton Option25
BackColor = &H00FFFFFF&
Caption = "Option25"
Height = 180
Left = 120
TabIndex = 13
Top = 240
Width = 255
End
Begin VB.OptionButton Option26
BackColor = &H00FFFFFF&
Caption = "Option26"
Height = 180
Left = 2280
TabIndex = 12
Top = 240
Width = 255
End
Begin VB.OptionButton Option27
BackColor = &H00FFFFFF&
Caption = "Option27"
Height = 180
Left = 120
TabIndex = 11
Top = 600
Width = 255
End
Begin VB.OptionButton Option28
BackColor = &H00FFFFFF&
Caption = "Option28"
Height = 180
Left = 1320
TabIndex = 10
Top = 600
Width = 255
End
Begin VB.OptionButton Option29
BackColor = &H00FFFFFF&
Caption = "Option29"
Height = 180
Left = 2280
TabIndex = 9
Top = 600
Width = 255
End
Begin VB.Label Label31
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "灰铸铁"
Height = 180
Left = 480
TabIndex = 18
Top = 240
Width = 540
End
Begin VB.Label Label32
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "球墨铸铁"
Height = 180
Left = 2520
TabIndex = 17
Top = 240
Width = 720
End
Begin VB.Label Label33
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "铸钢"
Height = 180
Left = 480
TabIndex = 16
Top = 600
Width = 360
End
Begin VB.Label Label34
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "锻钢"
Height = 180
Left = 1680
TabIndex = 15
Top = 600
Width = 360
End
Begin VB.Label Label35
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "夹布塑料"
Height = 180
Left = 2640
TabIndex = 14
Top = 600
Width = 720
End
End
End
End
Attribute VB_Name = "Form10"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_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
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
ElseIf Option6.Value = True Then
kA = 1.35
ElseIf Option7.Value = True Then
kA = 1.5
ElseIf Option8.Value = True Then
kA = 1.75
End If
End If
If Option3.Value = True Then
If Option5.Value = True Then
kA = 1.5
ElseIf Option6.Value = True Then
kA = 1.6
ElseIf Option7.Value = True Then
kA = 1.75
ElseIf Option8.Value = True Then
kA = 2
End If
End If
If Option4.Value = True Then
If Option5.Value = True Then
kA = 1.75
ElseIf Option6.Value = True Then
kA = 1.85
ElseIf Option7.Value = True Then
kA = 2
ElseIf Option8.Value = True Then
kA = 2.25
End If
End If
'以上为确定Ka。
m = Text3.Text
'b = Text4.Text
z1 = Text5.Text
z2 = Text7.Text
t = Text1.Text
v = Text6.Text
lxj = Text2.Text
ea = Text10.Text
If z1 < 17 Then
Form18.Show
End If
cc = -0.5048 * Log(z1) / Log(10) - 1.144 * Log(m) / Log(10) + 2.852 * Log(30) / Log(10) + 3.32
c = Int(cc)
bb = 0.25 * (c - 5) ^ 0.667
aa = 50 + 56 * (1 - bb)
kv = (aa / (aa + (220 * v) ^ 0.5)) ^ (-bb)
'以上为确定KV
If Option9.Value = True Then
If Option13.Value = True Then
kha = 1
kfa = 1
ElseIf Option14.Value = True Then
kha = 1
kfa = 1
End If
End If
If Option10.Value = True Then
If Option13.Value = True Then
kha = 1
kfa = 1
ElseIf Option14.Value = True Then
kha = 1
kfa = 1
End If
End If
If Option11.Value = True Then
If Option13.Value = True Then
kha = 1.1
kfa = 1.1
ElseIf Option14.Value = True Then
kha = 1
kfa = 1
End If
End If
If Option12.Value = True Then
If Option13.Value = True Then
kha = 1.2
kfa = 1.2
ElseIf Option14.Value = True Then
kha = 1.1
kfa = 1.1
End If
End If
'以上为确定Ka
If Option18.Value = True Then
If Option15.Value = True Then
If Option10.Value = True Then
khb = 1.11 + 0.18 * (b / m / z1) * (b / m / z1) + 0.15 * 0.001 * b
h = 2.25 * m
n = (b / h) * (b / h) / (1 + (b / h) + (b / h) * (b / h))
kfb = (khb) ^ n
ElseIf Option11.Value = True Then
khb = 1.12 + 0.18 * (b / m / z1) * (b / m / z1) + 0.23 * 0.001 * b
h = 2.25 * m
n = (b / h) * (b / h) / (1 + (b / h) + (b / h) * (b / h))
kfb = (khb) ^ n
ElseIf Option12.Value = True Then
khb = 1.15 + 0.18 * (b / m / z1) * (b / m / z1) + 0.31 * 0.001 * b
h = 2.25 * m
n = (b / h) * (b / h) / (1 + (b / h) + (b / h) * (b / h))
kfb = (khb) ^ n
End If
End If
End If
If Option18.Value = True Then
If Option16.Value = True Then
If Option10.Value = True Then
khb = 1.11 + 0.18 * (1 + 0.6 * (b / m / z1) * (b / m / z1)) * (b / m / z1) + 0.15 * 0.001 * b
h = 2.25 * m
n = (b / h) * (b / h) / (1 + (b / h) + (b / h) * (b / h))
kfb = (khb) ^ n
ElseIf Option11.Value = True Then
khb = 1.12 + 0.18 * (1 + 0.6 * (b / m / z1) * (b / m / z1)) * (b / m / z1) + 0.23 * 0.001 * b
h = 2.25 * m
n = (b / h) * (b / h) / (1 + (b / h) + (b / h) * (b / h))
kfb = (khb) ^ n
ElseIf Option12.Value = True Then
khb = 1.15 + 0.18 * (1 + 0.6 * (b / m / z1) * (b / m / z1)) * (b / m / z1) + 0.31 * 0.001 * b
h = 2.25 * m
n = (b / h) * (b / h) / (1 + (b / h) + (b / h) * (b / h))
kfb = (khb) ^ n
End If
End If
End If
If Option18.Value = True Then
If Option17.Value = True Then
If Option10.Value = True Then
khb = 1.11 + 0.18 * (1 + 6.7 * (b / m / z1) * (b / m / z1)) * (b / m / z1) + 0.15 * 0.001 * b
h = 2.25 * m
n = (b / h) * (b / h) / (1 + (b / h) + (b / h) * (b / h))
kfb = (khb) ^ n
ElseIf Option11.Value = True Then
khb = 1.12 + 0.18 * (1 + 6.7 * (b / m / z1) * (b / m / z1)) * (b / m / z1) + 0.23 * 0.001 * b
h = 2.25 * m
n = (b / h) * (b / h) / (1 + (b / h) + (b / h) * (b / h))
kfb = (khb) ^ n
ElseIf Option12.Value = True Then
khb = 1.15 + 0.18 * (1 + 6.7 * (b / m / z1) * (b / m / z1)) * (b / m / z1) + 0.31 * 0.001 * b
h = 2.25 * m
n = (b / h) * (b / h) / (1 + (b / h) + (b / h) * (b / h))
kfb = (khb) ^ n
End If
End If
End If
If Option20.Value = True Then
If Option15.Value = True Then
If Option9.Value = True Then
khb = 1.05 + 0.26 * (b / m / z1) * (b / m / z1) + 0.1 * 0.001 * b
h = 2.25 * m
n = (b / h) * (b / h) / (1 + (b / h) + (b / h) * (b / h))
kfb = (khb) ^ n
ElseIf Option10.Value = True Then
khb = 1.05 + 0.26 * (b / m / z1) * (b / m / z1) + 0.16 * 0.001 * b
h = 2.25 * m
n = (b / h) * (b / h) / (1 + (b / h) + (b / h) * (b / h))
kfb = (khb) ^ n
End If
End If
End If
If Option20.Value = True Then
If Option16.Value = True Then
If Option9.Value = True Then
khb = 1.05 + 0.26 * (1 + 0.6 * (b / m / z1) * (b / m / z1)) * (b / m / z1) + 0.1 * 0.001 * b
h = 2.25 * m
n = (b / h) * (b / h) / (1 + (b / h) + (b / h) * (b / h))
kfb = (khb) ^ n
ElseIf Option10.Value = True Then
khb = 1.05 + 0.26 * (1 + 0.6 * (b / m / z1) * (b / m / z1)) * (b / m / z1) + 0.16 * 0.001 * b
h = 2.25 * m
n = (b / h) * (b / h) / (1 + (b / h) + (b / h) * (b / h))
kfb = (khb) ^ n
End If
End If
End If
If Option20.Value = True Then
If Option17.Value = True Then
If Option9.Value = True Then
khb = 1.05 + 0.26 * (1 + 6.7 * (b / m / z1) * (b / m / z1)) * (b / m / z1) + 0.1 * 0.001 * b
h = 2.25 * m
n = (b / h) * (b / h) / (1 + (b / h) + (b / h) * (b / h))
kfb = (khb) ^ n
ElseIf Option10.Value = True Then
khb = 1.05 + 0.26 * (1 + 6.7 * (b / m / z1) * (b / m / z1)) * (b / m / z1) + 0.16 * 0.001 * b
h = 2.25 * m
n = (b / h) * (b / h) / (1 + (b / h) + (b / h) * (b / h))
kfb = (khb) ^ n
End If
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -