易语言通过时钟和计次循环来实现定时任务的代码

 更新时间:2018年11月24日 08:35:44   作者:易语言源码教程  
今天小编就为大家分享一篇关于易语言通过时钟和计次循环来实现定时任务的代码,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧

创建定时任务源码

.版本 2
.支持库 iext
.支持库 eAPI
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型
.计次循环首 (61, i)
  .如果真 (i < 25)
    时组合框.加入项目 (到文本 (i - 1), )
  .如果真结束
  分组合框.加入项目 (到文本 (i - 1), )
  秒组合框.加入项目 (到文本 (i - 1), )
.计次循环尾 ()
时组合框.现行选中项 = 0
分组合框.现行选中项 = 0
秒组合框.现行选中项 = 0
时钟1.时钟周期 = 1000
.子程序 _按钮_添加任务_被单击
.局部变量 i, 整数型
.局部变量 局_是否重复, 逻辑型
.局部变量 局_索引, 整数型
.计次循环首 (任务超级列表框.取表项数 (), i) ' 过滤设置重复的时间
  .如果真 (任务超级列表框.取标题 (i - 1, 0) = 格式化文本 (“%s:%s:%s”, 时组合框.内容, 分组合框.内容, 秒组合框.内容))
    局_是否重复 = 真
  .如果真结束
.计次循环尾 ()
.如果真 (取反 (局_是否重复))
  局_索引 = 任务超级列表框.插入表项 (, , , , , )
  任务超级列表框.置标题 (局_索引, 0, 格式化文本 (“%s:%s:%s”, 时组合框.内容, 分组合框.内容, 秒组合框.内容))
.如果真结束
.子程序 _时钟1_周期事件
.局部变量 局_表索引, 整数型
.局部变量 局_设定时间, 文本型, , "0"
.局部变量 局_倒数时间, 整数型
.局部变量 局_当前时, 整数型
.局部变量 局_当前分, 整数型
.局部变量 局_当前秒, 整数型
.局部变量 局_倒数时, 整数型
.局部变量 局_倒数分, 整数型
.局部变量 局_倒数秒, 整数型
局_当前时 = 取小时 (取现行时间 ())
局_当前分 = 取分钟 (取现行时间 ())
局_当前秒 = 取秒 (取现行时间 ())
.计次循环首 (任务超级列表框.取表项数 (), 局_表索引)
  .判断开始 (格式化文本 (“%d:%d:%d”, 局_当前时, 局_当前分, 局_当前秒) = 任务超级列表框.取标题 (局_表索引 - 1, 0))
    任务超级列表框.置标题 (局_表索引 - 1, 2, “真”)
    ' -----------------------------以下开始执行定时任务-----------------------------
    .判断开始 (局_当前时 = 12 且 局_当前分 = 30)
    .判断 (局_当前时 = 19 且 局_当前分 = 30)
    .判断 (局_当前时 = 20 且 局_当前分 = 0)
    .判断 (局_当前时 = 20 且 局_当前分 = 20)
    .判断 (局_当前时 = 21 且 局_当前分 = 0)
    .判断 (局_当前时 = 21 且 局_当前分 = 30)
    .默认
    .判断结束
    ' -----------------------------以上开始执行定时任务-----------------------------
  .默认
    局_设定时间 = 分割文本 (任务超级列表框.取标题 (局_表索引 - 1, 0), “:”, )
    .如果真 (到整数 (局_设定时间 [1]) < 取小时 (取现行时间 ())) ' 次日时间修正
      局_设定时间 [1] = 到文本 (24 + 到整数 (局_设定时间 [1]))
    .如果真结束
    局_倒数时间 = ((到整数 (局_设定时间 [1]) - 局_当前时) × 60 - 局_当前分 + 到整数 (局_设定时间 [2])) × 60 - 局_当前秒 + 到整数 (局_设定时间 [3]) - 1
    .如果真 (局_倒数时间 ≥ 0)
      局_倒数时 = 局_倒数时间 ÷ 3600
      局_倒数分 = (局_倒数时间 - 局_倒数时 × 3600) ÷ 60
      局_倒数秒 = 局_倒数时间 - 局_倒数时 × 3600 - 局_倒数分 × 60
      任务超级列表框.置标题 (局_表索引 - 1, 1, 格式化文本 (“%d:%d:%d”, 局_倒数时, 局_倒数分, 局_倒数秒))
    .如果真结束
  .判断结束
.计次循环尾 ()
.子程序 _任务超级列表框_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 = #Del键)
  任务超级列表框.删除表项 (任务超级列表框.现行选中项)
.如果真结束

运行结果:

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对脚本之家的支持。如果你想了解更多相关内容请查看下面相关链接

相关文章

  • 易语言中Com对象的简单调用方法

    易语言中Com对象的简单调用方法

    今天小编就为大家分享一篇关于易语言中Com对象的简单调用方法,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
    2018-10-10
  • 易语言注册自定义协议Register protocol

    易语言注册自定义协议Register protocol

    今天小编就为大家分享一篇关于易语言注册自定义协议Register protocol,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
    2018-11-11
  • 易语言修改当前窗口的边框样式

    易语言修改当前窗口的边框样式

    今天小编就为大家分享一篇关于易语言修改当前窗口的边框样式,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
    2018-11-11
  • 易语言写Hello World简单程序

    易语言写Hello World简单程序

    在本篇文章里小编给大家分享了关于易语言写Hello World简单程序的步骤和知识点,有兴趣的朋友们学习下。
    2019-01-01
  • 易语言实现双线程的方法解析

    易语言实现双线程的方法解析

    在本篇内容中我们给大家分享了易语言实现双线程的方法以及代码解析,需要的朋友们参考下。
    2018-11-11
  • 易语言将当前窗口位置设置成不可移动

    易语言将当前窗口位置设置成不可移动

    今天小编就为大家分享一篇关于易语言将当前窗口位置设置成不可移动,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
    2018-11-11
  • 易语言API热键监控实例

    易语言API热键监控实例

    本篇内容我们给大家分享了关于易语言API热键监控实例代码,需要的读者们可以测试下。
    2018-12-12
  • 易语言编写入门软件教学

    易语言编写入门软件教学

    在本篇内容里小编给大家分享了关于易语言编写入门软件,有兴趣的朋友们一步步参考下吧。
    2018-12-12
  • 易语言向指定窗口发送信息并取回信息反馈值

    易语言向指定窗口发送信息并取回信息反馈值

    今天小编就为大家分享一篇关于易语言向指定窗口发送信息并取回信息反馈值,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
    2018-11-11
  • 易语言开发中的问题总结

    易语言开发中的问题总结

    在本篇文章中小编给大家分享了关于易语言开发中的问题总结内容,用到易语言的朋友们参考学习下。
    2019-01-01

最新评论