《旋轉(zhuǎn)體體積計(jì)算》VB課程設(shè)計(jì)報(bào)告

1、僅供個(gè)人參考回轉(zhuǎn)體體積計(jì)算VB課程設(shè)計(jì)報(bào)告班級(jí)：03015103學(xué)號(hào)：03304095姓名：趙嚴(yán)明(1)打字練習(xí)游戲的功能本程序使用來(lái)計(jì)算復(fù)雜回轉(zhuǎn)體的體積的。簡(jiǎn)單的回轉(zhuǎn)體可以認(rèn)為是由多個(gè)回轉(zhuǎn)體體素構(gòu)成的組合體?；剞D(zhuǎn)體體素包括圓柱體、圓臺(tái)(既截錐體)、圓錐體、球冠(既局部球體)和母線為圓弧的球臺(tái)這五種情況。(2) 課程設(shè)計(jì)的詳細(xì)設(shè)計(jì)本程序是由兩個(gè)窗口組成，結(jié)構(gòu)比較簡(jiǎn)單。設(shè)計(jì)的第一點(diǎn)是它的布局，鑒于課程設(shè)計(jì)已經(jīng)給出很合理的結(jié)構(gòu)布局，因此沒(méi)有進(jìn)行更改。程序第一個(gè)主窗口是由列表框，文本框，單選框和標(biāo)簽等組成。為方便設(shè)計(jì)，將"確定"按鍵做為計(jì)算的作用，而"計(jì)算”按鍵僅僅作為

2、呼出顯示結(jié)果的列表框的作用。Forpersonaluseonlyinstudyandresearch;notforcommercialuse(3) 調(diào)試程序的過(guò)程<1>發(fā)現(xiàn)"重置”命令不能使所有的有效數(shù)據(jù)歸零。以致影響了以后幾次的計(jì)算結(jié)果。還有發(fā)現(xiàn)幾處類(lèi)型不匹配的錯(cuò)誤。<2>Forpersonaluseonlyinstudyandresearch;notforcommercialuse(4) 輸入輸出數(shù)據(jù)通過(guò)兩個(gè)文本框輸入數(shù)字，例如回轉(zhuǎn)體特征段的半徑，高度等；通過(guò)列表框選擇段號(hào)；通過(guò)單選框進(jìn)行特征的選擇。通過(guò)第二個(gè)窗口(為一列表框)進(jìn)行計(jì)算結(jié)果的輸出。Forp

3、ersonaluseonlyinstudyandresearch;notforcommercialuse(5) 課程設(shè)計(jì)總結(jié)曾經(jīng)覺(jué)得編程是件很困難的事情，后來(lái)聽(tīng)老師講課后又發(fā)現(xiàn)很簡(jiǎn)單，但是當(dāng)我又實(shí)際操作的時(shí)候卻再次發(fā)現(xiàn)真的很不容易。需要注意的東西太多，遠(yuǎn)遠(yuǎn)不是剛懂得編程是怎么一回事的時(shí)候一口氣可以做的出來(lái)的。對(duì)于這次課程設(shè)計(jì)中遇到的問(wèn)題，更是能讓我感受到這一點(diǎn)。譬如開(kāi)始的時(shí)候，將布局做完的時(shí)候，就開(kāi)始不知道怎樣下手了?？赡軚|西都是知道的，但是一下子卻不能取的出來(lái)。(6) 附件Forpersonaluseonlyinstudyandresearch;notforcommercialuseForm

4、1：OptionExplicit'強(qiáng)制聲明PublicVVAsInteger,aAsInteger,vAsDouble,mAsInteger,sAsSingle定義變量類(lèi)型Constpi=3.14159'常量聲明PrivateSubCommand1_Click()DimnAsIntegera=Val(textcount.Text)'賦值Ifa=0ThenMsgBox"請(qǐng)先輸入回轉(zhuǎn)體特征段數(shù)!",vbOKOnly+vbExclamation,"Vol"'若值為0，則提示錯(cuò)誤ElseList1.Clear'ReDimX

5、D(0Toa-1)Forn=1ToaList1.AddItemnNextFrame1.Enabled=TrueSelectCaseVV清除列表框 重新定義數(shù)組添加段號(hào)指定類(lèi)型，顯示對(duì)應(yīng)類(lèi)型Label1.Caption = "Label2.Caption = "Label3.Visible = FalseText3.Visible = FalseCase 2Label1.Caption = "Label2.Caption = "Label3.Caption = "Label3.Visible = TrueText3.Visible = TrueC

6、ase 3Label1.Caption = "Label2.Caption = "Label3.Visible = FalseText3.Visible = FalseCase 4Label1.Caption = "Label2.Caption = "Label3.Visible = False底面直徑 "圓柱高度 "下底直徑 "圓臺(tái)高度 "上底直徑 "底面直徑 "圓錐高度 "底面直徑 "球冠高度 "Text3.Visible = FalseCase 5Label1

7、.Caption = "Label2.Caption = "Label3.Visible = False小端半徑 "大端半徑 "Text3.Visible = FalseEnd SelectEnd IfEnd SubCase1PrivateSubCommand2_Click()'Ifa=0ThenMsgBox"請(qǐng)先生成回轉(zhuǎn)體結(jié)構(gòu)并設(shè)置尺寸，然后計(jì)算"Vol"'輸入錯(cuò)誤的提示ElseDimjAsInteger'Forj=0ToList1.ListCount-1'IfXD(j).T=0Then&#

8、39;v=0MsgBox"第"&j+1&"段沒(méi)有數(shù)據(jù)"'ExitSubElsev=v+XD(j).T'EndIfNextForm2.ShowEndIfEndSubPrivateSubCommand3_Click()List1.Clearv=0textcount.Text=""'Frame1.Enabled=False'Frame1UnloadForm2'EndSubPrivateSubCommand4_Click()End'EndSubPrivateSubCommand5

9、_Click()DimiAsInteger'Fori=0ToList1.ListCount-1'IfList1.Selected(i)=TrueThen'm=i'EndIfNextDimDAsSingle,HAsSingle,d1AsSingle'D=Val(Text1.Text)'總體積", vbOKOnly + vbExclamation定義變量利用循環(huán)某一特征體數(shù)計(jì)算結(jié)果為 0跳出信息對(duì)話框，指出讀數(shù)有誤累加各段之和清空重置不響應(yīng)關(guān)閉窗體 2結(jié)束程序定義變量 利用循環(huán)，循環(huán)個(gè)數(shù)為體數(shù)總數(shù) 列表框中某項(xiàng)被選中 賦值定義變量賦值H=V

10、al(Text2.Text)d1=Val(Text3.Text)SelectCaseVVCase 1IfD=0OrH=0Then'若輸入有誤'則提示MsgBox"輸入有誤",vbOKOnly+vbExclamation,"注意！"ExitSubEndIfXD(m).T=Format(pi*D*D*H/4,"#.#")'計(jì)算圓柱體體積并記錄在自定義函數(shù)數(shù)組中Case 2IfD=0OrH=0Ord1=0ThenMsgBox"輸入有誤",vbOKOnly+vbExclamation,"注

11、意！"ExitSubEndIfXD(m).T=Format(pi*di*(D人2+HA2+D*H)/12,"#.#")'計(jì)算圓臺(tái)體積并記錄在自定義函數(shù)數(shù)組中Case 3IfD=0OrH=0ThenMsgBox"輸入有誤",vbOKOnly+vbExclamation,"注意！"ExitSubEndIfXD(m).T=Format(pi*DA2*H/12,"#,#")'計(jì)算圓錐體體積并記錄在自定義函數(shù)數(shù)組中Case 4IfD=0OrH=0ThenMsgBox"輸入有誤",

12、vbOKOnly+vbExclamation,"注意！"ExitSubEndIfXD(m).T=Format(pi*(3*DA2/4+HA2)/6,"#.#")'計(jì)算球冠體積并記錄在自定義函數(shù)數(shù)組中Case 5IfD=0OrH=0ThenMsgBox"輸入有誤",vbOKOnly+vbExclamation,"注意！"ExitSubEndIfIfD>HThen'小端大于大端時(shí)提示MsgBox"小端大于大端",vbOKOnly+vbExclamation,"注意&q

13、uot;ExitSubEndIfXD(m).T=qt(D,H)'計(jì)算球臺(tái)體積并記錄在自定義函數(shù)數(shù)組中EndSelectIfXD(m).T=0ThenMsgBox"運(yùn)行時(shí)錯(cuò)誤13，類(lèi)型不匹配",vbOKOnly+vbExclamation,"Vol"不得用于商業(yè)用途'錯(cuò)誤時(shí)提示EndIfText1.Text=""'Text2.Text=""Text3.Text=""EndSubPrivateSubForm_Load()Label1.Caption="底面直徑Lab

14、el2.Caption="圓柱高度Label3.Visible=FalseText3.Visible=FalseVV=1'Frame1.Enabled=FalseEndSub清空數(shù)據(jù)為下次輸入準(zhǔn)備初始狀態(tài)尺寸顯示PrivateSubOption1_Click(IndexAsInteger)DimiAsIntegerFori=0ToList1.ListCount-1IfList1.Selected(i)=TrueThen'm=iEndIfNext記錄選中哪一段段號(hào)SelectCaseIndexCase0Label1.Caption="底面直徑Label2.Ca

15、ption="圓柱高度Label3.Visible=FalseText3.Visible=FalseVV=1XD(m).name="圓柱體"Case1Label1.Caption="上底直徑Label2.Caption="下底直徑Label3.Caption="圓臺(tái)高度Text3.Visible=TrueLabel3.Visible=TrueVV=2XD(m).name="圓臺(tái)體"顯示圓柱體尺寸框自定義函數(shù)數(shù)組賦值顯示圓臺(tái)體尺寸框自定義函數(shù)數(shù)組賦值Case2'Label1.Caption="底面直

16、徑"Label2.Caption="圓錐高度"Label3.Visible=FalseText3.Visible=FalseVV=3XD(m).name="圓錐體"Case3'Label1.Caption="底面直徑"Label2.Caption="球冠高度"Label3.Visible=FalseText3.Visible=FalseVV=4XD(m).name="球冠"Case4'Label1.Caption="小端半徑"Label2.Capti

17、on="大端半徑"Label3.Visible=FalseText3.Visible=FalseVV=5XD(m).name="球臺(tái)"顯示圓錐體尺寸框自定義函數(shù)數(shù)組賦值顯示球冠尺寸框自定義函數(shù)數(shù)組賦值顯示球臺(tái)尺寸框自定義函數(shù)數(shù)組賦值EndSelectEndSubFunctionqt(ByValXAsInteger,ByValYAsInteger)DimtiAsSingleDimmAsLongDimpiAsSinglem=1pi=3.14DimnAsIntegerDoUntil(Y-X)/m<0.0001m=m+1Loopn=1DoUntiln=mt

18、i=ti+(X+(Y-X)*n/m)*4*(X+(Y-X)*n/m)*(Y-X)/mn=n+1Loopqt=tiEndFunctionForm2：OptionExplicitPrivateSubCommand1_Click()顯示窗體 1UnloadForm2EndSubPrivateSubForm_Load()List1.ClearDimiAsIntegerFori=0ToForm1.a-1List1.AddItem"第"&i+1&"段"&Module1.XD(i).name&Module1.XD(i).T'列表框中顯示每段短號(hào)對(duì)應(yīng)的體素及相應(yīng)體積NextList1.AddItem""List1.AddItem"總體積"&Form1.v'添加顯示總體積EndSubPri