欢迎来到天天文库
浏览记录
ID:35203027
大小:39.50 KB
页数:7页
时间:2019-03-21
《《旋转体体积计算》vb课程设计报告》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
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"请先输入回转体特征段数!",vbOKOnly+vbExclamation,"Vol"'若值为0,则
4、提示错误ElseList1.Clear'清除列表框ReDimXD(0Toa-1)'重新定义数组Forn=1ToaList1.AddItemn'添加段号NextFrame1.Enabled=TrueSelectCaseVV'指定类型,显示对应类型Case1Label1.Caption="底面直径"Label2.Caption="圆柱高度"Label3.Visible=FalseText3.Visible=FalseCase2Label1.Caption="下底直径"Label2.Caption="圆台高度"Label3.Caption="上底直径"Label3.Visible
5、=TrueText3.Visible=TrueCase3Label1.Caption="底面直径"Label2.Caption="圆锥高度"Label3.Visible=FalseText3.Visible=FalseCase4Label1.Caption="底面直径"Label2.Caption="球冠高度"Label3.Visible=FalseText3.Visible=FalseCase5Label1.Caption="小端半径"Label2.Caption="大端半径"Label3.Visible=FalseText3.Visible=FalseEndSelect
6、EndIfEndSubPrivateSubCommand2_Click()'总体积Ifa=0ThenMsgBox"请先生成回转体结构并设置尺寸,然后计算",vbOKOnly+vbExclamation,"Vol"'输入错误的提示ElseDimjAsInteger'定义变量Forj=0ToList1.ListCount-1'利用循环IfXD(j).T=0Then'某一特征体数计算结果为0v=0MsgBox"第"&j+1&"段没有数据"'跳出信息对话框,指出读数有误ExitSubElsev=v+XD(j).T'累加各段之和EndIfNextForm2.ShowEndIfEndS
7、ubPrivateSubCommand3_Click()List1.Clearv=0textcount.Text=""'清空重置Frame1.Enabled=False'Frame1不响应UnloadForm2'关闭窗体2EndSubPrivateSubCommand4_Click()End'结束程序EndSubPrivateSubCommand5_Click()DimiAsInteger'定义变量Fori=0ToList1.ListCount-1'利用循环,循环个数为体数总数IfList1.Selected(i)
此文档下载收益归作者所有