用于校核汽车轴承过瘾配合压入力的小程序

共计 1442 个字符，预计需要花费 4 分钟才能阅读完成。

总所周知，轮毂轴承，早期的形式决定，需要通过压入的方式，与转向节配合，所以压入力的确定是一个比较困难的事情，现在的方法根据前人的经验和实验数据，进行预估。机械设计手册规定和介绍一种过盈配合压入力计算的方法，可以借鉴。由于工作需要，所以编制了这么一个小程序，用于计算过盈配合时压入力的预估。

界面比较简单和简陋，希望不会引起大家反感。

源码也是比较简单，因为设计功能不多，也没有容错等，只是在默认大家都会输入正常值的情况下进行计算。
如果发生错误，程序会直接跳出。
但是也算是满足一般需要了，正常人不会去实验他的，O(∩_∩)O哈哈~
不过，如果大伙有更加健壮的代码，欢迎和我交流啦。

[php]
‘各个功能菜单键定义
Private Sub menuabout_Click()
frmAbout.Visible = True
End Sub

Private Sub menuexit_Click()
Dim frm As Form
For Each frm In Forms
Unload frm
Next frm
End Sub
Private Sub exit_Click()
Dim frm As Form
For Each frm In Forms
Unload frm
Next frm
End Sub

Private Sub menuspec_Click()
Spec_disp.Visible = True
End Sub
‘功能区:定义各个参数
Private Sub compute_Click()
Dim P As Single, df As Single, Lf As Single, μ As Single, pfmax As Single
Dim δ As Single, Ea As Single, Ei As Single, Ca As Single, Ci As Single
Dim da As Single, di As Single, v As Single
‘判断所有输入的值为数字
Dim Textbox As Object
For Each Textbox In Me
If Not (IsNumeric(Val(Textbox))) Then
MsgBox "请检查。", vbOKOnly, "输入错误"
End If
Next
‘判断包容件直径和被包容件是否匹配
If ori_base.Text <> iao_base.Text Then
MsgBox "包容件内径[" & ori_base.Text & "]和被包容件外径[" & iao_base.Text & "]不相等，请检查。", vbOKOnly, "输入错误"
Else
df = ori_base.Text
μ = Text_μ.Text
v = Text_γ.Text
Ea = Text_Ea.Text
Ei = Text_Ei.Text
Lf = Text_Lf.Text
da = oro_base.Text
di = iai_base.Text
‘计算Ca及Ci值
Ca = (da ^ 2 + df ^ 2) / (da ^ 2 – df ^ 2) + v
Ci = (df ^ 2 + di ^ 2) / (df ^ 2 – di ^ 2) – v
Text_Ca = Format(Ca, "0.######")
Text_Ci = Format(Ci, "0.######")
‘计算δ的值
δ = iao_ut – ori_lt
Text_δ.Text = Format(δ, "0.######")
‘计算P值
pfmax = δ / (df * (Ca / Ea + Ci / Ei))
P = pfmax * 3.1415926235 * df * Lf * μ
Text_P.Text = Format(P, "0.######")
Text_Pfmax.Text = Format(pfmax, "0.######")
End If
End Sub

[/php]