《毕业设计（论文）-《机械设计基础》自测系统的研制.doc》由会员分享，可在线阅读，更多相关《毕业设计（论文）-《机械设计基础》自测系统的研制.doc（29页珍藏版）》请在三一文库上搜索。
1、安徽理工大学毕业设计本科毕业设计说明书机械设计基础自测系统的研制MACHINE DESIGN FOUNDATION SELFTESTING SYETEM学院（部）： 机械工程学院 专业班级： 机设08-10班 学生姓名： 指导教师： 2012 年 5 月 30 日23机械设计基础自测系统的研制摘要成绩考核是传统教育模式中不可或缺的重要一环，在众多方式各异的考核形式中，检验学生学习效果最直接、最传统、最重要的一种方式就是出题考试。但是对于众多考生的考试方式，且适合于选拔性的、水平性的测试，要确实反映学生对知识的掌握情况，必须要有一种“个性化”的测试方式自测系统。以VB为开发平台，建立机械设计基础
2、课程的客观题试题库，题库包括判断题和单项选择题。随机或手动抽题供学生测试，并能判断自测结果的正确与否，统计自测分值，并可根据需要给出答案解析。学生要求正确登陆身份信息（姓名、密码）后方可进入测试，并交卷、评分。教师登陆能够在题目管理页面中实现题目的管理功能，包括题目的添加、删除、修改等，并还可以进行学生的成绩查看。管理员登陆则可以进行学生、老师的信息管理，包括添加、删除、修改等，但管理员的信息则不能添加更改。关键词：教学自测系统，VB，机械设计基础，试题库MACHINE DESIGN FOUNDATION SELFTESTING SYETEMABSTRACT KEYWARDS：teaching
3、 self testing system，VB，mechanical system目录摘要(中文)摘要(外文)1绪论11.1引言21.2“纯水”的定义及分类31.3 纯水液压传动所面临的技术挑战及对策41.3.1 密封与润滑问题61.3.2 耐磨损问题71.3.3 耐腐蚀问题91.3.4 抗气蚀问题91.4 国内外研究应用现状与发展趋势91.4.1 研究应用现状分析91.4.2 将来的发展趋势101.5 三用阀的防腐性能111.5.1 三用阀的工作液采用纯水111.5.2 材料全部采用不锈钢121.6 本文研究的内容122设计纯水液压阀时需要注意的问题132.1 纯水液压阀的研究现状132.2
4、 纯水液压阀面临的关键问题142.2.1 气蚀与气蚀磨损142.2.2 拉丝侵蚀和冲蚀152.2.3 泄露与效率162.2.4 压力冲击，震动与噪音162.2.5 纯水液压元件气穴及其噪音问题172.2.5 解决阀设计中存在的问题可从几个方面考虑182.2.6 纯水液压元件减小气蚀破坏的方法193单体液压支柱结构分析213.1 概述213.2 液压支柱的适用范围及种类213.3 单体液压支柱的规格213.3.1 外注式单体液压支柱213.3.2 内注式单体液压支柱223.4 单体液压支柱的结构及技术参数223.4.1 DW06-22-300/100，DW25-250/100型外注式单体液压支柱
5、223.4.2 DW28-250/100型外注式单体液压支柱223.4.3 内注式单体液压支柱234纯水单体液压支柱三用阀的整体设计244.1 工作原理244.2 具体的一些结构的设计比较254.2.1 三用阀密封装置的分析及其设计方案254.2.2 单体支柱工作特性的影响因素及其设计方案284.2.3 三用阀左右阀筒材料的选择304.3 三用阀材料的选择304.3.1 左右阀筒及一些关键零件的材料304.3.2 弹簧的材料314.3.3 密封件的材料324.4 三用阀尺寸设计334.4.1 三用阀的一般设计要求334.4.2 结构尺寸的设计334.5 三用阀的静态特性分析344.5.1 力平
6、衡方程344.5.2 流量连续性方程354.5.3 静态特性分析364.6 三用阀的动态特性分析364.6.1数学模型364.6.2 仿真模型375零件设计405.1 左右阀筒（DZF-01 DZF-18）405.2 注油阀体（DZF02）415.3 压紧阀套（DZF05）425.4 卸载阀垫（DZF07）435.5 连接螺杆 （DZF-09）445.6 阀套 （DZF-10）455.7 阀座 （DZF-11）465.8 弹簧的设计475.8.1 弹簧的设计要求475.8.2 弹簧的设计与计算475.9 安全阀垫（DZF-13）525.10 单向阀座（DZF-04）535.11 阀中使用的钢球
7、53总结54参考文献56致谢571绪论1.1 引言成绩考核是传统教育模式中不可或缺的重要一环，在众多方式各异的考核形式中，检验学生学习效果最直接、最传统、最重要的一种方式就是出题考试。而对于自学者而言，进行合适的自测考试更是检验自学效果的最直接、最有效的一种方式。 以往，每次考试和测试题目都是由任课教师来完成，或者书本上仅有的一些题目。由于有太多的人为因素存在，会造成试卷的水平和风格的不同，自然也不能准确反映考生的学习情况。自测系统这种新型考试方式的出现，则一定程度上可以解决这个问题，而且显然考试网络化是教育网络化的必然结果。但是，单单把原来人工完成的工作计算机化是远远不够的，因为毕竟一份试卷
8、的容量非常有限，不可能覆盖太多的知识点，而学生对众多知识点的掌握千差万别，如果测试题内容正好是学生没有掌握的部份，则相对而言成绩就会显得比较差了。所以这种面对众多考生的考试方式，只适合于选拔性的、水平性的测试，要确实反映学生对知识的掌握情况，必须要有一种“个性化”的测试方式。目前网络上除了计算机专业有自己的自测题目和系统以外，其他专业很少有自己的自测题目和系统。其他专业学生要想测试自己的学习水平，只能在参考书本上有限的题目。由于题量少，而且不全，不能测试出自己的真实水平。专业课测试系统极少的情况下，各专业教学机构并没有对这种情况引起重视。其原因可能是工作量大，而且现在的学习专业分的太细太多，专
9、门为一门课程开发一个学生自测系统，其面对的使用者并不太多而且缺少专门的题库维护人员。这种现象可能会一直持续很久，这是高校专业课程建设和课程改革亟待解决的课题，为此，本课题为非机类和近机类专业的学生研究开发了机械设计基础自测系统，同学们可以边学边自测，使我们更好地掌握专业理论知识。本系统是以VB为开发平台，建立机械设计基础课程的客观题试题库，题库要求包括判断题和单项选择题。随机抽题供学生测验，并能判断自测结果的正确与否，统计自测分值，并可根据需要给出正解。学生要求正确登陆身份信息（姓名、密码）后方可进入测试，并交卷、评分。教师登陆能够在题目管理页面中实现题目的管理功能，包括题目的添加、删除、修改
10、等，并还可以进行学生的成绩查看。管理员登陆则可以进行学生、老师的信息管理，包括添加、删除、修改等，但管理员的信息则不能添加更改。1.2开发工具1.2.1 Visual Basic 6.0简介Visual Basic 是Microsoft公司推出的一种Windows应用程序的开发工具。由于它具有使用方便，简单易学、功能丰富等特点，迅速成为最流行的Windows应用程序的开发工具之一，数据访问特性允许对包括Microsoft SQL Server和其他企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。 作为数据库系统的开发，Visual Basic是一个非常理想的
11、选择，该开发工具具有很多长处：Visual Basic是一种可视化的、面向对象和调用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的各种应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的
12、应用软件系统。1.2.2 试题库简介试题库(Item Bank)是按照一定的教育测量理论，在计算机系统中实现的某个学科题目的集合，具备查询功能、智能组卷、分析反馈等功能。 在VB为开发平台，建立机械设计基础课程的客观题试题库，Access题库要求包括判断题和单项选择题。2数据库的编辑2.1数据库的基本表 图2-12.1.1 数据库的建立2.2 题目数据库2.2.1判断题逻辑设计字段名称数据类型字段大小QuestionID数字Question文本Answer是/否Score文本TeatherID文本建立表的所需字段，在表格中输入题目信息。2.2.2单选题逻辑设计字段名称数据类型字段大小Quest
13、ionID数字长整型Question文本Choice1文本Choice2文本Choice3文本Choice4文本Answer文本Score数字TeacherID数字建立表的所需字段，在表格中输入题目信息。2.3 信息数据库2.3.1信息表逻辑设计表名称字段名称数据类型字段大小AdminAdministratorIDAdministratorName文本AdministratorPassword文本StudentStudentIDStudentNameStudentPasswordScoreTeathersTeatherIDTeatherNameTeatherPassword建立表的所需字段，在
14、表格中输入相应信息。3系统设计及其主要窗体3.1系统的功能描述经调试与分析，本自测考试管理系统主要应具有以下功能：1. 基本信息管理：包括对系统管理员登录信息、学生信息、教师信息的登录，管理员有并对学生、老师信息添加、修改、删除等功能。2. 考试试题管理：包括对对判断题、选择题题库的管理，可对试题的进行添加、修改、删除的操作，还有对特殊试题的查询功能。3. 考试管理：学生可进行抽题：分手动抽题和自动抽题。学生可以对试卷进行预览，并对其修改（进入测试则无法操作）。进入测试、交卷。4. 成绩管理：学生可自行查询成绩，并可进行答案对比。考生的成绩可自行记录的表格中，供老师查阅。3.2系统功能模块设计
15、对上述各项功能进行集中、分块，按照结构化程序设计的要求，得到系统功能模块图。系统功能模块图如下：图3-13.3学生身份登录界面及其主要编码3.3.1身份登录界面图3-2系统登录需要一定的身份验证方可进入，例如：以“学生”身份登陆，需输入姓名：123，口令：123，下拉框需选择“学生”身份，如果身份或口令出错则无法进入。主要代码： Select Case UTypes.ListIndex Case 0 TestUser.Log txtUserName, txtPassword, student Case 1 TestUser.Log txtUserName, txtPassword, teach
16、er Case 2 TestUser.Log txtUserName, txtPassword, administrator End Select 3.3.2选题类型界面图3-3进入选题类型界面：1、 点击选择“自动命题”，会出现如图3-4所示界面，详细操作可见“手动命题”界面说明。2、 点击“自动命题”，命题选项中的按钮才能使用。自命题为系统自动随机抽题，学生可以自行选择题目数量进行选题。3.3.3手动选题界面图3-4进入手动命题界面操作：1、 学生可选择题目类型进行判断题、选择题的题目命题。点击箭头可进行选题、删除题目操作。2、 在“试题选择”中可进行下一题或到最后一题的操作。3、 系统还
17、附有查询功能，可对你所需要的题目进行快速查询，详细操作可见查询功能说明。4、 选择“确定”按钮，进入答题界面。5、 完成选题学生可对题目进行浏览和题目修改，获得完整无误的考试题目。主要代码：Private Sub AddQ_Click() If Not dbrs.EOF And Not dbrs.BOF Then Dim r As Boolean Dim QSerial As Long QSerial = QPaper.LastQSerial + 1 r = QPaper.AddQuestion(QSerial, dbrs.Fields(QuestionID), Ttype, dbrs.Fie
18、lds(Score) If Not r Then MsgBox 添加试题发生错误,请检查试卷中是否已经有该题目, vbCritical, 添加失败 Else ListQst End If Else MsgBox 请正确选择要加入试卷的题目, vbCritical, 添加失败 End IfEnd Sub3.3.4做题界面图3-5图3-6选题完成后就可以进入做题界面，进入此界面操作：1、 进入做题界面会出现学生自己选择的题目或随机抽的题目，并可以进行答题。2、 答题分判断题答题（图3-5所示）和选择题答题（图3-6所示），学生进行按步骤答题，直到答完最后一题会出现如图3-7提示，并进行交卷，完成答
19、题。图3-7主要代码：Private Sub CmdNext_Click()txtAnswer.Text = If Not AnswerSet Then SetAnswer End If If iCount 0 Then dbrs.MoveFirst End IfEnd SubPrivate Sub CmdLast_Click() If dbrs.RecordCount 0 Then dbrs.MoveLast End IfEnd SubPrivate Sub CmdNext_Click() If Not dbrs.EOF Then dbrs.MoveNext Else MsgBox 已经达到
20、数据表的末尾, vbCritical, 操作错误 End IfEnd SubPrivate Sub CmdOk_Click() If cmdType = 1 Then dbrs.AddNew dbrs.Fields(QuestionID) = dbrs.RecordCount + 1 End If If txtFields(0).Text And txtFields(1).Text And txtFields(2).Text Then dbrs.Fields(TeacherID) = CLng(txtFields(0).Text) dbrs.Fields(Score) = CSng(txtFi
21、elds(1).Text) dbrs.Fields(Question) = txtFields(2).Text Else MsgBox 请输入题目完整信息, vbCritical, 错误 txtFields(0).SetFocus Exit Sub End If Select Case CmbType.ListIndex Case 1 If txtFields(7).Text true Or txtFields(7).Text false Then MsgBox 答案请输入True或者False, vbCritical, 错误 Exit Sub txtFields(7).SetFocus En
22、d If dbrs.Fields(Answer) = CBool(txtFields(7).Text) Case 2 If txtFields(7).Text A Or txtFields(7).Text B Or txtFields(7).Text C Or txtFields(7).Text D Then MsgBox 选择题答案请输入A、B、C、D, vbCritical, 错误 Exit Sub txtFields(7).SetFocus End If dbrs.Fields(Choice1) = txtFields(3).Text dbrs.Fields(Choice2) = txt
23、Fields(4).Text dbrs.Fields(Choice3) = txtFields(5).Text dbrs.Fields(Choice4) = txtFields(6).Text dbrs.Fields(Answer) = txtFields(7).Text End Select FrameOpt.Enabled = True FrameChoice.Enabled = True DataLibs.Visible = TrueEnd SubPrivate Sub CmdPrev_Click() If Not dbrs.BOF Then dbrs.MovePrevious Else
24、 MsgBox 已经达到数据表的开头, vbCritical, 操作错误 End IfEnd SubPrivate Sub CmdUpdate_Click() On Error Resume Next DataLibs.Visible = False FrameChoice.Enabled = False FrameOpt.Enabled = False CmdOk.Visible = True CmdCancel.Visible = True cmdType = 2 txtFields(0).Text = dbrs.Fields(TeacherID) txtFields(1).Text =
25、dbrs.Fields(Score) txtFields(2).Text = dbrs.Fields(Question) If CmbType.ListIndex = 2 Then txtFields(3).Text = dbrs.Fields(Choice1) txtFields(4).Text = dbrs.Fields(Choice2) txtFields(5).Text = dbrs.Fields(Choice3) txtFields(6).Text = dbrs.Fields(Choice4) End If txtFields(7).Text = dbrs.Fields(Answer
26、)5.2.2查询界面主要代码：Private Sub CmdOkay_Click() If txtValue.Text = Then MsgBox 请输入搜索关键词, vbCritical, 错误 txtValue.SetFocus Exit Sub End If txtValue.Text = % & txtValue.Text & % QuerryString = question & like & txtValue.Text Set dbrs = Nothing Me.Hide End SubPrivate Sub Form_Load() QuerryString = Dim iCount As Integer CmbFields.AddItem 题目 CmbFields.ListIndex = 0 CmbCompare.AddItem 包含 CmbCompare.ListIndex = 0End Sub5.3管理员身份登陆界面及其编码5.3.1信息管理界面主