- 1、本文档共19页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
Visual Basic
课 程 设 计 报 告
所属课程名称:Visual Basic程序设计
课程设计题号:42
课程设计题目:回转体体积计算
课程设计难度:3星
课程设计时间:2013.3.1 ~ 4.17
学 号:912101500310
姓 名:
自评成绩:90分
南京理工大学机械工程学院
二〇一三年三月
程序功能
回转体的体积计算是数学和力学经常用到的内容,该程序是可以生成回转体并计算其体积的应用程序。
涉及的知识点有:(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 = 0 Then
MsgBox 请先输入正确的回转体的特征段数。, 48, vol
Text1.Text =
Else
Frame.Enabled = True
End If
For n = 1 To s
List1.AddItem n
List1.ListIndex = 0
Option1(1).Value = True
Next
End Sub
【问题2】:单击不同的单选按钮时,出现与之对应的参数设置框。
【解决办法】:预先安排chicuntxt1、chicuntxt2、chicuntxt3(输入参数的文本框)和chicun1、chicun2、chicun3(标签),当需要时把第三个的visible、enabled属性设为true,不需要时设为false,并改变其caption属性,这样就会有相应的效果了。
【问题3】:对chicuntxt中输入的数据的判断及错误提示
【解决办法】:类似于list1的处理,对数据进行简单的判断,例如:
If Val(chicuntxt1.Text) = 0 Or Val(chicuntxt2.Text) = 0 Then
MsgBox 请输入正确的尺寸数据 , 32, Tips
Exit Sub
End If
【问题4】:定义自定义数组类型
【解决办法】: 由于之前没有接触过,所以花了很多时间去搞懂它,最后处理好了。
Private Type huizhuanti 自定义数据类型(下面代表的是huizhuanti的各个属性及其数据类型)
d1 As Single 上底
H As Single 高
您可能关注的文档
- (毕业学术论文设计)-RPE65蛋白质的结构预测.doc
- (毕业学术论文设计)-RWA算法的研究.doc
- (毕业学术论文设计)-S7-200系列PLC实现电梯模型控制.doc
- (毕业学术论文设计)-SBR法处理食品废水工艺设计.doc
- (毕业学术论文设计)-SBR法小区中水处理.doc
- (毕业学术论文设计)-SCADA系统在燃气行业中的应用.doc
- (毕业学术论文设计)-SCC斜齿行星齿轮减速器的设计与齿轮工艺.doc
- (毕业学术论文设计)-SDH网定时与同步问题研究.doc
- (毕业学术论文设计)-SDH自愈机制及其应用.doc
- (毕业学术论文设计)-Schneiderquantum系列在天然气分输站场的应用.doc
文档评论(0)