抽奖助手

周一的时候校科创举办了一场总结大会,我看到那个优秀的孩子们的表现的时候,还发现了一个抽奖软件。

 

 

操作: 只要输入合理的最小号,和最大号 ,点击开始摇号就可以摇号了

代码的运行原理:

.版本 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
.如果结束

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章