- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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
您可能关注的文档
最近下载
- 学科大概念视域下初中语文单元教学路径构建研究.docx VIP
- 防腐除锈标准.pdf VIP
- 化疗前后手足冰敷操作流程.docx VIP
- GB_T 17888.3-2020 机械安全 接近机械的固定设施 第3部分:楼梯、阶梯和护栏.pdf
- 4026-2019 人机界面标志标识的基本和安全规则 设备端子、导体终端和导体的标识..docx VIP
- T超滤+反渗透+EDI方案.docx VIP
- 2025及以后5年中国烧碱行业市场行情动态及投资前景分析报告.docx
- 01 iso 19840-2004 中文 色漆和清漆—粗糙面上干膜厚度的测量和验收准则.pdf VIP
- 民航安全检查员四级理论考试题库及答案.docx VIP
- 变更公司经营范围的股东会决议.docx VIP
原创力文档


文档评论(0)