碟形弹簧设计系统说明书
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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