安徽三聯(lián)學(xué)院計算機協(xié)會1]

《安徽三聯(lián)學(xué)院計算機協(xié)會1]》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、《軟件開發(fā)技術(shù)》課程設(shè)計報告題目計算器的設(shè)計與實現(xiàn)專業(yè)班級計算機科學(xué)與技術(shù)0701學(xué)號姓名指導(dǎo)教師2010年7月15日計算器的設(shè)計與實現(xiàn)5摘要：通過學(xué)習(xí)VISUALBASIC語言應(yīng)用VB開發(fā)工具,利用響應(yīng)鼠標(biāo)事件即可制作簡易計算器，響應(yīng)鼠標(biāo)事件即：當(dāng)用戶想要進行運算時,可以用鼠標(biāo)直接點擊界面的數(shù)字鍵、運算符以及各功能的按鈕（清除,退出,鼠標(biāo)位置）。具體操作如下：用鼠標(biāo)按動界面上第一個數(shù)字,然后按動運算符,再按動界面上的第二個數(shù)字,最后按等于即可運算出結(jié)果。1.界面設(shè)計：應(yīng)用VISUALBASIC開發(fā)工具，

2、根據(jù)WINDOWS計算器界面模型，修改后制作計算器界面。新建一個窗體，添加一個文本框用于顯示運算數(shù)字和結(jié)果，添加若干按鈕包括（數(shù)字0—9，+，-，*，/，=，CE,C,Back，%，1/x,sqrt）。當(dāng)單擊數(shù)字按鈕時輸入運算數(shù)時，單擊運算符按鈕，再單擊“=”按鈕，則再文本框中顯示計算結(jié)果。具體如下圖所示：圖1計算器界面設(shè)計示意圖2.程序設(shè)計：（1）新建框體和按鍵模型后定義變量：輸入的操作數(shù)，DimOp1,Op2。小數(shù)點是否仍然存在，DimDecimalFlagAsInteger。操作數(shù)個數(shù)，DimNum

3、OpsAsInteger。指示上一次按鍵事件的類型，DimLastInput。指示未完成的操作，DimOpFlag。定義文本框輸出，DimTempReadout。窗體的初始化過程，設(shè)置所有變量為其初始值：DecimalFlag=FalseNumOps=05LastInput="NONE"OpFlag=""Readout=Format(0,"0.")'Decimal.Caption=Format(0,".")。（2）輸入數(shù)字鍵(0-9)的Click事件過程，向顯示中的數(shù)追加新數(shù)：調(diào)用format函數(shù)強制定義

4、始終在第一位添加一個”.”，并在顯示數(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,".")End

5、IfIfLastInput="NEG"ThenReadout="-"&ReadoutLastInput="NUMS"（3）運算符(+,-,x,/,=)的Click事件過程如果接下來的按鍵是數(shù)字鍵，增加NumOps如果有一個操作數(shù)，則設(shè)置Op1如果有兩個操作數(shù)，則將Op1設(shè)置為Op1與當(dāng)前輸入字符串的運算結(jié)果，并顯示結(jié)果（以其中加法部分為例）：IfLastInput="NUMS"ThenNumOps=NumOps+1EndIfelectCaseNumOpsCase0IfOperator(Index).Cap

6、tion="-"AndLastInput<>"NEG"ThenReadout="-"&ReadoutLastInput="NEG"EndIfCase1Op1=ReadoutIfOperator(Index).Caption="-"AndLastInput<>"NUMS"AndOpFlag<>"="ThenReadout="-"LastInput="NEG"5EndIfelectCaseOpFlagCase"+"Op1=CDbl(Op1)+CDbl(Op2)Readout=Op1NumOps=1EndSel

7、ect（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和”.”為例,

8、C按鈕的Click事件過程，重新設(shè)置顯示并初始化變量：清零操作數(shù)，并在顯示結(jié)果中定義一個“0.”Readout=Format(0,"0.")Op1=0Op2=0Form_Load（6）小數(shù)點(.)按鈕的Click事件過程,如果上一次按鍵為運算符，初始化readout為"0."否則顯示時追加一個小數(shù)點:PrivateSubDecimal_Click()IfLastInput="NEG"ThenReadout=Format(0,"