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

CAD课程设计说明书 设计题目：蝶形弹簧设计系统 学院：机械工程学院 班级：机122 学号：1210012051 姓名：周波 指导老师：张小萍 目录 一、课题名称和要求----------------------------------------------------------------------------2 二、系统结构框图-------------------------------------------------------------------------------2 三、计算部分程序流程图----------------------------------------------------------------------3 四、程序设计关键技术的阐述----------------------------------------------------------------4 五、设计举例-------------------------------------------------------------------------------------5 六、课程设计的体会和建议-------------------------------------------------------------------8 七、参考文献-------------------------------------------------------------------------------------8 1 课题名称和要求 设计题目：碟形弹簧设计系统 设计目的：通过“碟形弹簧设计系统”的开发，进一步掌握和理解一般CAD系统的开发方法和流程。进一步熟悉工程数据的处理方法、自动绘图的实现方法以及软件的接口方法。 设计要求：完成“碟形弹簧设计系统”的开发，根据该设计系统能进行简单的碟形弹簧自动设计。 4、设计内容：完成“碟形弹簧设计系统”设计计算部分的程序设计。 二、 系统设计框图 2 三、计算部分程序流程图 3 四、程序设计关键技术的阐述 VB程序部分 （1）、通过输入的导杆最大直径do1，根据所选择的碟簧系列，对数据库进行查询，以碟簧内径d为关键，检索其他有关参数。 方法： Text4.Text = do1 即输入的导杆最大直径 Dim db1 As Database Dim rs1 As Recordset a1 = Val(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