作者yauhh (姚呵呵)
看板Visual_Basic
標題Re: [VB6 ] 井字遊戲的勝負判定
時間Sat May 17 12:02:14 2008
講到基本寫法,由於遊戲是事件觸發,因此可以考慮哪種事件只做哪些事情.
Button1_Click只考慮一條橫列,一條縱行,一條斜線,
Private Sub Button1_Click(ByVal ...
x = x + 1
Button1.Enabled = False
If x Mod 2 = 1 Then
Button1.Text = "o"
Else
Button1.Text = "x"
End If
If (Button1.Text = Button2.Text
AndAlso _
Button1.Text = Button3.Text) _
OrElse (Button1.Text = Button4.Text
AndAlso _
Button1.Text = Button7.Text) _
OrElse (Button1.Text = Button5.Text
AndAlso _
Button1.Text = Button9.Text _
Then
Label10.Text = String.Format("勝方 {0} !", Button1.Text)
End If
End If
同理,Button2,Button4,Button6,Button8都只考慮一橫列與一縱行,
Button5要考慮一橫列,一縱行,左斜線,右斜線,
Button1,Button3,Button7,Botton9則是另一組同類型的程式寫法.
一般的回合制戰略遊戲應該也是這樣寫,對每個移動的兵力只考慮其攻擊範圍的
可能情況.
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.160.109.218
※ 編輯: yauhh 來自: 218.160.109.218 (05/17 12:02)
1F：推 xtimer:哇...這個淺顯易懂多了 原來...硬凹真的簡單多了~"~ 05/17 14:12
2F：→ xtimer:謝謝大大~也感謝之前幾位大大 又上了一課了~^^ 05/17 14:13
3F：→ MOONRAKER:andthen和orelse是什麼關鍵字啊？ 05/17 15:55
4F：→ yauhh:AndThen是And的short-cut evaluation,OrElse是Or的延伸, 05/17 16:33
5F：→ yauhh:早期VB並沒有捷徑求值,而C基本就有捷徑求值 05/17 16:34
6F：→ yauhh:VB.Net則加入了這二項feature,很有彈性 05/17 16:35
7F：→ MOONRAKER:@@ 難怪在VB 6.0裡面沒發現 05/17 16:46
8F：推 horngsh:AndAlso 05/18 08:30
9F：→ yauhh:是AndAlso,老錯記為AndThen 05/18 09:59
小知識:
Short-cut Circuit Evaluation是指邏輯式中通常在前一部份已能決定
答案時,就不執行邏輯式後面部份,避免浪費計算動作.
A And B 情況,若A為False,此式答案很明顯是False,因此B不必評估.
A Or B 情況,若A為True,此式答案就是True,因此B不必評估.
C/C++ 的And: && 與Or: || 都有Short-cut Circuit Evaluation效果,
但VB6及以前版本的 And 與 Or 很明顯沒有 SCE 效果.
而VB.Net是將這效果搬上檯面,區分為基本的And Or與有捷徑求值的AndAlso
與OrElse. 從字面提示很清楚它帶有依情況評估的功能.
知道這個效果的人,有時會利用此效果寫出比較不一樣的程式.
要注意的是,擺在右邊的子算式可能不執行. 如果一行判斷式永遠必須執行到,
不要把此判斷式擺在AndAlso右邊,或OrElse右邊.
※ 編輯: yauhh 來自: 59.112.224.135 (05/18 10:19)
10F：→ MOONRAKER:奇怪xtimer不是在寫VB6的程式嗎？而這是VB.NET的op'ator 05/18 13:20
11F：推 MrOrz:樓上也被標題分類騙了XDrz。 05/18 16:05
12F：→ yauhh:這篇從一開始就是VB.Net討論串,只是開頭標錯而已, 05/18 16:09
13F：→ yauhh:你絕不可能在VB6談一個函式 handles button1.click 05/18 16:12
14F：→ xtimer:我是在寫VB2005的程式..可是只要有個相關的起頭 05/20 17:57
15F：→ xtimer:我看的懂 且有用的...我大約都能摸索到我自己想要的答案= = 05/20 17:58
16F：→ xtimer:其中可以能要多方面的發問&翻課本 就怕連頭都不知道怎麼= 05/20 17:58
17F：→ xtimer:所以謝謝各位大大~ 05/20 17:59