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

多媒体技术与应用 课程设计作 者 朱巧 系 (院) 物理与电气工程学院 专 业 电子信息工程 年 级 2011 级本科 学 号 111102120 指导教师 庞茂群 论文成绩 日 期 2013年10月 多媒体技术与应用设计之计算器朱巧（安阳师范学院 物理与电气工程学院, 河南 安阳 455000）设计目的：一门当本课程是前流行的程序设计语言课程。通过VB程序设计语言及其程序设计方法的学习，不仅使学生得到计算机的应用能力和操作技能的训练，更主要的是使学生提高高级语言程序设计的能力，以及掌握最新的面向对象的程序设计方法，并能运用所学的知识开发图形界面（Windows）下的应用软件，为培养学生结合专业进行软件开发打好基础。为了可以熟练掌握VB程序设计，专一设计一个简易计算器，一方面可以把理论应用于实践，另一方面可以掌握简单的操作，从而达到学习的目的。设计简介：本科学计算器是一种能实现加,减,乘,除等运算功能,基本实现了Windows自带计算器的所有功能。要实现计算器的这些功能就用到我们所学的VB知识编写程序来实现运算功能并解决问题，也是我们实训要达到的目的。系统的运行环境：VisualBasic6.0精简中文版界面设计图及用意： 本页面整体来看简单、大方却不失艺术感。本页面文字采用RGB三基色为主要显示，设计同时彰显了我们所学的理论以及和艺术的结合。此次设计用了5个标签，5个命令按钮，2个文本框以及两个时钟控件，分别改变了它们的caption属性、字体font属性、backcolor、fontcolor等等等等。还融入了对老师一学期教学的问候以及感谢，这些文字用一个timer控件实现它的闪烁。所使用的输入形式为手动输入，不受数大小的限制，每次的输出结果不会影响下一次的计算。可简单、迅速的实现两个单位数或者多位数的加减乘除以及乘方。虽然看着页面简单，但是程序的设计有的不同于课本上所学的，很多都是在设计的时候摸索实验出来的。慢慢地在原来设计的基础上添加了很多比较现代化以及人性化的元素，希望可以让页面看起来内容更丰富，从而给此次设计增彩。功能介绍：以下分别用程序具体介绍如何实现两个数的加减乘除 以及乘方。加法运算：第一个输入的数赋给a，第二个输入的数赋给bPrivate Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)c = a + bLabel1.Caption = Label1.Caption & cEnd Sub减法运算：第一个输入的数赋给a，第二个输入的数赋给bPrivate Sub Command2_Click()Label1.Caption = 最终答案为：（实现对上次运算结果的清除）a = Val(Text1.Text)b = Val(Text2.Text)c = a - bLabel1.Caption = Label1.Caption & cEnd Sub乘法运算：第一个输入的数赋给a，第二个输入的数赋给bPrivate Sub Command3_Click()Label1.Caption = 最终答案为：（实现对上次运算结果的清除）a = Val(Text1.Text)b = Val(Text2.Text)c = a * bLabel1.Caption = Label1.Caption & cEnd Sub除法运算：第一个输入的数赋给a，第二个输入的数赋给bPrivate Sub Command4_Click()Label1.Caption = 最终答案为：（实现对上次运算结果的清除）a = Val(Text1.Text)b = Val(Text2.Text)c = a / bLabel1.Caption = Label1.Caption & cEnd Sub乘方运算：第一个输入的数先赋给a，第一个输入的数再赋给b一次Private Sub Command5_Click()Label1.Caption = 最终答案为：（实现对上次运算结果的清除）a = Val(Text1.Text)b = Val(Text1.Text)c = a * bLabel1.Caption = Label1.Caption & cEnd Sub控制标签”老师，您辛苦了“的文字显隐：Private Sub Timer1_Timer()If Label3.Visible = True ThenLabel3.Visible = FalseElseLabel3.Visible = TrueEnd IfLabel3.ForeColor = vbGreen（文字颜色变为绿色）End Sub控制标签”请求老师看报告“的文字显隐Private Sub Timer2_Timer()If Label4.Visible = True ThenLabel4.Visible = FalseElseLabel4.Visible = TrueEnd IfLabel4.ForeColor = vbBlack（文字颜色变为黑色）End Sub以上为各种运算的程序代码。计算器工作页面以及工作代码截图： 多媒体技术与应用设计之滚动字幕功能介绍：本程序模拟电影电视片头或片尾垂直向上移动字幕。Private Sub Form_Load()Label(0) = 编写：朱巧Label(1) = 老师：庞茂群Label(2) = 设计：来自灵感Label(3) = 指导：可爱庞老师Label(4) = 物理与电气工程学院Label(0).AutoSize = TrueLabel(0).Font = 50Label(0).FontBold = TrueLabel(0).FontName = 黑体Label(0).ForeColor = vbRedLabel(0).BackColor = Form1.BackColorLabel(0).Left = (Form1.ScaleWidth - Label(0).Width) / 2Label(0).Top = Form1.ScaleHeightFor i = 1 To 3Label(i).AutoSize = TrueLabel(i).Font = 50Label(i).FontBold = TrueLabel(i).FontName = 黑体Label(i).ForeColor = vbRedLabel(i).BackColor = Form1.BackColorLabel(i).Left = Label(0).LeftLabel(i).Top = Label(i - 1).Top + (Label(i - 1).Height) * 1.5Next iLabel(4).AutoSize = TrueLabel(4).Font = 68Label(4).FontBold = TrueLabel(4).FontName = 黑体Label(4).ForeColor = vbRedLabel(4).BackColor = Form1.BackColorLabel(4).Left = (Form1.ScaleWidth - Label(4).Width) / 2Label(4).Top = Label(3).Top + (Label(3).Height) * 3Timer1.Interval = 50End SubPrivate Sub Timer1_Timer()For i = 0 To 4Label(i).Top = Label(i).Top - 50Next iIf Label(3).Top -Label(3).Height ThenTimer1.Enabled = FalseEnd IfEnd SubPrivate Sub Form_Click()Timer1.Enabled = FalseE