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

上传人:ji****72 文档编号:27347089 上传时间:2018-01-09 格式:DOC 页数:10 大小:51KB
返回 下载 相关 举报
回转体体积计算课程设计报告_第1页
第1页 / 共10页
回转体体积计算课程设计报告_第2页
第2页 / 共10页
回转体体积计算课程设计报告_第3页
第3页 / 共10页
回转体体积计算课程设计报告_第4页
第4页 / 共10页
回转体体积计算课程设计报告_第5页
第5页 / 共10页
点击查看更多>>
资源描述

《回转体体积计算课程设计报告》由会员分享,可在线阅读,更多相关《回转体体积计算课程设计报告(10页珍藏版)》请在金锄头文库上搜索。

1、Visual Basic课 程 设 计 报 告所属课程名称:Visual Basic 程序设计课程设计题号:42课程设计题目:回转体体积计算课程设计难度:3 星课程设计时间:2013.3.1 3.29学 号:912101500326姓 名: 王思珩自评成绩:900 南京理工大学机械工程学院二一三年三月1一、 程序功能简叙题目的功能要求,涉及的知识点等。本程序使用来计算复杂回转体的体积的。回转体指是由折线(包括多段直线和圆弧段)为母线绕一轴线旋转 360 之后生成的旋成体。 简单的回转体可以认为是由多个回转体体素构成的组合体。回转体体素包括圆柱体、圆台(既截锥体) 、圆锥体、 球冠(既局部球体)

2、和母线为圆弧的球台这五种情况。二、 课程设计的详细设计1、总体设计思路输入数据,声称段数,分别输入数据并计算,输出结果2、界面设计界面构成及实现方法。本程序是由两个窗口组成,结构比较简单。设计的第一点是它的布局,鉴于课程设计已经给出很合理的结构布局,因此没有进行更改。程序第一个主窗口是由列表框,文本框,单选框,标签和命令按钮等组成。输入数据全部在第一个窗体内操作,可以进行重置,清空已输入的数据,从而进行重新输入。第二个窗体主要是显示计算结果,只有一个列表框和一个命令按钮构成,相对简单,单击按钮可以返回第一个窗体,进行重新操作,人性化。为方便设计,将“确定”按键做为计算的作用,而“计算”按键仅仅

3、作为呼出显示结果的列表框的作用。3、功能模块设计先是由第一个文本框输入特征段数,单击生成列表框中就有相应的特征段数。指定一个段号,就可以进行体素选择,与此同时调用 picture 过程,根据所选的不2同体素,显示出不同的标签内容和文本框个数。指定尺寸后单击确定表示该段尺寸指定完毕。使用相同的方法在段号中选择其他的特征段,为其指定类型和尺寸。回转体所有的特征段均定义完毕之后,单击计算按钮,程序计算每个特征段的体积和总体积并显示计算结果。如果没有完全指定特征段类型或尺寸,在单击计算是会提示错误信息。三、 设计中遇到的问题与解决办法【问题 1】:数组 jieguo()无法保存数据【解决办法】:重定义

4、时加入 Preserve 语句四、 更上一层楼1 使用了局部变量接收数据,简化了程序。2 加入 List1.ListIndex = 0以及 If List1.ListIndex h Then7c = hElsec = sdEnd IfFor i1 = 1 To 100000a = 0a = a + Pi * (i1 / 100000 * Abs(sd - h) 2 * (2 - i1 / 100000) 0.5 + c) 2Nextname = 球台 End Ifjieguo(b) = aText3.Text = Text4.Text = Text5.Text = Form2.List1.Ad

5、dItem 第 & b + 1 & 段 & name & & jieguo(b)If List1.ListIndex n - 1 ThenList1.ListIndex = List1.ListIndex + 1End IfEnd SubPrivate Sub Command2_Click()Load Form2Form2.Show8Dim i As IntegerDim r As SingleFor i = 0 To n - 1 Step 1r = r + jieguo(i) 计算总体积NextOption ExplicitPrivate Sub Command1_Click()Load Form1Form1.ShowUnload Form2End SubForm2.List1.AddItem _ _ _ _ _ _ _ _ _ _ _ Form2.List1.AddItem 总体积 & rLoad Form2Form2.ShowForm1.HideEnd SubOption Explicit 窗体 2Private Sub Command1_Click() 单击返回窗体 1Load Form19Form1.ShowUnload Form2End Sub

展开阅读全文
相关资源
相关搜索

当前位置:首页 > 行业资料 > 其它行业文档

电脑版 |金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号