多媒體技術與應用課程設計--多媒體技術與應用設計之計算器

1、<p><b>　　多媒體技術與應用</b></p><p><b>　　課程設計</b></p><p>　　作 者　 </p><p>　　系 (院) 物理與電氣工程學院 </p><p>　　專 業(yè)　 電子信息工程 </p&

2、gt;<p>　　年 級　 2011 級本科 </p><p>　　學　 號 　 </p><p>　　指導教師 　 </p><p>　　論文成績　　 </p><p>　　日 期　 2013年10月 </

3、p><p>　　多媒體技術與應用設計之計算器</p><p>　　設計目的：一門當本課程是前流行的程序設計語言課程。通過VB程序設計語言及其程序設計方法的學習，不僅使學生得到計算機的應用能力和操作技能的訓練，更主要的是使學生提高高級語言程序設計的能力，以及掌握最新的面向對象的程序設計方法，并能運用所學的知識開發(fā)圖形界面（Windows）下的應用軟件，為培養(yǎng)學生結合專業(yè)進行軟件開發(fā)打好基礎。為了

4、可以熟練掌握VB程序設計，專一設計一個簡易計算器，一方面可以把理論應用于實踐，另一方面可以掌握簡單的操作，從而達到學習的目的。</p><p>　　設計簡介：本科學計算器是一種能實現(xiàn)加,減,乘,除等運算功能,基本實現(xiàn)了Windows自帶計算器的所有功能。要實現(xiàn)計算器的這些功能就用到我們所學的VB知識編寫程序來實現(xiàn)運算功能并解決問題，也是我們實訓要達到的目的。</p><p>　　系統(tǒng)的運行

5、環(huán)境：Visual Basic6.0精簡中文版</p><p><b>　　界面設計圖及用意：</b></p><p>　　本頁面整體來看簡單、大方卻不失藝術感。本頁面文字采用RGB三基色為主要顯示，設計同時彰顯了我們所學的理論以及和藝術的結合。此次設計用了5個標簽，5個命令按鈕，2個文本框以及兩個時鐘控件，分別改變了它們的caption屬性、字體font屬

6、性、backcolor、fontcolor等等等等。還融入了對老師一學期教學的問候以及感謝，這些文字用一個timer控件實現(xiàn)它的閃爍。所使用的輸入形式為手動輸入，不受數大小的限制，每次的輸出結果不會影響下一次的計算?？珊唵?、迅速的實現(xiàn)兩個單位數或者多位數的加減乘除以及乘方。雖然看著頁面簡單，但是程序的設計有的不同于課本上所學的，很多都是在設計的時候摸索實驗出來的。慢慢地在原來設計的基礎上添加了很多比較現(xiàn)代化以及人性化的元素，希望可以讓頁

7、面看起來內容更豐富，從而給此次設計增彩。</p><p>　　功能介紹：以下分別用程序具體介紹如何實現(xiàn)兩個數的加減乘除 以及乘方。</p><p>　　加法運算：第一個輸入的數賦給a，第二個輸入的數賦給b</p><p>　　Private Sub Command1_Click()</p><p>　　a = Val(Text1.Text)&

8、lt;/p><p>　　b = Val(Text2.Text)</p><p><b>　　c = a + b</b></p><p>　　Label1.Caption = Label1.Caption & c</p><p><b>　　End Sub</b></p><p

9、>　　減法運算：第一個輸入的數賦給a，第二個輸入的數賦給b</p><p>　　Private Sub Command2_Click()</p><p>　　Label1.Caption = "最終答案為："（實現(xiàn)對上次運算結果的清除）</p><p>　　a = Val(Text1.Text)</p><p>　　

10、b = Val(Text2.Text)</p><p><b>　　c = a - b</b></p><p>　　Label1.Caption = Label1.Caption & c</p><p><b>　　End Sub</b></p><p>　　乘法運算：第一個輸入的數賦給a，

11、第二個輸入的數賦給b</p><p>　　Private Sub Command3_Click()</p><p>　　Label1.Caption = "最終答案為："（實現(xiàn)對上次運算結果的清除）</p><p>　　a = Val(Text1.Text)</p><p>　　b = Val(Text2.Text)<

12、;/p><p><b>　　c = a * b</b></p><p>　　Label1.Caption = Label1.Caption & c</p><p><b>　　End Sub</b></p><p>　　除法運算：第一個輸入的數賦給a，第二個輸入的數賦給b</p>

13、<p>　　Private Sub Command4_Click()</p><p>　　Label1.Caption = "最終答案為："（實現(xiàn)對上次運算結果的清除）</p><p>　　a = Val(Text1.Text)</p><p>　　b = Val(Text2.Text)</p><p><

14、b>　　c = a / b</b></p><p>　　Label1.Caption = Label1.Caption & c</p><p><b>　　End Sub</b></p><p>　　乘方運算：第一個輸入的數先賦給a，第一個輸入的數再賦給b一次</p><p>　　Private

15、 Sub Command5_Click()</p><p>　　Label1.Caption = "最終答案為："（實現(xiàn)對上次運算結果的清除）</p><p>　　a = Val(Text1.Text)</p><p>　　b = Val(Text1.Text)</p><p><b>　　c = a * b&l

16、t;/b></p><p>　　Label1.Caption = Label1.Caption & c</p><p><b>　　End Sub</b></p><p>　　控制標簽”老師，您辛苦了“的文字顯隱：</p><p>　　Private Sub Timer1_Timer()</p>

17、<p>　　If Label3.Visible = True Then</p><p>　　Label3.Visible = False</p><p><b>　　Else</b></p><p>　　Label3.Visible = True</p><p><b>　　End If</

18、b></p><p>　　Label3.ForeColor = vbGreen（文字顏色變?yōu)榫G色）</p><p><b>　　End Sub</b></p><p>　　控制標簽”請求老師看報告“的文字顯隱</p><p>　　Private Sub Timer2_Timer()</p><p

19、>　　If Label4.Visible = True Then</p><p>　　Label4.Visible = False</p><p><b>　　Else</b></p><p>　　Label4.Visible = True</p><p><b>　　End If</b>&l

20、t;/p><p>　　Label4.ForeColor = vbBlack（文字顏色變?yōu)楹谏?lt;/p><p><b>　　End Sub</b></p><p>　　以上為各種運算的程序代碼。</p><p>　　計算器工作頁面以及工作代碼截圖：</p><p>　　多媒體技術與應用設計之滾動字幕&

21、lt;/p><p>　　功能介紹：本程序模擬電影電視片頭或片尾垂直向上移動字幕。</p><p>　　Private Sub Form_Load()</p><p>　　Label(0) = "編寫：朱巧"</p><p>　　Label(1) = "老師：龐茂群"</p><p>

22、　　Label(2) = "設計：來自靈感"</p><p>　　Label(3) = "指導：可愛龐老師"</p><p>　　Label(4) = "物理與電氣工程學院"</p><p>　　Label(0).AutoSize = True</p><p>　　Label(0).

23、Font = 50</p><p>　　Label(0).FontBold = True</p><p>　　Label(0).FontName = "黑體"</p><p>　　Label(0).ForeColor = vbRed</p><p>　　Label(0).BackColor = Form1.BackColo

24、r</p><p>　　Label(0).Left = (Form1.ScaleWidth - Label(0).Width) / 2</p><p>　　Label(0).Top = Form1.ScaleHeight</p><p>　　For i = 1 To 3</p><p>　　Label(i).AutoSize = True&l

25、t;/p><p>　　Label(i).Font = 50</p><p>　　Label(i).FontBold = True</p><p>　　Label(i).FontName = "黑體"</p><p>　　Label(i).ForeColor = vbRed</p><p>　　Label

26、(i).BackColor = Form1.BackColor</p><p>　　Label(i).Left = Label(0).Left</p><p>　　Label(i).Top = Label(i - 1).Top + (Label(i - 1).Height) * 1.5</p><p><b>　　Next i</b></

27、p><p>　　Label(4).AutoSize = True</p><p>　　Label(4).Font = 68</p><p>　　Label(4).FontBold = True</p><p>　　Label(4).FontName = "黑體"</p><p>　　Label(4).F

28、oreColor = vbRed</p><p>　　Label(4).BackColor = Form1.BackColor</p><p>　　Label(4).Left = (Form1.ScaleWidth - Label(4).Width) / 2</p><p>　　Label(4).Top = Label(3).Top + (Label(3).Heig

29、ht) * 3</p><p>　　Timer1.Interval = 50</p><p><b>　　End Sub</b></p><p>　　Private Sub Timer1_Timer()</p><p>　　For i = 0 To 4</p><p>　　Label(i).Top

30、 = Label(i).Top - 50</p><p><b>　　Next i</b></p><p>　　If Label(3).Top < -Label(3).Height Then</p><p>　　Timer1.Enabled = False</p><p><b>　　End If<

31、/b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Click()</p><p>　　Timer1.Enabled = False</p><p><b>　　End</b></p><p><b&g

32、t;　　End Sub</b></p><p>　　工作頁面以及代碼截圖：</p><p>　　設計總結：在設計程序的過程中我感受到，既要學會分析BASIC程序的執(zhí)行流程，又要熟悉和掌握VB的操作界面、面向對象程序設計的特點。掌握了基本操作方法以及使用時候應當注意的問題。 </p><p><b>　　參考文獻 </b