求个时间运行例子.谢谢各位大神

豆浆与油条

叫我尹志平 发表于 2023-4-28 18:05
忘记上传附件了。

大佬，不可以啊。这种

豆浆与油条

mytiger 发表于 2023-4-28 18:09

不行啊。不是这种

豆浆与油条

  

[size=14px].版本 2[/size][size=14px].支持库 spec[/size]
[size=14px]
[/size]
[size=14px].子程序 _时钟_定时启动_周期事件[/size]
[size=14px].局部变量 当前时间, 日期时间型[/size]
[size=14px].局部变量 分, 文本型[/size]
[size=14px].局部变量 秒, 文本型[/size]
[size=14px].局部变量 时间, 整数型[/size]
[size=14px].局部变量 时间1, 整数型[/size]
[size=14px].局部变量 时间已启动, 逻辑型, 静态[/size]
[size=14px].局部变量 结束时间, 整数型, 静态[/size]
[size=14px].局部变量 小时, 文本型[/size]
[size=14px].局部变量 记录上次小时, 文本型, 静态[/size]
[size=14px].局部变量 下次执行任务时间, 日期时间型[/size]
[size=14px].局部变量 下次启动时间, 整数型, 静态[/size]
[size=14px]
[/size]
[size=14px]当前时间 ＝ 取现行时间 ()[/size]
[size=14px]分 ＝ 组合框分.内容[/size]
[size=14px]秒 ＝ 组合框秒.内容[/size]
[size=14px]时间 ＝ 到整数 (时间_到文本 (当前时间, 3, 3))[/size]
[size=14px]小时 ＝ 到文本 (取小时 (当前时间))[/size]
[size=14px]
[/size]
[size=14px]时间1 ＝ 到整数 (小时 ＋ 分 ＋ 秒)[/size]
[size=14px]调试输出 (时间, 时间1)[/size]
[size=14px].如果真 (下次启动时间 ≠ 0)[/size]
[size=14px]    .如果真 (下次启动时间 ≠ 到整数 (小时))[/size]
[size=14px]        调试输出 (“等下小时”, 下次启动时间)[/size]
[size=14px]        返回 ()[/size]
[size=14px]    .如果真结束[/size]
[size=14px]
[/size]
[size=14px].如果真结束[/size]
[size=14px].如果 (时间已启动 ＝ 假)[/size]
[size=14px]    .如果真 (时间 ≥ 时间1)[/size]
[size=14px]
[/size]
[size=14px]
[/size]
[size=14px]        调试输出 (“启动”, 时间, 时间1)[/size]
[size=14px]        时间已启动 ＝ 真[/size]
[size=14px]        当前时间 ＝ 取现行时间 ()[/size]
[size=14px]        当前时间 ＝ 增减时间 (当前时间, #分钟, 到整数 (编辑框运行分钟.内容))[/size]
[size=14px]        结束时间 ＝ 到整数 (时间_到文本 (当前时间, 3, 3))[/size]
[size=14px]
[/size]
[size=14px]    .如果真结束[/size]
[size=14px]
[/size]
[size=14px].否则[/size]
[size=14px]    ' 启动后[/size]
[size=14px]    .如果真 (结束时间 ≠ 0)[/size]
[size=14px]        .如果 (时间 ≥ 结束时间)[/size]
[size=14px]            结束时间 ＝ 0[/size]
[size=14px]            时间已启动 ＝ 假[/size]
[size=14px]            调试输出 (“停止”, 时间, 结束时间)[/size]
[size=14px]            下次启动时间 ＝ 到整数 (小时) ＋ 1[/size]
[size=14px]
[/size]
[size=14px]        .否则[/size]
[size=14px]
[/size]
[size=14px]        .如果结束[/size]
[size=14px]
[/size]
[size=14px]    .如果真结束[/size]
[size=14px]
[/size]
[size=14px].如果结束[/size]

<font style="font-size:14px">.版本 2</font><font style="font-size:14px">.支持库 spec</font><br /> <font style="font-size:14px"><br /> </font><br /> <font style="font-size:14px">.子程序 _时钟_定时启动_周期事件</font><br /> <font style="font-size:14px">.局部变量 当前时间, 日期时间型</font><br /> <font style="font-size:14px">.局部变量 分, 文本型</font><br /> <font style="font-size:14px">.局部变量 秒, 文本型</font><br /> <font style="font-size:14px">.局部变量 时间, 整数型</font><br /> <font style="font-size:14px">.局部变量 时间1, 整数型</font><br /> <font style="font-size:14px">.局部变量 时间已启动, 逻辑型, 静态</font><br /> <font style="font-size:14px">.局部变量 结束时间, 整数型, 静态</font><br /> <font style="font-size:14px">.局部变量 小时, 文本型</font><br /> <font style="font-size:14px">.局部变量 记录上次小时, 文本型, 静态</font><br /> <font style="font-size:14px">.局部变量 下次执行任务时间, 日期时间型</font><br /> <font style="font-size:14px">.局部变量 下次启动时间, 整数型, 静态</font><br /> <font style="font-size:14px"><br /> </font><br /> <font style="font-size:14px">当前时间 ＝ 取现行时间 ()</font><br /> <font style="font-size:14px">分 ＝ 组合框分.内容</font><br /> <font style="font-size:14px">秒 ＝ 组合框秒.内容</font><br /> <font style="font-size:14px">时间 ＝ 到整数 (时间_到文本 (当前时间, 3, 3))</font><br /> <font style="font-size:14px">小时 ＝ 到文本 (取小时 (当前时间))</font><br /> <font style="font-size:14px"><br /> </font><br /> <font style="font-size:14px">时间1 ＝ 到整数 (小时 ＋ 分 ＋ 秒)</font><br /> <font style="font-size:14px">调试输出 (时间, 时间1)</font><br /> <font style="font-size:14px">.如果真 (下次启动时间 ≠ 0)</font><br /> <font style="font-size:14px">    .如果真 (下次启动时间 ≠ 到整数 (小时))</font><br /> <font style="font-size:14px">        调试输出 (“等下小时”, 下次启动时间)</font><br /> <font style="font-size:14px">        返回 ()</font><br /> <font style="font-size:14px">    .如果真结束</font><br /> <font style="font-size:14px"><br /> </font><br /> <font style="font-size:14px">.如果真结束</font><br /> <font style="font-size:14px">.如果 (时间已启动 ＝ 假)</font><br /> <font style="font-size:14px">    .如果真 (时间 ≥ 时间1)</font><br /> <font style="font-size:14px"><br /> </font><br /> <font style="font-size:14px"><br /> </font><br /> <font style="font-size:14px">        调试输出 (“启动”, 时间, 时间1)</font><br /> <font style="font-size:14px">        时间已启动 ＝ 真</font><br /> <font style="font-size:14px">        当前时间 ＝ 取现行时间 ()</font><br /> <font style="font-size:14px">        当前时间 ＝ 增减时间 (当前时间, #分钟, 到整数 (编辑框运行分钟.内容))</font><br /> <font style="font-size:14px">        结束时间 ＝ 到整数 (时间_到文本 (当前时间, 3, 3))</font><br /> <font style="font-size:14px"><br /> </font><br /> <font style="font-size:14px">    .如果真结束</font><br /> <font style="font-size:14px"><br /> </font><br /> <font style="font-size:14px">.否则</font><br /> <font style="font-size:14px">    ' 启动后</font><br /> <font style="font-size:14px">    .如果真 (结束时间 ≠ 0)</font><br /> <font style="font-size:14px">        .如果 (时间 ≥ 结束时间)</font><br /> <font style="font-size:14px">            结束时间 ＝ 0</font><br /> <font style="font-size:14px">            时间已启动 ＝ 假</font><br /> <font style="font-size:14px">            调试输出 (“停止”, 时间, 结束时间)</font><br /> <font style="font-size:14px">            下次启动时间 ＝ 到整数 (小时) ＋ 1</font><br /> <font style="font-size:14px"><br /> </font><br /> <font style="font-size:14px">        .否则</font><br /> <font style="font-size:14px"><br /> </font><br /> <font style="font-size:14px">        .如果结束</font><br /> <font style="font-size:14px"><br /> </font><br /> <font style="font-size:14px">    .如果真结束</font><br /> <font style="font-size:14px"><br /> </font><br /> <font style="font-size:14px">.如果结束</font>

这是我的写法。能启动，能暂停，但是还不懂怎么下一个小时运行。