易语言怎么写倒计时关机整人源码
比如要 2小时15分后关机就在编辑框中输入 时:2 分:15 秒:00。开始倒计时是按钮1,重置是按钮2
。版本 2
。支持库 shell
。程序集 窗口程序集1
。子程序 _按钮1_被单击
。 判断开始 (到数值 (编辑框1。内容) > 24 或 到数值 (编辑框1。内容) < 0)
信息框 (“输入正确的时间”, 0, )
返回 ()
。判断 (到数值 (编辑框2。 内容) > 60 或 到数值 (编辑框2。内容) < 0)
信息框 (“输入正确的时间”, 0, )
返回 ()
。判断 (编辑框1。内容 = “”)
。如果 (编辑框2。 内容 = “”)
信息框 (“您还没...全部
比如要 2小时15分后关机就在编辑框中输入 时:2 分:15 秒:00。开始倒计时是按钮1,重置是按钮2
。版本 2
。支持库 shell
。程序集 窗口程序集1
。子程序 _按钮1_被单击
。
判断开始 (到数值 (编辑框1。内容) > 24 或 到数值 (编辑框1。内容) < 0)
信息框 (“输入正确的时间”, 0, )
返回 ()
。判断 (到数值 (编辑框2。
内容) > 60 或 到数值 (编辑框2。内容) < 0)
信息框 (“输入正确的时间”, 0, )
返回 ()
。判断 (编辑框1。内容 = “”)
。如果 (编辑框2。
内容 = “”)
信息框 (“您还没有输入关闭系统的时间”, 0, )
返回 ()
。否则
时钟1。时钟周期 = 到整数 (编辑框1。
内容) × 60 × 60 × 1000 + 到整数 (编辑框2。内容) × 60 × 1000
编辑框1。禁止 = 真
编辑框2。禁止 = 真
按钮1。
禁止 = 真
信息框 (“系统将在” + 到文本 (时钟1。时钟周期 ÷ 1000) + “分后关机”, 0, )
。如果结束
。判断 (编辑框2。内容 = “”)
。
如果 (编辑框1。内容 = “”)
信息框 (“您还没有输入关闭系统的时间”, 0, )
。否则
时钟1。时钟周期 = 到整数 (编辑框1。内容) × 60 × 60 × 1000 + 到整数 (编辑框2。
内容) × 60 × 1000
编辑框1。禁止 = 真
编辑框2。禁止 = 真
按钮1。禁止 = 真
信息框 (“系统将在” + 到文本 (时钟1。
时钟周期 ÷ 1000) + “分后关机”, 0, )
。如果结束
。默认
。如果真 (编辑框1。内容 ≠ “” 且 编辑框2。内容 ≠ “”)
时钟1。
时钟周期 = 到整数 (编辑框1。内容) × 60 × 60 × 1000 + 到整数 (编辑框2。内容) × 60 × 1000
编辑框1。禁止 = 真
编辑框2。
禁止 = 真
按钮1。禁止 = 真
信息框 (“系统将在” + 到文本 (时钟1。时钟周期 ÷ 1000) + “分后关机”, 0, )
。如果真结束
。
判断结束
。子程序 _时钟1_周期事件
关闭系统 (#关机, 真)
结束 ()
。子程序 __启动窗口_创建完毕
编辑框1。输入方式 = 7
编辑框2。输入方式 = 7
。子程序 _按钮2_被单击
时钟1。
时钟周期 = 0
按钮1。禁止 = 假
编辑框1。禁止 = 假
编辑框2。禁止 = 假
编辑框1。内容 = “”
编辑框2。内容 = 如果您觉得正确或者采纳,麻烦给我好评,谢谢。收起