vb 繪制幾何曲線課程設(shè)計(jì)報(bào)告

PAGE6石家莊鐵道學(xué)院課程設(shè)計(jì)石家莊鐵道學(xué)院課程設(shè)計(jì)基于VisualBasic的程序設(shè)計(jì)--繪制幾何曲線基于VisualBasic的程序設(shè)計(jì)--繪制幾何曲線單位工程力學(xué)分院(系)專業(yè)工程力學(xué)學(xué)號(hào)20113065學(xué)生姓名甄衛(wèi)剛指導(dǎo)教師韓立華完成日期2012年9月12日摘要隨著vb的不斷普及和應(yīng)用，使得它在數(shù)學(xué)等學(xué)科中展現(xiàn)出獨(dú)特的實(shí)力，尤其是在曲線的繪制方面，提供了一個(gè)非常便利的平臺(tái)，所以我選擇制作了一個(gè)匯集了多種曲線的小程序。通過此程序，學(xué)生不但可以欣賞各曲線的美妙，而且為了避免乏味，還特別添加了背景音樂，以及為各個(gè)窗體設(shè)計(jì)了非常精美的圖片，在精神享受的同時(shí)，欣賞曲線的藝術(shù)。在此過程中遇到的困難及自我解決，和自己的心得體會(huì)，都作了闡述。通過對(duì)本系統(tǒng)的設(shè)計(jì)，對(duì)各對(duì)象（窗體、控件）的屬性、功能有了更深刻的理解，并自學(xué)完成了曲線繪制代碼的設(shè)計(jì)、背景音樂添加，背景更換等。各模塊的功能如下：曲線歡迎界面：可進(jìn)入各曲線的繪制，并伴有背景音樂，以及滾動(dòng)條福。各曲線界面：輸入常數(shù)量后，點(diǎn)擊相應(yīng)圖標(biāo)，完成曲線繪制。關(guān)鍵字：vb，曲線藝術(shù)界面，曲線繪制界面。

目錄1.選題的意義 42．系統(tǒng)功能需求分析 42.1系統(tǒng)概述 42.2系統(tǒng)的構(gòu)成 52.3各模塊的功能 52.4系統(tǒng)的運(yùn)行環(huán)境 53．系統(tǒng)設(shè)計(jì) 63.1總體結(jié)構(gòu)設(shè)計(jì) 63.2背景設(shè)計(jì) 63.3背景音樂設(shè)計(jì)64．系統(tǒng)實(shí)現(xiàn) 74.1曲線歡迎界面的設(shè)計(jì)和實(shí)現(xiàn) 74.2背景音樂的設(shè)計(jì)與實(shí)現(xiàn) 8各種繪制曲線方法的設(shè)計(jì)和實(shí)現(xiàn)5．總結(jié) 155.1總結(jié) 165.2心得體會(huì) 166.致謝詞7.參考文獻(xiàn)17

1.選題的意義隨著數(shù)學(xué)等學(xué)科的進(jìn)一步深入，一些復(fù)雜的圖像，顯然用手越來越難畫出，本系統(tǒng)就是為了完善復(fù)雜曲線的繪制而設(shè)計(jì)的。它不但能能讓人們完成一些復(fù)雜的曲線，還可以自己設(shè)置相應(yīng)的常量，同時(shí)還可以聽到美妙的音樂，使本來乏味的曲線有了一絲趣味。從而提升學(xué)生對(duì)于復(fù)雜曲線的興趣，以及對(duì)vb課程設(shè)計(jì)的興趣，達(dá)到不只是曲線，而且還有vb的推廣。我設(shè)計(jì)繪制幾何曲線系統(tǒng)，通過對(duì)本系統(tǒng)的設(shè)計(jì)，對(duì)各對(duì)象、窗體、控件的屬性、功能有了更深刻的理解，并自學(xué)完成了曲線代碼的編制，坐標(biāo)的繪制，各種繪制曲線的基本方法，以及對(duì)背景音樂的添加。2．系統(tǒng)功能需求分析2.1系統(tǒng)概述繪制幾何曲線系統(tǒng)是為了促進(jìn)學(xué)生對(duì)復(fù)雜曲線的了解，以及對(duì)繪制幾何曲線的方法有一定的了解。它可以使學(xué)生通過點(diǎn)擊不同的按鈕，完成對(duì)不同曲線的繪制，如果不喜歡，還可以自己調(diào)節(jié)常數(shù)量和相應(yīng)的半徑參數(shù)，從而達(dá)到自己想要的理想效果。我還在每個(gè)頁面設(shè)退出命令按鈕，可方便快捷地退出本系統(tǒng)。通過命令按鈕將每個(gè)窗體之間的跳轉(zhuǎn)順利實(shí)現(xiàn)。2.2系統(tǒng)的構(gòu)成此系統(tǒng)有八個(gè)界面組成：1.歡迎界面、2.三角函數(shù)線、3.鉆時(shí)曲線4.玫瑰曲線、5.五環(huán)曲線、6.笛卡爾心形線7.類心臟線、8.笛卡爾葉形線2.3各模塊的功能在歡迎界面，學(xué)生可以點(diǎn)擊不同的按鈕，進(jìn)行與子界面之間的切換，各子界面內(nèi)可以點(diǎn)擊相應(yīng)曲線的名稱，完成對(duì)不同曲線的繪制。并且可以自己設(shè)置某些常量和半徑的值，從而達(dá)到更好的效果，點(diǎn)擊返回按鈕可以返回主界面，并且主界面的背景發(fā)生變化，相應(yīng)的按鈕發(fā)生顏色的變化。2.4系統(tǒng)的運(yùn)行環(huán)境繪制幾何曲線的程序，可以用來幫助學(xué)生對(duì)曲線有更形象的了解，從而增加學(xué)生的學(xué)習(xí)興趣，也可以用于vb中作為例題從而完成學(xué)生學(xué)習(xí)曲線繪制的各種基本方法，對(duì)此課程有一個(gè)更好地掌握，另外此程序還考慮到學(xué)生對(duì)不同曲線大小的需求，調(diào)節(jié)不同的參數(shù)，達(dá)到自己想要的效果。3.系統(tǒng)設(shè)計(jì)3.1總體結(jié)構(gòu)設(shè)計(jì)主界面主界面五環(huán)曲線玫瑰曲線鉆時(shí)曲線三角函數(shù)線心形線葉形線心臟線五環(huán)曲線玫瑰曲線鉆時(shí)曲線三角函數(shù)線心形線葉形線心臟線3.2背景設(shè)計(jì)為了防止背景圖片在不同的盤中不能正常顯示，采用了App.Path&的相對(duì)路徑可以避免了此問題，達(dá)到了隨時(shí)安裝隨時(shí)應(yīng)用的目的。3.3背景音樂的設(shè)計(jì)背景音樂的添加可以是網(wǎng)絡(luò)音樂，但打開系統(tǒng)時(shí)，背景音樂可能因?yàn)榫W(wǎng)速的原因卡或者不能播放為了解決這個(gè)問題直接將此歌曲加載到系統(tǒng)里，并且也采用了相對(duì)路徑，達(dá)到了隨開隨放的效果。4.系統(tǒng)實(shí)現(xiàn)4.1曲線歡迎界面的實(shí)現(xiàn)首先，在主頁窗體上添加圖片是在屬性窗口中通過“picture”屬性中設(shè)置的窗體上滾動(dòng)的字條“甄衛(wèi)剛設(shè)計(jì)歡迎欣賞”通過如下代碼設(shè)置實(shí)現(xiàn)：PrivateSubTimer2_Timer()'timer2控件的timer事件來實(shí)現(xiàn)標(biāo)簽移動(dòng)IfLabel2.Left+Label2.Width>0ThenLabel2.Left=Label2.Left-20ElseLabel2.Left=Picture1.WidthEndIfEndSub美麗的曲線的顏色變化同樣是通過timer來實(shí)現(xiàn)的。4.2背景音樂的設(shè)計(jì)與實(shí)現(xiàn)PrivateSubForm_Load()DimTempData()AsByteTempDataPath=App.Path&"清明雨上.mp3"‘相對(duì)路徑TempData=LoadResData(101,"CUSTOM")OpenTempDataPathForBinaryAccessWriteAs#1Put#1,,TempDataClose#1WindowsMediaPlayer1.URL=TempDataPath‘達(dá)到隨開隨放三角函數(shù)線的繪制PrivateSubCommand1_Click()Dimx!,y!,i!ClsDrawWidth=1.5Scale(-14,14)-(14,-14)Line(-13,0)-(13,0)Line(0,11)-(0,-13)CurrentX=0:CurrentY=0:Print"0"CurrentX=13:CurrentY=0:Print"x"CurrentX=0:CurrentY=11:Print"y"‘繪制坐標(biāo)Fori=-10To10Step0.0002x=i*2*3.14/10y=10*Sin(x)‘定x，y的值PSet(i,y),vbBlueNextiEndSub效果如下：五環(huán)曲線的繪制代碼：PrivateSubCommand1_Click()Dimi%,j%,r%,x%DrawWidth=3r=500x=1000:y=1000Forj=3To2Step-1Fori=1TojCircle(x,y),r,QBColor(Rnd*15)‘五環(huán)的顏色隨機(jī)變換x=x+2*r+100Nextix=1000+r+50y=y+r+150‘確定各圓的圓心NextjEndSub效果如下玫瑰曲線的代碼如下：PrivateSubCommand1_Click()Dima#,x#,y#,r%Form5.Scale(-4,4)-(4,-4)r=4Fora=0To360Step0.01x=r*Cos(6*a)*Cos(a)y=r*Cos(6*a)*Sin(a)Form5.PSet(x,y),RGB(252,33,94)NextDimx1#,y1#,r1%Form5.Scale(-4,4)-(4,-4)r1=3Fora=0To360Step0.005‘三個(gè)的速率不同達(dá)到動(dòng)態(tài)效果x1=r1*Cos(6*a)*Cos(a)y1=r1*Cos(6*a)*Sin(a)Form5.PSet(x1,y1),vbGreenNextDimx2#,y2#,r2%Form5.Scale(-4,4)-(4,-4)r2=2‘半徑不同取值達(dá)到玫瑰效果Fora=0To360Step0.001x2=r2*Cos(6*a)*Cos(a)y2=r2*Cos(6*a)*Sin(a)Form5.PSet(x2,y2),RGB(252,33,94)NextEndSub效果如下：鉆時(shí)曲線的代碼如下：PrivateSubCommand1_Click()Constpi=3.14159265Dimi%,j%,x1!,y1!,x2!,y2!Dimsngangle!,sngradius!,intnodes%Me.Scale(-15,-15)-(15,15)Me.ClsIfText2.Text=""ThenText2.Text=10IfText1.Text=""ThenText1.Text=15sngradius=Val(Text2.Text)intnodes=Val(Text1.Text)sngangle=2*pi/intnodesFori=1Tointnodesx1=sngradius*Cos(i*sngangle)y1=sngradius*Sin(i*sngangle)‘定分點(diǎn)的坐標(biāo)Forj=1TointnodesIfi<>jThenx2=sngradius*Cos(j*sngangle)y2=sngradius*Sin(j*sngangle)‘第二次定分點(diǎn)的坐標(biāo)Me.Line(x1,y1)-(x2,y2),vbBlue‘用line方法完成不同點(diǎn)的連線EndIfNextNextEndSub效果如下：類心臟線類似。笛卡兒葉形線、心形線類似，以葉形線為例，代碼如下：PrivateSubCommand1_Click()Dimx!,y!,i!,a!ClsDrawWidth=1.5‘設(shè)置線的寬度Scale(-14,14)-(14,-14)Line(-13,0)-(13,0)Line(0,11)-(0,-13)CurrentX=0:CurrentY=0:Print"0"CurrentX=13:CurrentY=0:Print"x"CurrentX=0:CurrentY=11:Print"y"IfText1.Text=""ThenMsgBox"a無值",vbExclamation,"輸入a的值"‘必須輸入a值Text1.SetFocusElsea=Text1.TextFori=0To6.8Step0.0001x=a*3*Sin(i)*Cos(i)^2/(Sin(i)^3+Cos(i)^3)y=a*3*Sin(i)*