精易论坛

标题: 新易扑克牌游戏源代码 [打印本页]

作者: 小吖头 时间: 2021-1-28 21:08
标题: 新易扑克牌游戏源代码
.版本 2

.子程序初始化
.局部变量计量, 整数型

.计次循环首 (58, 计量)
加入成员 (图片组, 读入文件 (取运行目录 () ＋ “\新扑克牌图片\扑克牌_(” ＋到文本 (计量) ＋ “).bmp”))
.如果真 (取字节集长度 (图片组 [计量]) ＝ 0)
信息框 (“初始化失败!” ＋ #换行符＋ “原因：没找到” ＋ #引号＋取运行目录 () ＋ “\新扑克牌图片\扑克牌_(” ＋到文本 (计量) ＋ “).bmp” ＋ #引号＋ “图片文件!”, #错误图标, )
结束 ()
.如果真结束

.计次循环尾 ()
牌是否未创建＝真
_启动窗口.底图＝图片组 [58]
显牌画板.可视＝假
显牌画板.底图＝图片组 [58]
重定义数组 (全局输赢, 假, 5)
牌号排列＝到数值 (读配置项 (取运行目录 () ＋ “\游戏配置.ini”, “游戏配置”, “牌号排列”, “0”))
计量＝到数值 (读配置项 (取运行目录 () ＋ “\游戏配置.ini”, “游戏配置”, “游戏速度”, “0”))
.如果真 (计量＝ 0)
游戏速度＝ 2000
.如果真结束
.如果真 (计量＝ 1)
游戏速度＝ 4000
.如果真结束
.如果真 (计量＝ 2)
游戏速度＝ 100

104.34 KB, 下载次数: 69, 下载积分: 精币 -2 枚

作者: 外星人群控 时间: 2021-1-28 22:55
没有上传图片 ?
读入文件 (取运行目录 () ＋ “\新扑克牌图片\扑克牌_(” ＋到文本 (计量) ＋ “).bmp”

作者: 醉卧美人膝 时间: 2021-1-29 01:20
感谢分享，很给力！~

作者: 不苦小和尚 时间: 2021-1-29 06:52
游戏源码？？？看看

作者: 如梦入秋o 时间: 2021-1-29 08:23
感谢大佬分享

作者: happyweeks365 时间: 2021-1-29 09:12
没有上传图片 ?
读入文件 (取运行目录 () ＋ “\新扑克牌图片\扑克牌_(” ＋到文本 (计量) ＋ “).bmp”

作者: wjswzj0 时间: 2021-1-29 09:40
感谢大佬分享

作者: gaoqing 时间: 2021-1-29 11:34
谢谢分享！

作者: kyo9766 时间: 2021-1-29 13:28
刚想玩一下，发现缺图片资源啊

作者: huxian 时间: 2021-1-30 06:18
游戏难度有没有要求，不会出现我出3他出王炸的情况吧

作者: wuqingg 时间: 2021-1-30 10:20

huxian 发表于 2021-1-30 06:18
游戏难度有没有要求，不会出现我出3他出王炸的情况吧

现实中你跟我打牌你出3我也会王炸的

作者: 到了深夜 时间: 2021-1-31 12:57
谢谢开源

作者: 281225722 时间: 2021-2-18 14:40
补上游戏所缺的图片

新扑克牌图片.rar

131.8 KB, 下载次数: 36, 下载积分: 精币 -2 枚

作者: 点客SEO快排系统 时间: 2021-3-30 09:41
66666支持一下

作者: ujff77 时间: 2021-9-21 19:03

谢谢开源

作者: 创世魂 时间: 2021-9-25 18:15
缺图片资源啊

作者: 530278137 时间: 2023-4-26 13:17
66666666666666666666

作者: 张张利利 时间: 2024-7-26 11:42
至此你啊支持

作者: 张张利利 时间: 2024-7-26 11:42
下来看看啊啊

作者: a990350 时间: 2025-4-20 22:23
感谢分享

欢迎光临精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4