|
发表于 2010-9-18 14:03:07
|
显示全部楼层
四川省成都市
- .版本 2
- .支持库 shell
- .程序集 窗口程序集1
- .程序集变量 timev, 文本型, , "0"
- .程序集变量 cz, 整数型
- .程序集变量 sum, 整数型
- .程序集变量 jw, 整数型
- .子程序 __启动窗口_创建完毕
- 标签4.标题 = 到文本 (取小时 (取现行时间 ())) + “:” + 到文本 (取分钟 (取现行时间 ())) + “:” + 到文本 (取秒 (取现行时间 ()))
- 置托盘图标 (#图 片1, )
- .子程序 _时钟1_周期事件
- 标签4.标题 = 到文本 (取小时 (取现行时间 ())) + “:” + 到文本 (取分钟 (取现行时间 ())) + “:” + 到文本 (取秒 (取现行时间 ()))
- .如果真 (cz = 1)
- .如果真 (取小时 (取现行时间 ()) = 到数值 (timev [1]) 且 取分钟 (取现行时间 ()) = 到数值 (timev [2]) 且 取秒 (取现行时间 ()) = 到数值 (timev [3]))
- 关闭系统 (#关机, 真)
- 信息框 (“感谢你使用本软件”, 0, )
- 鸣叫 ()
- 结束 ()
- .如果真结束
- .如果真结束
- .子程序 _标签4_反馈事件, 整数型
- .参数 参数一, 整数型
- .参数 参数二, 整数型
- .子程序 _按钮1_被单击
- timev = 分割文本 (编辑框1.内容, “:”, )
- sum = 0
- jw = 0
- 鸣叫 ()
- .如果 (编辑框1.内容 ≠ “”)
- .如果 (到数值 (timev [1]) ≥ 24 或 到数值 (timev [2]) ≥ 60 或 到数值 (timev [3]) ≥ 60)
- timev [1] = “00”
- timev [2] = “00”
- timev [3] = “00”
- 信息框 (“请输入正确的时间”, 0, )
- .否则
- 时钟2.时钟周期 = 1000
- .如果 (cz = 1)
- 按钮1.标题 = “开时计时”
- 时钟2.时钟周期 = 0
- cz = 0
- .否则
- cz = 1
- 按钮1.标题 = “停止计时”
- .如果结束
- .如果结束
- .否则
- 信息框 (“请输入时间”, 0, )
- .如果结束
- .子程序 _时钟2_周期事件
- .局部变量 hour, 整数型
- .局部变量 minu, 整数型
- .局部变量 sec, 整数型
- .如果 (取秒 (取现行时间 ()) ≥ 到数值 (timev [3]))
- sum = 60 - 取秒 (取现行时间 ()) + 到数值 (timev [3])
- jw = 1
- .否则
- sum = 到数值 (timev [3]) - 取秒 (取现行时间 ())
- jw = 0
- .如果结束
- .如果 (取分钟 (取现行时间 ()) ≥ 到数值 (timev [2]))
- sum = sum + (60 - 取分钟 (取现行时间 ()) + 到数值 (timev [2]) - jw) × 60
- .否则
- sum = sum + (到数值 (timev [2]) - jw - 取分钟 (取现行时间 ())) × 60
- jw = 0
- .如果结束
- .如果 (取小时 (取现行时间 ()) > 到数值 (timev [1]))
- sum = sum + (24 + 到数值 (timev [1]) - jw - 取小时 (取现行时间 ())) × 60 × 60
- .否则
- sum = sum + (到数值 (timev [1]) - 取小时 (取现行时间 ()) - jw) × 60 × 60
- .如果结束
- hour = sum ÷ 3600
- minu = (sum - hour × 3600) ÷ 60
- sec = sum - hour × 3600 - minu × 60
- 标签3.标题 = “离关机还有” + 到文本 (hour) + “小时” + 到文本 (minu) + “分钟” + 到文本 (sec) + “秒”
- .子程序 __启动窗口_托盘事件
- .参数 操作类型, 整数型
- 弹出菜单 (文件, , )
- .子程序 _关于_被选择
- 信息框 (“欢迎指导!QQ;454498137”, 0, )
- .子程序 _退出_被选择
- 结束 ()
- .子程序 TIMEV
复制代码
其实你自己可以试写写。很简单的。 用易语言关机的方式,我知道两个:1:就是 关闭系统 (#关机, 真)
2:运行("shutdown -s",) |
|