9121001500310回转体体积计算课程设计报告.docVIP

Visual Basic 课 程 设 计 报 告 所属课程名称：Visual Basic程序设计 课程设计题号：42 课程设计题目：回转体体积计算 课程设计难度：3星 课程设计时间：2013.3.1 ~ 4.17 学 号：912101500310 姓 名： 石博博 自评成绩：90分 南京理工大学机械工程学院 二〇一三年三月  程序功能 回转体的体积计算是数学和力学经常用到的内容，该程序是可以生成回转体并计算其体积的应用程序。 涉及的知识点有：（1）多模块程序设计（2）动态数组（3）定义数组类型。 课程设计的详细设计 1、总体设计思路 设计思路：简单的回转体可以看成是由多个回转体体素构成的组合体。回转体体素包括：圆柱体、圆台、圆锥体、球冠和母线为圆弧的球台这五种情况。通过对每一段的名称、体素、参数设置来进行计算并保存结果，最后将所有结果相加即可得到回转体体积。 结构框图： 2、界面设计 窗体界面截图： Frmzjm:包含的控件有：按钮，文本框，标签，框架，列表框。外观通过设置各个控件的相关属性得到。 Frmwork: 包含的控件有：按钮，标签，列表框。外观通过设置各个控件的相关属性得到。 3、功能模块设计 主要功能及实现算法： 1.输入段数，单击生成按钮，列表框自动生成相应的条目，如果不输入段数就单击生成按钮或者是计算按钮则会有错误提示。此功能通过Cmdgenerate（生成按钮）的click事件、list1（段号列表框）的additem方法以及msgbox实现 2.选定某一段号，单击“体素元素“栏的其中一个单选按钮，Frame3中自动出现参数设置框，输入正确的数据单击确定按钮即可计算，通过单击计算按钮即可调出Frmwork并查看计算结果，过程中也会有相应的错误提示。此功能通过cmdok和cmdwork的单击事件实现，其中五个单选按钮为一组控件数组，名称为option1(),index属性从1到10。 3.重置按钮和退出按钮的事件过程：重置按钮主要是清空列表框和文本框的数据，便于重新输入数据。 设计中遇到的问题与解决办法 【问题1】：当文本框中输入负数或0，或者是字母，汉字时的错误提示，以及相应的部分操作。 【解决办法】：通过代码实现： Private Sub Cmdgenerate_Click() Dim s As Integer, n As Integer s = Val(Text1.Text) List1.Clear If s = 0 Then MsgBox 请先输入正确的回转体的特征段数。, 48, vol Text1.Text = Else Frame.Enabled = True End If For n = 1 To s List1.AddItem n List1.ListIndex = 0 Option1(1).Value = True Next End Sub 【问题2】：单击不同的单选按钮时，出现与之对应的参数设置框。 【解决办法】：预先安排chicuntxt1、chicuntxt2、chicuntxt3(输入参数的文本框)和chicun1、chicun2、chicun3（标签），当需要时把第三个的visible、enabled属性设为true，不需要时设为false，并改变其caption属性，这样就会有相应的效果了。 【问题3】：对chicuntxt中输入的数据的判断及错误提示 【解决办法】：类似于list1的处理，对数据进行简单的判断，例如： If Val(chicuntxt1.Text) = 0 Or Val(chicuntxt2.Text) = 0 Then MsgBox 请输入正确的尺寸数据 , 32, Tips Exit Sub End If 【问题4】：定义自定义数组类型 【解决办法】： 由于之前没有接触过，所以花了很多时间去搞懂它，最后处理好了。 Private Type huizhuanti 自定义数据类型（下面代表的是huizhuanti的各个属性及其数据类型） d1 As Single 上底 H As Single 高 d2 As Single 下底 name As String