Re: [VB6 ] 計算機
※ 引述《fumizuki (小獅子)》之銘言:
: ※ 引述《TrueFeeling (昨日之死)》之銘言:
: : 如果我上面的判斷沒錯的話,GoSub SplitProc和GoTo EndProc是衝突的
: : 可是卻同時進行?讓我覺得很矛盾
: 沒有同時進行呀,SplitProc跑完後,會 Return 回來,跑 Eval(op1) + Eval(op2)。
: 然後再 Goto EndProc,結束這一個函數。
: 跑 Eval = Eval(op1) + Eval(op2) 的時候會先執行 Eval(op1),得到一個值,
: 然後再執行 Eval(op2),也得到一個值,兩個值相加存進 Eval 中。
如果Eval(op1)和Eval(op2)的裡面還有運算子的時候,
例如:
Eval(2-3*5+7/5-9)=Eval(2-3*5)+Eval(7/5-9)
那麼這兩個分割後的Eval函數,
要在什麼地方繼續分割呢?(因為已經Goto EndProc了)
: 把我那串程式列成規則就是:
: 題目是一串四則運算的方程式(裡面有加、減、乘、除、負號、數字、及空白),
: 方程式解法如下所示,請告訴我答案。
: 1. 將方程式中的空白去除掉,但為求效率,所以只有第一次要做這個動作。
: 2. 先處理優先等級最低的加法,分割成二部份,並相加。
^^^^^^^^^^^^
: 3. 處理優先等級最低的減法,分割成二部份,把被加數變負數,並相加。
^^^^^^^^^^^^
: 4. 處理優先等級最高的乘法,分割成二部份,並相乘。
^^^^^^^^^^^
: 5. 處理優先等級最低的除法,分割成二部份,並相除。
^^^^^^^^^^^^
: 6. 第一個字元是減號的時候,從第二個字元開始找起。
: 7. 處理減號的時候要注意是負號還是減號,當減號前一個字元不是數字的時候,此符號
: 則為負號。
優先等級這裡有疑問,依照你程式的寫法
我的解讀是:
先用+號將字串分割成前段和後段,然後每一個分割後的字串依此繼續分割
當分割完的函數裡面沒有+號的時候才會-號,再來是乘號,再來是除號
,所以優先等級我看不懂你說最高和最低是什麼意思
: 上七項規則對照程式碼如下:
: 1.
: If c = 1 Then s = Replace(s, " ", "")
是什麼東西讓c=1的呢?我一直找不到 = =
: 2.
: p = InStr(s, "+")
: If p > 0 Then GoSub SplitProc: Eval = Eval(op1) + Eval(op2): GoTo EndProc
: 3.6.7.
: '第一個字元是減號的時候,從第二個字元開始找起。
: 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
: 4.
: p = InStr(s, "*")
: If p > 0 Then GoSub SplitProc: Eval = Eval(op1) * Eval(op2): GoTo EndProc
: 5.
: p = InStr(s, "/")
: If p > 0 Then GoSub SplitProc: Eval = Eval(op1) / Eval(op2): GoTo EndProc
: : 不好意思,我天資駑鈍,還是不懂><(原諒我吧orz)
: : 可是p如果是變數的話,電腦要從第幾個字元開始找起呢
: : 還是說p是承接上面 p=2 Else p=1 的p
: 既然我就指定是 p 了, p 是 1 就從第一個字元找, p 是 2 就是第二個字元找呀
嗯嗯,這段我了解了原來p是承接上面 p=2 Else p=1 的p沒錯
: ※ 引述《TrueFeeling (昨日之死)》之銘言:
: : 我看到的是:
: : Label1.Caption = Eval(Text1.Text)
: : 這個意思我覺得是,點一下Command3然後他的Caption會顯示Text1.Text算出來的值
: : 可是如果是這樣的話,代表的是輸出
: : 但是如果要由輸入的Text1.Text變成方程式的話,
: : 應該會有一個東西來影響方程式的東西
: : 看程式內容我覺得Text1.Text就是Eval(s)中的s,
: : 但是我沒有看到在Text1.Text和s有任何的轉換關係,所以..我還是不懂orz
: 什麼轉換?
: 程式就是你在 Text1.Text 輸入完方程式後,按下 Command3
: 然後會執行 Command3_Click(),
: 在 Command3_Click() 中會呼叫 Eval ,把 Text1.Text 的內容傳進去當作第一個參數。
是喔,呼叫可以這樣用@@||(驚!!)
: 進到 Eval 裏面,第一個參數 s 當然是 Text1.Text 的內容啦!
: 然後 Eval 就開始處理 s 的內容,該分割的就分割,
: 然後再次呼叫 Eval,交給新的 Eval 去處理被分割的二組運算式,
: 直到所有運算式都被分解成數字的時候再將數字相加或相減...等等四則運算。
: 最後就會得到一個答案,這個答案傳回給 Command3_Click()。
: 因為我說 Label1.Caption = Eval(Text1.Text),所以這個答案就會交給 Label1去處理
: Label1 就會把它的 Caption 這個屬性的新值輸出。
: ※ 引述《TrueFeeling (昨日之死)》之銘言:
: : ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
: : 如果s字串前面有負號,則下面S字串由第2個找起,否則由第1個找起?
: : 如果是的話下面
: : Else
: : GoSub SplitProc: Eval = Eval(op1) + Eval("-" & op2): GoTo EndProc
: : 這個的作用好像有重複
: : 因為我把他拿掉測試似乎沒影響
: 上面有說了,之前沒說明清楚...
: 沒影響是因為你給的運算式剛好沒有符合條件...
: 至於下面那五個符號,為何想要用其它來取代?
: op1 的定義,我就是要它代表第一組運算式的,
: op2 就是第二組。
: 分割的程式碼有二段,主要的那段就是 SplitProc 那裡。
: 另一段程式碼是在
: If p > 0 Then
: op1 = Mid(s, p - 1, 1)
: 這個區段中,為的只是要檢查目前這個運算子的前一個字元是不是也是運算子。
: 所以只有 op1,不會有op2...
: 你要用其它符號取代,當然是可以,只不過多使用了一個變數而已...
但是依照程式裡面op1的定義是:
op1 = Left(s, p - 1)
所以這樣來說,感覺實際上是兩個變數,只是因為前一個用完,後面一個重新定義的樣子
--
感謝你還漫有耐心的,陪我喇勒這麼多^^||
--
少年讀書,如隙中窺月;
中年讀書,如庭中望月;
老年讀書,如臺上玩月。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.141.159.236
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章