ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[原创]超强五子棋(人机对战)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2004-10-15 13:13 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:娱乐和游戏应用
更新了一下﹐去掉了連五子繼續的bug LFBZKkbV.rar (31.23 KB, 下载次数: 1064)
[此贴子已经被作者于2006-4-27 2:27:29编辑过]

LolOVxJ8.rar

27.8 KB, 下载次数: 825

超強五子棋(人機對戰)

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-10-15 23:33 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

没有人支持吗?自已顶一下.

TA的精华主题

TA的得分主题

发表于 2004-10-28 00:44 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-10-27 13:22 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-10-29 12:59 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
我好想领略一下,可是怎么没有啊?

TA的精华主题

TA的得分主题

发表于 2004-10-31 14:07 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
怎么没有啊?

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-11-1 08:25 | 显示全部楼层

没有人喜欢看啊﹐所以就删掉了。

想重发文件又无法上传﹐链接如下﹕

http://www.officefans.net/cdb/viewthread.php?fpage=3&tid=27290

工程密码*xuezhe810315

[此贴子已经被作者于2004-11-1 8:44:14编辑过]

TA的精华主题

TA的得分主题

发表于 2004-11-4 09:25 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

楼主:真是高人(编程水平加逻辑思维)!!!

另:我来代楼主发一个原程序,省得大家找的麻烦!

GNN4Ho4b.rar (60.53 KB, 下载次数: 347)

程序中的api函数相关说明如下:

GetAsyncKeyState API函数说明

VB声明
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
说明
判断函数调用时指定虚拟键的状态
返回值
Long,自对GetAsyncKeyState函数的上一次调用以来,如键已被按过,则位0设为1;否则设为0。如键目前处于按下状态,则位15设为1;如抬起,则为0。微软的win32手册指出:倘若输入焦点从属于与调用函数的输入线程不同的另一个输入线程,则返回值为0(例如,一旦另一个程序拥有焦点,则它应返回零)。证据显示,函数实际是在整个系统的范围内工作的
参数表
参数 类型及说明
vKey Long,欲测试的虚拟键的键码
注解

如指定了VK_LBUTTON 或 VK_RBUTTON,按钮的状态就会根据实际的按钮报告——无论是否曾用SwapMouseButton函数对鼠标的位置进行了交换。win32提供了额外的一些虚拟键码,比如VK_LSHIFT 和 VK_RSHIFT,以便在两个完全一样的键中区分出左右(也包括Ctrl 和 Alt)

[此贴子已经被作者于2004-11-4 14:06:45编辑过]

GQDNTxzs.rar

22.12 KB, 下载次数: 175

TA的精华主题

TA的得分主题

发表于 2004-11-4 21:53 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-11-19 13:30 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
就一个字,牛!!!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-12-25 16:00 , Processed in 0.040745 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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