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

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

  1. 1、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 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

文档评论(0)

rewfdgd + 关注
实名认证
文档贡献者

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

1亿VIP精品文档

相关文档