本人为编程爱好者,非专业人员。
最近工作中需要用到编写倒计时软件,故有此篇。
软件功能:
1.时间倒计时
2.倒计时会有一个透明放大的标签显示时间
3.各窗口可隐藏
以下为软件运行界面:
代码:
.版本 2
.支持库 shellEx
.支持库 spec
.支持库 iext
.支持库 eAPI
.程序集 窗口程序集_启动窗口
.程序集变量 xxx, 文本型
.程序集变量 s, 整数型
.子程序 _按钮1_被单击
通用对话框1.类型 = 0
.如果真 (通用对话框1.打开 ())
标签2.标题 = 通用对话框1.文件名
.如果真结束
.子程序 _按钮2_被单击
xxx = 标签2.标题
.如果 (按钮2.标题 = “stop”)
时钟1.时钟周期 = 0
停止播放 ()
按钮2.标题 = “start”
.否则
按钮2.标题 = “start”
时钟1.时钟周期 = 1000
时钟3.时钟周期 = 1000
按钮2.标题 = “stop”
.如果结束
.子程序 __启动窗口_创建完毕
置托盘图标 (4286, )
f6 = 注册热键 (_启动窗口.取窗口句柄 (), 标签8.取窗口句柄 (), 0, #F6键)
f8 = 注册热键 (_启动窗口.取窗口句柄 (), 标签8.取窗口句柄 (), 0, #F8键)
时钟2.时钟周期 = 100
aaa = 真
分组框1.可视 = 假
分组框2.可视 = 假
分组框3.可视 = 假
按钮3.禁止 = 假
按钮2.禁止 = 真
bbb = 真
.子程序 _单选框2_被单击
.如果真 (单选框2.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (2)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框1_被单击
.如果真 (单选框1.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (1)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框3_被单击
.如果真 (单选框3.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (3)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框4_被单击
.如果真 (单选框4.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (4)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框5_被单击
.如果真 (单选框5.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (5)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框6_被单击
.如果真 (单选框6.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (6)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框7_被单击
.如果真 (单选框7.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (7)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框8_被单击
.如果真 (单选框8.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (8)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框9_被单击
.如果真 (单选框9.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (9)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框10_被单击
.如果真 (单选框10.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (10)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _按钮3_被单击
停止播放 ()
时钟1.时钟周期 = 0
时钟2.时钟周期 = 0
编辑框1.内容 = “0”
编辑框2.内容 = “0”
按钮2.标题 = “start”
按钮2.禁止 = 真
_单选框31_被单击 ()
单选框31.选中 = 真
单选框32.选中 = 假
单选框33.选中 = 假
.子程序 _时钟1_周期事件
' ccc = 到文本 (滑块条1.位置)
' ddd = 取变量数据地址 (ccc)
' 标签11.标题 = 指针到文本 (ddd)
.如果 (到数值 (到文本 (编辑框2.内容)) ≠ 0)
编辑框2.内容 = 到文本 (到数值 (编辑框2.内容) - 1)
.否则
.如果 (到数值 (到文本 (编辑框1.内容)) ≠ 0)
编辑框1.内容 = 到文本 (到数值 (编辑框1.内容) - 1)
编辑框2.内容 = “59”
.否则
时钟1.时钟周期 = 0
播放MP3 (2, xxx)
单选框1.选中 = 假
单选框2.选中 = 假
单选框3.选中 = 假
单选框4.选中 = 假
单选框5.选中 = 假
单选框6.选中 = 假
单选框7.选中 = 假
单选框8.选中 = 假
单选框9.选中 = 假
单选框10.选中 = 假
单选框11.选中 = 假
单选框12.选中 = 假
单选框13.选中 = 假
单选框14.选中 = 假
单选框15.选中 = 假
单选框16.选中 = 假
单选框17.选中 = 假
单选框18.选中 = 假
单选框19.选中 = 假
单选框20.选中 = 假
单选框21.选中 = 假
单选框22.选中 = 假
单选框23.选中 = 假
单选框24.选中 = 假
单选框25.选中 = 假
单选框26.选中 = 假
单选框27.选中 = 假
单选框28.选中 = 假
单选框29.选中 = 假
单选框30.选中 = 假
单选框31.选中 = 假
单选框32.选中 = 假
单选框33.选中 = 假
.如果结束
.如果结束
.子程序 _按钮4_被单击
.如果 (按钮4.标题 = “取消”)
_启动窗口.总在最前 = 假
按钮4.标题 = “确定”
.否则
按钮4.标题 = “确定”
_启动窗口.总在最前 = 真
按钮4.标题 = “取消”
.如果结束
.子程序 _单选框11_被单击
.如果真 (单选框11.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (11)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框12_被单击
.如果真 (单选框12.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (12)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框13_被单击
.如果真 (单选框13.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (13)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框14_被单击
.如果真 (单选框14.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (14)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框15_被单击
.如果真 (单选框15.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (15)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框16_被单击
.如果真 (单选框16.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (16)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框17_被单击
.如果真 (单选框17.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (17)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框18_被单击
.如果真 (单选框18.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (18)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框19_被单击
.如果真 (单选框19.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (19)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框20_被单击
.如果真 (单选框20.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (20)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框30_被单击
.如果真 (单选框30.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (21)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框29_被单击
.如果真 (单选框29.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (22)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框28_被单击
.如果真 (单选框28.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (23)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框27_被单击
.如果真 (单选框27.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (24)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框26_被单击
.如果真 (单选框26.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (25)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框25_被单击
.如果真 (单选框25.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (26)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框24_被单击
.如果真 (单选框24.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (27)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框23_被单击
.如果真 (单选框23.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (28)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框22_被单击
.如果真 (单选框22.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (29)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框21_被单击
.如果真 (单选框21.选中 = 真)
按钮2.禁止 = 假
编辑框1.内容 = 到文本 (30)
编辑框2.内容 = 到文本 (0)
.如果真结束
.子程序 _单选框31_被单击
分组框1.可视 = 真
分组框2.可视 = 假
分组框3.可视 = 假
分组框1.左边 = 0
分组框1.顶边 = 56
编辑框1.内容 = “0”
编辑框2.内容 = “0”
单选框1.选中 = 假
单选框2.选中 = 假
单选框3.选中 = 假
单选框4.选中 = 假
单选框5.选中 = 假
单选框6.选中 = 假
单选框7.选中 = 假
单选框8.选中 = 假
单选框9.选中 = 假
单选框10.选中 = 假
.子程序 _单选框32_被单击
分组框2.可视 = 真
分组框1.可视 = 假
分组框3.可视 = 假
分组框2.左边 = 0
分组框2.顶边 = 56
编辑框1.内容 = “0”
编辑框2.内容 = “0”
单选框11.选中 = 假
单选框12.选中 = 假
单选框13.选中 = 假
单选框14.选中 = 假
单选框15.选中 = 假
单选框16.选中 = 假
单选框17.选中 = 假
单选框18.选中 = 假
单选框19.选中 = 假
单选框20.选中 = 假
.子程序 _单选框33_被单击
分组框3.可视 = 真
分组框1.可视 = 假
分组框2.可视 = 假
分组框3.左边 = 0
分组框3.顶边 = 56
编辑框1.内容 = “0”
编辑框2.内容 = “0”
单选框21.选中 = 假
单选框22.选中 = 假
单选框23.选中 = 假
单选框24.选中 = 假
单选框25.选中 = 假
单选框26.选中 = 假
单选框27.选中 = 假
单选框28.选中 = 假
单选框29.选中 = 假
单选框30.选中 = 假
.子程序 _按钮5_被单击
.如果 (按钮5.标题 = “取消”)
aaa = 假
按钮5.标题 = “确定”
.否则
按钮5.标题 = “确定”
aaa = 真
按钮5.标题 = “取消”
.如果结束
.子程序 _按钮6_被单击
.如果 (按钮6.标题 = “取消”)
bbb = 真
按钮6.标题 = “确定”
.否则
按钮6.标题 = “确定”
bbb = 假
按钮6.标题 = “取消”
.如果结束
.子程序 _标签8_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.如果真 (参数一 = f6)
子程序1 ()
.如果真结束
.如果真 (参数一 = f8)
子程序2 ()
.如果真结束
.子程序 子程序1
_按钮6_被单击 ()
.子程序 子程序2
_按钮7_被单击 ()
.子程序 _按钮7_被单击
.如果 (按钮7.标题 = “确定”)
_启动窗口.可视 = 假
按钮7.标题 = “取消”
.否则
.如果 (按钮7.标题 = “取消”)
_启动窗口.可视 = 真
按钮7.标题 = “确定”
.否则
.如果结束
.如果结束
.子程序 _时钟2_周期事件
ccc = 到文本 (滑块条1.位置)
ddd = 取变量数据地址 (ccc)
标签11.标题 = 指针到文本 (ddd)
.子程序 _时钟3_周期事件
a = 编辑框1.内容
b = 取变量数据地址 (a)
c = 编辑框2.内容
d = 取变量数据地址 (c)
载入 (窗口1, , 假)
窗口1.可视 = bbb
窗口1.总在最前 = aaa
窗口1.透明标签1.标题 = 指针到文本 (b)
窗口1.透明标签2.标题 = 指针到文本 (d)
设置窗口透明度 (窗口1.取窗口句柄 (), 到整数 (标签11.标题))
具体源代码详见网盘:
https://pan.baidu.com/s/1fDW9KLyPQpxXd4wbr48Ysw 提取码:0ko2