模拟斗地主发牌源码

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

模拟斗地主发牌源码.png

相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注