双色球源码

宅男 · 发表于 2010-12-27 14:19:25

.版本 2.版本 2

.程序集窗口程序集1
.程序集变量程序集_红球, 画板, , "33"
.程序集变量程序集_蓝球, 画板, , "16"

.子程序 __启动窗口_创建完毕
.局部变量局部_计次, 整数型

.计次循环首 (33, 局部_计次)
复制窗口组件 (画板_红球, 程序集_红球 [局部_计次])
程序集_红球 [局部_计次].移动 (16 ＋ ((局部_计次－ 1) ％ 11) × 36, 24 ＋ ((局部_计次－ 1) ＼ 11) × 36, , )
程序集_红球 [局部_计次].标记＝取文本右边 (“0” ＋到文本 (局部_计次), 2)
程序集_红球 [局部_计次].定位写出 (5, 5, 程序集_红球 [局部_计次].标记)
程序集_红球 [局部_计次].可视＝真
.计次循环尾 ()
.计次循环首 (16, 局部_计次)
复制窗口组件 (画板_蓝球, 程序集_蓝球 [局部_计次])
程序集_蓝球 [局部_计次].移动 (16 ＋ ((局部_计次－ 1) ％ 6) × 36, 24 ＋ ((局部_计次－ 1) ＼ 6) × 36, , )
程序集_蓝球 [局部_计次].标记＝取文本右边 (“0” ＋到文本 (局部_计次), 2)
程序集_蓝球 [局部_计次].定位写出 (5, 5, 程序集_蓝球 [局部_计次].标记)
程序集_蓝球 [局部_计次].可视＝真
.计次循环尾 ()

.子程序 _画板_红球_鼠标左键被按下, 逻辑型
.参数横向位置, 整数型
.参数纵向位置, 整数型
.参数功能键状态, 整数型
.局部变量局部_画板, 画板

局部_画板＝取事件组件 ()
.如果 (局部_画板.底图＝ #灰色底图)
局部_画板.底图＝ #红色底图
局部_画板.文本颜色＝ #白色
局部_画板.定位写出 (5, 5, 局部_画板.标记)
.否则
局部_画板.底图＝ #灰色底图
局部_画板.文本颜色＝ #黑色
局部_画板.定位写出 (5, 5, 局部_画板.标记)
.如果结束

.子程序 _画板_蓝球_鼠标左键被按下, 逻辑型
.参数横向位置, 整数型
.参数纵向位置, 整数型
.参数功能键状态, 整数型
.局部变量局部_画板, 画板

局部_画板＝取事件组件 ()
.如果 (局部_画板.底图＝ #灰色底图)
局部_画板.底图＝ #蓝色底图
局部_画板.文本颜色＝ #白色
局部_画板.定位写出 (5, 5, 局部_画板.标记)
.否则
局部_画板.底图＝ #灰色底图
局部_画板.文本颜色＝ #黑色
局部_画板.定位写出 (5, 5, 局部_画板.标记)
.如果结束

.子程序 _按钮_机选红球_被单击
.局部变量局部_计次, 整数型
.局部变量局部_数组, 整数型, , "0"
.局部变量局部_随机数, 整数型

.计次循环首 (33, 局部_计次)
程序集_红球 [局部_计次].底图＝ #灰色底图
程序集_红球 [局部_计次].文本颜色＝ #黑色
程序集_红球 [局部_计次].定位写出 (5, 5, 程序集_红球 [局部_计次].标记)
.计次循环尾 ()
.计次循环首 (33, 局部_计次)
加入成员 (局部_数组, 局部_计次)
.计次循环尾 ()
置随机数种子 ()
.计次循环首 (到整数 (组合框_红球数.内容), 局部_计次)
局部_随机数＝取随机数 (1, 取数组成员数 (局部_数组))
程序集_红球 [局部_数组 [局部_随机数]].底图＝ #红色底图
程序集_红球 [局部_数组 [局部_随机数]].文本颜色＝ #白色
程序集_红球 [局部_数组 [局部_随机数]].定位写出 (5, 5, 程序集_红球 [局部_数组 [局部_随机数]].标记)
删除成员 (局部_数组, 局部_随机数, )
.计次循环尾 ()
子程序_计算注数 ()

.子程序 _按钮_机选蓝球_被单击
.局部变量局部_计次, 整数型
.局部变量局部_数组, 整数型, , "0"
.局部变量局部_随机数, 整数型

.计次循环首 (16, 局部_计次)
程序集_蓝球 [局部_计次].底图＝ #灰色底图
程序集_蓝球 [局部_计次].文本颜色＝ #黑色
程序集_蓝球 [局部_计次].定位写出 (5, 5, 程序集_蓝球 [局部_计次].标记)
.计次循环尾 ()
.计次循环首 (16, 局部_计次)
加入成员 (局部_数组, 局部_计次)
.计次循环尾 ()
置随机数种子 ()
.计次循环首 (到整数 (组合框_蓝球数.内容), 局部_计次)
局部_随机数＝取随机数 (1, 取数组成员数 (局部_数组))
程序集_蓝球 [局部_数组 [局部_随机数]].底图＝ #蓝色底图
程序集_蓝球 [局部_数组 [局部_随机数]].文本颜色＝ #白色
程序集_蓝球 [局部_数组 [局部_随机数]].定位写出 (5, 5, 程序集_蓝球 [局部_数组 [局部_随机数]].标记)
删除成员 (局部_数组, 局部_随机数, )
.计次循环尾 ()
子程序_计算注数 ()

.子程序子程序_计算注数
.局部变量局部_计次, 整数型
.局部变量局部_红球数, 整数型
.局部变量局部_蓝球数, 整数型
.局部变量局部_临时变量, 整数型

.计次循环首 (33, 局部_计次)
.如果真 (程序集_红球 [局部_计次].底图＝ #红色底图)
      局部_红球数＝局部_红球数＋ 1
.如果真结束

.计次循环尾 ()
.计次循环首 (16, 局部_计次)
.如果真 (程序集_蓝球 [局部_计次].底图＝ #蓝色底图)
      局部_蓝球数＝局部_蓝球数＋ 1
.如果真结束

.计次循环尾 ()
局部_临时变量＝ 1
.变量循环首 (局部_红球数, 局部_红球数－ 5, -1, 局部_计次)
局部_临时变量＝局部_临时变量 × 局部_计次
.变量循环尾 ()
输出调试文本 (局部_临时变量)
输出调试文本 (局部_蓝球数)
输出调试文本 (局部_红球数)
标签_注数.标题＝ “您共选择了” ＋到文本 (局部_临时变量 ÷ 720 × 局部_蓝球数) ＋ “注,共” ＋到文本 (局部_临时变量 ÷ 720 × 局部_蓝球数 × 2) ＋ “元”

.子程序 _按钮_添加到投注列表_被单击
.局部变量局部_计次, 整数型
.局部变量局部_文本, 文本型
.局部变量局部_红球数, 整数型
.局部变量局部_蓝球数, 整数型
.局部变量局部_临时变量, 整数型

.计次循环首 (33, 局部_计次)
.如果真 (程序集_红球 [局部_计次].底图＝ #红色底图)
      局部_文本＝局部_文本＋程序集_红球 [局部_计次].标记＋ “ ”
      局部_红球数＝局部_红球数＋ 1
.如果真结束

.计次循环尾 ()
局部_文本＝局部_文本＋ “: ”
.计次循环首 (16, 局部_计次)
.如果真 (程序集_蓝球 [局部_计次].底图＝ #蓝色底图)
      局部_文本＝局部_文本＋程序集_蓝球 [局部_计次].标记＋ “ ”
      局部_蓝球数＝局部_蓝球数＋ 1
.如果真结束

.计次循环尾 ()
局部_临时变量＝ 1
.变量循环首 (局部_红球数, 局部_红球数－ 5, -1, 局部_计次)
局部_临时变量＝局部_临时变量 × 局部_计次
.变量循环尾 ()
局部_文本＝局部_文本＋ “ ” ＋到文本 (局部_临时变量 ÷ 720 × 局部_蓝球数) ＋ “注共” ＋到文本 (局部_临时变量 ÷ 720 × 局部_蓝球数 × 2) ＋ “元”

列表框_结果.加入项目 (局部_文本, )