- 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、总体设计思路
设计思路:简单的回转体可以看成是由多个回转体体素构成的组合体。回转体体素包括:圆柱体、圆台、圆锥体、球冠和母线为圆弧的球台这五种情况。通过对每一段的名称、体素、参数设置来进行计算并保存结果,最后将所有结果相加即可得到回转体体积。
结构框图:
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 高
d2 As Single 下底
name As String
您可能关注的文档
- 6.10李思思卢喻蓉医学情景对话在护理专业英语讲学中的运用.doc
- 6.3练习题完整整理.doc
- 6.4万有引力理论的成就教案.doc
- 6.5《宇宙航行》教案.doc
- 6.5科学探究摩擦力练习卷.doc
- 6.6经典力学的局限性学案(人教版必修2).doc
- 6.高考物理易错题宝典:电场.doc
- 601班语文教学计划.doc
- 60个英语特殊句、疑难句.doc
- 60家国家重点支持的大型水泥企业发展状况分析.doc
- Haier海尔413升风冷变频多门冰箱 BCD-413WGHFD1BSJU1(白)说明书用户手册.pdf
- Siemens西门子工业抽屉式断路器主回路后垂直连接 抽屉式断路器主回路后垂直连接使用手册.pdf
- Samsung三星智能佩戴设备 Galaxy Fit3安全手册.pdf
- Samsung三星滚筒洗衣机 AI神 黑钻热泵洗烘旗舰 WD18DB8995BZSC使用手册.pdf
- Sakura樱花消毒柜 保洁柜消毒柜 SCQ-130D6用户手册说明书.pdf
- Hifiman头领科技ARYA UNVEILED说明书用户手册.pdf
- Siemens西门子工业抽屉式主回路连接前置端子 支撑件 抽屉式主回路连接前置端子 支撑件使用手册.pdf
- Siemens西门子工业中性线的外部电流传感器 中性线的外部电流传感器使用手册.pdf
- Siemens西门子工业电子脱扣单元 电子脱扣单元使用手册.pdf
- Razer雷蛇Playstation 专用雷蛇战锤狂鲨极速版 RZ12-038203 用户指南 (简体中文)说明书用户手册.pdf
最近下载
- 腰椎的解剖及腰部的层次解剖ppt参考课件.ppt
- 知识产权助推新质生产力发展.pptx VIP
- NB∕T 10805-2021 水电工程溃坝洪水与非恒定流计算规范.pdf
- 2022年鄄城县工会系统招聘考试题库及答案解析.docx VIP
- 2024年医师定期考核必考题库及答案.pdf
- 2023年互联网信息审核员理论考试题库(含答案).pdf VIP
- 2024中考语文《西游记》历年真题专练(学生版+解析版).pdf VIP
- 高中音乐鉴赏测试题.doc VIP
- 人教三上数学《数学广角—集合》单元作业设计方案(13页).pdf VIP
- 省级政府和重点城市一体化政务服务能力调查评估报告2021年.pdf VIP
文档评论(0)