VB-計算器-課程設(shè)計

華東交通大學VB課程設(shè)計報告VB課程設(shè)計（論文）任務(wù)書電子版：1503284681扣扣機電學12物流專業(yè)_2班班一、課程設(shè)計（論文）題目：計算器 二、課程設(shè)計（論文）工作自2013年06月17日起至2013年06月23日止三、課程設(shè)計（論文）地點： 計算中心8#601四、課程設(shè)計（論文）內(nèi)容要求：.本課程設(shè)計的目的（1）進一步鞏固和加深對“VB程序設(shè)計”課程基本知識的理解和掌握，了解VB語言在項目開發(fā)中的應(yīng)用。 —~（2）學習程序設(shè)計開發(fā)的一般方法，了解和掌握項目開發(fā)過程及方式，培養(yǎng)正確的設(shè)計思想和分析問題、解決問題的能力，特別是項目設(shè)計能力。（3）通過對標準化、規(guī)范化文檔的掌握并查閱有關(guān)技術(shù)資料等，培養(yǎng)項目設(shè)計開發(fā)能力。.課程設(shè)計的任務(wù)及要求（1）基本要求: ""1）對系統(tǒng)功能進行需求分析； 一2）使用Visualbasic開發(fā)環(huán)境進行程序開發(fā)；3）提出系統(tǒng)的設(shè)計方案； 一4）編寫源程序代碼并進行調(diào)試。 （2）創(chuàng)新要求在基本要求達到后，可進行創(chuàng)新設(shè)計。（3）課程設(shè)計報告撰寫及裝訂要求課程設(shè)計報告的撰寫要求表述簡明，圖表準確。 報告按如下內(nèi)容和順序用A4紙進行打印并裝訂成冊?！獈1）封面采用統(tǒng)一的課程設(shè)計封面，并按要求填寫好封面要求的個人信息和選題。 2）設(shè)計任務(wù)書 一3）評閱書 4）目錄 5）正文 6）主要參考文獻 （4）課程設(shè)計評分標準：""1）達到課程設(shè)計的目的與要求，程序的可讀性較好，并調(diào)試正確，60分；2）能正確回答設(shè)計的中老師所提問題，可增加10分；3）課程設(shè)計報告書寫規(guī)范整齊，可增加10分; 4）心得體會認真總結(jié)，可增加10分； 一5）程序有創(chuàng)新性，可增加10分；成績評定實行優(yōu)秀、良好、中等、及格和不及格五個等級。不及格者需重做。（5）課程設(shè)計進度安排：華東交通大學VB課程設(shè)計報告1）準備階段（6學時）：選擇設(shè)計題目、了解設(shè)計目的要求、查閱相關(guān)資料。2）程序模塊設(shè)計分析階段（8學時）：程序總體設(shè)計、詳細設(shè)計。3）代碼編寫調(diào)試階段（10學時）：程序模塊代碼編寫、調(diào)試、測試。 4）撰寫論文階段（6學時）：總結(jié)課程設(shè)計任務(wù)和設(shè)計內(nèi)容，撰寫課程設(shè)計論文。（6）課程設(shè)計題目具體要求：設(shè)計要求：設(shè)計一個“計算器” 本題目要求編制一個“計算器”程序，不但具有家、減、乘、除等簡單功能，還要求包括常用數(shù)學函數(shù)的功能，并且可以進行存儲、清零等操作。 ⑴“計算器”（如圖1）要求包含的功能有：加、減、乘、除、存儲、顯示存儲結(jié)果、存儲器清零，以及計算正弦、余弦、正切、余切、反正弦、反余弦、反正切、反余切、求自然對數(shù)、求以10為底的對數(shù)、求階乘等功能。圖1 ~~⑵要求計算器上數(shù)字0?9為一個控件數(shù)組，加、減、乘、除為一個控件數(shù)組，存儲X一M）、存儲顯示（RM）、存儲相加（M+）為一個控件數(shù)組，計算功能框中所有的功能按鈕（如sin、cos、Ln及n!等）為一個控件數(shù)組⑶輸入的原始數(shù)據(jù)、運算的中間結(jié)果及最終結(jié)果都顯示在窗口頂部的同一個文本框中。~~⑷能用系統(tǒng)內(nèi)部函數(shù)的計算功能盡量采用系統(tǒng)函數(shù)，沒有相應(yīng)系統(tǒng)函數(shù)的計算功能要定義獨立的函數(shù)過程。⑸對于三角函數(shù)，其輸入的角度單位為度；對于反三角函數(shù)，輸出的結(jié)果單位也為度，要求當輸入的單位或數(shù)值不符合題意時，程序能及時地在窗口底部的信息窗口中提示或用消息框提示（如反正弦函數(shù)原始數(shù)據(jù)的范圍為[-1,1],若用戶輸入的數(shù)據(jù)不在此范圍，則程序能顯示“數(shù)據(jù)超出反正閑的數(shù)值范圍，請重新輸入!”（如圖2）,自動將文本框中的數(shù)據(jù)清除，并使文本框獲得焦點，等待用戶重新輸入）。calc數(shù)據(jù)荏出應(yīng)親弦的數(shù)值范圍，話重新輸入.二二通定二二|⑹“X-M”按鈕可將當前顯示的數(shù)值保存到寄存器中，如果存儲器中已有數(shù)據(jù)，則被華東交通大學VB課程設(shè)計報告覆蓋?！癛M”按鈕可以調(diào)出寄存器中的數(shù)據(jù)，并可參與到當前進行的計算中?！癕+”按鈕可以將當前顯示的數(shù)據(jù)和寄存器當前保存的數(shù)據(jù)相加后保存到寄存器中。每按一次“->”按鈕可以刪除當前數(shù)據(jù)的最后一位?！癈”按鈕可以清除所有已輸入的數(shù)據(jù)從頭計算；“CE”按鈕只清除當前輸入的數(shù)據(jù)，重新輸入數(shù)據(jù)可以繼續(xù)當前計算。學生簽名： 2013年06月日華東交通大學VB課程設(shè)計報告課程設(shè)計（論文）評閱意見序號項目等 級優(yōu)秀良好中等及格不及格1課程設(shè)計態(tài)度評價2出勤情況評價3任務(wù)難度評價4工作量飽滿評價5設(shè)計中創(chuàng)新性評價6論文書寫規(guī)范化評價綜合評定等級評閱人職稱2013年月日華東交通大學VB課程設(shè)計報告目錄TOC\o"1-5"\h\z\o"CurrentDocument"一：任務(wù)概述 1\o"CurrentDocument"二：系統(tǒng)總體設(shè)計方案 2\o"CurrentDocument"三：系統(tǒng)的調(diào)試 4\o"CurrentDocument"四：源程序代碼及必要注釋 6\o"CurrentDocument"五：運行結(jié)果及分析 15六：心得體會 17參考文獻華東交通大學VB課程設(shè)計報告一、任務(wù)概述.設(shè)計任務(wù)：編制一個計算機程序，使其不僅能夠擁有簡單的加減乘除運算，還具有常用數(shù)學函數(shù)功能，使其具備科學計算器的大部分功能。.程序啟動啟動程序會看見黃色背景色，有36個命令按鈕和一個文本框構(gòu)成，文本框呈淺藍色按下OFF按鈕可關(guān)閉程序。該計算器具有記憶儲存功能（XfM）以及儲存相加（M+）功能。當存儲器中數(shù)不為零時會在Text框中顯示M，否則M消失。對于輸入的數(shù)據(jù)不符合相對應(yīng)的運算法則時，電腦會自動報錯（數(shù)據(jù)超出**的數(shù)值范圍，請重新輸入?。藭r應(yīng)從新輸入數(shù)據(jù)。符號+/-是正負的切換，按一下就為負，再按一次又轉(zhuǎn)為正。對于更多的內(nèi)容后面章節(jié)會提及。.任務(wù)目的檢驗自己學期內(nèi)的學習效果和自習能力，更好地掌握VB編程技術(shù)。

華東交通大學VB課程設(shè)計報告二、系統(tǒng)總體設(shè)計方案.構(gòu)思流程圖:圖2—1.各屬性值的變換：文本框和窗體顏色在“BackColor”中改變，分別如圖2-2和2-3，其中，文本框

中的Locked改為true使其不能人工輸入，此時Text為只讀！文本框顏色改為淺藍色，窗體的顏色改為黃色華東交通大學VB課程設(shè)計報告Igffi-Teitl|Fez11leilEtu在字壬序於三類序AliEiineiLi0-LeftJustifyAppearMicei-3rl!-xcldColof□^I：II：I????I：IIMBprlerStyle1-FistedSirigl^CaTLEezYalidalianTrueIl：dih電IdIlaiiFormatDaidlenberDa.i CADr也祖e(Noras.JIragJIode0-ManualEnabledTrueTout策佯IoreColor■i4800000084Heidit975H41pC>:>ni4xiIIIOHid^ScleciiqilTrueINEn.：..ieO-NoOperationIinieELef-.非［LinHteniL3TiJifJod.fiD-Eon。LiidzTanet-uiSOLiiiklopicLoekedTrueFbucLengtt0IIouselcon(Hone)NdTiseJ'iijjfler0-DefaultFlulMUn電FolaOLEDr3.O_Marital.OLEHriipriiiiieO-NonefaEEVordChirKigMToL電ftFalseScriillBai'E0-None7^Llnddx1急性-■十宜器E計篁器Forn按字母序按分類序溶標〕 |計算器Appearance1-3HAutoReiirawF：i1ehEackColor□i^iKnnnnjFFF^BorderStyle2-SizableCajition計算器ClipControleTrueCijiLtrolBoxTrueHrawMcide13_匚口pyFenLrawStyle0-SolidDrawWidth1EnabledTrueFine01or■■^00000000.3.FillStyle1-TranEpar白ntFout宋體FojitTr皿sparentTrueForeColorr.ftH8LlLlLll：lLll2&HazDCTrueHeiglit11520KelpContextID0IcDR(Icon.)KeyPreviewFils^Left0LirikfilodeU一NoneLiiilzTopicF(rm1MaiButtonTrueMlUChildF：±1ehMinBut+onTrusMhueeli：on(Ifone)MuueeFuinterU-DefaultMovt：以匕1eTrueNegotiateFilenuETrueOLEDropMode0一NonePol?!11GQf口n,白］PaletteModeU一H：dlttijrLHPictureOfone'IV—■----—-圖2-3圖圖2-3華東交通大學VB課程設(shè)計報告三、系統(tǒng)的調(diào)試1、關(guān)于函數(shù)運算和進制轉(zhuǎn)換的屬性及屬性值對象名稱屬性屬性值命令按鈕Commond2(0)CaptionSin命令按鈕Commond2(1)CaptionCos命令按鈕Commond2(2)CaptionTan命令按鈕Commond2(3)CaptionCot命令按鈕Commond2(4)CaptionArcsin命令按鈕Commond2(5)CaptionArctan命令按鈕Commond2(6)CaptionArccos命令按鈕Commond2(7)Captionn!命令按鈕Commond2(8)CaptionSec命令按鈕Commond2(9)CaptionArccot命令按鈕Commond2(10)CaptionLog命令按鈕Commond2(11)CaptionLn命令按鈕Commond5(0)CaptionXfM命令按鈕Commond5(1)Captionf命令按鈕Commond5(2)CaptionCE命令按鈕Commond5(3)CaptionC命令按鈕Commond5(4)CaptionM+命令按鈕Commond5(5)CaptionRM

華東交通大學VB課程設(shè)計報告2、運算有關(guān)的屬性及其屬性值對象名稱屬性屬性值窗體FormlCaption計算器文本框Textltext空Lockedtrue命令按鈕Commond3(0~9)Caption0~9命令按鈕Commond4(0~3)Caption+,-,：,X,命令按鈕Commond4(8)Caption+/-命令按鈕Commond4(7)Caption.命令按鈕Commond4(4)Caption=華東交通大學VB課程設(shè)計報告h程序源代碼及必要注釋PublicangAsDoublePublicCalKeyAsStringDimbAsIntegerDimaAsIntegerDimcAsDoubleDimregAsDoubleDimcnumberAsDoubleDimredoAsBooleanDimdflagAsIntegerDimiAsIntegerDimopnreAsIntegerDimprevAsDoubleDimoflagAsIntegerDimindAsIntegerPrivateSubCommand2_Click(IndexAsInteger)SelectCaseIndexCase0Text1.Text=Str(Sin(ang*Val(Text1.Text)))IfVal(Text1.Text)<>0ThenText1.Text=Str(Cos(ang*Val(Text1.Text)))ElseMsgBox"數(shù)據(jù)超出余弦的數(shù)值范圍，請重新輸入！"，16,"calc"EndIfIf(Cos(Val(Text1.Text)))<>0Then 'tan中的sin不能為0Text1.Text=Str(Sin(ang*Val(Text1.Text))/Cos(ang*Val(Text1.Text)))ElseMsgBox”數(shù)據(jù)超出正切的數(shù)值范圍，請重新輸入！"，16,"calc"EndIfIf(Sin(Val(Text1.Text)))<>0ThenText1.Text=Str(Cos(ang*Val(Text1.Text))/Sin(ang*Val(Text1.Text)))ElseMsgBox"數(shù)據(jù)超出余切的數(shù)值范圍，請重新輸入！"，16,"calc"EndIf華東交通大學VB課程設(shè)計報告a=Val(Textl.Text)IfVal(Textl,Text)>-1AndVal(Textl,Text)<1Thena=Atn(a/Sqr(1-a*a))Textl.Text=a 反正弦、余弦范圍均不能超過{-1,1}ElseMsgBox”數(shù)據(jù)超出反正弦的數(shù)值范圍，請重新輸入！"，16,"calc"EndIfText1.Text=Str((Atn(Val(Text1.Text)))/ang)IfVal(Text1.Text)>-1AndVal(Text1.Text)<1Thena=Atn(Sqr(1-a*a)/a)Text1.Text=aElseMsgBox"數(shù)據(jù)超出反余弦的數(shù)值范圍，請重新輸入！",16,"calc"EndIfText1.Text=Str(fact(Val(Text1.Text)))IfVal(Text1.Text)>-1AndVl(Text1.Text)<1ThenText1.Text=1/Str(Sin(ang*Val(Text1.Text)))ElseMsgBox”數(shù)據(jù)超出正割的數(shù)值范圍，請重新輸入！",16,"calc"EndIfText1.Text=Str((ang/Atn(Val(Text1.Text))))IfVal(Text1.Text)>0ThenText1.Text=Str((Log(Val(Text1.Text))/Log(10)))ElseMsgBox"數(shù)據(jù)超出Log的數(shù)值范圍，請重新輸入！"，16,"calc"EndIfIfVal(Text1.Text)>0ThenText1.Text=Str(Log(Val(Text1.Text)))ElseMsgBox"數(shù)據(jù)超出Ln的數(shù)值范圍，請重新輸入！",16,"calc"EndIfEndSelect華東交通大學VB課程設(shè)計報告EndSubPrivateSubCommand5_Click(IndexAsInteger)SelectCaseIndexCase0c=0Case0Text1.Text=Str(c)Case2c=Val(Textl.Text)Textl.Text="M"pr=tStrNuml=Textl.TextIfLen(StrNuml)>0ThenStrNuml=Left(StrNuml,Len(StrNuml)-l)Textl.Text=StrNumlElseTextl.Text="0.0"EndIfredo=Trueresult=0Textl.Text="0"cnumber=0reg=0cdecimal=FalseTextl.Text=""Textl.SetFocusc=Val(Textl.Text)Textl.Text="M"pr=t華東交通大學VB課程設(shè)計報告c=0Case0Textl.Text=Str(mem)Case2c=Val(Textl.Text)Textl.Text="M"pr=tEndSelectEndSubPrivateSubForm_Load()dflag=0prev=0oflag=0ind=0opnre=0Clipboard.Clearang=3.14/180EndSubFunctionpower(mAsDouble,nAsLong)AsDoubleDimiAsDoublei=1If(n>0)ThenWhilen>0n=n-1i=i*mWendpower=iElseIf(n=0)Thenpower=1ElseMsgBox("ILLEGAL.POWERLESTHAN0,")EndIfEndFunctionFunctionfact(numAsLong)AsLongIf(num<0Ornum=0)ThenMsgBox("ILLEGALNEAGETIVEFACTORIAL")fact=numElse華東交通大學VB課程設(shè)計報告If(num>12)ThenMsgBox("VALUETOOLARGE")fact=numElsere=1While(num>0)re=re*numnum=num-1Wendfact=reEndIfEndIfEndFunctionPrivateSubForm_KeyPress(KeyAsciiAsInteger)IfKeyAscii=Asc(".")Theni=10Command3_Click(i)BeepElseIfKeyAscii=Asc("0")Theni=0Command3_Click(i)BeepElseIfKeyAscii=Asc("1")Theni=1Command3_Click(i)BeepElseIfKeyAsci3=Asc("2")Theni=2Command3_Click(i)BeepElseIfKeyAscii=Asc("3")Theni=3Command3_Click(i)BeepElseIfKeyAscii=Asc("4")Theni=4Command3_Click(i)BeepElseIfKeyAscii=Asc("5")Theni=5華東交通大學VB課程設(shè)計報告Command3_Click(i)BeepElselfKeyAscii=Asc("6")Theni=6Command3_Click(i)BeepElseIfKeyAscii=Asc("7")Theni=7Command3_Click(i)BeepElseIfKeyAscii=Asc("8")Theni=8Command3_Click(i)BeepElseIfKeyAscii=Asc("9")Theni=9Command3_Click(i)BeepElseIfKeyAscii=Asc("0")Theni=0Command3_Click(i)BeepElseIfKeyAscii=Asc("+")Theni=0Command4_Click(i)BeepElseIfKeyAscii=Asc("+")Theni=0Command4_Click(i)BeepElseIfKeyAscii=Asc("-")Theni=1Command4_Click(i)BeepElseIfKeyAscii=Ascf=")Theni=2Command4_Click(i)BeepElseIfKeyAscii=Asc("x")Theni=3Command4_Click(i)BeepElseIfKeyAscii=Asc("=")Then華東交通大學VB課程設(shè)計報告=4Command4_Click(i)BeepElselfKeyAscii=Asc("c")OrKeyAscii=Asc("C")Thendflag=0prev=0oflag=0ind=0opnre=0Text1.Text="0"BeepBeepElseIfKeyAscii=Asc("d")OrKeyAscii=Asc("D")ThenText1.Text="0"BeepEndIfEndSubPrivateSubCommand1_Click()UnloadMeEndSubPrivateSubCommand4_Click(IndexAsInteger)DimnAsLongDimrAsLongIfopnre=0OrIndex=4ThenIfind=0Thenprev=prev+Val(Text1.Text)ElseIfind=1Thenprev=prev-Val(Text1.Text)ElseIfind=6Thenprev=prevModVal(Text1.Text)ElseIfind=7Thenr=Fix(Val(Text1.Text))n=Fix(Val(prev))If((n>rOrn=r)Andn>0And(r>0Orr=0))Thenprev=fact(n)/(fact(n-r))ElseMsgBox("ILLEGALENTRIESofN,R")EndIfElseIfind=5Thenr=Fix(Val(Text1.Text))n=Fix(Val(prev))If((n>rOrn=r)Andn>0And(r>0Orr=0))Then華東交通大學VB課程設(shè)計報告prev=fact(n)/(fact(n-r)*fact(r))ElseMsgBox("ILLEGALENTRIESofN,R")EndIfElseIfind=8ThenIf(Text1.Text=""Orprev=0)ThenMsgBox("ILLEGAL.INVALIEDENTRIES")Elseprev=(power(prev,Fix(Val(Text1.Text))))EndIfElseIfind=2ThenIfVal(Textl,Text)<>0Thenprev=prev/Val(Textl.Text)ElseMsgBox("ILLEGALDIVIDE0")EndIfElseIfind=3Thenprev=prev*Val(Textl.Text)EndIfTextl.Text=Str(prev)oflag=0opnre=1ind=Indexdflag=0EndIfIfIndex=8ThenIfTextl=Textl.TextThenTextl.Text=Val(Textl.Text)*-lElseIfTextl.Text="-"&Textl.TextThenTextl.Text=Val(Textl.Text)*-lEndIfEndIfEndSubPrivateSubCommand3_Click(IndexAsInteger)Ifind=4Thenprev=0Textl.Text=""ind=0EndIfopnre=0Ifoflag=0ThenTextl.Text=""華東交通大學VB課程設(shè)計報告EndIfoflag=1IfCommand3(Index).Caption<>"."ThenIfText1.Text<>"0"ThenText1.Text=Text1.Text&Command3(Index).CaptionElseText1.Text=""&Command3(Index).CaptionEndIfElseIfdflag=0ThenText1.Text=Text1.Text&"."dflag=1ElseMsgBox("ILLEGALSAIRAM")EndIfEndIfEndSub設(shè)計界面示意圖:華東交通大學VB課程設(shè)計報告五、運行結(jié)果及分析1、運行窗口結(jié)果:下圖為運行88^66的結(jié)果下圖為打開除運行狀態(tài)的界面:華東交通大學VB課程設(shè)計報告下面兩幅圖為運行Log99的結(jié)果，其中Log為以10為底的對數(shù)2、程序分析及使用說明.當點擊OFF控件時，系統(tǒng)自動關(guān)閉.當運行Arcsin、Arccos時輸入的范圍超過【-1,1】，則系統(tǒng)自動報錯，會如下圖所顯示：(3).當按下“一”鍵后，原先文本框里的數(shù)字會從最后一個數(shù)字起慢慢刪減。(4),輸入的數(shù)據(jù)不正確系統(tǒng)會自動報錯華東交通大學VB課程設(shè)計報告六、心得體會.對學習VB程序語言設(shè)計首先要有強大的興趣和苦干的毅力。.平時經(jīng)常學習VB是很有必要的。.VB這門課程很難因此要更加重視，因此在學習生活中要做到如下幾點：（1）課前預(yù)習，認真聽課并適當做些筆記，課后要認真復(fù)習消化所學內(nèi)容，完成作業(yè).（2）學習程序設(shè)計要注重理解一些重要的概念.VB程序設(shè)計本身并不復(fù)雜，翻開一本程序設(shè)計學習的書籍，看到的無非就是變量,函數(shù)，條件語句彳循環(huán)語句等概念.但要真正能進行程序設(shè)計，需要深入理解這些概念.因此，在程序入門階段還是應(yīng)該重視概念的學習（3）程序設(shè)計入門階段要經(jīng)常自己動手抄寫或編寫一些小程序，親自動手進行程序設(shè)計是創(chuàng)造性思維應(yīng)用的體現(xiàn),是培養(yǎng)邏輯思維的好方法.因此一定要多動手編寫程序，而且要從小程序開發(fā)開始，逐漸提高寫程序的能力.（4）多看別人設(shè)計好的程序代碼，包括教材上的例題程序.在讀懂別人程序后，要想他為什么這么設(shè)計能不能將程序修改完成更多的功能則可以學到別人優(yōu)秀的東西，幫助自己提高自身水平..學習VB這門課程的意義VB編程可不是一項輕