周一的时候校科创举办了一场总结大会,我看到那个优秀的孩子们的表现的时候,还发现了一个抽奖软件。
操作: 只要输入合理的最小号,和最大号 ,点击开始摇号就可以摇号了
代码的运行原理:
.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 minNum, 整数型
.程序集变量 maxNum, 整数型
.程序集变量 xNum, 整数型
.程序集变量 状态, 整数型
.程序集变量 tmin, 整数型
.程序集变量 tmax, 整数型
.子程序 __启动窗口_创建完毕
标签_显示结果.标题 = “未开始”
状态 = 0
.子程序 _时钟1_周期事件, , 公开
xNum = 取随机数 (minNum, maxNum)
标签_显示结果.标题 = 到文本 (xNum)
.子程序 _按钮1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.如果 (状态 = 0)
tmin = 到数值 (编辑框_最小号.内容)
tmax = 到数值 (编辑框_最大号.内容)
.如果 (tmin < 0 或 tmax ≤ 0 或 tmin > tmax)
信息框 (“输入错误”, 0, “你飘逸了!”, _启动窗口.取窗口句柄 ())
返回 ()
.否则
minNum = tmin
maxNum = tmax
时钟1.时钟周期 = 10
按钮1.标题 = “停止摇号”
状态 = 1
.如果结束
.否则 //正在运行的话,停止
按钮1.标题 = “继续摇号”
时钟1.时钟周期 = 0
状态 = 0
.如果结束