Re: [VB6 ] 井字遊戲的勝負判定

[yauhh (姚呵呵)]

講到基本寫法,由於遊戲是事件觸發,因此可以考慮哪種事件只做哪些事情.
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)
推 xtimer:哇...這個淺顯易懂多了  原來...硬凹真的簡單多了~"~
→ xtimer:謝謝大大~也感謝之前幾位大大   又上了一課了~^^
→ MOONRAKER:andthen和orelse是什麼關鍵字啊？
→ yauhh:AndThen是And的short-cut evaluation,OrElse是Or的延伸,
→ yauhh:早期VB並沒有捷徑求值,而C基本就有捷徑求值
→ yauhh:VB.Net則加入了這二項feature,很有彈性
→ MOONRAKER:@@ 難怪在VB 6.0裡面沒發現
推 horngsh:AndAlso
→ yauhh:是AndAlso,老錯記為AndThen
小知識:
        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)
→ MOONRAKER:奇怪xtimer不是在寫VB6的程式嗎？而這是VB.NET的op'ator
推 MrOrz:樓上也被標題分類騙了XDrz。
→ yauhh:這篇從一開始就是VB.Net討論串,只是開頭標錯而已,
→ yauhh:你絕不可能在VB6談一個函式 handles button1.click
→ xtimer:我是在寫VB2005的程式..可是只要有個相關的起頭
→ xtimer:我看的懂 且有用的...我大約都能摸索到我自己想要的答案= =
→ xtimer:其中可以能要多方面的發問&翻課本   就怕連頭都不知道怎麼=
→ xtimer:所以謝謝各位大大~