Re: [VB6 ] 計算機
※ 引述《TrueFeeling (昨日之死)》之銘言：
: 如果我上面的判斷沒錯的話,GoSub SplitProc和GoTo EndProc是衝突的
: 可是卻同時進行?讓我覺得很矛盾
沒有同時進行呀，SplitProc跑完後，會 Return 回來，跑 Eval(op1) + Eval(op2)。
然後再 Goto EndProc，結束這一個函數。
跑 Eval = Eval(op1) + Eval(op2) 的時候會先執行 Eval(op1)，得到一個值，
然後再執行 Eval(op2)，也得到一個值，兩個值相加存進 Eval 中。
把我那串程式列成規則就是：
題目是一串四則運算的方程式(裡面有加、減、乘、除、負號、數字、及空白)，
方程式解法如下所示，請告訴我答案。
1. 將方程式中的空白去除掉，但為求效率，所以只有第一次要做這個動作。
2. 先處理優先等級最低的加法，分割成二部份，並相加。
3. 處理優先等級最低的減法，分割成二部份，把被加數變負數，並相加。
4. 處理優先等級最高的乘法，分割成二部份，並相乘。
5. 處理優先等級最低的除法，分割成二部份，並相除。
6. 第一個字元是減號的時候，從第二個字元開始找起。
7. 處理減號的時候要注意是負號還是減號，當減號前一個字元不是數字的時候，此符號
則為負號。
上七項規則對照程式碼如下：
1.
If c = 1 Then s = Replace(s, " ", "")
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 就是第二個字元找呀
※ 引述《TrueFeeling (昨日之死)》之銘言：
: ※ 引述《fumizuki (小獅子)》之銘言：
: : 在 Command3_Click 那裡...
: : 第一次呼叫在 Command3_Click 那裡，
: 我看到的是:
: 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 (昨日之死)》之銘言：
: ※ 引述《fumizuki (小獅子)》之銘言：
: : 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
: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
: 如果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...
你要用其它符號取代，當然是可以，只不過多使用了一個變數而已...
--
VB 程式設計 倉木麻衣 PTT 星爺板 行列輸入法
======================================================
Visual_Basic MaiKuraki Stephen Array
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.58.156.43
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
