帮忙改程序（三子棋）

xgreenclover

别小看14岁

Miu.C

游戏之家站长: Re: Re:帮忙改程序（三子棋）



作者要求修改他的代码，用VB，别捣乱！

他说要用VB的代码，发C++代码的没事倒反找到我的头上了，人家不就演示一下算法而已嘛？？斑竹你自己看是谁找谁的麻烦啊，我只是评论了一下那段C++的代码，其他的什么都没做啊。

紫涩雪

我只是 用 C++描述一下 代码~~
你们就当 伪代码 看看 好了~~~
又没什么 高级的 东西~~~~

VB 有10 年 没用了~~~
都不清楚 怎么 写了~~
//------------------------
而且 我这里 也没有 VB6

蜜蜂巢

哈，代码我帮你改为VB6中的了，能不能用我就不知道了。
Option Explicit

'我有 范例~~
'http://bbs.gameres.com/showthread.asp?threadid=57729
'看我写的~~
'//==============================================================
'//返回战况
'//玩家
'//AI
'//平局
Private m_room(8) As Integer

Function winner(ByVal D_NONE As Integer, ByVal D_TIE As Integer) As Integer

  Dim WINNING_ROWS(8, 3) As Integer, TOLAL_ROWS As Integer
  Dim row As Integer, i As Integer
  TOLAL_ROWS = 8
  WINNING_ROWS(0, 0) = 0
  WINNING_ROWS(0, 1) = 1
  WINNING_ROWS(0, 2) = 2
  WINNING_ROWS(1, 0) = 3
  WINNING_ROWS(1, 1) = 4
  WINNING_ROWS(1, 2) = 5
  WINNING_ROWS(2, 0) = 6
  WINNING_ROWS(2, 1) = 7
  WINNING_ROWS(2, 2) = 8
  WINNING_ROWS(3, 0) = 0
  WINNING_ROWS(3, 1) = 3
  WINNING_ROWS(3, 2) = 6
  WINNING_ROWS(4, 0) = 1
  WINNING_ROWS(4, 1) = 4
  WINNING_ROWS(4, 2) = 7
  WINNING_ROWS(5, 0) = 2
  WINNING_ROWS(5, 1) = 5
  WINNING_ROWS(5, 2) = 8
  WINNING_ROWS(6, 0) = 0
  WINNING_ROWS(6, 1) = 4
  WINNING_ROWS(6, 2) = 8
  WINNING_ROWS(7, 0) = 2
  WINNING_ROWS(7, 1) = 4
  WINNING_ROWS(7, 2) = 6

  
  For row = 0 To TOLAL_ROWS

    If (m_room(WINNING_ROWS(row, 0)) <> D_NONE) And _
        (m_room(WINNING_ROWS(row, 0)) = m_room(WINNING_ROWS(row, 1))) And _
        (m_room(WINNING_ROWS(row, 1)) = m_room(WINNING_ROWS(row, 2))) Then
   
       winner = m_room(WINNING_ROWS(row, 0))
       Exit Function
    End If
  Next row


  For i = 0 To 10

    If i = 9 Then
      winner = D_TIE
      Exit Function
    End If

    If m_room(i) = D_NONE Then
      winner = D_NONE
      Exit Function
    End If

  Next i

  winner = D_NONE

End Function



Private Sub Form_Load()
  winner 0, 0
End Sub

游戏之家站长

谢谢楼上了。

zodane

误会误会 .
这种紧张气氛其实是私人原因造成的 .  你们私下沟通沟通吧 .
理解万岁.  

游戏之家站长

我的问题就是要人用VB6解决，不需要其它语言和算法， 我觉得C语言的东西应当发到C++论坛，
已经说了作者14岁不到，就是帮他改游戏。

zodane

  C++的发到VB区没什么不好的.
  只要是对解决问题有帮助.

游戏之家站长

是呀！我的贴就是要人解决问题， 因为我解决不到。

蜜蜂巢

游戏之家站长: Re:帮忙改程序（三子棋）

是呀！我的贴就是要人解决问题， 因为我解决不到。

哈！这是我帮你改的双人三子棋程序看看好不好玩呀，里有可执行程序的。