碟形弹簧设计系统说明书

CAD课程设计说明书设计题目：蝶形弹簧设计系统
学院：机械工程学院
班级：机122
学号：1210012051
姓名：周波
指导老师：张小萍
目录
一、课题名称和要求----------------------------------------------------------------------------2
二、系统结构框图-------------------------------------------------------------------------------2
三、计算部分程序流程图----------------------------------------------------------------------3
四、程序设计关键技术的阐述----------------------------------------------------------------4
五、设计举例-------------------------------------------------------------------------------------5
六、课程设计的体会和建议-------------------------------------------------------------------8
七、参考文献-------------------------------------------------------------------------------------8
1
一、课题名称和要求
1、设计题目：碟形弹簧设计系统
2、设计目的：通过“碟形弹簧设计系统”的开发，进一步掌握和理解一般CAD系统的开
发方法和流程。

进一步熟悉工程数据的处理方法、自动绘图的实现方法以及软件的接口方法。

3、设计要求：完成“碟形弹簧设计系统”的开发，根据该设计系统能进行简单的碟形弹簧
自动设计。

4、设计内容：完成“碟形弹簧设计系统”设计计算部分的程序设计。

二、系统设计框图
2
三、计算部分程序流程图
3
四、程序设计关键技术的阐述
VB程序部分
（1）、通过输入的导杆最大直径do1，根据所选择的碟簧系列，对数据库进行查询，以碟簧内径d为关键，检索其他有关参数。

方法：
Text4.Text = do1 即输入的导杆最大直径
Dim db1 As Database
Dim rs1 As Recordset
a1 = V al(Text4.Text) 付值a1为导杆最大直径
Set db1 = OpenDatabase(App.Path + "\db.mdb")
Set rs1 = db1.OpenRecordset("A")
rs1.Index = "K1"
rs1.Seek ">", a1 导杆直径与碟簧内径比较，内径要大于导杆最大直径，然后获取各个参数
d1 = rs1.Fields("外径D")
d2 = rs1.Fields("内径d")
t = rs1.Fields("厚度t")
h = rs1.Fields("压平时变形量h")
Ho = rs1.Fields("自由高度H")
F = rs1.Fields("F")
Fo1 = rs1.Fields("fo")
σom = rs1.Fields("σom")
σ1 = rs1.Fields("σⅡ或σⅢ")
（2）、Microsoft Access 中有系列A、系列B、系列C三张表格，根据Option1、Option2、Option3分别选择这三张表格。

方法：
If Option1.Value = True Then
End If
(3)、碟簧的组合形式分为单片碟、叠合形式、对合形式和复合形式，由Combo1选择所需要的形式，再根据选择的形式不同，分别采用不同的计算方法。

如对合形式：
If Combo1.Text = "对合组合" Then
Text22.Text = "1" '给n付初值
Fz = F
Km1 = Fo / Fc
4
If Option1.Value = True Then 碟簧为系列A
m = Km1 - 0.02
Else
End If
If Option2.Value = True Then 碟簧为系列B If 0 <= Km1 <= 0.5 Then
m = Km1 - 0.1
Else
End If
If 0.5 <= Km1 <= 0.82 Then
m = (Km1 - 0.14) / 0.9
Else
End If
If 0.82 <= Km1 <= 1 Then
m = (Km1 - 0.28) / 0.72
End If
Else
End If
If Option3.Value = True Then 碟簧为系列C m = (2.27 - Sqr(5.0729 - 5 * Km1)) / 2.5
End If
F1 = m * h
i = CLng(Fmax / F1)
foz = i * F1
Hoz = i * Ho
H1 = Hoz - i * F1
End If
五、设计举例
(1)、运行程序
5
（2）、输入已知条件
工作载荷Fo = 5000 N
最大变形量Fmax = 10 mm
导杆最大直径do1 = 20 mm
选择系列A
点“初选”，选择碟簧参数
6
（3）、计算
组合形式：
对合组合
（4）、校核
7
六、课程设计的体会和建议
通过两个星期的《设计系统》的设计，我对VB程序有了一个更加深刻的理解，特别对于读取数据库的VB语言更加明晰，还有VB和AutoCAD程序间的接口技术运用更加熟练。

这次课程设计我主要是负责设计计算部分，采用VB编程。

在编程前，我首先了解了碟形弹簧的系列参数、组合形式，以及对应的计算过程和校核。

在编程过程中，由于参数较多，对应的计算过程也就较麻烦，程序语言比较繁琐。

在编程过程中，我遇到的许多问题，以前不是很熟悉的VB语言也慢慢地熟悉、牢记。

运行程序时，根据输出的数据，会有很多相应的提示窗口弹出，根据提示的信息完成接下去的运行步骤，得到合适的结果。

在编程过程中遇到难题的时候，我会仔细查阅相关资料，和同学们讨论，向有能力的人请教，顺利地完成了这次课程设计。

经过这几天的课程设计，我对VB编程的理解更加准确。

同时，在VB与Lisp的链接中，我也更加的了解了Autolisp语言。

这次课程设计我受益匪浅，我了解了许多以前不知道的专业知识，把以前学过的知识又熟悉了一遍，对知识掌握地更加牢靠了。

七、参考文献
1、崔洪斌，等，计算机辅助设计基础及应用[M],清华大学出版社，2004.7
2、邱宣怀，等，机械设计[M]，高等教育出版社，1997
3、机械设计手册编委会，机械设计手册[M]，机械工业出版社，2007.7
4、秦大同，谢里阳，等，机械设计手册[M]，北京-化学工业出版社，2011.1
8。