碟形弹簧设计系统说明书.docVIP

CAD课程设计说明书 设计题目：蝶形弹簧设计系统学院：机械工程学院 班级：机122 学号：11 姓名：周波指导老师：张小萍目录 一、课题名称和要求----------------------------------------------------------------------------2 二、系统结构框图-------------------------------------------------------------------------------2 三、计算部分程序流程图----------------------------------------------------------------------3 四、程序设计关键技术的阐述----------------------------------------------------------------4 五、设计举例-------------------------------------------------------------------------------------5 六、课程设计的体会和建议-------------------------------------------------------------------8 七、参考文献-------------------------------------------------------------------------------------81 课题名称和要求 设计题目：碟形弹簧设计系统 设计目的：通过“碟形弹簧设计系统”的开发，进一步掌握和理解一般CAD系统的开发方法和流程。进一步熟悉工程数据的处理方法、自动绘图的实现方法以及软件的接口方法。 设计要求：完成“碟形弹簧设计系统”的开发，根据该设计系统能进行简单的碟形弹簧自动设计。 4、设计内容：完成“碟形弹簧设计系统”设计计算部分的程序设计。 二、 系统设计框图 2 三、计算部分程序流程图3 四、程序设计关键技术的阐述 VB程序部分 （1）、通过输入的导杆最大直径do1，根据所选择的碟簧系列，对数据库进行查询，以碟簧内径d为关键，检索其他有关参数。 方法： Text4.Text = do1 即输入的导杆最大直径Dim db1 As Database Dim rs1 As Recordseta1 = Val(Text4.Text) 付值a1为导杆最大直径Set db1 = OpenDatabase(App.Path + \db.mdb)Set rs1 = db1.OpenRecordset(A)rs1.Index = K1rs1.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 ThenEnd If(3)、碟簧的组合形式分为单片碟、叠合形式、对合形式和复合形式，由Combo1选择所需要的形式，再根据选择的形式不同，分别采用不同的计算方法。 如对合形式： If Combo1.Text = 对合组合 Then Text22.Text = 1 给n付初值 Fz = F Km1 = Fo / Fc4 If Option1.Value = True Then碟簧为系列Am = Km1 - 0.02ElseEnd IfIf Option2.Value = True Then碟簧为系列BIf 0 = Km1 = 0.5 Thenm = Km1 - 0.1Else End IfIf 0.5 = Km1 = 0.82 Thenm = (Km1 - 0.14) / 0.9ElseEnd IfIf 0.82 = Km1 = 1 Thenm = (Km1 - 0.28) / 0.72End IfElseEnd IfIf Option3.Value = True Then碟簧为系列Cm = (2.27 - Sqr(5.0729 - 5