多媒體技術(shù)與應(yīng)用課程設(shè)計(jì)--多媒體技術(shù)與應(yīng)用設(shè)計(jì)之計(jì)算器

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

2、gt;<p>　　年 級(jí)　 2011 級(jí)本科 </p><p>　　學(xué)　 號(hào) 　 </p><p>　　指導(dǎo)教師 　 </p><p>　　論文成績(jī)　　 </p><p>　　日 期　 2013年10月 </

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

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

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

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

7、面看起來內(nèi)容更豐富，從而給此次設(shè)計(jì)增彩。</p><p>　　功能介紹：以下分別用程序具體介紹如何實(shí)現(xiàn)兩個(gè)數(shù)的加減乘除 以及乘方。</p><p>　　加法運(yùn)算：第一個(gè)輸入的數(shù)賦給a，第二個(gè)輸入的數(shù)賦給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、>　　減法運(yùn)算：第一個(gè)輸入的數(shù)賦給a，第二個(gè)輸入的數(shù)賦給b</p><p>　　Private Sub Command2_Click()</p><p>　　Label1.Caption = "最終答案為："（實(shí)現(xiàn)對(duì)上次運(yùn)算結(jié)果的清除）</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>　　乘法運(yùn)算：第一個(gè)輸入的數(shù)賦給a，

11、第二個(gè)輸入的數(shù)賦給b</p><p>　　Private Sub Command3_Click()</p><p>　　Label1.Caption = "最終答案為："（實(shí)現(xiàn)對(duì)上次運(yùn)算結(jié)果的清除）</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>　　除法運(yùn)算：第一個(gè)輸入的數(shù)賦給a，第二個(gè)輸入的數(shù)賦給b</p>

13、<p>　　Private Sub Command4_Click()</p><p>　　Label1.Caption = "最終答案為："（實(shí)現(xiàn)對(duì)上次運(yùn)算結(jié)果的清除）</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>　　乘方運(yùn)算：第一個(gè)輸入的數(shù)先賦給a，第一個(gè)輸入的數(shù)再賦給b一次</p><p>　　Private

15、 Sub Command5_Click()</p><p>　　Label1.Caption = "最終答案為："（實(shí)現(xiàn)對(duì)上次運(yùn)算結(jié)果的清除）</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>　　控制標(biāo)簽”老師，您辛苦了“的文字顯隱：</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>　　控制標(biāo)簽”請(qǐng)求老師看報(bào)告“的文字顯隱</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>　　以上為各種運(yùn)算的程序代碼。</p><p>　　計(jì)算器工作頁面以及工作代碼截圖：</p><p>　　多媒體技術(shù)與應(yīng)用設(shè)計(jì)之滾動(dòng)字幕&

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

22、　　Label(2) = "設(shè)計(jì)：來自靈感"</p><p>　　Label(3) = "指導(dǎo)：可愛龐老師"</p><p>　　Label(4) = "物理與電氣工程學(xué)院"</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>　　設(shè)計(jì)總結(jié)：在設(shè)計(jì)程序的過程中我感受到，既要學(xué)會(huì)分析BASIC程序的執(zhí)行流程，又要熟悉和掌握VB的操作界面、面向?qū)ο蟪绦蛟O(shè)計(jì)的特點(diǎn)。掌握了基本操作方法以及使用時(shí)候應(yīng)當(dāng)注意的問題。 </p><p><b>　　參考文獻(xiàn) </b