资源预览内容
第1页 / 共19页
第2页 / 共19页
第3页 / 共19页
第4页 / 共19页
第5页 / 共19页
第6页 / 共19页
第7页 / 共19页
第8页 / 共19页
第9页 / 共19页
第10页 / 共19页
亲,该文档总共19页,到这儿已超出免费预览范围,如果喜欢就下载吧!
资源描述
. .Visual Basic课 程 设 计 报 告所属课程名称:Visual Basic程序设计课程设计题号:42课程设计题目:回转体体积计算课程设计难度:3星课程设计时间:2013.3.1 4.17学 号:姓 名: 石博博自评成绩:90分 南京理工大学机械工程学院 二一三年三月. v . .一、 程序功能1. 回转体的体积计算是数学和力学经常用到的内容,该程序是可以生成回转体并计算其体积的应用程序。2. 涉及的知识点有:1多模块程序设计2动态数组3定义数组类型。二、 课程设计的详细设计1、总体设计思路设计思路:简单的回转体可以看成是由多个回转体体素构成的组合体。回转体体素包括:圆柱体、圆台、圆锥体、球冠和母线为圆弧的球台这五种情况。通过对每一段的名称、体素、参数设置来进展计算并保存结果,最后将所有结果相加即可得到回转体体积。构造框图:回转体体积计算Frmjm:该程序的主界面。Frmwork:该程序的计算结果显示界面2、界面设计窗体界面截图:Frmzjm:包含的控件有:按钮,文本框,标签,框架,列表框。外观通过设置各个控件的相关属性得到。Frmwork: 包含的控件有:按钮,标签,列表框。外观通过设置各个控件的相关属性得到。3、功能模块设计主要功能及实现算法:1.输入段数,单击生成按钮,列表框自动生成相应的条目,如果不输入段数就单击生成按钮或者是计算按钮那么会有错误提示。此功能通过Cmdgenerate生成按钮的click事件、list1段号列表框的additem方法以及msgbox实现2.选定某一段号,单击“体素元素“栏的其中一个单项选择按钮,Frame3中自动出现参数设置框,输入正确的数据单击确定按钮即可计算,通过单击计算按钮即可调出Frmwork并查看计算结果,过程中也会有相应的错误提示。此功能通过cmdok和cmdwork的单击事件实现,其中五个单项选择按钮为一组控件数组,名称为option1(),index属性从1到10。3.重置按钮和退出按钮的事件过程:重置按钮主要是清空列表框和文本框的数据,便于重新输入数据。三、 设计中遇到的问题与解决方法【问题1】:当文本框中输入负数或0,或者是字母,汉字时的错误提示,以及相应的局部操作。【解决方法】:通过代码实现:Private Sub Cmdgenerate_Click()Dim s As Integer, n As Integer s = Val(Text1.Text) List1.Clear If s a Then rs = 3 * pi * a * b * b + 6 * a * a * b + 4 * b * b * b Else rs = 3 * pi * c * b * b + 6 * c * c * b + 4 * b * b * b End If f5 = pi / 6 * rsEnd Function【问题6】:计算结果的输出及求和【解决方法】:由于将语句Frmwork.Listwork.AddItem 第 & m + 1 & 段 & sj(m).name & & sj(m).result放错了位置,而且代码中少了Preserve关键字导致结果一直未0.浪费了不少时间,最后进展了调整,实现了该功能。四、 更上一层楼改良1.:通过语句List1.ListIndex = 0 和Option1(1).Value = True消除了漏选段号和单项选择按钮的可能,当然也不需要错误提示了。改良2:通过在Cmdgenerate的Click事件中添加语句List1.Clear,从而在输入段数后再次改动时不会在list1后面添加条目,而是直接变为后输入的条目改良3:If List1.ListIndex a Then rs = 3 * pi * a * b * b + 6 * a * a * b + 4 * b * b * b Else rs = 3 * pi * c * b * b + 6 * c * c * b + 4 * b * b * b End If f5 = pi / 6 * rsEnd Function五、 课程设计总结程序缺乏之处:为实现可以进展改动的给你,着实遗憾心得体会:通过这次课程设计,我对vb的掌握程度又有了进步,也更加认识到了自己的缺乏之处,我很感谢有这次时机去挑战难题,我学到了很多东西。六、 源程序代码源代码:Option Explicit 强制变量声明Const pi = 3.1415926 定义常量Private Type huizhuanti 自定义数据类型下面代表的是huizhuanti的各个属性及其数据类型 d1 As Single 上底 H As Single 高 d2 As Single 下底 name As String 名称 result As Single 计算结果End TypePrivate sj() As huizhuanti 定义自定义数组Public m, n, i, s As Integer: Public s1, s2, s3, a, b, c As SinglePrivate Sub Form_Load() 窗体加载事件 Frame.Enabled = False Frame不可用End SubPrivate Sub Cmdgenerate_Click() 生成按钮的单击事件Dim s As Integer, n As Integer s = Val(Text1.Text) List1.Clear 输入数字之前先清空文本框 If s = 0 Then MsgBox 请先输入正确的回转体的特征段数。, 48, vol Text1.Text = Else Frame.Enabled = True Frame变为可用 End If For n = 1 To s List1.AddItem n List1.ListIndex = 0 自动选定第一段 Option1(1).Value = True 自动选定的一个按钮 NextEnd SubPrivate Sub Cmdexit_Click() 完毕 EndEnd SubPrivate Sub Cmdreset_Click() 重置 Text1.Text = List1.Cle
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号