.版本 2
.程序集 窗口程序集1
.程序集变量 扑克A, 字节型, , "0"
.程序集变量 扑克B, 字节型, , "0"
.程序集变量 扑克C, 字节型, , "0"
.程序集变量 扑克D, 字节型, , "0"
.程序集变量 扑克E, 字节型, , "0", 大小王
.程序集变量 图片牌型, 图片框, , "0"
.程序集变量 图片a, 图片框, , "0"
.程序集变量 图片d, 图片框, , "0"
.程序集变量 图片c, 图片框, , "0"
.程序集变量 图片b, 图片框, , "0"
.子程序 __启动窗口_创建完毕
置随机数种子 ()
扑克A ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13 }
扑克B ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13 }
扑克C ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13 }
扑克D ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13 }
扑克E ＝ { 1, 2 }
发牌 (17, 1, 图片a)
发牌 (17, 图片a [1].顶边 ＋ 图片a [1].高度 ＋ 20, 图片b)
发牌 (17, 图片b [1].顶边 ＋ 图片b [1].高度 ＋ 20, 图片c)
发牌 (3, 400, 图片a)
.子程序 发牌
.参数 参数_张数, 整数型, , 13
.参数 参数_顶, 整数型
.参数 参数_图片框, 图片框, 数组, 图片框数组
.局部变量 随即花色, 整数型
.局部变量 随机数字, 整数型
.局部变量 图片地址, 文本型
.局部变量 计次, 整数型
清除数组 (参数_图片框)
.判断循环首 (取数组成员数 (参数_图片框) ≠ 参数_张数)
随即花色 ＝ 取随机数 (1, 5)
.判断开始 (随即花色 ＝ 1) ' 1 方片
.如果真 (取数组成员数 (扑克A) ＝ 0)
到循环尾 ()
.如果真结束
随机数字 ＝ 取随机数 (1, 取数组成员数 (扑克A))
图片地址 ＝ 取运行目录 () ＋ “\1\” ＋ 到文本 (扑克A [随机数字] ＋ 2) ＋ “.jpg”
删除成员 (扑克A, 随机数字, 1)
.判断 (随即花色 ＝ 2) ' 2 红桃
.如果真 (取数组成员数 (扑克B) ＝ 0)
到循环尾 ()
.如果真结束
随机数字 ＝ 取随机数 (1, 取数组成员数 (扑克B))
图片地址 ＝ 取运行目录 () ＋ “\2\” ＋ 到文本 (扑克B [随机数字] ＋ 2) ＋ “.jpg”
删除成员 (扑克B, 随机数字, 1)
.判断 (随即花色 ＝ 3) ' 3黑桃
.如果真 (取数组成员数 (扑克C) ＝ 0)
到循环尾 ()
.如果真结束
随机数字 ＝ 取随机数 (1, 取数组成员数 (扑克C))
图片地址 ＝ 取运行目录 () ＋ “\3\” ＋ 到文本 (扑克C [随机数字] ＋ 2) ＋ “.jpg”
删除成员 (扑克C, 随机数字, 1)
.判断 (随即花色 ＝ 4) ' 4 梅花
.如果真 (取数组成员数 (扑克D) ＝ 0)
到循环尾 ()
.如果真结束
随机数字 ＝ 取随机数 (1, 取数组成员数 (扑克D))
图片地址 ＝ 取运行目录 () ＋ “\4\” ＋ 到文本 (扑克D [随机数字] ＋ 2) ＋ “.jpg”
删除成员 (扑克D, 随机数字, 1)
.判断 (随即花色 ＝ 5) ' 4 梅花
.如果真 (取数组成员数 (扑克E) ＝ 0)
到循环尾 ()
.如果真结束
随机数字 ＝ 取随机数 (1, 取数组成员数 (扑克E))
图片地址 ＝ 取运行目录 () ＋ “\5\” ＋ 到文本 (扑克E [随机数字]) ＋ “.jpg”
删除成员 (扑克E, 随机数字, 1)
.默认
.判断结束
加入成员 (参数_图片框, 图片框1)
复制窗口组件 (图片框1, 参数_图片框 [取数组成员数 (参数_图片框)])
参数_图片框 [取数组成员数 (参数_图片框)].可视 ＝ 真
参数_图片框 [取数组成员数 (参数_图片框)].图片 ＝ 读入文件 (图片地址)
参数_图片框 [取数组成员数 (参数_图片框)].左边 ＝ 20 ＋ 20 × 取数组成员数 (参数_图片框)
参数_图片框 [取数组成员数 (参数_图片框)].顶边 ＝ 参数_顶
图片地址 ＝ 取空白文本 (0)
输出调试文本 (取数组成员数 (参数_图片框))
.如果真 (取数组成员数 (参数_图片框) ＝ 参数_张数)
跳出循环 ()
.如果真结束
.判断循环尾 ()
