ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 4335|回复: 14

[原创] 五子棋游戏

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-12-14 09:27 | 显示全部楼层 |阅读模式
自己编的五子棋游戏,初衷是我儿子爱上了五子棋,所以用VBA编了这个,过程中不断被儿子赢,一遍遍改进,但架构一开始就没有搭好,各种判断依然是不断地堆凑if else。
现在已经很难胜过我儿子了,贡献出来供有需者拿走,如果有一丁点儿有用的地方,那就很欣慰了!

五子棋.zip

51.47 KB, 下载次数: 474

TA的精华主题

TA的得分主题

发表于 2018-12-14 09:35 来自手机 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
未下先赞,为儿学习也是厉害!

TA的精华主题

TA的得分主题

发表于 2018-12-14 09:37 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
厉害了,前几天我还在想能不能做出来,就有大神做好了

TA的精华主题

TA的得分主题

发表于 2018-12-14 09:42 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-12-14 10:58 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-12-14 11:16 | 显示全部楼层
博弈算法中, 目前流行的是 alpha-beta剪枝 。
根据当前局面,评估每一个可以落子的位置,估计几步之内放在哪个位置最有利。
(步数越多,时间越长)

TA的精华主题

TA的得分主题

发表于 2018-12-20 13:54 | 显示全部楼层
和其他几个程序测试过,基本都赢了!非常不错。仔细看过源代码,发现计分函数Score()里边“死4活3”,“双活3“"死3”“死2”“独1”的if语句考虑的情形似乎不全?

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-12-21 09:47 来自手机 | 显示全部楼层
是的,有待完善,开始的时候添加这些还是按规则做的,后来纯粹为了应付,看到一个不足就打个补丁,添加乱了

TA的精华主题

TA的得分主题

发表于 2018-12-21 15:14 | 显示全部楼层
本帖最后由 zhangyuanzhou 于 2018-12-21 15:22 编辑

我觉得简单添加语句不可取,因为“死4”有32种,“活3”有24种,那么“死4”+“活3”组合就有,32*21=672种。应该单独为“死4”和“活3”各写一个函数,然后判断在8个方向上的组合:“死4”+“死4”;“死4”+“活3”;“活3”+“活3”三种情形,语句看起来会简单很多。另外,可以对多个相同评分的待选单元格进行下一步推理,从中选出最优解。现在只是选最左上角的,套路比较固定,玩多几次,电脑肯定输。

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-12-21 18:11 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
zhangyuanzhou 发表于 2018-12-21 15:14
我觉得简单添加语句不可取,因为“死4”有32种,“活3”有24种,那么“死4”+“活3”组合就有,32*21=672种 ...

虽说死4有32种,但是真正判断起来,不需要32个语句,组合起来确实情况比较多,所以我本来想做一个试教的程序,可以通过摆放具体的情况,让电脑记下来
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-4-24 10:25 , Processed in 0.046780 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表