Re: [VB6 ] 計算機

看板Visual_Basic作者fumizuki (小獅子)時間19年前 (2005/06/09 21:54)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串8/51 (看更多)

※ 引述《fumizuki (小獅子)》之銘言： : ※ 引述《TrueFeeling (昨日之死)》之銘言： : : 表單架構: : : 0-9 數字鍵--Command1(Index) : : +-*/鍵 --Command2(Index) : : Enter --Command3 : 是打算輸入運算式後按enter再算出值？ : 還是像一般計算機一樣按下了加減乘除等於就會算出值？哇哈！這種運算式真不好寫...好不容易才試了出來... 用遞迴法寫的，寫了一長串，看起來頗複雜的...~.~ Private Sub Command1_Click(Index As Integer) Text1.Text = Text1.Text & Index End Sub Private Sub Command2_Click(Index As Integer) Text1.Text = Text1.Text & Command2(Index).Caption End Sub Private Sub Command3_Click() Label1.Caption = Eval(Text1.Text) End Sub Function Eval(s As String) Dim p As Integer, op1 As String, op2 As String, o As String Static c As Integer: c = c + 1 If c = 1 Then s = Replace(s, " ", "") p = InStr(s, "+") If p > 0 Then GoSub SplitProc: Eval = Eval(op1) + Eval(op2): GoTo EndProc If s Like "-*" Then p = 2 Else p = 1 p = InStr(p, s, "-") If p > 0 Then op1 = Mid(s, p - 1, 1) If op1 = "+" Then p = p - 1: GoSub SplitProc: Eval = Eval(op1) + Eval(op2): GoTo EndProc ElseIf op1 = "-" Then p = p - 1: GoSub SplitProc: Eval = Eval(op1) - Eval(op2): GoTo EndProc ElseIf op1 = "*" Then p = p - 1: GoSub SplitProc: Eval = Eval(op1) * Eval(op2): GoTo EndProc ElseIf op1 = "/" Then p = p - 1: GoSub SplitProc: Eval = Eval(op1) / Eval(op2): GoTo EndProc Else GoSub SplitProc: Eval = Eval(op1) + Eval("-" & op2): GoTo EndProc End If End If p = InStr(s, "*") If p > 0 Then GoSub SplitProc: Eval = Eval(op1) * Eval(op2): GoTo EndProc p = InStr(s, "/") If p > 0 Then GoSub SplitProc: Eval = Eval(op1) / Eval(op2): GoTo EndProc Eval = Val(s) EndProc: c = c - 1: Exit Function SplitProc: op1 = Left(s, p - 1): op2 = Mid(s, p + 1): Return End Function 1. 事件程序的命名規則及參數列是寫死的，一定要完全一樣，不然無法通過編譯。 2. Or、And 等運算子跟 + - * / 一樣，一定會算出一個值。 (語法沒錯，執行結果不對而已) 3. N 跟 "N" 是不相同的，一樣語法沒錯，但執行結果不對... ... 測試通過才貼上來的，應該是沒有問題的吧(汗) ? Eval("-2.3 * -3 / -7 + -5.6 - -6 + -2 + -3 * -2 / -1 + -0.5") ? -2.3 * -3 / -7 + -5.6 - -6 + -2 + -3 * -2 / -1 + -0.5 -9.08571428571429 -9.08571428571429 以上...XD 加、減、乘、除、負號，運算子優先順序，都有包含在內了...XD -- VB 程式設計倉木麻衣 PTT 星爺板行列輸入法 ====================================================== Visual_Basic MaiKuraki Stephen Array -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 210.58.156.43

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 fumizuki 的文章

文章代碼(AID): #12g4eaAB (Visual_Basic)

討論串 (同標題文章)

本文引述了以下文章的的內容：