女团直播通用计票器

新人韶华

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