好象很无聊
先发上来
本来想做个围棋,但是太难了..向大家请教拉

支持原创，不过我不会玩这个棋，所以就只好在棋盘上不停的放棋子，直到程序提示下标越界崩溃退出。也就是程序还有BUG.

没做好。会出现下标越界

这棋没做成，哪是黑白棋？分明就只是能显示些黑白棋子嘛。
我以前下此棋，一般的程序我都能胜。

是因为想加游戏规则才那样的..这个好了..不过还是只是能显示些黑白棋子

关于游戏规则有什么想法就说啊..五子棋.黑白棋.围棋都可以.谢谢
还有关于时间的代码
Private Sub Timerw_Timer()
BS = BS + 1
If BS = 60 Then BM = BM + 1: BS = 0
If BM = 60 Then BH = BH + 1: BM = 0
BS1.Caption = "BH: BM: BS"
End Sub
它显示"BH: BM: BS"
用STR(BH)&":"STR(BM)&":"STR(BS)也不行啊

[此贴子已经被作者于2007-6-23 17:12:10编辑过]

黑白棋基本规则：在棋局开始前，先把两个黑棋和两个白棋交叉放在棋盘中央.黑方先下，然后双方交替着子。轮到一方下棋时，必须把棋下在与对方棋子相邻的空位上，要求所下的棋子和原有的已方棋子夹住对方的至少一个棋子(横竖斜夹均可)，然后把被夹住的子变成己方的颜色(也叫吃子)。下棋过程中，任何棋子既不会从棋盘上拿走，也不会从一个格子移到另一个格子。 当双方都无棋可下时，对局结束。

关于人机对弈有什么技巧呢？好象变化好少。如果是3*3或4*4的棋盘可以直接穷举出最优下法

棋盘为8x8方格,总共使用64个棋子，棋子是放在格中，不是在十字线上。穷举法要上速度也是不容易的，有些程序在走到某此步子时竟要用几分钟穷举。和人下棋一般是不会考虑那么久的。

楼上的界面很友好!