最新VB課程設(shè)計(jì)報(bào)告

1、石家莊鐵道學(xué)院課程設(shè)計(jì)Visual basic課程設(shè)計(jì)報(bào)告書(shū)VB各種圖形設(shè)計(jì)單 位華夏學(xué)院分院係）專(zhuān)業(yè)信息工程學(xué)號(hào)102256101XX學(xué)生姓名指導(dǎo)教師完成日期 2011 年6月7日1目錄I=r m一、 概述錯(cuò)誤！未定義書(shū)簽。二、功能需求分析3三、系統(tǒng)設(shè)計(jì)4四、技術(shù)實(shí)現(xiàn)及使用說(shuō)明 4五、總結(jié)7六、參考文獻(xiàn)2一. 概述VB圖形設(shè)計(jì)是一個(gè)通過(guò)利用坐標(biāo)系統(tǒng)和按鈕，使圖形框里顯示出不同顏色和不同位置的圖形。二、功能需求分析（1）運(yùn)行程序后，由導(dǎo)入界面等待 3秒后進(jìn)入程序，出現(xiàn)主要 按鈕。（2）出現(xiàn)按鈕：一朵花，十朵花，一圓環(huán)，十圓環(huán)，十正方形（3 ）通過(guò)分別單擊這些按鈕，可以在圖形框里面分別顯示不同

2、位置，不同顏色的與按鈕相符合的圖案。（4）當(dāng)需要清除當(dāng)前圖形框里面的圖形可以單擊“清除”按鈕。（5 ）而且同一按鈕的當(dāng)多次單擊后，也可以出現(xiàn)不同位置，不 同顏色的同種圖形，這是通過(guò)隨即函數(shù)來(lái)實(shí)現(xiàn)的， 但需要規(guī)定圖 形的半徑等的大小限制條件，以免圖形無(wú)法顯示在圖形框中。（6 ）整個(gè)程序結(jié)束后，要退出只需單擊“結(jié)束”按鈕，則進(jìn)入 結(jié)束界面。三、系統(tǒng)設(shè)計(jì)針對(duì)于VB各種圖形設(shè)計(jì)系統(tǒng)所要完成的各種功能，這里 將介紹一下實(shí)現(xiàn)它們的設(shè)計(jì)思想：（1）歡迎界面主要是為了介紹制作人信息和一些對(duì)程序的簡(jiǎn)單概括。此界 面當(dāng)運(yùn)行后2秒自己進(jìn)入下個(gè)窗體。（2）主界面這個(gè)界面是本次課程設(shè)計(jì)的核心部分， 里面包括了對(duì)于VB各

3、 種圖形設(shè)計(jì)的按鈕和連接按鈕， 可以展示通過(guò)單擊來(lái)實(shí)現(xiàn)對(duì)于圖 形的變化情況。（3）結(jié)束界面當(dāng)然作為一個(gè)完成的程序， 有了好的開(kāi)始和系統(tǒng)的程序， 必須 要做一個(gè)作為結(jié)束的界面。四、技術(shù)實(shí)現(xiàn)及使用說(shuō)明（1）歡迎界面相關(guān)代碼為：Private Sub Timer1_Timer()Forml.HideForm2.ShowTimerl.Enabled = FalseEnd Sub時(shí)鐘的時(shí)間設(shè)計(jì)為 2秒。(2)主界面0 ForwiS相關(guān)代碼：一朵花：Private Sub Command1_Click()P.CIsDim r%, x%, y%P.FillCoIor = QBColor(Rnd * 15)P

4、.FillStyle = 0r = Rnd * 500P.DrawWidth = 1 x = Rnd * 5415: y = Rnd * 4000P.Circle (x - 1.5 * r, y - 1.5 * r), 1.6 * rP.Circle (x - 1.5 * r, y + 1.5 * r), 1.6 * rP.Circle (x + 1.5 * r, y - 1.5 * r), 1.6 * rP.Circle (x + 1.5 * r, y + 1.5 * r), 1.6 * rP.FillColor = QBColor(Rnd * 10)6P.Circle (x, y), rE

5、nd Sub十朵花：Private Sub Command2_Click()P.CIsDim r%, y%, x%, a%, b%, c%, d%, e%, f%, g%, h%, i%, j%r = Rnd * 500P.DrawWidth = 1x = Rnd * 5000: y = Rnd * 4000: a = Rnd * 3000: b = Rnd * 3000: c = Rnd * 4000: d = Rnd * 4000: e = Rnd * 4000: f = Rnd * 4000: n = Rnd * 300: t = Rnd * 300P.FillStyle = 0P.Fi

6、llCoIor = QBColor(Rnd * 15)P.Circle (x - 1.5 * (r + n) + a, y - 1.5 * (r + n) + b), 1.6 * (r + n)P.Circle (x - 1.5 * (r + n) + a, y + 1.5 * (r + n) + b), 1.6 * (r + n)P.Circle (x + 1.5 * (r + n) + a, y - 1.5 * (r + n) + b), 1.6 * (r + n)P.Circle (x + 1.5 * (r + n) + a, y + 1.5 * (r + n) + b), 1.6 *

7、(r + n) P.FillColor = QBColor(Rnd * 10)P.Circle (x + a, y + b), r + nP.FillStyle = 0P.FillColor = QBColor(Rnd * 15)P.Circle (x - 1.5 * r, y - 1.5 * r), 1.6 * rP.Circle (x + 1.5 * r, y - 1.5 * r), 1.6 * rP.Circle (x + 1.5 * r, y + 1.5 * r), 1.6 * rP.FillColor = QBColor(Rnd * 10)P.Circle (x, y), rP.Fi

8、llStyle = 0P.FillColor = QBColor(Rnd * 15)P.Circle (x - 1.5 * (r + t) - c, y - 1.5 * (r + t) + b), 1.6 * (r + t)P.Circle (x - 1.5 * (r + t) - c, y + 1.5 * (r + t) + b), 1.6 * (r + t)P.Circle (x + 1.5 * (r + t) - c, y - 1.5 * (r + t) + b), 1.6 * (r + t)P.Circle (x + 1.5 * (r + t) - c, y + 1.5 * (r +

9、t) + b), 1.6 * (r + t)P.Circle (x - c, y + b), r + tP.FillStyle = 0P.FillColor = QBColor(Rnd * 15)P.Circle (x - 1.5 * (r + n + t) + c, y - 1.5 * (r + n + t), 1.6 * (r + n + t)P.Circle(x-1.5 * (r +n + t)+ c, y + 1.5 *(r +n + t), 1.6 *(r +n + t)P.Circle(x+ 1.5 * (r +n + t)+ c, y - 1.5 *(r +n + t), 1.6

10、 *(r +n + t)P.Circle(x+ 1.5 * (r +n + t)+ c, y + 1.5 *r (r +n + t), 1.6 *r (r +n + t)P.Circle(x+ c, y), r +n + t8P.FillStyle = 0P.FillColor = QBColor(Rnd * 15)P.Circle (x - 1.5 * r + b, y - 1.5 * r + a), 1.6 * rP.Circle (x - 1.5 * r + b, y + 1.5 * r + a), 1.6 * rP.Circle (x + 1.5 * r + b, y - 1.5 *

11、r + a), 1.6 * rP.Circle (x + 1.5 * r + b, y + 1.5 * r + a), 1.6 * rP.Circle (x + b, y + a), rP.FillStyle = 0P.FillColor = QBColor(Rnd * 15)P.Circle (x - 1.5 * (r + n) + d, y - 1.5 * (r + n) + e), 1.6 * (r + n)P.Circle (x - 1.5 * (r + n) + d, y + 1.5 * (r + n) + e), 1.6 * (r + n)P.Circle (x + 1.5 * (

12、r + n) + d, y - 1.5 * (r + n) + e), 1.6 * (r + n)P.Circle (x + 1.5 * (r + n) + d, y + 1.5 * (r + n) + e), 1.6 * (r + n)P.FillColor = QBColor(Rnd * 10)P.Circle (x + d, y + e), r + nP.FillStyle = 0P.FillColor = QBColor(Rnd * 15)P.Circle (x - 1.5 * (r + t) - f, y - 1.5 * (r + t) + d), 1.6 * (r + t)P.Ci

13、rcle (x - 1.5 * (r + t) - f, y + 1.5 * (r + t) + d), 1.6 * (r + t)P.Circle (x + 1.5 * (r + t) - f, y - 1.5 * (r + t) + d), 1.6 * (r + t)P.Circle (x - f, y + d), r + tP.FillColor = QBColor(Rnd * 15)P.Circle (x - 1.5 * (r + n + t) + d, y - 1.5 * (r + n + t), 1.6 * (r + n + t)P.Circle (x - 1.5 * (r + n

14、 + t) + d, y + 1.5 * (r + n + t), 1.6 * (r + n + t)P.Circle (x + 1.5 * (r + n + t) + d, y - 1.5 * (r + n + t), 1.6 * (r +n + t)P.Circle (x + 1.5 * (r + n + t) + d, y + 1.5 * (r + n + t), 1.6 * (r +n + t)P.Circle (x + d, y), r + n + tP.FillStyle = 0P.FillColor = QBColor(Rnd * 15)P.Circle (x - 1.5 * r

15、 + d, y - 1.5 * r + a), 1.6 * rP.Circle (x - 1.5 * r + d, y + 1.5 * r + a), 1.6 * rP.Circle (x + 1.5 * r + d, y - 1.5 * r + a), 1.6 * rP.Circle (x + 1.5 * r + d, y + 1.5 * r + a), 1.6 * rP.Circle (x + d, y + a), rP.FillStyle = 0P.FillColor = QBColor(Rnd * 15)P.Circle (x - 1.5 * (r + n) + a, y - 1.5

16、* (r + n) + e), 1.6 * (r + n)P.Circle (x - 1.5 * (r + n) + a, y + 1.5 * (r + n) + e), 1.6 * (r + n)P.Circle (x + 1.5 * (r + n) + a, y - 1.5 * (r + n) + e), 1.6 * (r + n)11P.Circle (x + 1.5 * (r + n) + a, y + 1.5 * (r + n) + e), 1.6 * (r + n)P.FillColor = QBColor(Rnd * 10)P.Circle (x + a, y + e), r +

17、 nEnd Sub一圓環(huán)：Private Sub Command3_Click()P.ClsP.FillStyle = 0P.FillColor = & H80000005Dim r%, x%, y%r = Rnd * 2000P.DrawWidth = 1 + 0.001 * rx = Int(Rnd * 4000): y = Int(Rnd * 4000)P.Circle (x, y), r, QBColor(Rnd * 15)End Sub十圓環(huán)：Private Sub Command4_Click()P.ClsDim i%, j%, k%, l%, m%, n%, o%, q%, r%

18、, x%, y%r = Rnd * 1500P.DrawWidth = 1 + 0.001 * rx = Int(Rnd * 4000): y = Int(Rnd * 4000): i = Rnd * 3000: j =Rnd * 3000: k = Rnd * 3000: l = Rnd * 3000: m = Rnd * 3000: n = Rnd * 3000: o = Rnd * 3000: q = Rnd * 3000: z = Rnd3000:P.Circle (x, y), rP.Circle (x + i, y + j), Rnd * 1 * r, QBColor(Rnd *

19、15)P.Circle (x + j, y + k), Rnd * 1.1 * r, QBColor(Rnd * 15)P.Circle (x + k, y + l), Rnd * 1.2 * r, QBColor(Rnd * 15)P.Circle (x + l, y + m), Rnd * 1.3 * r, QBColor(Rnd * 15)P.Circle (x + m, y + n), Rnd * 1.4 * r, QBColor(Rnd * 15)P.Circle (x + n, y + o), Rnd * 1.5 * r, QBColor(Rnd * 15)P.Circle (x

20、+ o, y + P), Rnd * 1.6 * r, QBColor(Rnd * 15)P.Circle (x + P, y + z), Rnd * 1.7 * r, QBColor(Rnd * 15)P.Circle (x + 乙 y + i), Rnd * 1.8 * r, QBColor(Rnd * 15)End Sub十正方體：Private Sub Command5_Click()P.ClsDim x As Integer, y As Integer, r As Integer, l As IntegerP.DrawWidth = 3x = Rnd * 4000: y = Rnd

21、* 4000: r = Rnd * 500P.ForeColor = RGB(lnt(Rnd * 255), Int(Rnd * 255), Int(Rnd 255)P Line (x, y)-(x + r * 6, y)13P丄 ine (x, y)-(x, y + r * 6)Line (x + r * 6, y)-(x + r * 6, y + r * 6)P丄 ine (x, y + r * 6)-(x + r * 6, y + r * 6)Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)P丄ine (x + r * 1.5 * 1.7, y - r

22、 * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r* 3)P丄ine (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P丄ine (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r *6, y - r * 3 + r * 6)P丄ine (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r* 6)P.DrawWidth = 3x = Rnd * 4000: y =

23、 Rnd * 4000: r = Rnd * 500P.ForeColor = RGB(lnt(Rnd * 255), Int(Rnd * 255), Int(Rnd255)Line (x, y)-(x + r * 6, y)P丄 ine (x, y)-(x, y + r * 6)Line (x + r * 6, y)-(x + r * 6, y + r * 6)P丄 ine (x, y + r * 6)-(x + r * 6, y + r * 6)P Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)P丄ine (x + r * 6, y)-(x + r *

24、 1.5 * 1.7 + r * 6, y - r * 3)P丄ine (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r *6, y - r * 3 + r * 6)P丄ine (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r* 6)P.DrawWidth = 3x = Rnd * 4000: y = Rnd * 4000: r = Rnd * 500P.ForeColor = RGB(lnt(Rnd * 255), lnt(Rnd * 25

25、5), lnt(Rnd * 255)Line (x, y)-(x + r * 6, y)P丄 ine (x, y)-(x, y + r * 6)Line (x + r * 6, y)-(x + r * 6, y + r * 6)P丄 ine (x, y + r * 6)-(x + r * 6, y + r * 6)Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)P丄ine (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r* 3)P丄ine (x + r * 6, y)-(x +

26、r * 1.5 * 1.7 + r * 6, y - r * 3)P丄ine (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r *6, y - r * 3 + r * 6)P丄ine (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r* 6)P.DrawWidth = 3 15x = Rnd * 4000: y = Rnd * 4000: r = Rnd * 500P.ForeColor = RGB(lnt(Rnd * 255), lnt(Rn

27、d * 255), lnt(Rnd * 255)Line (x, y)-(x + r * 6, y)P丄 ine (x, y)-(x, y + r * 6)Line (x + r * 6, y)-(x + r * 6, y + r * 6)P丄 ine (x, y + r * 6)-(x + r * 6, y + r * 6)Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)P丄ine (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r* 3)P丄ine (x + r * 6, y)

28、-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P丄ine (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r *6, y - r * 3 + r * 6)P丄ine (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r* 6)P.DrawWidth = 3x = Rnd * 4000: y = Rnd * 4000: r = Rnd * 500P.ForeColor = RGB(Int(Rnd * 255), Int

29、(Rnd * 255), Int(Rnd * 255)P Line (x, y)-(x + r * 6, y)P丄 ine (x, y)-(x, y + r * 6)P丄 ine (x, y + r * 6)-(x + r * 6, y + r * 6)Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)P丄ine (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r* 3)P丄ine (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r *

30、3)P丄ine (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r *6, y - r * 3 + r * 6)P丄ine (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r* 6)P.DrawWidth = 3x = Rnd * 4000: y = Rnd * 4000: r = Rnd * 500P.ForeColor = RGB(lnt(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)Line (x, y

31、)-(x + r * 6, y)P丄 ine (x, y)-(x, y + r * 6)Line (x + r * 6, y)-(x + r * 6, y + r * 6)P丄 ine (x, y + r * 6)-(x + r * 6, y + r * 6)Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)P丄ine (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r* 3)P丄ine (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r

32、 * 3)P丄ine (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r *176, y - r * 3 + r * 6)P丄ine (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r* 6)P.DrawWidth = 3x = Rnd * 4000: y = Rnd * 4000: r = Rnd * 500P.ForeColor = RGB(lnt(Rnd * 255), lnt(Rnd * 255), lnt(Rnd * 255)Line

33、(x, y)-(x + r * 6, y)P丄 ine (x, y)-(x, y + r * 6)Line (x + r * 6, y)-(x + r * 6, y + r * 6)P丄 ine (x, y + r * 6)-(x + r * 6, y + r * 6)Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)P丄ine (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r* 3)P丄ine (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6,

34、y - r * 3)P丄ine (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r *6, y - r * 3 + r * 6)P丄ine (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r* 6)P.DrawWidth = 3x = Rnd * 4000: y = Rnd * 4000: r = Rnd * 500P.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd *255)Lin

35、e (x, y)-(x + r * 6, y)P丄 ine (x, y)-(x, y + r * 6)Line (x + r * 6, y)-(x + r * 6, y + r * 6)P丄 ine (x, y + r * 6)-(x + r * 6, y + r * 6)Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)P丄ine (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r* 3)P丄ine (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6

36、, y - r * 3)P丄ine (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r *6, y - r * 3 + r * 6)P丄ine (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r* 6)P.DrawWidth = 3x = Rnd * 4000: y = Rnd * 4000: r = Rnd * 500P.ForeColor = RGB(lnt(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)

37、Line (x, y)-(x + r * 6, y)P丄 ine (x,y)-(x, y + r * 6)P Line (x+ r * 6, y)-(x +r*6,y +r*6)P丄 ine (x,y + r * 6)-(x +r*6,y +r*6)P Line (x,y)-(x + r * 1.5*1.7,y -r*3)P丄ine (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r* 3)P丄ine (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P丄ine

38、 (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r *6, y - r * 3 + r * 6)P丄ine (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r* 6)P.DrawWidth = 3x = Rnd * 4000: y = Rnd * 4000: r = Rnd * 500P.ForeColor = RGB(lnt(Rnd * 255), lnt(Rnd * 255), lnt(Rnd * 255)Line (x, y)-(x +

39、r * 6, y)P丄 ine (x, y)-(x, y + r * 6)Line (x + r * 6, y)-(x + r * 6, y + r * 6)P丄 ine (x, y + r * 6)-(x + r * 6, y + r * 6)Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)P丄ine (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r* 3)P丄ine (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P丄ine (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r *6, y - r * 3 + r * 6)P丄ine (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r6)End Sub(3)結(jié)束界面五總結(jié)通過(guò)幾周對(duì)VB的學(xué)習(xí)，使我增加了對(duì)VB課程的了解.首先了解到VB的特點(diǎn)，VB是在原來(lái)的B asic語(yǔ)言基礎(chǔ)上發(fā)展而來(lái)的.V isual指的是可視的圖形用戶(hù)界面開(kāi)發(fā) 方法.不需編寫(xiě)大量代碼去描述界面元素的外觀(guān)和位置，只要把預(yù)先建立的