模拟斗地主发牌源码

.版本 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)
    输出调试文本 (取数组成员数 (参数_图片框))
    .如果真 (取数组成员数 (参数_图片框) ＝ 参数_张数)
        跳出循环 ()
    .如果真结束

.判断循环尾 ()

@寂寞黄昏