最新修改：
直接就可以运行，不需要把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源码
扫一扫
795
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
