欢迎来到天天文库
浏览记录
ID:9858645
大小:37.00 KB
页数:10页
时间:2018-05-12
《回转体体积计算课程设计报告》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库。
1、VisualBasic课程设计报告所属课程名称:VisualBasic程序设计课程设计题号:42课程设计题目:回转体体积计算课程设计难度:3星课程设计时间:2013.3.1~3.29学号:6姓名:王思珩自评成绩:900南京理工大学机械工程学院二〇一三年三月一、程序功能简叙题目的功能要求,涉及的知识点等。本程序使用来计算复杂回转体的体积的。回转体指是由折线(包括多段直线和圆弧段)为母线绕一轴线旋转360º之后生成的旋成体。简单的回转体可以认为是由多个回转体体素构成的组合体。回转体体素包括圆柱体、圆台(既截锥体)、圆锥体、球冠(既局部球体)和母线为圆弧的球台这五种情况。二、课程
2、设计的详细设计1、总体设计思路输入数据,声称段数,分别输入数据并计算,输出结果2、界面设计界面构成及实现方法。本程序是由两个窗口组成,结构比较简单。设计的第一点是它的布局,鉴于课程设计已经给出很合理的结构布局,因此没有进行更改。程序第一个主窗口是由列表框,文本框,单选框,标签和命令按钮等组成。输入数据全部在第一个窗体内操作,可以进行重置,清空已输入的数据,从而进行重新输入。第二个窗体主要是显示计算结果,只有一个列表框和一个命令按钮构成,相对简单,单击按钮可以返回第一个窗体,进行重新操作,人性化。为方便设计,将“确定”按键做为计算的作用,而“计算”按键仅仅作为呼出显示结果的列
3、表框的作用。3、功能模块设计9先是由第一个文本框输入特征段数,单击生成列表框中就有相应的特征段数。指定一个段号,就可以进行体素选择,与此同时调用picture过程,根据所选的不同体素,显示出不同的标签内容和文本框个数。指定尺寸后单击确定表示该段尺寸指定完毕。使用相同的方法在段号中选择其他的特征段,为其指定类型和尺寸。回转体所有的特征段均定义完毕之后,单击计算按钮,程序计算每个特征段的体积和总体积并显示计算结果。如果没有完全指定特征段类型或尺寸,在单击计算是会提示错误信息。一、设计中遇到的问题与解决办法【问题1】:数组jieguo()无法保存数据【解决办法】:重定义时加入Pr
4、eserve语句二、更上一层楼1使用了局部变量接收数据,简化了程序。2加入List1.ListIndex=0以及IfList1.ListIndex5、寒假没碰VB的缘故,记忆出现一些偏差,时不时在编程中出现一些小问题,比如未定义函数,溢出等小失误难免出现,但是好在通过回归课本,细细地翻了一遍,克服了困难9一、源程序代码OptionExplicit'强制声明PrivateConstPiAsSingle=3.Dimjieguo()AsSingleDimn,iAsIntegerPrivateSubCommand1_Click()n=Val(Text1.Text)List1.ClearIfText1.Text=""ThenMsgBox"请输入特征段数",32,"注意"ExitSubElseIfText1.Text=0ThenMs6、gBox"请输入大于零的自然数",32,"注意"Text1.Text=""ElseFori=1TonList1.AddItemiNextFrame1.Enabled=TrueList1.ListIndex=0EndIf9EndSubPrivateSubCommand3_Click()‘单击重置事件List1.Clear‘列表框清空Text1.Text=""‘文本框内容清空EndSubPrivateSubCommand4_Click()‘单击退出事件EndEndSubPrivateSuboption1_Click(indexAsInteger)‘显示不同的图片框,用于输入不同7、的体素的尺寸IfOption1(1)Then‘圆柱体的尺寸Label3.Caption="底面直径"Label4.Caption="圆柱高度"Label5.Visible=FalseText5.Visible=FalseElseIfOption1(2)Then‘圆台的尺寸Label3.Caption="下底直径"Label4.Caption="圆台高度"Label5.Caption="上底直径"Label5.Enabled=TrueLabel5.Visible=TrueText5.Visible=TrueElseI
5、寒假没碰VB的缘故,记忆出现一些偏差,时不时在编程中出现一些小问题,比如未定义函数,溢出等小失误难免出现,但是好在通过回归课本,细细地翻了一遍,克服了困难9一、源程序代码OptionExplicit'强制声明PrivateConstPiAsSingle=3.Dimjieguo()AsSingleDimn,iAsIntegerPrivateSubCommand1_Click()n=Val(Text1.Text)List1.ClearIfText1.Text=""ThenMsgBox"请输入特征段数",32,"注意"ExitSubElseIfText1.Text=0ThenMs
6、gBox"请输入大于零的自然数",32,"注意"Text1.Text=""ElseFori=1TonList1.AddItemiNextFrame1.Enabled=TrueList1.ListIndex=0EndIf9EndSubPrivateSubCommand3_Click()‘单击重置事件List1.Clear‘列表框清空Text1.Text=""‘文本框内容清空EndSubPrivateSubCommand4_Click()‘单击退出事件EndEndSubPrivateSuboption1_Click(indexAsInteger)‘显示不同的图片框,用于输入不同
7、的体素的尺寸IfOption1(1)Then‘圆柱体的尺寸Label3.Caption="底面直径"Label4.Caption="圆柱高度"Label5.Visible=FalseText5.Visible=FalseElseIfOption1(2)Then‘圆台的尺寸Label3.Caption="下底直径"Label4.Caption="圆台高度"Label5.Caption="上底直径"Label5.Enabled=TrueLabel5.Visible=TrueText5.Visible=TrueElseI
此文档下载收益归作者所有