PAGE《軟件開發(fā)技術(shù)》課程設計報告題目計算器的設計與實現(xiàn)專業(yè)班級計算機科學與技術(shù)0701學號姓名指導教師2010年7月15日計算器的設計與實現(xiàn)摘要：通過學習VISUALBASIC語言應用VB開發(fā)工具,利用響應鼠標事件即可制作簡易計算器，響應鼠標事件即：當用戶想要進行運算時,可以用鼠標直接點擊界面的數(shù)字鍵、運算符以及各功能的按鈕（清除,退出,鼠標位置）。具體操作如下：用鼠標按動界面上第一個數(shù)字,然后按動運算符,再按動界面上的第二個數(shù)字,最后按等于即可運算出結(jié)果。1.界面設計：應用VISUALBASIC開發(fā)工具，根據(jù)WINDOWS計算器界面模型，修改后制作計算器界面。新建一個窗體，添加一個文本框用于顯示運算數(shù)字和結(jié)果，添加若干按鈕包括（數(shù)字0—9，+，-，*，/，=，CE,C,Back，%，1/x,sqrt）。當單擊數(shù)字按鈕時輸入運算數(shù)時，單擊運算符按鈕，再單擊“=”按鈕，則再文本框中顯示計算結(jié)果。具體如下圖所示：圖1計算器界面設計示意圖2.程序設計：（1）新建框體和按鍵模型后定義變量：輸入的操作數(shù)，DimOp1,Op2。小數(shù)點是否仍然存在，DimDecimalFlagAsInteger。操作數(shù)個數(shù)，DimNumOpsAsInteger。指示上一次按鍵事件的類型，DimLastInput。指示未完成的操作，DimOpFlag。定義文本框輸出，DimTempReadout。窗體的初始化過程，設置所有變量為其初始值：DecimalFlag=FalseNumOps=0LastInput="NONE"OpFlag=""Readout=Format(0,"0.")'Decimal.Caption=Format(0,".")。（2）輸入數(shù)字鍵(0-9)的Click事件過程，向顯示中的數(shù)追加新數(shù)：調(diào)用format函數(shù)強制定義始終在第一位添加一個”.”，并在顯示數(shù)中追加新數(shù)，如果顯示數(shù)小于零，則添加負號。IfLastInput<>"NUMS"ThenReadout=Format(0,".")DecimalFlag=FalseEndIfIfDecimalFlagThenReadout=Readout+Number(Index).CaptionElseReadout=Left(Readout,InStr(Readout,Format(0,"."))-1)+Number(Index).Caption+Format(0,".")EndIfIfLastInput="NEG"ThenReadout="-"&ReadoutLastInput="NUMS"（3）運算符(+,-,x,/,=)的Click事件過程如果接下來的按鍵是數(shù)字鍵，增加NumOps如果有一個操作數(shù)，則設置Op1如果有兩個操作數(shù)，則將Op1設置為Op1與當前輸入字符串的運算結(jié)果，并顯示結(jié)果（以其中加法部分為例）：IfLastInput="NUMS"ThenNumOps=NumOps+1EndIfelectCaseNumOpsCase0IfOperator(Index).Caption="-"AndLastInput<>"NEG"ThenReadout="-"&ReadoutLastInput="NEG"EndIfCase1Op1=ReadoutIfOperator(Index).Caption="-"AndLastInput<>"NUMS"AndOpFlag<://.huisheliren/>"="ThenReadout="-"LastInput="NEG"EndIfelectCaseOpFlagCase"+"Op1=CDbl(Op1)+CDbl(Op2)Readout=Op1NumOps=1EndSelect（4）%，sqrt，1/X,等的Click事件過程以1/X為例舉出：以倒數(shù)1/Readout輸出，在輸出結(jié)果中調(diào)用format函數(shù)強制定義添加“0.”，并可進行連續(xù)運算Readout=1/ReadoutReadout.Text=Format(Readout.Text,"0.####################")LastInput="Ops"OpFlag="1/x"NumOps=NumOps+1DecimalFlag=True（5）C,CE,Back，”.”等Click事件過程以C和”.”為例,C按鈕的Click事件過程，重新設置顯示并初始化變量：清零操作數(shù)，并在顯示結(jié)果中定義一個“0.”Readout=Format(0,"0.")Op1=0Op2=0Form_Load（6）小數(shù)點(.)按鈕的Click事件過程,如果上一次按鍵為運算符，初始化readout為"0."否則顯示時追加一個小數(shù)點:PrivateSubDecimal_Click()IfLastInput="NEG"ThenReadout=Format(0,"-0.")ElseIfLastInput<>"NUMS"ThenReadout=Format(0,"0.")EndIfDecimalFlag=TrueLastInput="NUMS"EndSub（7）Back按鈕的Click事件過程：定義一個變量cd，并且用LEN函數(shù)求出當前字符串長度，調(diào)用Mid函數(shù)使字符串整體右移一位顯示。DimcdAsIntegercd=Len(Readout.Text)Readout.Text=""&Mid(Readout.Text,1,cd-1)3.調(diào)試：調(diào)試計算器功能+,-,*,/,sqrt,1/x，%等功能，如圖所示：圖1：0.2+0.3=結(jié)果如圖，圖2：2-3=結(jié)果如圖，圖3：3*6=結(jié)果如圖，圖4：9/3=結(jié)果如圖，圖5：16sqrt結(jié)果如圖，圖6：6%5=結(jié)果如圖，圖7：21/x結(jié)果如圖。圖2加法調(diào)試結(jié)果圖3減法調(diào)試結(jié)果圖4乘法調(diào)試結(jié)果圖5除法調(diào)試結(jié)果圖6sqrt調(diào)試結(jié)果圖7%調(diào)試結(jié)果圖81/x調(diào)試結(jié)果4.結(jié)論：經(jīng)過二周的學習與編制調(diào)試等一系列的過程，完成了如題所示的簡易計算器，包括數(shù)字0—9，+，-，*，/，=，CE,C