[分享][原创]一步一步教你“不用VBA也做可对奕之象棋”

andysky

 

象棋图表相信大家都见过，但都不可对奕，或者可对奕的都需编程，今天一步步教大家如何制作一个可对奕之象棋（不用VBA）。

请看附件。

[ 本帖最后由 andysky 于 2009-8-14 16:45 编辑 ]

liujy

谢谢分享!

zw1028

谢谢分享！！ 对学函数及图表有帮助。就是走起来太麻烦了！

andysky

若用在最后加入一点VBA知控件，走起来就简单多了，但与此处题意不符。

以后可以做一个VBA版本的。

gouweicao78

不错，好东西，收下！[em17]

chrisfang

其他都不错，就是下棋麻烦了些，而且没有对棋的可行走路线进行限制，另外吃子也没有进行处理。

zz5151353

謝謝 ANDYSKY 兄提供分享 !!![em23][em23][em23]

andysky

以下是引用[I]chrisfang[/I]在2006-5-8 11:44:19的发言：

其他都不错，就是下棋麻烦了些，而且没有对棋的可行走路线进行限制，另外吃子也没有进行处理。

1.可行起路线有限制的。即通过组合框选择，没有超过棋盘范围；当然也可以再加上数据有效性，不可既然组合框中已有限制，再加数据有效性就多余了。 2.吃子前或后需将被吃掉的棋子排除在棋盘外，在组合框下选择“牺牲”即可。工作表中有说明的。 后续改为VBA版则可以加一些功能，比如记录双方走棋记录；将多个“选择组合框”改为一个（红兰方各一个）；吃掉棋子时添加声音提示；添加悔棋功能等等。

[此贴子已经被作者于2006-5-8 11:54:18编辑过]

chrisfang

以下是引用[I]andysky[/I]在2006-5-8 11:49:56的发言：[BR]

以下是引用[I]chrisfang[/I]在2006-5-8 11:44:19的发言：

其他都不错，就是下棋麻烦了些，而且没有对棋的可行走路线进行限制，另外吃子也没有进行处理。

1.可行起路线有限制的。即通过组合框选择，没有超过棋盘范围；当然也可以再加上数据有效性，不可既然组合框中已有限制，再加数据有效性就多余了。 2.吃子前或后需将被吃掉的棋子排除在棋盘外，在组合框下选择“牺牲”即可。工作表中有说明的。 后续改为VBA版则可以加一些功能，比如记录双方走棋记录；将多个“选择组合框”改为一个（红兰方各一个）；吃掉棋子时添加声音提示；添加悔棋功能等等。

我指的行棋路线有两个意思，一个是棋子一步内所能走到的位置没有进行限制，比如我一开始就将红车座标设成（1，6），红车就到了下图的位置，而实际上它是走不到这个位置的。 第二个意思是棋子的特殊定义走法，比如马的日字格，相的田字格等。 当然这些东东不用VBA做实在是太复杂，我的主要意思还是支持楼主的创作。

andysky

仅用图表和函数知识只能做到如此了。 对于车不能像马炮等棋子行走路线，用VBA也许可以达成，但对于会下棋者来说，这是多余的。 新手可能需要此类提示，“马憋脚了！”/“炮只能翻山！”等，但即使VBA可以也很难达成的。 后续有时间考虑一下VBA设计。