- 博客(0)
- 资源 (7)
- 收藏
- 关注
中国象棋vb.net源码
中国象棋人机对战vb.net源码 及 编译后的安装包
如果是安装程序,需将源代码bin\debug里面有个Picture目录,放在安装目录里才可正常使用
2013-09-09
Vb.net中国象棋源码最新版(VbCch2011)
最新修改:
直接就可以运行,不需要把Picture目录放在其它盘符。可以算到5层,平均每步速度25秒。开始4步棋子攻击少,所以会慢一点。棋力比之前版本改变了很多。
如果运行后退出,要安装Framework2.0,下载地址:
http://www.onlinedown.net/soft/38669.htm
程序最新更新:
{{{{一、棋盘采用256格式。}}}}
'' 棋子是否在棋盘中的数组 256个
Dim InBoard() As Byte = { _
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, _
0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, _
0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, _
0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, _
0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, _
0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, _
0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, _
0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, _
0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, _
0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, _
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 _
}
数字为1表示坐标在棋盘里。
{{{{二、与C程序结合}}}}
GenerateMoves函数用C语言写,做成Dll文件,用Vb调用。速度加快了。原来的象棋巫师好像没有“王照面可吃”的规则,我新增加了这段程序。
{{{{三、坐标格式}}}}}
坐标格式不再使用两个变量From,Target,而只使用一个变量Mv。要得到From值,就调用Src(Mv),Target值即DST(Mv)
{{{{四、GenerateMoves源码}}}}}
此程序为GenerateMoves.Dll文件的Vc6源码
2010-06-18
Vb.net中国象棋源码
新增:
空着裁剪
哈希表
Picture目录要放在E:\Arhat
如果运行后退出,请下载Frame Work 2.0
http://www.onlinedown.net/soft/38669.htm
2010-04-18
vb.net中国象棋源码
图像picture目录设置为e:\arhat,可自行修改。若出现“lc.exe已退出,代码为-1”是微软的问题,新建一vb.net程序,将控件和程序粘贴过去即可。
CchessValue函数里的
c = ChessValueArray(Cchess Mod 100)
要改成
c = 子力价值(Cchess, x, y) + ChessValueArray(Int(Cchess Mod 100))
2009-12-02
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人