計算機(jī)圖形課程設(shè)計報告

1、<p>　　計算機(jī)圖形學(xué)課程設(shè)計</p><p>　　學(xué) 院: 信息工程學(xué)院</p><p>　　專 業(yè): 計算機(jī)科學(xué)與技術(shù)</p><p>　　學(xué) 號: </p><p>　　姓 名: </p><p><b>　　指導(dǎo)老師： </b><

2、/p><p><b>　　時 間： </b></p><p>　　目 錄</p><p>　　1、課程設(shè)計目的…………………………………………………………………2</p><p>　　2、課程設(shè)計描述及要求…………………………………………………………2</p><p>　　3、系統(tǒng)

3、開發(fā)環(huán)境…………………………………………………………………2</p><p>　　五角星算法原理………………………………………………………………2</p><p>　　5、動態(tài)改變五角星的原理………………………………………………………3</p><p>　　6、核心代碼………………………………………………………………………3</p><p>

4、　　7、程序運行結(jié)果…………………………………………………………………3</p><p>　　8、總結(jié)……………………………………………………………………………5</p><p>　　9、參考資料………………………………………………………………………5</p><p>　　10、附錄 …………………………………………………………………………7</p>

5、<p>　　一、設(shè)計任務(wù)及要求：</p><p><b>　　設(shè)計任務(wù)：</b></p><p>　　動態(tài)繪制一個五角星,并可動態(tài)改動五角星的五個角的長度。</p><p><b>　　要 求： </b></p><p>　　此次課程設(shè)計的課題為通過編程，五角星的繪制。并要求可動態(tài)改

6、動五角星的五個角的長度，并給出代碼和結(jié)果截圖。</p><p>　　計算機(jī)圖形學(xué)課程設(shè)計報告</p><p><b>　　1、課程設(shè)計目的</b></p><p>　　本學(xué)期系統(tǒng)學(xué)習(xí)了計算機(jī)圖形學(xué)的概論原理，在學(xué)期期末按課程要求進(jìn)行實驗。通過實驗，進(jìn)一步理解和掌握中點算法、Bresenham算法和二階差分算法，</p><p

7、>　　并掌握以上算法生成圓和直線等圖形的基本過程，并正此過程中深化，并提高學(xué)生對計算機(jī)圖形學(xué)的了解與運用技巧，同時通過此次課程設(shè)計提高動手實踐能力與學(xué)習(xí)分析能力。</p><p>　　2、課程設(shè)計描述及要求</p><p><b>　　●畫五角星的算法 </b></p><p>　　掌握畫五角星的原理，設(shè)計五角星的算法，相關(guān)函數(shù)實現(xiàn)畫出五

8、角星。</p><p><b>　　●動態(tài)改變五角星</b></p><p>　　通過一定的方法動態(tài)改變五角星各個角的大小，使五角星能夠達(dá)到動態(tài)的效果。</p><p><b>　　3．系統(tǒng)開發(fā)環(huán)境</b></p><p>　　開發(fā)工具：VB 6.0</p><p>　　操作

9、系統(tǒng)：Microsoft Windows XP/Windows 2007</p><p>　　4、五角星的算法原理</p><p>　　通過畫圓在圓上取5點連接起來既可以得到五角星。先畫個圓，在這個圓上取一點，然后每360/5=72°取一個點，共計5個點，把這5個點連接即可。</p><p>　　5、動態(tài)改變五角星的原理</p><p&

10、gt;　　最主要是使用Timer控件。Timer控件可以有規(guī)律地間隔一段時間執(zhí)行一次代碼。Interval屬性是Timer控件最重要的一個屬性，它以千分之一秒為單位指定Timer事件之間的間隔，理論上可以認(rèn)為最少可設(shè)置為1毫秒觸發(fā)一次Timer事件，另外一個重要屬性是Enabled屬性，它決定計時器是否開始工作。它隨著時間的流逝，動態(tài)改變各個角度的大小。</p><p><b>　　6、核心代碼<

11、/b></p><p><b>　　畫五角星</b></p><p><b>　　l = l + 1</b></p><p>　　For i = 0 To 6 Step 1</p><p>　　x(i) = 100 + l * Cos((i * 72 + 54) * 3.14 / 180)&l

12、t;/p><p>　　y(i) = 100 + l * Sin((i * 72 + 54) * 3.14 / 180)</p><p><b>　　Next i</b></p><p>　　For i = 0 To 4 Step 1</p><p>　　Picture1.Line (x(i), y(i))-(x(i + 2)

13、, y(i + 2)), RGB(255, 0, 0)</p><p><b>　　Next i</b></p><p><b>　　時間控件</b></p><p>　　Private Sub Timer1_Timer()</p><p>　　'Static l As Integer<

14、;/p><p>　　If k = 1 Then</p><p>　　If l > 100 Then</p><p><b>　　l = 0</b></p><p>　　Picture1.Cls</p><p><b>　　End If</b></p><

15、p><b>　　7、程序運行結(jié)果</b></p><p><b>　　8、總結(jié)</b></p><p>　　通過此次課程設(shè)計，使我更加扎實的計算機(jī)圖形學(xué)方面的知識，在設(shè)計過程中雖然遇到了一些問題，但經(jīng)過一次又一次的思考，一遍又一遍的檢查終于找出了原因所在，也暴露出了前期我在這方面的知識欠缺和經(jīng)驗不足。實踐出真知，通過親自動手制作，使我們掌握

16、的知識不再是紙上談兵。</p><p>　　過而能改，善莫大焉。在課程設(shè)計過程中，我們不斷發(fā)現(xiàn)錯誤，不斷改正，不斷領(lǐng)悟，不斷獲取。最終的檢測調(diào)試環(huán)節(jié)，本身就是在踐行“過而能改，善莫大焉”的知行觀。這次課程設(shè)計終于順利完成了，在設(shè)計中遇到了很多問題，最后在老師和同學(xué)們的幫助指導(dǎo)下，終于游逆而解。在今后社會的發(fā)展和學(xué)習(xí)實踐過程中，一定要不懈努力，不能遇到問題就想到要退縮，一定要不厭其煩的發(fā)現(xiàn)問題所在，然后一一進(jìn)行解決

17、，只有這樣，才能成功的做成想做的事，才能在今后的道路上劈荊斬棘，而不是知難而退，那樣永遠(yuǎn)不可能收獲成功，收獲喜悅，也永遠(yuǎn)不可能得到社會及他人對你的認(rèn)可！</p><p>　　回顧起此課程設(shè)計，至今我仍感慨頗多，從理論到實踐，在這段日子里，可以說得是苦多于甜，但是可以學(xué)到很多很多的東西，同時不僅可以鞏固了以前所學(xué)過的知識，而且學(xué)到了很多在書本上所沒有學(xué)到過的知識。通過這次課程設(shè)計使我懂得了理論與實際相結(jié)合是很重要的

18、，只有理論知識是遠(yuǎn)遠(yuǎn)不夠的，只有把所學(xué)的理論知識與實踐相結(jié)合起來，從理論中得出結(jié)論，才能真正為社會服務(wù)，從而提高自己的實際動手能力和獨立思考的能力。在設(shè)計的過程中遇到問題，可以說得是困難重重，但可喜的是最終都得到了解決。</p><p>　　此次設(shè)計也讓我明白了思路即出路，有什么不懂不明白的地方要及時請教或上網(wǎng)查詢，只要認(rèn)真鉆研，動腦思考，動手實踐，就沒有弄不懂的知識，收獲頗豐。</p><p

19、><b>　　9、參考資料：</b></p><p>　　《計算機(jī)圖形學(xué)基礎(chǔ)》 陸玲 桂穎 編著</p><p>　　東華理工大學(xué)精品課程</p><p>　　10、附錄：源程序代碼清單</p><p>　　Dim l As Integer</p><p>　　Dim i As Integ

20、er</p><p>　　Dim x1 As Integer, x2 As Integer</p><p>　　Dim y1 As Integer, y2 As Integer</p><p>　　Dim x(7) As Integer</p><p>　　Dim y(7) As Integer</p><p>　　D

21、im k As Integer</p><p>　　Private Sub Command1_Click()</p><p>　　'l = Val(Text1.Text)</p><p><b>　　k = 1</b></p><p>　　Timer1.Enabled = True</p><

22、p>　　Timer1.Interval = 100</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Picture1.Cls</p><p><b>　　k = 0</b></p>

23、<p><b>　　l = 0</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p><b>　　k = 0</b></p><p><b>　　End

24、Sub</b></p><p>　　Private Sub Command4_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><

25、p><b>　　k = 0</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Timer1_Timer()</p><p>　　'Static l As Integer</p><p>　　If k = 1 Then</p&g

26、t;<p>　　If l > 100 Then</p><p><b>　　l = 0</b></p><p>　　Picture1.Cls</p><p><b>　　End If</b></p><p><b>　　l = l + 1</b></p

27、><p>　　For i = 0 To 6 Step 1</p><p>　　x(i) = 100 + l * Cos((i * 72 + 54) * 3.14 / 180)</p><p>　　y(i) = 100 + l * Sin((i * 72 + 54) * 3.14 / 180)</p><p><b>　　Next i&l

28、t;/b></p><p>　　For i = 0 To 4 Step 1</p><p>　　Picture1.Line (x(i), y(i))-(x(i + 2), y(i + 2)), RGB(255, 0, 0)</p><p><b>　　Next i</b></p><p><b>　　En