新易扑克牌游戏源代码

小吖头 · 发表于 2021-1-28 21:08:12

.版本 2

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

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

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

a990350 · 发表于 2025-4-20 22:23:37

感谢分享

张张利利 · 发表于 2024-7-26 11:42:58

下来看看啊啊

张张利利 · 发表于 2024-7-26 11:42:44

至此你啊支持

530278137 · 发表于 2023-4-26 13:17:56

66666666666666666666

创世魂 · 发表于 2021-9-25 18:15:41

缺图片资源啊

ujff77 · 发表于 2021-9-21 19:03:31

谢谢开源

点客SEO快排系统 · 发表于 2021-3-30 09:41:24

66666支持一下

281225722 · 发表于 2021-2-18 14:40:02

补上游戏所缺的图片

到了深夜 · 发表于 2021-1-31 12:57:33

谢谢开源

		自动登录	找回密码
密码			注册

[易语言纯源码] 新易扑克牌游戏源代码

评分