Re: [VB6 ] 計算機

看板Visual_Basic作者 (小獅子)時間19年前 (2005/06/11 13:11), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串26/51 (看更多)
※ 引述《TrueFeeling (昨日之死)》之銘言: : ※ 引述《fumizuki (小獅子)》之銘言: : : 沒有同時進行呀,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了) 你的問題大概是   Eval = Eval(op1) + Eval(op2): Goto EndProc 這一行吧   這是兩行敘述,第一行執行時會去呼叫 Eval, op1 和 op2 那兩個 Eval 都「執行完成」的時候,才會 Goto EndProc   : : 把我那串程式列成規則就是: : : 題目是一串四則運算的方程式(裡面有加、減、乘、除、負號、數字、及空白), : : 方程式解法如下所示,請告訴我答案。 : : 1. 將方程式中的空白去除掉,但為求效率,所以只有第一次要做這個動作。 : : 2. 先處理優先等級最低的加法,分割成二部份,並相加。 : ^^^^^^^^^^^^ : : 3. 處理優先等級最低的減法,分割成二部份,把被加數變負數,並相加。 : ^^^^^^^^^^^^ : : 4. 處理優先等級最高的乘法,分割成二部份,並相乘。 : ^^^^^^^^^^^ : : 5. 處理優先等級最低的除法,分割成二部份,並相除。 : ^^^^^^^^^^^^ : : 6. 第一個字元是減號的時候,從第二個字元開始找起。 : : 7. 處理減號的時候要注意是負號還是減號,當減號前一個字元不是數字的時候,此符號 : : 則為負號。 : 優先等級這裡有疑問,依照你程式的寫法 : 我的解讀是: : 先用+號將字串分割成前段和後段,然後每一個分割後的字串依此繼續分割 : 當分割完的函數裡面沒有+號的時候才會-號,再來是乘號,再來是除號 : ,所以優先等級我看不懂你說最高和最低是什麼意思 先乘除後加減啊   乘除優先運算,加減最後運算,這數學規則應該知道吧   因為最先進入的程式是最後才會結束的,所以要倒過來,變成加減先處理,再處理乘除   至於乘與除先後順序不會影響結果,加與減也是... : : 上七項規則對照程式碼如下: : : 1. : : If c = 1 Then s = Replace(s, " ", "") : 是什麼東西讓c=1的呢?我一直找不到 = = 前面翻翻程式碼吧   最開頭就寫了個 c = 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 : : 既然我就指定是 p 了, p 是 1 就從第一個字元找, p 是 2 就是第二個字元找呀 : 嗯嗯,這段我了解了原來p是承接上面 p=2 Else p=1 的p沒錯 : : 什麼轉換? : : 程式就是你在 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 這個屬性的新值輸出。 : : 上面有說了,之前沒說明清楚... : : 沒影響是因為你給的運算式剛好沒有符合條件... : : 至於下面那五個符號,為何想要用其它來取代? : : op1 的定義,我就是要它代表第一組運算式的, : : op2 就是第二組。 : : 分割的程式碼有二段,主要的那段就是 SplitProc 那裡。 : : 另一段程式碼是在 : : If p > 0 Then : : op1 = Mid(s, p - 1, 1) : : 這個區段中,為的只是要檢查目前這個運算子的前一個字元是不是也是運算子。 : : 所以只有 op1,不會有op2... : : 你要用其它符號取代,當然是可以,只不過多使用了一個變數而已... : 但是依照程式裡面op1的定義是: : op1 = Left(s, p - 1) : 所以這樣來說,感覺實際上是兩個變數,只是因為前一個用完,後面一個重新定義的樣子 op1 有兩個地方在使用它,兩個地方並不會衝突,用過了後就不再使用了... -- VB 程式設計 倉木麻衣 PTT 星爺板 行列輸入法 ====================================================== Visual_Basic MaiKuraki Stephen Array -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 210.58.156.43
文章代碼(AID): #12gd9q3n (Visual_Basic)
討論串 (同標題文章)
本文引述了以下文章的的內容:
以下文章回應了本文
完整討論串 (本文為第 26 之 51 篇):
10
19
2
3
文章代碼(AID): #12gd9q3n (Visual_Basic)