易语言-关机小程序源码分享-简单明了的关机程序逻辑

易语言-关机小程序源码分享-简单明了的关机程序逻辑
[![](https://micuu.com/data/upload/20200703/5efe96bb5c2a0.png)](https://micuu.com/data/upload/20200703/5efe96bb5c2a0.png)

下面是源代码-欢迎下载复制
```
.版本 2
.支持库 spec
.支持库 shell
.支持库 eAPI

.程序集 窗口程序集_启动窗口
.程序集变量 min, 整数型, , , 分
.程序集变量 s, 整数型, , , 秒
.程序集变量 h, 整数型, , , 关机时间 0 - 23
.程序集变量 i, 整数型, , , 关机  分  0 - 60
.程序集变量 temph, 整数型, , , 当前时间  h
.程序集变量 tempi, 整数型, , , 当前时间  分

.子程序 _按钮1_被单击

.如果真 (单选框1.选中 ＝ 真)
    ' 多少分钟后关机

min ＝ 到整数 (编辑框1.内容)

s ＝ min × 60
    调试输出 (s)
    min ＝ min × 60 × 1000

.如果真 (min ≤ 0)
        信息框 (“请设置合理的数值”, 0, , )
        返回 ()
    .如果真结束

标签7.标题 ＝ 到文本 (s)
    时钟1_倒计时.时钟周期 ＝ 1000
    返回 ()
.如果真结束

.如果真 (单选框2.选中 ＝ 真)
    ' 制定关机时间
    h ＝ 到整数 (编辑框2.内容)
    .如果真 (h ≤ 1 或 h ≥ 25)
        信息框 (“关机时间请设置1-24的整数”, 0, , )
        返回 ()

.如果真结束

i ＝ 到整数 (编辑框3.内容)
    .如果真 (i ≤ 0 或 i ≥ 60)
        信息框 (“分钟请设置为0-60的整数”, 0, , )
        返回 ()

.如果真结束

temph ＝ 取小时 (取现行时间 ())
    tempi ＝ 取分钟 (取现行时间 ())
    s ＝ (h － temph) × 360 ＋ i － tempi
    s ＝ s × 60
    时钟1_倒计时.时钟周期 ＝ 1000
    返回 ()
.如果真结束

信息框 (“请先选择类型”, 0, , )
返回 ()

.子程序 _选择列表框1_列表项被选择

.子程序 shutdown

关闭系统 (#关机, 真)

时钟1_倒计时.时钟周期 ＝ 0

.子程序 _时钟1_倒计时_X分钟后_周期事件

.子程序 _时钟1_倒计时_周期事件

标签7.标题 ＝ 到文本 (s)
s ＝ s － 1
.如果真 (s ≤ 0)
    shutdown ()
    返回 ()
.如果真结束

.子程序 _标签9_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

打开指定网址 (“http://micuer.com”)

.子程序 _标签10_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

打开指定网址 (“http://micuer.com”)

```

注:原创不易,转载请注明出处( https://micuu.com/new/577.html )，本站所有资源来源于网络收集，如有侵权请联系QQ245557979进行清除。