zsx108的专栏

自己开发的房产管理软件，登记、套打房产证、土地证、规划许可证

中国象棋人机对战vb.net源码 及 编译后的安装包 如果是安装程序，需将源代码bin\debug里面有个Picture目录，放在安装目录里才可正常使用

最新修改： 直接就可以运行，不需要把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源码

新增: 空着裁剪 哈希表 Picture目录要放在E:\Arhat 如果运行后退出，请下载Frame Work 2.0 http://www.onlinedown.net/soft/38669.htm

中国象棋人工智能开发 for 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))