回转体体积计算_课程设计报告

回转体体积计算_课程设计报告

ID:34036210

大小:249.00 KB

页数:20页

时间:2019-03-03

回转体体积计算_课程设计报告_第1页
回转体体积计算_课程设计报告_第2页
回转体体积计算_课程设计报告_第3页
回转体体积计算_课程设计报告_第4页
回转体体积计算_课程设计报告_第5页
资源描述:

《回转体体积计算_课程设计报告》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、VisualBasic课程设计报告所属课程名称:VisualBasic程序设计课程设计题号:42课程设计题目:回转体体积计算课程设计难度:3星课程设计时间:2013.3.1~4.17学号:0姓名:石博博自评成绩:90分南京理工大学机械工程学院二〇一三年三月一、程序功能1.回转体的体积计算是数学和力学经常用到的内容,该程序是可以生成回转体并计算其体积的应用程序。2.涉及的知识点有:(1)多模块程序设计(2)动态数组(3)定义数组类型。二、课程设计的详细设计1、总体设计思路设计思路:简单的回转体可以看成是由多个回转体体素构成的组合体。回转体体素包括:圆柱体、圆台、圆锥体、球冠和母线

2、为圆弧的球台这五种情况。通过对每一段的名称、体素、参数设置来进行计算并保存结果,最后将所有结果相加即可得到回转体体积。结构框图:回转体体积计算Frmjm:该程序的主界面。Frmwork:该程序的计算结果显示界面2、界面设计窗体界面截图:Frmzjm:包含的控件有:按钮,文本框,标签,框架,列表框。外观通过设置各个控件的相关属性得到。Frmwork:包含的控件有:按钮,标签,列表框。外观通过设置各个控件的相关属性得到。3、功能模块设计主要功能及实现算法:1.输入段数,单击生成按钮,列表框自动生成相应的条目,如果不输入段数就单击生成按钮或者是计算按钮则会有错误提示。此功能通过Cmd

3、generate(生成按钮)的click事件、list1(段号列表框)的additem方法以及msgbox实现2.选定某一段号,单击“体素元素“栏的其中一个单选按钮,Frame3中自动出现参数设置框,输入正确的数据单击确定按钮即可计算,通过单击计算按钮即可调出Frmwork并查看计算结果,过程中也会有相应的错误提示。此功能通过cmdok和cmdwork的单击事件实现,其中五个单选按钮为一组控件数组,名称为option1(),index属性从1到10。3.重置按钮和退出按钮的事件过程:重置按钮主要是清空列表框和文本框的数据,便于重新输入数据。一、设计中遇到的问题与解决办法【问题1

4、】:当文本框中输入负数或0,或者是字母,汉字时的错误提示,以及相应的部分操作。【解决办法】:通过代码实现:PrivateSubCmdgenerate_Click()DimsAsInteger,nAsIntegers=Val(Text1.Text)List1.ClearIfs<=0ThenMsgBox"请先输入正确的回转体的特征段数。",48,"vol"Text1.Text=""ElseFrame.Enabled=TrueEndIfForn=1TosList1.AddItemnList1.ListIndex=0Option1(1).Value=TrueNextEndSub【问题2

5、】:单击不同的单选按钮时,出现与之对应的参数设置框。【解决办法】:预先安排chicuntxt1、chicuntxt2、chicuntxt3(输入参数的文本框)和chicun1、chicun2、chicun3(标签),当需要时把第三个的visible、enabled属性设为true,不需要时设为false,并改变其caption属性,这样就会有相应的效果了。【问题3】:对chicuntxt中输入的数据的判断及错误提示【解决办法】:类似于list1的处理,对数据进行简单的判断,例如:IfVal(chicuntxt1.Text)=0OrVal(chicuntxt2.Text)=0Th

6、enMsgBox"请输入正确的尺寸数据",32,"Tips"ExitSubEndIf【问题4】:定义自定义数组类型【解决办法】:由于之前没有接触过,所以花了很多时间去搞懂它,最后处理好了。PrivateTypehuizhuanti'自定义数据类型(下面代表的是huizhuanti的各个属性及其数据类型)d1AsSingle'上底HAsSingle'高d2AsSingle'下底nameAsString'名称resultAsSingle'计算结果EndTypePrivatesj()Ashuizhuanti【问题5】:函数的调用及表达式【解决办法】:对于球台的体积计算比较繁琐,于是采

7、用了一种较为简单的方法。我并没有对上底和下底数据进行判断,而是通过代码进行算法选择,这样较为简单。PublicFunctionf5(aAsSingle,cAsSingle)AsSingle'定义求球台体积函数Dimb,rsAsSingleb=Abs(c-a)Ifc>aThenrs=3*pi*a*b*b+6*a*a*b+4*b*b*bElsers=3*pi*c*b*b+6*c*c*b+4*b*b*bEndIff5=pi/6*rsEndFunction【问题6】:计算结果的输出及求和【解决办法】

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。