《回转体体积计算-课程设计报告》由会员分享，可在线阅读，更多相关《回转体体积计算-课程设计报告（19页珍藏版）》请在金锄头文库上搜索。
1、. .Visual Basic课 程 设 计 报 告所属课程名称：Visual Basic程序设计课程设计题号：42课程设计题目：回转体体积计算课程设计难度：3星课程设计时间：2013.3.1 4.17学 号：姓 名： 石博博自评成绩：90分 南京理工大学机械工程学院 二一三年三月. v . .一、 程序功能1. 回转体的体积计算是数学和力学经常用到的内容，该程序是可以生成回转体并计算其体积的应用程序。2. 涉及的知识点有：1多模块程序设计2动态数组3定义数组类型。二、 课程设计的详细设计1、总体设计思路设计思路：简单的回转体可以看成是由多个回转体体素构成的组合体。回转体体素包括：圆柱体、圆台
2、、圆锥体、球冠和母线为圆弧的球台这五种情况。通过对每一段的名称、体素、参数设置来进展计算并保存结果，最后将所有结果相加即可得到回转体体积。构造框图：回转体体积计算Frmjm:该程序的主界面。Frmwork：该程序的计算结果显示界面2、界面设计窗体界面截图：Frmzjm:包含的控件有：按钮，文本框，标签，框架，列表框。外观通过设置各个控件的相关属性得到。Frmwork: 包含的控件有：按钮，标签，列表框。外观通过设置各个控件的相关属性得到。3、功能模块设计主要功能及实现算法：1.输入段数，单击生成按钮，列表框自动生成相应的条目，如果不输入段数就单击生成按钮或者是计算按钮那么会有错误提示。此功能通
3、过Cmdgenerate生成按钮的click事件、list1段号列表框的additem方法以及msgbox实现2.选定某一段号，单击“体素元素“栏的其中一个单项选择按钮，Frame3中自动出现参数设置框，输入正确的数据单击确定按钮即可计算，通过单击计算按钮即可调出Frmwork并查看计算结果，过程中也会有相应的错误提示。此功能通过cmdok和cmdwork的单击事件实现，其中五个单项选择按钮为一组控件数组，名称为option1(),index属性从1到10。3.重置按钮和退出按钮的事件过程：重置按钮主要是清空列表框和文本框的数据，便于重新输入数据。三、 设计中遇到的问题与解决方法【问题1】：当
4、文本框中输入负数或0，或者是字母，汉字时的错误提示，以及相应的局部操作。【解决方法】：通过代码实现：Private Sub Cmdgenerate_Click()Dim s As Integer, n As Integer s = Val(Text1.Text) List1.Clear If s a Then rs = 3 * pi * a * b * b + 6 * a * a * b + 4 * b * b * b Else rs = 3 * pi * c * b * b + 6 * c * c * b + 4 * b * b * b End If f5 = pi / 6 * rsEnd
5、Function【问题6】：计算结果的输出及求和【解决方法】：由于将语句Frmwork.Listwork.AddItem 第 & m + 1 & 段 & sj(m).name & & sj(m).result放错了位置，而且代码中少了Preserve关键字导致结果一直未0.浪费了不少时间，最后进展了调整，实现了该功能。四、 更上一层楼改良1.：通过语句List1.ListIndex = 0 和Option1(1).Value = True消除了漏选段号和单项选择按钮的可能，当然也不需要错误提示了。改良2：通过在Cmdgenerate的Click事件中添加语句List1.Clear，从而在输入段
6、数后再次改动时不会在list1后面添加条目，而是直接变为后输入的条目改良3：If List1.ListIndex a Then rs = 3 * pi * a * b * b + 6 * a * a * b + 4 * b * b * b Else rs = 3 * pi * c * b * b + 6 * c * c * b + 4 * b * b * b End If f5 = pi / 6 * rsEnd Function五、 课程设计总结程序缺乏之处：为实现可以进展改动的给你，着实遗憾心得体会：通过这次课程设计，我对vb的掌握程度又有了进步，也更加认识到了自己的缺乏之处，我很感谢有这次
7、时机去挑战难题，我学到了很多东西。六、 源程序代码源代码：Option Explicit 强制变量声明Const pi = 3.1415926 定义常量Private Type huizhuanti 自定义数据类型下面代表的是huizhuanti的各个属性及其数据类型 d1 As Single 上底 H As Single 高 d2 As Single 下底 name As String 名称 result As Single 计算结果End TypePrivate sj() As huizhuanti 定义自定义数组Public m, n, i, s As Integer: Public s
8、1, s2, s3, a, b, c As SinglePrivate Sub Form_Load() 窗体加载事件 Frame.Enabled = False Frame不可用End SubPrivate 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 Frame变为可用 End If For n = 1 To s List1.AddItem n List1.ListIndex = 0 自动选定第一段 Option1(1).Value = True 自动选定的一个按钮 NextEnd SubPrivate Sub Cmdexit_Click() 完毕 EndEnd SubPrivate Sub Cmdreset_Click() 重置 Text1.Text = List1.Cle
