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

创建定时任务源码

.版本 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键)
  任务超级列表框.删除表项 (任务超级列表框.现行选中项)
.如果真结束

运行结果:

总结

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

(0)

相关推荐

  • 易语言用判断循环首来讲笑话的代码

    用判断循环首来讲笑话的代码 .版本 2 .程序集 程序集1 .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 .局部变量 想看次数, 整数型 .局部变量 循环次数, 整数型 标准输出 (, "下面的故事你想看几遍?请输入:") 想看次数 = 到整数 (标准输入 ()) .判断循环首 (想看次数 ≠ 循环次数) 标准输出 (, "从前有座山,山里有个庙.庙里有个老和尚给小和尚讲故事!讲的故事是") 循环次数 = 循环次数 + 1 .判断循环尾 ()

  • 易语言使用到循环尾命令实现过滤变量的代码

    过滤1~100之间非3的倍数代码 .版本 2 .程序集 窗口程序集1 .子程序 _显示按钮_被单击 .局部变量 循环变量, 整数型 编辑框1.内容 = "" .变量循环首 (1, 100, 1, 循环变量) .如果真 (循环变量 % 3 ≠ 0) ' 不是3的倍数的数都不会显示 到循环尾 () .如果真结束 编辑框1.加入文本 (到文本 (循环变量), ",") .变量循环尾 () 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具

  • 易语言计次循环首命令使用讲解

    计次循环首命令 操作系统支持:Windows.Linux.Unix 所属类别:流程控制 执行本命令将把循环体内的命令重复执行指定的次数.提供的整数参数值决定将重复执行的次数. 语法:  无返回值  计次循环首(循环次数,[已循环次数记录变量]) 例程 说明: 第一个参数,给出将要循环的次数,是整数型,第二个参数可选的,可以给出一个整数型的变量,用来记录已经循环的次数. 例程中是将10以内的整数显示在编辑框中,整数之间用":"隔开,首先运行计次循环首 (10, 循环次数变量)的命令,此命

  • 易语言循环另外用法讲解

    1 只用易语言核心支持库写出 . 2 不准用循环命令写 :计次 循环 判断循环 循环判断 变量循环 不准用 ! 时钟不能用!逗号句号也要写!! 1.先建立如图所示的内容,按钮,标签,编辑框等 2.第一个循环,注意末尾又一个句号,这是重点. 学习编辑框. .版本 2 .子程序 _按钮1_被单击 a = 0 .计次循环首 (到数值 (编辑框1.内容), ) a = a + 1 .如果 (a ≠ 到数值 (编辑框1.内容)) 编辑框2.加入文本 (到文本 (a) + ",") .否则 编辑框

  • 易语言次循环和延迟循环实现方法

    易语言计次循环和延迟循环 以上就是实现的界面以及相关代码,感谢大家对我们的支持.

  • 易语言使用变量循环首命令显示0到50之间所有偶数的代码

    显示0到50之间的偶数代码 .版本 2 .程序集 窗口程序集1 .子程序 _变量循环首按钮_被单击 .局部变量 循环变量, 整数型 变量循环首编辑框.内容 = "" .变量循环首 (0, 50, 2, 循环变量) ' 显示0~50之间的所有偶数 变量循环首编辑框.加入文本 (到文本 (循环变量), ",") .变量循环尾 () 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持.如果你想了解

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

    创建定时任务源码 .版本 2 .支持库 iext .支持库 eAPI .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 .局部变量 i, 整数型 .计次循环首 (61, i) .如果真 (i < 25) 时组合框.加入项目 (到文本 (i - 1), ) .如果真结束 分组合框.加入项目 (到文本 (i - 1), ) 秒组合框.加入项目 (到文本 (i - 1), ) .计次循环尾 () 时组合框.现行选中项 = 0 分组合框.现行选中项 = 0 秒组合框.现行选中项 = 0

  • 易语言源码被腾讯TP破坏后修复的代码

    DLL命令表 .版本 2 .DLL命令 CopyTo_系统信息段, , , "RtlMoveMemory" .参数 Dest, 系统信息段 .参数 Src, 字节集 .参数 Length .DLL命令 CopyTo_SectionInfo, , , "RtlMoveMemory" .参数 Dest, _SectionInfo .参数 Src, 字节集 .参数 Length .DLL命令 CopyFrom_SectionInfo, , , "RtlMoveM

  • 易语言调用百度语音平台实现文字转换语音功能的代码

    调用百度语音平台实现文字转换语音功能 此功能需要加载精易模块5.6 .版本 2 .支持库 wmp9 .程序集 窗口程序集1 .子程序 _试听按钮_被单击 播放器1.地址 = "http://tts.baidu.com/text2audio?lan=zh&pid=101&ie=UTF-8&text=" + 编码_URL编码 (内容编辑框.内容, , 真) + "&spd=5&per=4" ' 参数 可需 描述 ' tex 必填

  • 易语言实现163邮箱登录获取邮件列表等操作的代码

    常量数据表 .版本 2 .常量 提交参数, "<文本长度: 98>" .常量 协议头, "<文本长度: 386>" .常量 邮件post, "<文本长度: 383>" 全局变量表 .版本 2 .全局变量 全_Cookies, 文本型 .全局变量 sid, 文本型 .全局变量 全_Email, 文本型 登陆程序集 .版本 2 .程序集 窗口程序集_启动窗口 .子程序 _登陆按钮_被单击 .局部变量 文本, 文本型

  • 易语言内存读取获得当前PC已经登陆微信号的代码

    取当前PC登陆微信号的代码 此功能需要加载精易模块5.6 .版本 2 .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 .局部变量 局部_登陆个数, 整数型 .局部变量 局部_微信号, 文本型, , "0" .局部变量 i, 整数型 局部_登陆个数 = 取当前登陆微信号 (局部_微信号) .计次循环首 (局部_登陆个数, i) 微信号编辑框.内容 = "当前PC登陆微信号:" + 局部_微信号 [i] .计次循环尾 () .子程序 取当前登陆微信号,

  • 易语言通过解密微博图片地址获取发布者微博地址的代码

    常量数据表 .版本 2 .常量 常量1, "<文本长度: 399>", , 'js脚本 返回 origin_number 微博图片获取发布者的代码 此功能需要加载精易模块5.6 .版本 2 .支持库 spec .支持库 eAPI .程序集 窗口程序集1 .子程序 _文本提取按钮_被单击 .局部变量 文本_提取, 文本型 .局部变量 文本_转换, 文本型 .局部变量 文本_结果, 文本型 .局部变量 文本_判断, 文本型 文本_提取 = 文本_倒取出中间文本 (图片地址编辑框

  • 易语言通过算法计算出酷狗音乐下载地址的代码

    酷狗直链计算的代码 此功能需要加载精易模块5.6 .版本 2 .支持库 RegEx .支持库 iext3 .支持库 dp1 .程序集 窗口程序集_启动窗口 .子程序 JSON转义字符解码, 文本型 .参数 解密文本, 文本型 .局部变量 正则表达, 正则表达式 .局部变量 搜索结果, 搜索结果, , "0" .局部变量 转换结果, 文本型 .局部变量 文本, 文本型 .局部变量 i, 整数型 文本 = 解密文本 .如果真 (文本 ≠ "") 正则表达.创建 (&qu

  • 易语言调用百度图片识别实现的图片转表格的代码

    截图模块代码 .版本 2 .子程序 开始截图, 逻辑型, 公开, 截图成功返回真,图片被自动保存到剪贴板.失败或放弃截图则返回假. .参数 是否截取鼠标, 逻辑型, 可空 .参数 调节框颜色, 整数型, 可空, 默认:Red=10,Green=100,Blue=130 .参数 矩形信息框颜色, 整数型, 可空, 默认黑色 .参数 矩形信息字体颜色, 整数型, 可空, 默认黑色 .子程序 取剪贴板位图, 字节集, 公开 表格图片转表格源码 此功能需要加载精易模块5.6 .版本 2 .支持库 edr

  • 易语言制作一款唯美的cookie分析工具的代码

    cookie分析源码 需要加载模块 Ex_DirectUI 3.0 DLL命令表 .版本 2 .DLL命令 GetBitmapBits, 整数型, "gdi32", "GetBitmapBits" .参数 hBitmap, 整数型 .参数 dwCount, 整数型 .参数 lpBits, 整数型 透明编辑框 .版本 2 .程序集 透明编辑框_EX, 编辑框_Ex .程序集变量 img, 整数型 .程序集变量 类_左边, 整数型 .程序集变量 类_顶边, 整数型 .子

  • 易语言调用百度的真相问答制作真相问答机的代码

    全局变量表 .版本 2 .全局变量 源文件, 文本型 .全局变量 答案, 文本型 常量数据表 .版本 2 .常量 常量1, "<文本长度: 9>", , -middle"> .常量 常量2, "<文本长度: 7>", , </span> .常量 常量3, "<文本长度: 7>", , proof"> .常量 常量4, "<文本长度: 7>&quo

随机推荐