|
6楼
发表于 2011-8-10 21:26:41
|
只看该作者
山东省济宁市
定时关机.zip
(2.65 KB, 下载次数: 27)
好办
[e]
.版本 2
.支持库 shell
.程序集 窗口程序集1
.程序集变量 小时, 整数型
.程序集变量 分钟, 整数型
.程序集变量 秒, 整数型
.子程序 _时钟2_周期事件
编辑框4.内容 = 到文本 (取现行时间 ())
.子程序 _时钟1_周期事件
关闭系统 (1, 真)
.子程序 _按钮1_被单击
信息框 (编辑框1.内容 + “小时” + 编辑框2.内容 + “分钟” + 编辑框3.内容 + “秒后关机”, 0, )
.如果 (编辑框1.内容 = “”)
信息框 (“时间不能为空”, 0, )
.否则
.如果结束
.如果 (编辑框2.内容 = “”)
信息框 (“时间不能为空”, 0, )
.否则
.如果结束
.如果 (编辑框3.内容 = “”)
信息框 (“时间不能为空”, 0, )
.否则
.如果结束
编辑框8.内容 = 到文本 (到整数 (取小时 (取现行时间 ())) + 到整数 (编辑框1.内容))
编辑框9.内容 = 到文本 (到整数 (取分钟 (取现行时间 ())) + 到整数 (编辑框2.内容))
编辑框10.内容 = 到文本 (到整数 (取秒 (取现行时间 ())) + 到整数 (编辑框3.内容))
编辑框11.内容 = 到文本 (取日 (取现行时间 ()))
编辑框5.内容 = 编辑框1.内容
编辑框6.内容 = 编辑框2.内容
编辑框7.内容 = 编辑框3.内容
时钟1.时钟周期 = 到整数 (编辑框1.内容) × 3600 × 1000 + 到整数 (编辑框2.内容) × 60 × 1000 + 到整数 (编辑框3.内容) × 1000
时钟3.时钟周期 = 1000
按钮1.禁止 = 真
编辑框1.禁止 = 真
编辑框2.禁止 = 真
编辑框3.禁止 = 真
.子程序 _按钮2_被单击
时钟1.时钟周期 = 0
销毁 ()
.子程序 _时钟3_周期事件
编辑框7.内容 = 到文本 (到整数 (编辑框7.内容) - 到整数 (1))
.如果 (编辑框7.内容 = “0”)
编辑框7.内容 = “60”
编辑框6.内容 = 到文本 (到整数 (编辑框6.内容) - 到整数 (1))
.否则
.如果结束
.如果 (编辑框6.内容 = “0”)
编辑框6.内容 = “60”
编辑框5.内容 = 到文本 (到整数 (编辑框5.内容) - 到整数 (1))
.否则
.如果结束
.如果 (到整数 (编辑框8.内容) > 到整数 (48))
编辑框8.内容 = 到文本 (到整数 (编辑框8.内容) - 到整数 (48))
编辑框11.内容 = 到文本 (到整数 (编辑框11.内容) + 到整数 (2))
.否则
.如果结束
.如果 (到整数 (编辑框8.内容) > 到整数 (24))
编辑框8.内容 = 到文本 (到整数 (编辑框8.内容) - 到整数 (24))
编辑框11.内容 = 到文本 (到整数 (编辑框11.内容) + 到整数 (2))
.否则
.如果结束
.如果 (到整数 (编辑框9.内容) > 到整数 (60))
编辑框9.内容 = 到文本 (到整数 (编辑框9.内容) - 到整数 (60))
.否则
.如果结束
[/e]
|
|