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

2,467 人次阅读
3 条评论

共计 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]

正文完
 0
评论(3 条评论)
2013-09-12 01:06:48 回复

能不能下载啊

 Windows  Chrome  中国江苏省苏州市电信
    2013-09-21 01:45:10 回复

    可以下载源码,回复后就可以看到源码!
    如果需要程序,请联系我即可。

     Windows  Firefox  中国重庆重庆市电信