《旋转体体积计算》VB课程设计报告.doc

《《旋转体体积计算》VB课程设计报告.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、《回转体体积计算》VB课程设计报告班级：03015103学号：03304095姓名：赵严明（1）打字练习游戏的功能本程序使用来计算复杂回转体的体积的。简单的回转体可以认为是由多个回转体体素构成的组合体。回转体体素包括圆柱体、圆台（既截锥体）、圆锥体、球冠（既局部球体）和母线为圆弧的球台这五种情况。（2）课程设计的详细设计本程序是由两个窗口组成，结构比较简单。设计的第一点是它的布局，鉴于课程设计已经给出很合理的结构布局，因此没有进行更改。程序第一个主窗口是由列表框，文本框，单选框和标签等组成。为方便设计，将"确定"按键做为计算的作用，而"计算"按键仅

2、仅作为呼出显示结果的列表框的作用。（3）调试程序的过程<1>发现"重置"命令不能使所有的有效数据归零。以致影响了以后几次的计算结果。还有发现几处类型不匹配的错误。<2>（4）输入输出数据通过两个文本框输入数字，例如回转体特征段的半径，高度等；通过列表框选择段号；通过单选框进行特征的选择。通过第二个窗口（为一列表框）进行计算结果的输出。（5）课程设计总结曾经觉得编程是件很困难的事情，后来听老师讲课后又发现很简单，但是当我又实际操作的时候却再次发现真的很不容易。需要注意的东西太多，远远不是刚懂得编程是怎么一回事的时候一口气可以做的出来的。对于这次课程设

3、计中遇到的问题，更是能让我感受到这一点。譬如开始的时候，将布局做完的时候，就开始不知道怎样下手了。可能东西都是知道的，但是一下子却不能取的出来。（6）附件Form1：OptionExplicit'强制声明PublicVVAsInteger,aAsInteger,vAsDouble,mAsInteger,sAsSingle'定义变量类型Constpi=3.14159'常量声明PrivateSubCommand1_Click()DimnAsIntegera=Val(textcount.Text)'赋值Ifa=0ThenMsgBox"请先输入回转体特征段

4、数!",vbOKOnly+vbExclamation,"Vol"'若值为0，则提示错误ElseList1.Clear'清除列表框ReDimXD(0Toa-1)'重新定义数组Forn=1ToaList1.AddItemn'添加段号NextFrame1.Enabled=TrueSelectCaseVV'指定类型，显示对应类型Case1Label1.Caption="底面直径"Label2.Caption="圆柱高度"Label3.Visible=FalseText3.Visible=FalseCase2Label1.Caption="下底直径"Labe

5、l2.Caption="圆台高度"Label3.Caption="上底直径"Label3.Visible=TrueText3.Visible=TrueCase3Label1.Caption="底面直径"Label2.Caption="圆锥高度"Label3.Visible=FalseText3.Visible=FalseCase4Label1.Caption="底面直径"Label2.Caption="球冠高度"Label3.Visible=FalseText3.Visible=FalseCase5Label1.Caption="小端半径"Labe

6、l2.Caption="大端半径"Label3.Visible=FalseText3.Visible=FalseEndSelectEndIfEndSubPrivateSubCommand2_Click()'总体积Ifa=0ThenMsgBox"请先生成回转体结构并设置尺寸，然后计算",vbOKOnly+vbExclamation,"Vol"'输入错误的提示ElseDimjAsInteger'定义变量Forj=0ToList1.ListCount-1'利用循环IfXD(j).T=0Then'某一特征体数计算结果为0v=0MsgBox"第"&j+1&"

7、段没有数据"'跳出信息对话框，指出读数有误ExitSubElsev=v+XD(j).T'累加各段之和EndIfNextForm2.ShowEndIfEndSubPrivateSubCommand3_Click()List1.Clearv=0textcount.Text=""'清空重置Frame1.Enabled=False'Frame1不响应UnloadForm2'关闭窗体2EndSubPrivateSubCommand4_Click()End'结束程序EndSubPrivateSubCommand5_Click()DimiAsInteger'定义

8、变量Fori=0ToList1.ListCount-1'利用循环，循环个数为体数总数IfList1.Selected(i)