vb简易科学计算器的设计与开发课程设计报告可视化编程武汉理工大学华夏学院.doc

vb简易科学计算器的设计与开发课程设计报告可视化编程武汉理工大学华夏学院.doc

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
学号 《可视化编程》课程设计报告 简易科学计算器的设计与开发 专业班级: 计算机科学与技术1112 学生姓名: 指导教师: 钱小红/李小艳 教 学 系: 信息工程系 2012年6月15日 课程设计报告书 学生姓名: 专业班级:计算机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.设计任务 利用VB语言设计一个简易的科学计算器,学会利用VB控件数组实现数值的计算以及基本函数的计算。 2.基本要求: (1)要能够完成数值常数的四则运算。 (2)要能够进行简单函数的求值运算,包括sin, cos, tan, exp, log, ln, sqr, 1/x,以及常数e和园周率π。 (3)要求设置5个存贮键,以便于存储计算的中间结果,并能够取出参与运算。 (4)要求采用控件数组,使程序简洁高效。 (5)要能够进行出错处理:操作数如果不符合数学上的定义,应该给出错误信息。 2.总体方案 一、计算器如图 此计算器主要实现数值的四则运算,以及sin, cos, tan, exp, log, ln, sqr, 1/x,以及常数e和圆周率π等函数功能。实现数值的存储与取出。 3.详细设计 输入数字 输入数字 加 减 乘 除 倒数 存储结果 清除 对数运算 余弦 正弦 平方 平方根 正切 退格 结果 图1设计框架流程图 为实现以上功能我的基本思路是在窗体上建立多个控件数组,第一个控件数组有十个命令按钮,用来实现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 Comman

文档评论(0)

a13355589 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档