.版本 2
.支持库 shell
.程序集窗口程序集1
.程序集变量光标位置, 文本型
.子程序 _编辑框1_获得焦点
光标位置＝“1”
.子程序 _编辑框2_获得焦点
光标位置＝“2”
.子程序 _编辑框3_获得焦点
光标位置＝“3”
.子程序 _调节器1_调节钮被按下
.参数按钮值, 整数型
.判断开始 (光标位置＝“1”)
编辑框1.内容＝到文本 (到数值 (编辑框1.内容) ＋按钮值) .如果真 (编辑框1.内容＝“24”)
编辑框1.内容＝“0”
.如果真结束
.如果真 (编辑框1.内容＝“-1”)
编辑框1.内容＝“23”
.如果真结束
.判断 (光标位置＝“2”)
编辑框2.内容＝到文本 (到数值 (编辑框2.内容) ＋按钮值)
.如果真 (编辑框2.内容＝“60”)
编辑框2.内容＝“0”
.如果真结束
.如果真 (编辑框2.内容＝“-1”)
编辑框2.内容＝“59”
.如果真结束
.判断 (光标位置＝“3”)
编辑框3.内容＝到文本 (到数值 (编辑框3.内容) ＋按钮值)
.如果真 (编辑框3.内容＝“60”)
编辑框3.内容＝“0”
.如果真结束
.如果真 (编辑框3.内容＝“-1”)
编辑框3.内容＝“59”
.如果真结束
.默认
.判断结束
' 信息框(“请调整你的关机时间”, 0, )
.子程序 __启动窗口_创建完毕
编辑框1.内容＝到文本 (取小时 (增减时间 (取现行时间 (), #分钟, 10))) 编辑框2.内容＝到文本 (取分钟 (增减时间 (取现行时间 (), #分钟, 10))) 编辑框3.内容＝到文本 (取秒 (增减时间 (取现行时间 (), #分钟, 10))) 日期框1.今天＝增减时间 (取现行时间 (), #分钟, 10)
时钟1.时钟周期＝ 1000
.子程序 _时钟1_周期事件
.判断开始 (取现行时间 () ＝到时间 (到文本 (取年份 (日期框1.今天))
＋“年” ＋到文本 (取月份 (日期框1.今天)) ＋“月” ＋到文本 (取
日 (日期框1.今天)) ＋“日” ＋编辑框1.内容＋“时” ＋编辑框2.内容＋“分” ＋编辑框3.内容＋“秒”))
信息框(“你的电脑已开始关机”, 0, )
信息框(“感谢人的使用”, 0, )
.默认
.判断结束
.如果真 (取现行时间 () ＝到时间 (到文本 (取年份 (日期框1.今天)) ＋“年” ＋到文本 (取月份 (日期框1.今天)) ＋“月” ＋到文本 (取日(日期框1.今天)) ＋“日” ＋编辑框1.内容＋“时” ＋编辑框2.内容＋“分” ＋编辑框3.内容＋“秒”))
关闭系统 (#关机, 真)
.如果真结束
编辑框4.内容＝到文本 (取小时 (取现行时间 ())) ＋“时” ＋到文本(取分钟 (取现行时间 ())) ＋“分” ＋到文本 (取秒 (取现行时间 ())) ＋“秒”
.子程序 _按钮1_被单击
关闭系统 (#关机, 真)
信息框(“你现在已关机！”, 0, )
.子程序 _按钮2_被单击
结束 ()
关闭系统(1, 真) ' 1: #关机; 2: #重启; 3: #注销; 4: #休眠5: #冬眠