多媒體技術(shù)與應用課程設計-多媒體技術(shù)與應用設計之計算器Word版

1、 多媒體技術(shù)與應用 課程設計作 者 朱巧 系 (院) 物理與電氣工程學院 專 業(yè) 電子信息工程 年 級 2011 級本科 學 號 111102120 指導教師 龐茂群 論文成績 日 期 2013年10月 1 / 12多媒體技術(shù)與應用設計之計算器朱巧（安陽師范學院 物理與電氣工程學院, 河南 安陽 455000）設計目的：一門當本課程是前流行的程序設計語言課程。通過VB程序設計語言及其程序設計方法的學習，不僅使學生得到計算機的應用能力和操作技能的訓練，更主要的是使學生提高高級語言程序設計的能力，以及掌握最新的面向?qū)ο蟮某绦蛟O計方法，并能運用所學的知識開發(fā)圖形界面（Windows）下的應用軟件，為

2、培養(yǎng)學生結(jié)合專業(yè)進行軟件開發(fā)打好基礎。為了可以熟練掌握VB程序設計，專一設計一個簡易計算器，一方面可以把理論應用于實踐，另一方面可以掌握簡單的操作，從而達到學習的目的。設計簡介：本科學計算器是一種能實現(xiàn)加,減,乘,除等運算功能,基本實現(xiàn)了Windows自帶計算器的所有功能。要實現(xiàn)計算器的這些功能就用到我們所學的VB知識編寫程序來實現(xiàn)運算功能并解決問題，也是我們實訓要達到的目的。系統(tǒng)的運行環(huán)境：VisualBasic6.0精簡中文版界面設計圖及用意： 本頁面整體來看簡單、大方卻不失藝術(shù)感。本頁面文字采用RGB三基色為主要顯示，設計同時彰顯了我們所學的理論以及和藝術(shù)的結(jié)合。此次設計用了5個標簽，5

3、個命令按鈕，2個文本框以及兩個時鐘控件，分別改變了它們的caption屬性、字體font屬性、backcolor、fontcolor等等等等。還融入了對老師一學期教學的問候以及感謝，這些文字用一個timer控件實現(xiàn)它的閃爍。所使用的輸入形式為手動輸入，不受數(shù)大小的限制，每次的輸出結(jié)果不會影響下一次的計算?？珊唵?、迅速的實現(xiàn)兩個單位數(shù)或者多位數(shù)的加減乘除以及乘方。雖然看著頁面簡單，但是程序的設計有的不同于課本上所學的，很多都是在設計的時候摸索實驗出來的。慢慢地在原來設計的基礎上添加了很多比較現(xiàn)代化以及人性化的元素，希望可以讓頁面看起來內(nèi)容更豐富，從而給此次設計增彩。功能介紹：以下分別用程序具體介

4、紹如何實現(xiàn)兩個數(shù)的加減乘除 以及乘方。加法運算：第一個輸入的數(shù)賦給a，第二個輸入的數(shù)賦給bPrivate Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)c = a + bLabel1.Caption = Label1.Caption & cEnd Sub減法運算：第一個輸入的數(shù)賦給a，第二個輸入的數(shù)賦給bPrivate Sub Command2_Click()Label1.Caption = 最終答案為：（實現(xiàn)對上次運算結(jié)果的清除）a = Val(Text1.Text)b = Val(Text2.Text)c = a - b

5、Label1.Caption = Label1.Caption & cEnd Sub乘法運算：第一個輸入的數(shù)賦給a，第二個輸入的數(shù)賦給bPrivate Sub Command3_Click()Label1.Caption = 最終答案為：（實現(xiàn)對上次運算結(jié)果的清除）a = Val(Text1.Text)b = Val(Text2.Text)c = a * bLabel1.Caption = Label1.Caption & cEnd Sub除法運算：第一個輸入的數(shù)賦給a，第二個輸入的數(shù)賦給bPrivate Sub Command4_Click()Label1.Caption = 最終答案為：（

6、實現(xiàn)對上次運算結(jié)果的清除）a = Val(Text1.Text)b = Val(Text2.Text)c = a / bLabel1.Caption = Label1.Caption & cEnd Sub乘方運算：第一個輸入的數(shù)先賦給a，第一個輸入的數(shù)再賦給b一次Private Sub Command5_Click()Label1.Caption = 最終答案為：（實現(xiàn)對上次運算結(jié)果的清除）a = Val(Text1.Text)b = Val(Text1.Text)c = a * bLabel1.Caption = Label1.Caption & cEnd Sub控制標簽”老師，您辛苦了“的

7、文字顯隱：Private Sub Timer1_Timer()If Label3.Visible = True ThenLabel3.Visible = FalseElseLabel3.Visible = TrueEnd IfLabel3.ForeColor = vbGreen（文字顏色變?yōu)榫G色）End Sub控制標簽”請求老師看報告“的文字顯隱Private Sub Timer2_Timer()If Label4.Visible = True ThenLabel4.Visible = FalseElseLabel4.Visible = TrueEnd IfLabel4.ForeColor =

8、 vbBlack（文字顏色變?yōu)楹谏〦nd Sub以上為各種運算的程序代碼。計算器工作頁面以及工作代碼截圖： 多媒體技術(shù)與應用設計之滾動字幕功能介紹：本程序模擬電影電視片頭或片尾垂直向上移動字幕。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 = 黑體L

9、abel(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 = For

10、m1.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(

11、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 = FalseEndEnd Sub工作頁面以及代碼截圖： 設計總結(jié)：在設計程序的過程中我感受到，既要學會分析BA