新人韶华 发表于 2021-12-13 23:14:58

女团直播通用计票器

我是一个易语言新手,之前有看过各种平台女团计票器,都收费好高.
所以我救自己动手写了一个简单的计票软件。
但是由于本人刚刚接触易语言,所以做的不太好,我就把源码分析出来,希望论坛大佬完善 美化!!!!
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
.版本 2

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击

载入 (窗口1, , 假)

.如果真 (信息框 (“是否从新开始?”, 1, , ) = #确认取消钮)
    返回 ()
.如果真结束

窗口1.标签1.标题 = 到文本 (编辑框1.内容)
窗口1.标签4.标题 = 到文本 (编辑框2.内容)
窗口1.标签6.标题 = 到文本 (编辑框3.内容)
窗口1.标签8.标题 = 到文本 (编辑框4.内容)
窗口1.标签2.标题 = “0票”
窗口1.标签3.标题 = “0票”
窗口1.标签5.标题 = “0票”
窗口1.标签7.标题 = “0票”

.如果真 (编辑框4.内容 = “”)
    窗口1.标签8.标题 = “”
    窗口1.标签7.可视 = 假

.如果真结束
.如果真 (编辑框3.内容 = “”)
    窗口1.标签6.标题 = “”
    窗口1.标签5.可视 = 假

.如果真结束
.如果真 (编辑框2.内容 = “”)
    窗口1.标签4.标题 = “”
    窗口1.标签3.可视 = 假
.如果真结束
.如果真 (编辑框1.内容 = “”)
    窗口1.标签1.标题 = “”
    窗口1.标签2.可视 = 假

.如果真结束

.如果真 (编辑框4.内容 ≠ “”)
    窗口1.标签8.标题 = 到文本 (编辑框4.内容)
    窗口1.标签7.可视 = 真
    窗口1.标签7.标题 = “0票”
.如果真结束
.如果真 (编辑框3.内容 ≠ “”)
    窗口1.标签6.标题 = 到文本 (编辑框3.内容)
    窗口1.标签5.可视 = 真
    窗口1.标签5.标题 = “0票”
.如果真结束
.如果真 (编辑框2.内容 ≠ “”)
    窗口1.标签4.标题 = 到文本 (编辑框2.内容)
    窗口1.标签3.可视 = 真
    窗口1.标签3.标题 = “0票”
.如果真结束
.如果真 (编辑框1.内容 ≠ “”)
    窗口1.标签1.标题 = 到文本 (编辑框1.内容)
    窗口1.标签2.可视 = 真
    窗口1.标签2.标题 = “0票”
.如果真结束






.子程序 _按钮2_被单击

载入 (窗口1, , 假)
窗口1.标签2.标题 = 到文本 (到数值 (编辑框5.内容) + 到数值 (到文本 (窗口1.标签2.标题))) + “票”
窗口1.标签3.标题 = 到文本 (到数值 (编辑框6.内容) + 到数值 (到文本 (窗口1.标签3.标题))) + “票”
窗口1.标签5.标题 = 到文本 (到数值 (编辑框7.内容) + 到数值 (到文本 (窗口1.标签5.标题))) + “票”
窗口1.标签7.标题 = 到文本 (到数值 (编辑框8.内容) + 到数值 (到文本 (窗口1.标签7.标题))) + “票”
.如果真 (编辑框5.内容 ≠ “”)
    编辑框5.内容 = “”

.如果真结束
.如果真 (编辑框6.内容 ≠ “”)
    编辑框6.内容 = “”
.如果真结束
.如果真 (编辑框7.内容 ≠ “”)
    编辑框7.内容 = “”
.如果真结束
.如果真 (编辑框8.内容 ≠ “”)
    编辑框8.内容 = “”
.如果真结束
返回 ()


.子程序 _按钮4_被单击

.如果真 (信息框 (“确认关闭?”, 1, , ) = #确认取消钮)
    返回 ()
.如果真结束
载入 (窗口1, , 假)
载入 (窗口2, , 假)
_启动窗口.销毁 ()
窗口1.销毁 ()
窗口2.销毁 ()

.子程序 _按钮3_被单击

载入 (窗口2, , 假)
.判断开始 (编辑框9.内容 ≠ “”)
    窗口2.标签1.标题 = 到文本 (编辑框9.内容)
    时钟1.时钟周期 = 1000
    编辑框9.内容 = “”
.默认

.判断结束

.如果真 (编辑框9.内容 = “” 且 窗口2.标签1.标题 ≠ “”)
    时钟1.时钟周期 = 1000
    窗口2.标签1.标题 = 到文本 (到整数 (窗口2.标签1.标题) - 1)
.如果真结束


.子程序 _时钟1_周期事件

时钟1.时钟周期 = 1000
窗口2.标签1.标题 = 到文本 (到整数 (窗口2.标签1.标题) - 1)
按钮3.可视 = 假
按钮5.可视 = 真

.如果真 (窗口2.标签1.标题 ≤ “0”)
    时钟1.时钟周期 = 0
    按钮5.可视 = 假
    按钮3.可视 = 真

.如果真结束



.子程序 _按钮5_被单击

时钟1.时钟周期 = 0
按钮5.可视 = 假
按钮3.可视 = 真


页: [1]
查看完整版本: 女团直播通用计票器