簡(jiǎn)單計(jì)算器實(shí)驗(yàn)

1、簡(jiǎn)單計(jì)算器試驗(yàn) 一、 設(shè)計(jì)分析： 1.本程序使用VB語言編成，只使用了一個(gè)窗體模塊，完成模仿市面簡(jiǎn)單計(jì)算器的功能。例如加減乘除，開方，求倒數(shù)，求百分比，并可連貫運(yùn)算這些功能。2.為了能在windows開始程序菜單中運(yùn)行它，深入一點(diǎn)了解面向?qū)ο箝_發(fā)應(yīng)用程序。使用vb6.0的部署發(fā)布程序做了一個(gè)簡(jiǎn)單的安裝包,可以在Windows Xp 下安裝并運(yùn)行。（SetupFactory V8.1打包工具制作的vb軟件安裝包專業(yè)些。）3.界面友好易操作。（可以使用鍵盤輸入數(shù)字進(jìn)行運(yùn)算，比較方便操作?。┒?程序結(jié)構(gòu)流程圖： 運(yùn)算符每次數(shù)據(jù)中最多允許出現(xiàn)一次小數(shù)點(diǎn)，且整數(shù)部分首數(shù)據(jù)不能為零，小數(shù)除外返回錯(cuò)誤信息

2、結(jié)束=結(jié)果數(shù)據(jù)>0數(shù)據(jù)=0數(shù)據(jù)輸入1/x%返回錯(cuò)誤信息運(yùn)算符CCE+-*/±=結(jié)束CCE±+-*/=1/x開始輸入數(shù)據(jù)運(yùn)算符結(jié)果數(shù)據(jù)>0數(shù)據(jù)=0數(shù)據(jù)輸入=退格鍵顯示窗口清除鍵重啟鍵開方鍵求百分鍵求倒數(shù)鍵符號(hào)鍵數(shù)字鍵 小數(shù)點(diǎn)鍵 加法鍵 等于鍵三、 各模塊功能及程序說明：1.這個(gè)程序是依照計(jì)算機(jī)處理器內(nèi)ALU處理數(shù)據(jù)的原理設(shè)計(jì)，根據(jù)輸入的數(shù)據(jù)，來判斷怎樣操作、怎樣送入操作數(shù)。例如：如果是雙操作數(shù)則會(huì)將操作數(shù)A和操作數(shù)B的運(yùn)算結(jié)果送入操作數(shù)A，標(biāo)志狀態(tài)變量重新按情況設(shè)置。2.比較起來雖然簡(jiǎn)單的多了，但是這種算法很經(jīng)典。3.數(shù)字鍵的事件過程主要是靠調(diào)用number（nu

3、m）過程來實(shí)現(xiàn)，一個(gè)控件數(shù)組和“0”鍵組成。4.加、減、乘、除運(yùn)算鍵的事件過程主要是靠調(diào)用Calculation()過程來實(shí)現(xiàn)。5.開方、求百分比等特殊運(yùn)算鍵的事件過程主要是靠調(diào)用VB工具內(nèi)相應(yīng)VBA函數(shù)來實(shí)現(xiàn)，例如sqr()函數(shù)。6.關(guān)于退格鍵事件過程主要是用了字符串截取函數(shù)，由于當(dāng)時(shí)未使用“&”來代替“+”作為連接運(yùn)算符、未使用字符串匹配函數(shù)instr（），調(diào)試程序時(shí)增加了多行代碼（由此可見工具內(nèi)自帶函數(shù)的方便之處）。雖然很健康，但是感覺過長(zhǎng)，時(shí)間又有限，當(dāng)做經(jīng)驗(yàn)吧，暫不改了。7.接受鍵盤輸入的運(yùn)算操作是打開了建立了一個(gè)Form_KeyPress(KeyAscii)通用過程，根據(jù)K

4、eyAscii的值響應(yīng)相應(yīng)事件。8.在代碼中針對(duì)每個(gè)過程都有簡(jiǎn)單注釋；在代碼的開頭例如“'''operand -操作數(shù) '''Calculation -計(jì)算”，這些都是幫助說明變量用途而寫。9.在代碼中“聲明的模塊變量或局部變量”加“直接使用的變體變量”有大概10個(gè)，因此如果借鑒本代碼，不建議在本模塊內(nèi)再聲明變量，倒是可以增加控件來擴(kuò)展更多功能?？梢跃帉懫渌绑w模塊和標(biāo)準(zhǔn)模塊和簡(jiǎn)單計(jì)算器試驗(yàn)?zāi)K方便完成更多的功能。四、 源程序如下：'''*窗體變量的注釋及聲明'''operand -操作數(shù)'

5、''Calculation -計(jì)算'''operation symbols - -運(yùn)算符號(hào)'''decimal-小數(shù)點(diǎn)'''plus -加'''minus -減'''multiply -乘'''divide -除'''Percent -百分比'''equal to -等于'''amount-合計(jì)；等同，接近'''inverse; recipr

6、ocal- 倒數(shù)'''SquareRoot-平方根Dim LastInput As String ' 上次輸入操作的類別Dim NumOperand As Integer ' 操作數(shù)數(shù)量Dim OperationSymbols As String ' 運(yùn)算符號(hào)Dim DecimalFlag ' 小數(shù)點(diǎn)狀態(tài)Dim Operation_1 ' 操作數(shù)1的值Dim Operation_2 ' 操作數(shù)2的值Dim Time As Integer ' 0的使用次數(shù)'*對(duì)操作數(shù)賦值，滿足條件則可以運(yùn)算Private S

7、ub ChooseOperand()If LastInput = "數(shù)字" Then NumOperand = NumOperand + 1End IfSelect Case NumOperand Case 1 Operation_1 = LabelOut.Caption Case 2 Operation_2 = LabelOut.Caption CalculationEnd SelectIf LastInput <> "運(yùn)算符號(hào)" Then LastInput = "運(yùn)算符號(hào)"End IfDecimalFlag = Fa

8、lseEnd Sub'* 定義簡(jiǎn)單運(yùn)算通用過程Calculation()Private Sub Calculation()Select Case OperationSymbols Case "+" Operation_1 = Val(Operation_1) + Val(Operation_2) Case "-" Operation_1 = Val(Operation_1) - Val(Operation_2) Case "*" Operation_1 = Val(Operation_1) * Val(Operation_2)

9、 Case "/" If Val(Operation_2) = 0 Then Operation_1 = "ERROR ! 除數(shù)不能為零!" Beep Else Operation_1 = Val(Operation_1) / Val(Operation_2) End If Case "=" Operation_1 = Operation_2 Case ElseEnd SelectLabelOut.Caption = Operation_1 ' 結(jié)果輸出NumOperand = 1 ' 操作數(shù)個(gè)數(shù)置1DecimalFl

10、ag = FalseTime = 0End Sub'* 定義處理數(shù)字按鈕通用過程Private Sub Number(num As Integer)If Time <> 0 And Val(LabelOut.Caption) = 0 And DecimalFlag = False Then LabelOut.Caption = " "End IfIf LastInput <> "數(shù)字" Then LabelOut.Caption = "."End IfIf DecimalFlag Then If Lef

11、t(LabelOut.Caption, 1) = "." And LastInput = "運(yùn)算符號(hào)" Then LabelOut.Caption = " " End If LabelOut.Caption = LabelOut.Caption & numElse Tmp = LabelOut.Caption If Val(Tmp) = 0 Then LabelOut.Caption = num & "." Else Tmp = Left(Tmp, Len(Tmp) - 1) LabelOut.Ca

12、ption = Tmp & num & "." End IfEnd IfTmp = " "LastInput = "數(shù)字"End Sub'*接受鍵盤輸入的運(yùn)算操作Private Sub Form_KeyPress(KeyAscii As Integer)Select Case KeyAscii Case 8 '退格鍵 Call CommandBackSpace_Click Case 37 '%百分號(hào) Call CommandPercent_Click Case 42 '*號(hào) Call C

13、ommandMultiply_Click Case 43 '+號(hào) Call CommandPlus_Click Case 45 '-號(hào) CommandMinus.Value = True 'Call CommandMinus_Click '與 CommandMinus.Value = True 作用相同 Case 46 '小數(shù)點(diǎn) Call CommandDecimal_Click Case 47 '/號(hào) Call CommandDivide_Click Case Asc(0) '48為字符零的Ascii值 Call Command0_Cl

14、ick 'Command0.Value = True 與Call Command0_Click 作用相同 Case Asc(0) To Asc(9) '49 To 57 數(shù)字鍵1 至 9的Ascii值 Char = Chr(KeyAscii) Number (Char) Case 61 '=鍵 Call CommandEqual_ClickEnd SelectEnd Sub'*數(shù)字鍵1至9Private Sub Command_Click(Index As Integer)Call Number(Index)'Number (Index)End Sub&

15、#39;*數(shù)字鍵0Private Sub Command0_Click()If Val(LabelOut.Caption) = 0 And DecimalFlag = False Then Time = Time + 1End IfIf Time >= 2 Then Else Number (0)End IfEnd SubPrivate Sub CommandSign_Click()If LastInput <> "負(fù)值" And Left(LabelOut.Caption, 1) <> "-" Then Tmp = Lab

16、elOut.Caption LabelOut.Caption = "-" & Tmp Tmp = " " LastInput = "數(shù)字"End IfEnd Sub'*小數(shù)點(diǎn)插入，實(shí)現(xiàn)小數(shù)Private Sub CommandDecimal_Click()If LastInput = "無" Or LastInput = "運(yùn)算符號(hào)" Then LabelOut.Caption = "0."ElseIf LastInput = "負(fù)值" T

17、hen LabelOut.Caption = "-0."ElseIf LastInput = "數(shù)字" Then If DecimalFlag Then End If If Not DecimalFlag Then Tmp = LabelOut.Caption If Right(Tmp, 1) = "." Then Else Tmp = Tmp & "." End If LabelOut.Caption = Tmp Tmp = " " End IfEnd IfDecimalFlag =

18、TrueLastInput = "數(shù)字"End Sub'*退格鍵Private Sub CommandBackSpace_Click()Tmp = LabelOut.CaptionIf Operation_1 = 0 Then If Len(Tmp) = 0 Or Len(Tmp) = 2 Then Tmp = "0." End If If Len(Tmp) > 2 Then Select Case Right(Tmp, 1) Case "." If Len(Tmp) = 6 And Left(Tmp, 1) = &qu

19、ot;-" Then Tmp = "0." ElseIf Len(Tmp) = 4 Then Tmp = "0." Else Tmp = Left(Tmp, Len(Tmp) - 3) Tmp = Tmp + "." End If Case Else If Len(Tmp) <= 4 And Left(Tmp, 1) = "-" Then Tmp = "0." Else Tmp = Left(Tmp, Len(Tmp) - 2) End If End Select End If

20、Else If Len(Tmp) = 0 Or Len(Tmp) = 1 Then Tmp = "0." End If If Len(Tmp) > 1 Then Select Case Right(Tmp, 1) Case "." If Len(Tmp) = 3 And Left(Tmp, 1) = "-" Then Tmp = "0." ElseIf Len(Tmp) = 2 Then Tmp = "0." Else Tmp = Left(Tmp, Len(Tmp) - 2) Tmp =

21、 Tmp + "." End If Case Else If Len(Tmp) <= 2 And Left(Tmp, 1) = "-" Then Tmp = "0." Else Tmp = Left(Tmp, Len(Tmp) - 1) End If End Select End If End IfIf Tmp = "." Then Tmp = "0."LabelOut.Caption = TmpEnd Sub'*當(dāng)前顯示結(jié)果置零Private Sub CommandCE_Clic

22、k()LabelOut.Caption = "0."DecimalFlag = FalseLastInput = "運(yùn)算符號(hào)"End Sub'*再次初始化窗體FormPrivate Sub CommandC_Click()Form_LoadEnd Sub'*設(shè)定變量、窗體和控件的值Public Sub ClearData()LabelOut.Caption = "0."LastInput = "無"NumOperand = 0OperationSymbols = " "Decim

23、alFlag = FalseTime = 0Operation_1 = " "Operation_2 = " "LabelOut.BackColor = vbBlackLabelOut.ForeColor = vbGreenLabelOut.FontSize = 12LabelOut.AutoSize = FalseForm1.KeyPreview = TrueEnd Sub'* 初始化窗體，設(shè)置變量及參數(shù)狀態(tài)'(本程序目前未使用菜單項(xiàng)功能，如工具、幫助、編輯；運(yùn)行時(shí)可以用箭頭鍵來調(diào)整默認(rèn)的按鈕，進(jìn)而可用Enter鍵來按下它)Privat

24、e Sub Form_Load()Call ClearDataEnd Sub'*加法Private Sub CommandPlus_Click()Call ChooseOperandOperationSymbols = "+"End Sub'*減法；負(fù)號(hào)Private Sub CommandMinus_Click()Call ChooseOperandOperationSymbols = "-"End Sub'* 乘法Private Sub CommandMultiply_Click()Call ChooseOperandOper

25、ationSymbols = "*"End Sub'*除法Private Sub CommandDivide_Click()Call ChooseOperandOperationSymbols = "/"End Sub '*求平方根Private Sub CommandSquareRoot_Click()If Val(LabelOut.Caption) < 0 Then Operation_1 = "ERROR! 被開方數(shù)不能為負(fù)值!" BeepElse Operation_1 = Sqr(Val(LabelOu

26、t.Caption)End IfLabelOut.Caption = Operation_1End Sub'*當(dāng)前操作數(shù)的百分比Private Sub CommandPercent_Click()If OperationSymbols = "=" Or LastInput = "數(shù)字" ThenSelect Case NumOperand Case 1 If OperationSymbols = "/" And Val(LabelOut.Caption) = 0 Then Calculation Else Operation_

27、2 = LabelOut.Caption Calculation Var = Val(LabelOut.Caption) Var = Var / 100 LabelOut.Caption = Str(Var) End If Case Else Var = Val(LabelOut.Caption) Var = Var / 100 LabelOut.Caption = Str(Var)End SelectNumOperand = 0End IfEnd Sub'*求倒數(shù)，用除法Private Sub CommandReciprocal_Click()If LastInput = "數(shù)字" Then NumOperand = NumOperand + 1End IfSelect Case NumOperand Case 1 Operation_1 = LabelOut.Caption Case 2 Operation_2 = LabelOut.Caption CalculationEnd SelectIf NumOperand = 0 And (LastInput = "無" Or LastInput = "負(fù)值&q