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

Visual Basic课 程 设 计 报 告所属课程名称：Visual Basic程序设计课程设计题号：42课程设计题目：回转体体积计算课程设计难度：3星课程设计时间：2013.3.1 3.29学 号：912101500326姓 名： 王思珩自评成绩：900 南京理工大学机械工程学院二一三年三月一、 程序功能简叙题目的功能要求，涉及的知识点等。本程序使用来计算复杂回转体的体积的。回转体指是由折线（包括多段直线和圆弧段）为母线绕一轴线旋转360之后生成的旋成体。 简单的回转体可以认为是由多个回转体体素构成的组合体。回转体体素包括圆柱体、圆台（既截锥体）、圆锥体、 球冠（既局部球体）和母线为圆弧的球台这五种情况。二、 课程设计的详细设计1、总体设计思路输入数据，声称段数，分别输入数据并计算，输出结果2、界面设计 界面构成及实现方法。本程序是由两个窗口组成，结构比较简单。设计的第一点是它的布局，鉴于课程设计已经给出很合理的结构布局，因此没有进行更改。程序第一个主窗口是由列表框，文本框，单选框，标签和命令按钮等组成。输入数据全部在第一个窗体内操作，可以进行重置，清空已输入的数据，从而进行重新输入。第二个窗体主要是显示计算结果，只有一个列表框和一个命令按钮构成，相对简单，单击按钮可以返回第一个窗体，进行重新操作，人性化。为方便设计，将“确定”按键做为计算的作用，而“计算”按键仅仅作为呼出显示结果的列表框的作用。3、功能模块设计 先是由第一个文本框输入特征段数，单击生成列表框中就有相应的特征段数。指定一个段号，就可以进行体素选择，与此同时调用picture过程，根据所选的不同体素，显示出不同的标签内容和文本框个数。指定尺寸后单击确定表示该段尺寸指定完毕。使用相同的方法在段号中选择其他的特征段，为其指定类型和尺寸。回转体所有的特征段均定义完毕之后，单击计算按钮，程序计算每个特征段的体积和总体积并显示计算结果。如果没有完全指定特征段类型或尺寸，在单击计算是会提示错误信息。三、 设计中遇到的问题与解决办法【问题1】：数组jieguo()无法保存数据【解决办法】：重定义时加入Preserve语句四、 更上一层楼1使用了局部变量接收数据，简化了程序。2 加入 List1.ListIndex = 0以及 If List1.ListIndex h Then c = h Else c = sd End If For i1 = 1 To 100000 a = 0 a = a + Pi * (i1 / 100000 * Abs(sd - h) 2 * (2 - i1 / 100000) 0.5 + c) 2 Next name = 球台 End If jieguo(b) = a Text3.Text = Text4.Text = Text5.Text = Form2.List1.AddItem 第 & b + 1 & 段 & name & & jieguo(b) If List1.ListIndex n - 1 Then List1.ListIndex = List1.ListIndex + 1 End IfEnd SubPrivate Sub Command2_Click() Load Form2 Form2.Show Dim i As Integer Dim r As Single For i = 0 To n - 1 Step 1 r = r + jieguo(i) 计算总体积 NextOption ExplicitPrivate Sub Command1_Click()Load Form1Form1.ShowUnload Form2End Sub Form2.List1.AddItem _ _ _ _ _ _ _ _ _ _ _ Form2.List1.AddItem 总体积 & r Load Form2 Form2.Show Form1.HideEnd SubOption E