想实现一个定时任务,但是感觉写的有点毛病...

曼巴精神8

.版本 2
.支持库 spec

.子程序 定时任务
.局部变量 时间, 文本型
.局部变量 时, 文本型
.局部变量 分, 文本型

.判断循环首 (真)
    延迟 (1000 × 30)
    时间 ＝ 到文本 (取现行时间 ())
    时 ＝ 文本_取出中间文本 (时间, “日”, “时”)
    分 ＝ 文本_取出中间文本 (时间, “时”, “分”)
    .如果真 (时 ＝ “7” 且 分 ＝ “00”)
        调试输出 (“7点啦”)
    .如果真结束
    .如果真 (时 ＝ “23” 且 分 ＝ “00”)
        调试输出 (“23点啦”)
    .如果真结束

.判断循环尾 ()





想实现一个类似定时任务,但是不知道这么写为什么不执行
时钟周期函数我还没学会,求大佬用死循环和时钟周期函数都帮实现一个吧
{:4_259:}

浪子小刀

  

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

定时任务 ()
时钟1.时钟周期 ＝ 1000

子程序名	返回值类型	公开	备 注
定时任务

变量名	类 型	静态	数组	备 注
时间	文本型
时	文本型
分	文本型
死循环	逻辑型

死循环 ＝ 真
判断循环首 (死循环)
延迟 (1000)
时间 ＝ 到文本 (取现行时间 ())
时 ＝ 文本_取出中间文本 (时间, “日”, “时”)
分 ＝ 文本_取出中间文本 (时间, “时”, “分”)
调试输出 (时, 分)
如果真 (时 ＝ “7” 且 分 ＝ “00”)
调试输出 (“7点啦”)
如果真 (时 ＝ “23” 且 分 ＝ “00”)
调试输出 (“23点啦”)

判断循环尾 ()

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
时间	文本型
时	文本型
分	文本型

时间 ＝ 到文本 (取现行时间 ())
时 ＝ 文本_取出中间文本 (时间, “日”, “时”)
分 ＝ 文本_取出中间文本 (时间, “时”, “分”)
调试输出 (时, 分)
如果真 (时 ＝ “7” 且 分 ＝ “00”)
调试输出 (“7点啦”)
如果真 (时 ＝ “23” 且 分 ＝ “00”)
调试输出 (“23点啦”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> 定时任务 ()<br /> 时钟1.时钟周期 ＝ 1000<br /> <br /> .子程序 定时任务<br /> .局部变量 时间, 文本型<br /> .局部变量 时, 文本型<br /> .局部变量 分, 文本型<br /> .局部变量 死循环, 逻辑型<br /> <br /> 死循环 ＝ 真<br /> .判断循环首 (死循环)<br />     延迟 (1000)<br />     时间 ＝ 到文本 (取现行时间 ())<br />     时 ＝ 文本_取出中间文本 (时间, “日”, “时”)<br />     分 ＝ 文本_取出中间文本 (时间, “时”, “分”)<br />     调试输出 (时, 分)<br />     .如果真 (时 ＝ “7” 且 分 ＝ “00”)<br />         调试输出 (“7点啦”)<br />     .如果真结束<br />     .如果真 (时 ＝ “23” 且 分 ＝ “00”)<br />         调试输出 (“23点啦”)<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 时间, 文本型<br /> .局部变量 时, 文本型<br /> .局部变量 分, 文本型<br /> <br /> 时间 ＝ 到文本 (取现行时间 ())<br /> 时 ＝ 文本_取出中间文本 (时间, “日”, “时”)<br /> 分 ＝ 文本_取出中间文本 (时间, “时”, “分”)<br /> 调试输出 (时, 分)<br /> .如果真 (时 ＝ “7” 且 分 ＝ “00”)<br />     调试输出 (“7点啦”)<br /> .如果真结束<br /> .如果真 (时 ＝ “23” 且 分 ＝ “00”)<br />     调试输出 (“23点啦”)<br /> .如果真结束

浪子小刀

  

子程序名	返回值类型	公开	备 注
定时任务

变量名	类 型	静态	数组	备 注
时间	文本型
时	文本型
分	文本型
死循环	逻辑型

死循环 ＝ 真
判断循环首 (死循环)
延迟 (1000)
时间 ＝ 到文本 (取现行时间 ())
时 ＝ 文本_取出中间文本 (时间, “日”, “时”)
分 ＝ 文本_取出中间文本 (时间, “时”, “分”)
调试输出 (时, 分)
如果真 (时 ＝ “7” 且 分 ＝ “00”)
调试输出 (“7点啦”)
如果真 (时 ＝ “23” 且 分 ＝ “00”)
调试输出 (“23点啦”)

判断循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 定时任务<br /> .局部变量 时间, 文本型<br /> .局部变量 时, 文本型<br /> .局部变量 分, 文本型<br /> .局部变量 死循环, 逻辑型<br /> <br /> 死循环 ＝ 真<br /> .判断循环首 (死循环)<br />     延迟 (1000)<br />     时间 ＝ 到文本 (取现行时间 ())<br />     时 ＝ 文本_取出中间文本 (时间, “日”, “时”)<br />     分 ＝ 文本_取出中间文本 (时间, “时”, “分”)<br />     调试输出 (时, 分)<br />     .如果真 (时 ＝ “7” 且 分 ＝ “00”)<br />         调试输出 (“7点啦”)<br />     .如果真结束<br />     .如果真 (时 ＝ “23” 且 分 ＝ “00”)<br />         调试输出 (“23点啦”)<br />     .如果真结束<br /> <br /> .判断循环尾 ()

没问题啊

wzj2015

.版本 2
.支持库 spec

.子程序 __启动窗口_创建完毕

时钟1.时钟周期 ＝ 1000


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

.如果 (取小时 (取现行时间 ()) ＝ 7 且 取分钟 (取现行时间 ()) ＝ 0)
    调试输出 (“7点了”)

.否则

.如果结束
.如果 (取小时 (取现行时间 ()) ＝ 23 且 取分钟 (取现行时间 ()) ＝ 0)
    调试输出 (“23点了”)
.否则

.如果结束

浪子阿浩

给你一个简单的

  

如果真 (取小时 (取现行时间 ()) ≥ 1 或 取小时 (取现行时间 ()) ≤ 5)
托盘图标_弹出气泡 (“温馨提醒”, “当前北京时间：” ＋ 当前北京时间 ＋ #换行符 ＋ “现在已经很晚了，请注意休息！”, #托盘图标_信息图标, )
如果真 (取小时 (取现行时间 ()) ≥ 5 或 取小时 (取现行时间 ()) ≤ 8)
托盘图标_弹出气泡 (“温馨提醒”, “当前北京时间：” ＋ 当前北京时间 ＋ #换行符 ＋ “早上好，欢迎光临！”, #托盘图标_信息图标, )
如果真 (取小时 (取现行时间 ()) ≥ 8 或 取小时 (取现行时间 ()) ≤ 10)
托盘图标_弹出气泡 (“温馨提醒”, “当前北京时间：” ＋ 当前北京时间 ＋ #换行符 ＋ “欢迎光临，趣步置换助手！”, #托盘图标_信息图标, )
如果真 (取小时 (取现行时间 ()) ≥ 10 或 取小时 (取现行时间 ()) ≤ 12)
托盘图标_弹出气泡 (“温馨提醒”, “当前北京时间：” ＋ 当前北京时间 ＋ #换行符 ＋ “马上到午饭时间了，请按时吃饭午休哦！”, #托盘图标_信息图标, )
如果真 (取小时 (取现行时间 ()) ≥ 12 或 取小时 (取现行时间 ()) ≤ 14)
托盘图标_弹出气泡 (“温馨提醒”, “当前北京时间：” ＋ 当前北京时间 ＋ #换行符 ＋ “现在是午休时间，请多休息，为了更美好的下午工作！”, #托盘图标_信息图标, )
如果真 (取小时 (取现行时间 ()) ≥ 14 或 取小时 (取现行时间 ()) ≤ 18)
托盘图标_弹出气泡 (“温馨提醒”, “当前北京时间：” ＋ 当前北京时间 ＋ #换行符 ＋ “欢迎光临，现在是工作时间，请专心工作！”, #托盘图标_信息图标, )
如果真 (取小时 (取现行时间 ()) ≥ 18 或 取小时 (取现行时间 ()) ≤ 21)
托盘图标_弹出气泡 (“温馨提醒”, “当前北京时间：” ＋ 当前北京时间 ＋ #换行符 ＋ “欢迎光临，现在是吃晚饭时间，你吃饭了吗！”, #托盘图标_信息图标, )
如果真 (取小时 (取现行时间 ()) ≥ 21 或 取小时 (取现行时间 ()) ≤ 23)
托盘图标_弹出气泡 (“温馨提醒”, “当前北京时间：” ＋ 当前北京时间 ＋ #换行符 ＋ “现在是晚上休息时间哦，请主要休息，养成早睡早起的习惯！”, #托盘图标_信息图标, )
如果真 (取小时 (取现行时间 ()) ≥ 23 或 取小时 (取现行时间 ()) ≤ 1)
托盘图标_弹出气泡 (“温馨提醒”, “当前北京时间：” ＋ 当前北京时间 ＋ #换行符 ＋ “一晃时间就到傍晚了，请问你还不休息吗，请注意休息！”, #托盘图标_信息图标, )

.版本 2<br /> <br /> .如果真 (取小时 (取现行时间 ()) ≥ 1 或 取小时 (取现行时间 ()) ≤ 5)<br />     托盘图标_弹出气泡 (“温馨提醒”, “当前北京时间：” ＋ 当前北京时间 ＋ #换行符 ＋ “现在已经很晚了，请注意休息！”, #托盘图标_信息图标, )<br /> .如果真结束<br /> .如果真 (取小时 (取现行时间 ()) ≥ 5 或 取小时 (取现行时间 ()) ≤ 8)<br />     托盘图标_弹出气泡 (“温馨提醒”, “当前北京时间：” ＋ 当前北京时间 ＋ #换行符 ＋ “早上好，欢迎光临！”, #托盘图标_信息图标, )<br /> .如果真结束<br /> .如果真 (取小时 (取现行时间 ()) ≥ 8 或 取小时 (取现行时间 ()) ≤ 10)<br />     托盘图标_弹出气泡 (“温馨提醒”, “当前北京时间：” ＋ 当前北京时间 ＋ #换行符 ＋ “欢迎光临，趣步置换助手！”, #托盘图标_信息图标, )<br /> .如果真结束<br /> .如果真 (取小时 (取现行时间 ()) ≥ 10 或 取小时 (取现行时间 ()) ≤ 12)<br />     托盘图标_弹出气泡 (“温馨提醒”, “当前北京时间：” ＋ 当前北京时间 ＋ #换行符 ＋ “马上到午饭时间了，请按时吃饭午休哦！”, #托盘图标_信息图标, )<br /> .如果真结束<br /> .如果真 (取小时 (取现行时间 ()) ≥ 12 或 取小时 (取现行时间 ()) ≤ 14)<br />     托盘图标_弹出气泡 (“温馨提醒”, “当前北京时间：” ＋ 当前北京时间 ＋ #换行符 ＋ “现在是午休时间，请多休息，为了更美好的下午工作！”, #托盘图标_信息图标, )<br /> .如果真结束<br /> .如果真 (取小时 (取现行时间 ()) ≥ 14 或 取小时 (取现行时间 ()) ≤ 18)<br />     托盘图标_弹出气泡 (“温馨提醒”, “当前北京时间：” ＋ 当前北京时间 ＋ #换行符 ＋ “欢迎光临，现在是工作时间，请专心工作！”, #托盘图标_信息图标, )<br /> .如果真结束<br /> .如果真 (取小时 (取现行时间 ()) ≥ 18 或 取小时 (取现行时间 ()) ≤ 21)<br />     托盘图标_弹出气泡 (“温馨提醒”, “当前北京时间：” ＋ 当前北京时间 ＋ #换行符 ＋ “欢迎光临，现在是吃晚饭时间，你吃饭了吗！”, #托盘图标_信息图标, )<br /> .如果真结束<br /> .如果真 (取小时 (取现行时间 ()) ≥ 21 或 取小时 (取现行时间 ()) ≤ 23)<br />     托盘图标_弹出气泡 (“温馨提醒”, “当前北京时间：” ＋ 当前北京时间 ＋ #换行符 ＋ “现在是晚上休息时间哦，请主要休息，养成早睡早起的习惯！”, #托盘图标_信息图标, )<br /> .如果真结束<br /> .如果真 (取小时 (取现行时间 ()) ≥ 23 或 取小时 (取现行时间 ()) ≤ 1)<br />     托盘图标_弹出气泡 (“温馨提醒”, “当前北京时间：” ＋ 当前北京时间 ＋ #换行符 ＋ “一晃时间就到傍晚了，请问你还不休息吗，请注意休息！”, #托盘图标_信息图标, )

寒潮

这还需要用模块吗？