vb計(jì)算器課程設(shè)計(jì)報(bào)告

1、<p><b>　　課程設(shè)計(jì)報(bào)告</b></p><p>　　題 目 計(jì)算器的設(shè)計(jì)與實(shí)現(xiàn) </p><p>　　專(zhuān)業(yè)班級(jí) 信息管理101</p><p>　　學(xué) 號(hào) </p><p><b>　　計(jì)算器的設(shè)計(jì)與實(shí)現(xiàn)</b></

2、p><p>　　摘要：通過(guò)學(xué)習(xí)VISUAL BASIC語(yǔ)言應(yīng)用VB開(kāi)發(fā)工具,利用響應(yīng)鼠標(biāo)事件即可制作簡(jiǎn)易計(jì)算器，響應(yīng)鼠標(biāo)事件即：當(dāng)用戶想要進(jìn)行運(yùn)算時(shí),可以用鼠標(biāo)直接點(diǎn)擊界面的數(shù)字鍵、運(yùn)算符以及各功能的按鈕（清除,退出,鼠標(biāo)位置）。具體操作如下：用鼠標(biāo)按動(dòng)界面上第一個(gè)數(shù)字,然后按動(dòng)運(yùn)算符,再按動(dòng)界面上的第二個(gè)數(shù)字,最后按等于即可運(yùn)算出結(jié)果。</p><p><b>　　1.界面設(shè)計(jì)：&

3、lt;/b></p><p>　　應(yīng)用 VISUAL BASIC開(kāi)發(fā)工具，根據(jù)WINDOWS計(jì)算器界面模型，修改后制作計(jì)算器界面。新建一個(gè)窗體，添加一個(gè)文本框用于顯示運(yùn)算數(shù)字和結(jié)果，添加若干按鈕包括（數(shù)字0—9，+，-，*，/，=，CE, C, Back，%，1/x , sqrt）。</p><p>　　當(dāng)單擊數(shù)字按鈕時(shí)輸入運(yùn)算數(shù)時(shí)，單擊運(yùn)算符按鈕，再單擊“=”按鈕，則再文本框中顯示

4、計(jì)算結(jié)果。具體如下圖所示：</p><p>　　圖1 計(jì)算器界面設(shè)計(jì)示意圖</p><p><b>　　2.程序設(shè)計(jì)：</b></p><p>　　（1）新建框體和按鍵模型后定義變量：輸入的操作數(shù)，Dim Op1, Op2。小數(shù)點(diǎn)是否仍然存在，Dim DecimalFlag As Integer。操作數(shù)個(gè)數(shù)，Dim NumOps As Int

5、eger。指示上一次按鍵事件的類(lèi)型，Dim LastInput。指示未完成的操作，Dim OpFlag。定義文本框輸出，Dim TempReadout。窗體的初始化過(guò)程，設(shè)置所有變量為其初始值：DecimalFlag = False</p><p>　　NumOps = 0</p><p>　　LastInput = "NONE"</p><p>

6、;　　OpFlag = " "</p><p>　　Readout = Format(0, "0.")</p><p>　　'Decimal.Caption = Format(0, ".")。</p><p>　?。?）輸入數(shù)字鍵(0-9)的Click事件過(guò)程，向顯示中的數(shù)追加新數(shù)：

7、調(diào)用format函數(shù)強(qiáng)制定義始終在第一位添加一個(gè)”.”，并在顯示數(shù)中追加新數(shù)，如果顯示數(shù)小于零，則添加負(fù)號(hào)。</p><p>　　If LastInput <> "NUMS" Then</p><p>　　Readout = Format(0, ".")</p><p>　　DecimalFlag = False&

8、lt;/p><p><b>　　End If</b></p><p>　　If DecimalFlag Then</p><p>　　Readout = Readout + Number(Index).Caption</p><p><b>　　Else</b></p><p>

9、　　Readout = Left(Readout, InStr(Readout, Format(0, ".")) - 1) + Number(Index).Caption + Format(0, ".")</p><p><b>　　End If</b></p><p>　　If LastInput = "NEG&qu

10、ot; Then Readout = "-" & Readout</p><p>　　LastInput = "NUMS"</p><p>　?。?）運(yùn)算符(+, -, x, /, =)的Click 事件過(guò)程如果接下來(lái)的按鍵是數(shù)字鍵，增加NumOps如果有一個(gè)操作數(shù)，則設(shè)置Op1如果有兩個(gè)操作數(shù)，則將Op1 設(shè)置為Op1與當(dāng)前

11、輸入字符串的運(yùn)算結(jié)果，并顯示結(jié)果（以其中加法部分為例）：</p><p>　　If LastInput = "NUMS" Then</p><p>　　NumOps = NumOps + 1</p><p><b>　　End If</b></p><p>　　elect Case NumOps<

12、;/p><p><b>　　Case 0</b></p><p>　　If Operator(Index).Caption = "-" And LastInput <> "NEG" Then</p><p>　　Readout = "-" & Readout</p

13、><p>　　LastInput = "NEG"</p><p><b>　　End If</b></p><p><b>　　Case 1</b></p><p>　　Op1 = Readout</p><p>　　If Operator(Index).Ca

14、ption = "-" And LastInput <> "NUMS" And OpFlag <> "=" Then</p><p>　　Readout = "-"</p><p>　　LastInput = "NEG"</p><p><

15、;b>　　End If</b></p><p>　　elect Case OpFlag</p><p><b>　　Case "+"</b></p><p>　　Op1 = CDbl(Op1) + CDbl(Op2)</p><p>　　Readout = Op1</p>

16、<p>　　NumOps = 1</p><p>　　End Select</p><p>　?。?）%，sqrt，1/X,等的Click事件過(guò)程以1/X為例舉出：以倒數(shù)1 / Readout</p><p>　　輸出，在輸出結(jié)果中調(diào)用format函數(shù)強(qiáng)制定義添加“0.”，并可進(jìn)行連續(xù)運(yùn)算</p><p>　　Readout =

17、 1 / Readout</p><p>　　Readout.Text = Format(Readout.Text, "0.####################")</p><p>　　LastInput = "Ops"</p><p>　　OpFlag = "1/x"</p><p

18、>　　NumOps = NumOps + 1</p><p>　　DecimalFlag = True</p><p>　?。?）C, CE, Back，”.”等Click事件過(guò)程以C和”.”為例,C按鈕的Click事件過(guò)程，重新設(shè)置顯示并初始化變量：清零操作數(shù)，并在顯示結(jié)果中定義一個(gè)“0.”</p><p>　　Readout = Format(0, &qu

19、ot;0.")</p><p><b>　　Op1 = 0</b></p><p><b>　　Op2 = 0</b></p><p><b>　　Form_Load</b></p><p>　?。?）小數(shù)點(diǎn)(.)按鈕的Click事件過(guò)程, 如果上一次按鍵為運(yùn)算符，初

20、始化readout為"0."否則顯示時(shí)追加一個(gè)小數(shù)點(diǎn):</p><p>　　Private Sub Decimal_Click()</p><p>　　If LastInput = "NEG" Then</p><p>　　Readout = Format(0, "-0.")</p><

21、p>　　ElseIf LastInput <> "NUMS" Then</p><p>　　Readout = Format(0, "0.")</p><p><b>　　End If</b></p><p>　　DecimalFlag = True</p><p&g

22、t;　　LastInput = "NUMS"</p><p><b>　　End Sub</b></p><p>　　（7）Back按鈕的Click事件過(guò)程：定義一個(gè)變量cd，并且用LEN函數(shù)求出當(dāng)前字符串長(zhǎng)度，調(diào)用Mid函數(shù)使字符串整體右移一位顯示。</p><p>　　Dim cd As Integer</p>

23、;<p>　　cd = Len(Readout.Text) </p><p>　　Readout.Text = "" & Mid(Readout.Text, 1, cd - 1)</p><p><b>　　3.調(diào)試：</b></p><p>　　調(diào)試計(jì)算器功能+,-,*,/,sqrt,1/x，%等功能

24、，如圖所示：圖1：0.2+0.3=結(jié)果如圖，圖2：2-3=結(jié)果如圖，圖3：3*6=結(jié)果如圖，圖4：9/3=結(jié)果如圖，圖5：16 sqrt 結(jié)果如圖，圖6：6%5= 結(jié)果如圖，圖7：2 1/x 結(jié)果如圖。</p><p>　　圖2 加法調(diào)試結(jié)果 圖3 減法調(diào)試結(jié)果</p><p>　　圖4 乘法調(diào)試結(jié)果 圖5 除

25、法調(diào)試結(jié)果</p><p>　　圖6 sqrt調(diào)試結(jié)果 圖7 %調(diào)試結(jié)果</p><p>　　圖8 1/x調(diào)試結(jié)果</p><p><b>　　4.結(jié)論：</b></p><p>　　經(jīng)過(guò)二周的學(xué)習(xí)與編制調(diào)試等一系列的過(guò)程，完成了如題所示的簡(jiǎn)易計(jì)算器，包括數(shù)字0—9，+，-，*

26、，/，=，CE, C, Back，%，1/x , sqrt等按鍵，可實(shí)現(xiàn)基本+，-，*，/運(yùn)算以及開(kāi)方，取余，求倒數(shù)等功能，符合計(jì)算器的基本要求。調(diào)試過(guò)程中不可避免的出現(xiàn)不少錯(cuò)誤，經(jīng)過(guò)修改后，基本解決如取余，小數(shù)點(diǎn)左右添加減少零，科學(xué)計(jì)數(shù)法，等一些問(wèn)題?；就瓿蓪W(xué)習(xí)和實(shí)踐的要求和目的。</p><p><b>　　參考文獻(xiàn)：</b></p><p>　　[1]王珊.V