- 1、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
vb简易科学计算器的设计与开发课程设计报告可视化编程武汉理工大学华夏学院.doc
学号
《可视化编程》课程设计报告
简易科学计算器的设计与开发
专业班级: 计算机科学与技术1112 学生姓名: 指导教师: 钱小红/李小艳 教 学 系: 信息工程系
2012年月日
学生姓名: 专业班级:计算机1111-1112班
指导教师: 钱小红/李小艳 工作单位: 华夏学院计算机教研室
设计题目:简易科学计算器的设计与开发
初始条件:
1、完成可视化编程的学习
2、带Visual Basic 的机器
要求完成的主要任务:
主要任务:(在规定的时间内完成下列任务)
1、能够完成数值常数的四则运算,不要求支持运算符的优先级。
2、能够进行如下函数的求值运算,包括sin, cos, tan, exp, log, ln, sqr, 1/x,以及常数e和圆周率π。
3、设置5个存贮键,以便将中间运算结果存入,在需要的时候取出参与运算。
4、能够进行初始化,清除内存中的数,退出运算,清除显示。
5、因为控件数目较多,要求采用控件数组,以减少事件处理的复杂程度,使程序简洁高效。
6、出错处理:操作数如果不符合数学上的定义,应该给出错误信息。例:0做除数,负数或0做真数等情况。
设计报告撰写格式要求:(课程设计报告按统一通用格式书写)具体内容如下:
① 设计任务与要求 ② 总体方案与说明
③ 程序主要模块的流程图 ④ 源程序清单与注释
⑤ 问题分析与解决方案(包括调试记录、调试报告,即在调试过程中遇到的主要问题、解决方法及改进设想); ⑥ 小结与体会
附录:① 源程序(必须有简单注释) ② 使用说明 ③ 参考资料
时间安排:6月15日---21日
第一天 布置题目,确定任务、查找相关资料 第二天~第四天 功能分析,编写程序,调试程序、运行系统; 2012年6月15日
系 主 任 签 字: 年 月 日
1.设计任务与要求
1.设计任务
利用语言设计,基本要求:()
(2)
为实现以上功能我的基本思路是在窗体上建立多个控件数组,第一个控件数组有十个命令按钮,用来实现0到9数字的输入,第二个控件数组有四个命令按钮,用来实现 “+”、“-”、“*”、“/”符号的输入,第三个控件数组实现sin, cos, tan, log, ln, sqr, 1/x等函数的计算。退格,清除,等于,退出计算器 ,圆周率及常数e等功能分别作为独立的命令按钮,另外设置五个命令按钮用来存储运算的中间结果,在需要的时候能够再取出来参与运算。设置一个单独的命令按钮用来清除存储的中间结果。
4.源程序清单与注释
5.问题分析与解决方案
计算结果无法存储,导致计算过程中的中间计算值丢失,按照任务要求设置了五个存储键,但是只能存储一个结果,前一个结果总会被后一个值给覆盖,经过与同学讨论,多次调试改进,最终运行成功,可以按需存储结果。
正确代码如下:
Dim t1 As Double, t2 As Double, t3 As Double, t4 As Double, t5 As Double
Private Sub Command7_Click()
If t1 = 0 Then
t1 = Val(Text2.Text)
Else
Text1.Text = t1
End If
End Sub
Private Sub Command8_Click()
If t2 = 0 Then
t2 = Val(Text2.Text)
Else
Text1.Text = t2
End If
End Sub
Private Sub Command10_Click()
If t3 = 0 Then
t3 = Val(Text2.Text)
Else
Text3.Text = t1
End If
End Sub
Private Sub Command11_Click()
If t4 = 0 Then
t4 = Val(Text2.Text)
Else
Text1.Text = t4
End If
End Sub
Private Sub Command12_Click()
If t5 = 0 Then
t1 = Val(Text2.Text)
Else
Text1.Text = t5
End If
En
您可能关注的文档
- 3.第四章 燃气输配系统.ppt
- 3.采煤系统.ppt
- 3.静态图(类+对象).ppt
- 3.韩东太-热能与动力工程自动测控技术讲座.ppt
- 30#房高支模方案.doc
- 31_给予树.ppt
- 32层高层剪力墙结构住宅施工组织设计.doc
- 32滑动模板烟囱工程.doc
- 33-34刑事诉讼法学-第九章附带民事诉讼.ppt
- 3301综采工作面开(复)工安全技术措施(提纲--1).doc
- 2025年跨境电商办公用品电商仓储物流仓储自动化技术发展趋势研究报告.docx
- 高中地理学科肠道菌群与生态系统稳定性研究教学研究课题报告.docx
- 高中数学数字教育资源优化配置与教学效果提升分析教学研究课题报告.docx
- 血液透析患者动静脉内瘘并发症护理中的护理质量控制研究教学研究课题报告.docx
- 贵州金元招聘考试真题2024.docx
- 2025年跨境电商办公用品电商仓储物流优化升级方案人力资源配置与可行性研究.docx
- 2025年跨境电商办公用品电商仓储物流供应链协同优化报告.docx
- 贵阳市清镇市招聘中小学教师考试真题2024.docx
- 高中地理野外考察活动的课程设计与实施效果评价教学研究课题报告.docx
- 基于人工智能的初中化学实验虚拟仿真教学设计研究教学研究课题报告.docx
文档评论(0)