vb函數(shù)曲線動(dòng)態(tài)繪制報(bào)告

計(jì)算機(jī)實(shí)習(xí)二(通信工程系)指導(dǎo)教師章曉莉班級0431班學(xué)號043123姓名李濤需求分析：函數(shù)曲線動(dòng)態(tài)繪制使用面向?qū)ο笤O(shè)計(jì)環(huán)境，編程實(shí)現(xiàn)函數(shù)曲線的自動(dòng)繪制。程序功能是：根據(jù)選擇的演示函數(shù)，允許用戶輸入?yún)?shù)，然后動(dòng)態(tài)用不同顏色繪制出相應(yīng)函數(shù)曲線。在用戶沒有做出其他選擇之前，一直重復(fù)動(dòng)態(tài)演示曲線繪制過程。要求函數(shù)名函數(shù)式需要輸入的參數(shù)及格要求一次函數(shù)Y=Ax+BA,B及格要求二次函數(shù)Y=Ax2+Bx+CA,B,C中等要求正弦函數(shù)Y=Asin(Bx+C)+DA,B,C,D中等要求余弦函數(shù)Y=Acos(Bx+C)+DA,B,C,D良好要求冪函數(shù)Y=xaA良好要求指數(shù)函數(shù)Y=axA良好要求對數(shù)函數(shù)Y=logaxA優(yōu)秀要求正切函數(shù)Y=tan(Ax+B)A,B優(yōu)秀要求余切函數(shù)Y=cot(Ax+B)A,B程序設(shè)計(jì)：對面向?qū)ο笤O(shè)計(jì)環(huán)境的認(rèn)識(shí)：第一次接觸面向?qū)ο笤O(shè)計(jì)環(huán)境，覺得和C語言和匯編語言有很大差別，不是給你一個(gè)界面一條條代碼往下寫，而是給出很多的控件備選，在這些控件的代碼添寫處寫該孔件所要執(zhí)行的功能，很多控件是相互聯(lián)系的，一個(gè)控件會(huì)啟用其他一個(gè)或幾個(gè)控件的功能。還要設(shè)計(jì)一個(gè)合理的外觀，通過設(shè)置相應(yīng)的屬性選項(xiàng)設(shè)計(jì)界面。但是編程的思想和以前學(xué)習(xí)的語言是完全一樣的，數(shù)據(jù)類型，定義，順序，循環(huán)，選擇結(jié)構(gòu)的設(shè)計(jì)都和其他語言沒太大分別，所以學(xué)習(xí)起來并不困難。2，程序構(gòu)思；把要繪制的函數(shù)放在一個(gè)列表框中，用時(shí)鐘的啟用和停止控制圖像的都態(tài)繪制。選擇列表框中的一個(gè)函數(shù)，對應(yīng)的一個(gè)時(shí)鐘啟用，其他的時(shí)鐘禁用，在時(shí)鐘控件的代碼填寫處寫圖像繪制的代碼，用RGB函數(shù)產(chǎn)生隨機(jī)顏色。直線用兩點(diǎn)法繪圖，其他的用描點(diǎn)法繪圖，用FOR循環(huán)產(chǎn)生X值，再根據(jù)函數(shù)公式計(jì)算出Y值。使用全局變量，因?yàn)槊看沃焕L一個(gè)函數(shù)的圖，所以全部函數(shù)可以用同樣的變量，每次繪圖給變量付值即可。開始程序流程圖：開始函數(shù)九函數(shù)九函數(shù)一函數(shù)一開時(shí)鐘開時(shí)鐘九開時(shí)鐘一開時(shí)鐘一函數(shù)二函數(shù)二開時(shí)鐘四開時(shí)鐘八畫圖開時(shí)鐘二I<20計(jì)算X，Y畫開時(shí)鐘四開時(shí)鐘八畫圖開時(shí)鐘二I<20計(jì)算X，Y畫點(diǎn)函數(shù)三函數(shù)六函數(shù)四函數(shù)七函數(shù)八開時(shí)鐘六開時(shí)鐘七I自增函數(shù)五開時(shí)鐘三開時(shí)鐘五不是結(jié)束畫點(diǎn)該學(xué)生畢業(yè)設(shè)計(jì)中經(jīng)過老師的指導(dǎo)能及時(shí)糾正自己的行為，端正學(xué)習(xí)態(tài)度。通過指導(dǎo)和自學(xué)，對所承擔(dān)的任務(wù)進(jìn)行了實(shí)施，結(jié)果較好。報(bào)告中因?yàn)闆]有按指導(dǎo)要求使用畫圖軟件，導(dǎo)致流程圖不規(guī)范。語言不規(guī)范。結(jié)果得分：中批改老師：章小莉2006．9．29

程序代碼和注釋Dima,b,c,dAsSingle‘定義單精度的通用變量PrivateSubcancel_Click()UnloadMe退出程序EndSubPrivateSubForm_Load()‘在列表狂中顯示函數(shù)信息List1.AddItem"y=ax+b"‘在列表狂中顯示函數(shù)信息List1.AddItem"y=ax^2+bx+c"‘在列表狂中顯示函數(shù)信息List1.AddItem"y=asin(bx+c)+d"‘在列表狂中顯示函數(shù)信息List1.AddItem"y=acos(bx+c)+d"‘在列表狂中顯示函數(shù)信息List1.AddItem"y=x^a"‘在列表狂中顯示函數(shù)信息List1.AddItem"y=a^x"‘在列表狂中顯示函數(shù)信息List1.AddItem"y=loga^x"‘在列表狂中顯示函數(shù)信息List1.AddItem"y=tan(ax+b)"‘在列表狂中顯示函數(shù)信息List1.AddItem"y=cot(ax+b)"‘在列表狂中顯示函數(shù)信息EndSubPrivateSublt1_Click()‘使所有時(shí)鐘停止，即停止繪圖Timer1.Interval=0Timer2.Interval=0Timer3.Interval=0Timer4.Interval=0Timer5.Interval=0Timer6.Interval=0Timer7.Interval=0Timer8.Interval=0Timer9.Interval=0EndSubPrivateSublt2_Click()IfList1.ListIndex=0Thena=InputBox("直線參數(shù)輸入","請輸入系數(shù)a",0)b=InputBox("直線參數(shù)輸入","請輸入系數(shù)b",0)Timer1.Interval=1000‘當(dāng)選擇第一個(gè)函數(shù)時(shí)開啟時(shí)鐘一EndIfIfList1.ListIndex=1Thena=InputBox("拋物線參數(shù)輸入","請輸入系數(shù)a",0)b=InputBox("拋物線參數(shù)輸入","請輸入系數(shù)b",0)c=InputBox("拋物線參數(shù)輸入","請輸入系數(shù)c",0)Timer2.Interval=1000‘當(dāng)選擇第二個(gè)函數(shù)時(shí)開啟時(shí)鐘二EndIfIfList1.ListIndex=2Thena=InputBox("正弦線參數(shù)輸入","請輸入系數(shù)a",0)b=InputBox("正弦線參數(shù)輸入","請輸入系數(shù)b",0)c=InputBox("正弦線參數(shù)輸入","請輸入系數(shù)c",0)d=InputBox("正弦線參數(shù)輸入","請輸入系數(shù)d",0)Timer3.Interval=1000‘當(dāng)選擇第三個(gè)函數(shù)時(shí)開啟時(shí)鐘三EndIfIfList1.ListIndex=3Thena=InputBox("余弦線參數(shù)輸入","請輸入系數(shù)a",0)b=InputBox("余弦線參數(shù)輸入","請輸入系數(shù)b",0)c=InputBox("余弦線參數(shù)輸入","請輸入系數(shù)c",0)d=InputBox("余弦線參數(shù)輸入","請輸入系數(shù)d",0)Timer4.Interval=1000‘當(dāng)選擇第四個(gè)函數(shù)時(shí)開啟時(shí)鐘四EndIfIfList1.ListIndex=4Thena=InputBox("冪函數(shù)參數(shù)輸入","請輸入系數(shù)a",0)Timer5.Interval=1000‘當(dāng)選擇第五個(gè)函數(shù)時(shí)開啟時(shí)鐘五EndIfIfList1.ListIndex=5Thena=InputBox("指數(shù)函數(shù)參數(shù)輸入","請輸入系數(shù)a",0)Timer6.Interval=1000‘當(dāng)選擇第六個(gè)函數(shù)時(shí)開啟時(shí)鐘六EndIfIfList1.ListIndex=6Thena=InputBox("對數(shù)函數(shù)參數(shù)輸入","請輸入系數(shù)a",0)Timer7.Interval=1000‘當(dāng)選擇第七個(gè)函數(shù)時(shí)開啟時(shí)鐘七EndIfIfList1.ListIndex=7Thena=InputBox("正切函數(shù)參數(shù)輸入","請輸入系數(shù)a",0)b=InputBox("正切函數(shù)參數(shù)輸入","請輸入系數(shù)b",0)Timer8.Interval=1000‘當(dāng)選擇第八個(gè)函數(shù)時(shí)開啟時(shí)鐘八EndIfIfList1.ListIndex=8Thena=InputBox("余切函數(shù)參數(shù)輸入","請輸入系數(shù)a",0)b=InputBox("余切函數(shù)參數(shù)輸入","請輸入系數(shù)b",0)Timer9.Interval=1000‘當(dāng)選擇第九個(gè)函數(shù)時(shí)開啟時(shí)鐘九EndIfEndSubPrivateSublt3_Click()Picture1.Cls‘清屏EndSubPrivateSubText1_Change()EndSubPrivateSubTimer1_Timer()Picture1.ClsPicture1.Scale(-10,10)-(10,-10)‘定義坐標(biāo)red=Rnd*255green=Rnd*255blue=Rnd*255Intcolor=RGB(red,green,blue)‘產(chǎn)生隨機(jī)顏色X1=-10X2=10Y1=a*X1+b‘用已知的X值計(jì)算Y值Y2=a*X2+bPicture1.Line(-10,0)-(10,0)Picture1.Line(0,10)-(0,-10)‘畫坐標(biāo)Picture1.Line(X1,Y1)-(X2,Y2),Intcolor‘用隨機(jī)顏色畫圖EndSubPrivateSubTimer2_Timer()Picture1.Cls‘清屏Picture1.Scale(-10,10)-(10,-10)‘定義坐標(biāo)red=Rnd*255green=Rnd*255blue=Rnd*255Intcolor=RGB(red,green,blue)‘產(chǎn)生隨機(jī)顏色Fori=0To20Step0.01‘循環(huán)產(chǎn)生等步長的很多X值X1=-10+iY1=a*X1^2+b*X1+c‘用已知的X值計(jì)算Y值Picture1.Line(-10,0)-(10,0)Picture1.Line(0,10)-(0,-10)‘畫坐標(biāo)Picture1.PSet(X1,Y1),Intcolor‘用隨機(jī)顏色畫點(diǎn)NextiEndSubPrivateSubTimer3_Timer()Picture1.Cls‘清屏Picture1.Scale(-10,10)-(10,-10)‘定義坐標(biāo)red=Rnd*255green=Rnd*255blue=Rnd*255Intcolor=RGB(red,green,blue)‘產(chǎn)生隨機(jī)顏色Fori=0To20Step0.01‘循環(huán)產(chǎn)生等步長的很多X值X1=-10+iY1=a*Sin(b*X1+c)+d‘用已知的X值計(jì)算Y值Picture1.Line(-10,0)-(10,0)Picture1.Line(0,10)-(0,-10)‘畫坐標(biāo)Picture1.PSet(X1,Y1),Intcolor‘用隨機(jī)顏色畫點(diǎn)NextiEndSubPrivateSubTimer4_Timer()Picture1.Cls‘清屏Picture1.Scale(-10,10)-(10,-10)‘定義坐標(biāo)red=Rnd*255green=Rnd*255blue=Rnd*255Intcolor=RGB(red,green,blue)‘產(chǎn)生隨機(jī)顏色Fori=0To20Step0.01‘循環(huán)產(chǎn)生等步長的很多X值X1=-10+iY1=a*Cos(b*X1+c)+d‘用已知的X值計(jì)算Y值Picture1.Line(-10,0)-(10,0)Picture1.Line(0,10)-(0,-10)‘畫坐標(biāo)Picture1.PSet(X1,Y1),Intcolor‘用隨機(jī)顏色畫點(diǎn)NextiEndSubPrivateSubTimer5_Timer()Picture1.Cls‘清屏Picture1.Scale(-10,10)-(10,-10)‘定義坐標(biāo)red=Rnd*255green=Rnd*255blue=Rnd*255Intcolor=RGB(red,green,blue)‘產(chǎn)生隨機(jī)顏色Fori=0To20Step0.01‘循環(huán)產(chǎn)生等步長的很多X值X1=-10+iY1=X1^a‘用已知的X值計(jì)算Y值Picture1.Line(-10,0)-(10,0)Picture1.Line(0,10)-(0,-10)‘畫坐標(biāo)Picture1.PSet(X1,Y1),Intcolor‘用隨機(jī)顏色畫點(diǎn)NextiEndSubPrivateSubTimer6_Timer()Picture1.Cls‘清屏Picture1.Scale(-10,10)-(10,-10)‘定義坐標(biāo)red=Rnd*255green=Rnd*255blue=Rnd*255Intcolor=RGB(red,green,blue)‘產(chǎn)生隨機(jī)顏色Fori=0To20Step0.01‘循環(huán)產(chǎn)生等步長的很多X值X1=-10+iY1=a^X1‘用已知的X值計(jì)算Y值Picture1.Line(-10,0)-(10,0)Picture1.Line(0,10)-(0,-10)‘畫坐標(biāo)Picture1.PSet(X1,Y1),Intcolor‘用隨機(jī)顏色畫點(diǎn)NextiEndSubPrivateSubTimer7_Timer()Picture1.Cls‘清屏Picture1.Scale(-10,10)-(10,-10)‘定義坐標(biāo)red=Rnd*255green=Rnd*255blue=Rnd*255Intcolor=RGB(red,green,blue)‘產(chǎn)生隨機(jī)顏色Fori=0.01To20Step0.01‘循環(huán)產(chǎn)生等步長的很多X值X1=0+iY1=Log(X1)/Log(a)‘用已知的X值計(jì)算Y值Picture1.Line(-10,0)-(10,0)Picture1.Line(0,10)-(0,-10)‘畫坐標(biāo)Picture1.PSet(X1,Y1),Intcolor‘用隨機(jī)顏色畫點(diǎn)NextiEndSubPrivateSubTimer8_Timer()Picture1.Cls‘清屏Picture1.Scale(-10,10)-(10,-10)‘定義坐標(biāo)red=Rnd*255green=Rnd*255blue=Rnd*255Intcolor=RGB(red,green,blue)‘產(chǎn)生隨機(jī)顏色Fori=0To20Step0.001‘循環(huán)產(chǎn)生等步長的很多X值X1=-10+iY1=Tan(a*X1+b)‘用已知的X值計(jì)算Y值Picture1.Line(-10,0)-(10,0)Picture1.Line(0,10)-(0,-10)