多媒体技术与应用课程设计--多媒体技术与应用设计之计算器

《多媒体技术与应用课程设计--多媒体技术与应用设计之计算器》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、多媒体技术与应用课程设计作者　朱巧系(院)物理与电气工程学院专业　电子信息工程年级　2011级本科学　号　111102120指导教师　庞茂群论文成绩　　日期　2013年10月多媒体技术与应用设计之计算器朱巧（安阳师范学院物理与电气工程学院,河南安阳455000）设计目的：一门当本课程是前流行的程序设计语言课程。通过VB程序设计语言及其程序设计方法的学习，不仅使学生得到计算机的应用能力和操作技能的训练，更主要的是使学生提高高级语言程序设计的能力，以及掌握最新的面向对象的程序设计方法，并能运用所学的知识开

2、发图形界面（Windows）下的应用软件，为培养学生结合专业进行软件开发打好基础。为了可以熟练掌握VB程序设计，专一设计一个简易计算器，一方面可以把理论应用于实践，另一方面可以掌握简单的操作，从而达到学习的目的。设计简介：本科学计算器是一种能实现加,减,乘,除等运算功能,基本实现了Windows自带计算器的所有功能。要实现计算器的这些功能就用到我们所学的VB知识编写程序来实现运算功能并解决问题，也是我们实训要达到的目的。系统的运行环境：Visual Basic6.0精简中文版界面设计图及用意：本页面整

3、体来看简单、大方却不失艺术感。本页面文字采用第8页RGB三基色为主要显示，设计同时彰显了我们所学的理论以及和艺术的结合。此次设计用了5个标签，5个命令按钮，2个文本框以及两个时钟控件，分别改变了它们的caption属性、字体font属性、backcolor、fontcolor等等等等。还融入了对老师一学期教学的问候以及感谢，这些文字用一个timer控件实现它的闪烁。所使用的输入形式为手动输入，不受数大小的限制，每次的输出结果不会影响下一次的计算。可简单、迅速的实现两个单位数或者多位数的加减乘除以及乘方

4、。虽然看着页面简单，但是程序的设计有的不同于课本上所学的，很多都是在设计的时候摸索实验出来的。慢慢地在原来设计的基础上添加了很多比较现代化以及人性化的元素，希望可以让页面看起来内容更丰富，从而给此次设计增彩。功能介绍：以下分别用程序具体介绍如何实现两个数的加减乘除以及乘方。加法运算：第一个输入的数赋给a，第二个输入的数赋给bPrivateSubCommand1_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=a+bLabel1.Caption=Label1.Cap

5、tion&cEndSub减法运算：第一个输入的数赋给a，第二个输入的数赋给bPrivateSubCommand2_Click()Label1.Caption="最终答案为："（实现对上次运算结果的清除）a=Val(Text1.Text)b=Val(Text2.Text)c=a-bLabel1.Caption=Label1.Caption&cEndSub乘法运算：第一个输入的数赋给a，第二个输入的数赋给bPrivateSubCommand3_Click()Label1.Caption="最终答案为："（

6、实现对上次运算结果的清除）a=Val(Text1.Text)b=Val(Text2.Text)c=a*bLabel1.Caption=Label1.Caption&cEndSub除法运算：第一个输入的数赋给a，第二个输入的数赋给bPrivateSubCommand4_Click()Label1.Caption="最终答案为："（实现对上次运算结果的清除）a=Val(Text1.Text)b=Val(Text2.Text)第8页c=a/bLabel1.Caption=Label1.Caption&cEn

7、dSub乘方运算：第一个输入的数先赋给a，第一个输入的数再赋给b一次PrivateSubCommand5_Click()Label1.Caption="最终答案为："（实现对上次运算结果的清除）a=Val(Text1.Text)b=Val(Text1.Text)c=a*bLabel1.Caption=Label1.Caption&cEndSub控制标签”老师，您辛苦了“的文字显隐：PrivateSubTimer1_Timer()IfLabel3.Visible=TrueThenLabel3.Visib

8、le=FalseElseLabel3.Visible=TrueEndIfLabel3.ForeColor=vbGreen（文字颜色变为绿色）EndSub控制标签”请求老师看报告“的文字显隐PrivateSubTimer2_Timer()IfLabel4.Visible=TrueThenLabel4.Visible=FalseElseLabel4.Visible=TrueEndIfLabel4.ForeColor=vbBlack（文字颜色变为黑色）EndS