一个时钟事件，每秒执行一次

whb666

一个时钟事件，每秒执行一次，怎么让这个程序执行完毕后再执行下一次，因为有可能一秒内这个程序未执行完，所以有什么好办法让这个程序执行完毕后再执行下一次，未执行完毕的这个时候，再传入时钟执行，就直接忽略掉

Ruang

  

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

时钟1.时钟周期 ＝ 0
' 代码
' ' 代码
' ' 代码
' ' 代码
' ' 代码
' ' 代码
' ' 代码
' ' 代码
时钟1.时钟周期 ＝ 100

.版本 2<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 时钟1.时钟周期 ＝ 0<br /> ' 代码<br /> ' ' 代码<br /> ' ' 代码<br /> ' ' 代码<br /> ' ' 代码<br /> ' ' 代码<br /> ' ' 代码<br /> ' ' 代码<br /> 时钟1.时钟周期 ＝ 100

这样写，似乎也可以

linqing4

最简单，一个全局变量，未执行完成是假，执行完成是真，时钟内判断变量为真才执行。

Ruang

还不如用线程，这样写还要子线程监控时钟状态

Ruang

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
时钟状态	逻辑型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

启动线程 (&监控状态, , )

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

时钟状态 ＝ 真
' 代码
' ' 代码
' ' 代码
' ' 代码
' ' 代码
' ' 代码
' ' 代码
' ' 代码
时钟状态 ＝ 假

子程序名	返回值类型	公开	备 注
监控状态

判断循环首 (真)
如果 (时钟状态 ＝ 真)
时钟1.时钟周期 ＝ 0
时钟1.时钟周期 ＝ 1000

延迟 (500)
判断循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 时钟状态, 逻辑型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&监控状态, , )<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 时钟状态 ＝ 真<br /> ' 代码<br /> ' ' 代码<br /> ' ' 代码<br /> ' ' 代码<br /> ' ' 代码<br /> ' ' 代码<br /> ' ' 代码<br /> ' ' 代码<br /> 时钟状态 ＝ 假<br /> <br /> .子程序 监控状态<br /> <br /> .判断循环首 (真)<br />     .如果 (时钟状态 ＝ 真)<br />         时钟1.时钟周期 ＝ 0<br />     .否则<br />         时钟1.时钟周期 ＝ 1000<br />     .如果结束<br /> <br />     延迟 (500)<br /> .判断循环尾 ()

zenpon

执行开始时 时钟.时钟周期=0
执行结时 时钟.时钟周期=1000

Ruang

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
时钟状态	逻辑型
线程句柄	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

如果真 (线程句柄 ＝ 0)
启动线程 (&监控状态, , 线程句柄)

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

时钟状态 ＝ 真
时钟1.时钟周期 ＝ 0
' 代码
' ' 代码
' ' 代码
' ' 代码
' ' 代码
' ' 代码
' ' 代码
' ' 代码
时钟状态 ＝ 假

子程序名	返回值类型	公开	备 注
监控状态

判断循环首 (真)
如果真 (时钟状态 ＝ 真)
时钟1.时钟周期 ＝ 1000

延迟 (500)
判断循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 时钟状态, 逻辑型<br /> .程序集变量 线程句柄, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果真 (线程句柄 ＝ 0)<br />     启动线程 (&监控状态, , 线程句柄)<br /> .如果真结束<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 时钟状态 ＝ 真<br /> 时钟1.时钟周期 ＝ 0<br /> ' 代码<br /> ' ' 代码<br /> ' ' 代码<br /> ' ' 代码<br /> ' ' 代码<br /> ' ' 代码<br /> ' ' 代码<br /> ' ' 代码<br /> 时钟状态 ＝ 假<br /> <br /> .子程序 监控状态<br /> <br /> .判断循环首 (真)<br />     .如果真 (时钟状态 ＝ 真)<br />         时钟1.时钟周期 ＝ 1000<br />     .如果真结束<br /> <br />     延迟 (500)<br /> .判断循环尾 ()

jianglinkeji

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
集_执行	逻辑型

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

如果真 (集_执行 ＝ 假)
集_执行 ＝ 真
' ---------------------------------代码开始---------------------------------
' ---------------------------------代码结束---------------------------------
集_执行 ＝ 假

.版本 2<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 集_执行, 逻辑型<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> .如果真 (集_执行 ＝ 假)<br />     集_执行 ＝ 真<br />     ' ---------------------------------代码开始---------------------------------<br /> <br /> <br />     ' ---------------------------------代码结束---------------------------------<br />     集_执行 ＝ 假<br /> .如果真结束

憨憨问号

善用这种方法，很多问题都可以用这种标志来解决

  

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

时钟1.时钟周期 ＝ 1000  ' 设置时钟周期为1秒

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

变量名	类 型	静态	数组	备 注
标志	逻辑型

如果真 (标志 ＝ 假)
调试输出 (“时钟执行一次”)
标志 ＝ 真
延迟 (2000)  ' 这里模拟一个命令执行了两秒
调试输出 (“命令执行完毕”)
标志 ＝ 假

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> 时钟1.时钟周期 ＝ 1000  ' 设置时钟周期为1秒<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 标志, 逻辑型, 静态<br /> <br /> .如果真 (标志 ＝ 假)<br />     调试输出 (“时钟执行一次”)<br />     标志 ＝ 真<br /> <br />     延迟 (2000)  ' 这里模拟一个命令执行了两秒<br />     调试输出 (“命令执行完毕”)<br /> <br /> <br />     标志 ＝ 假

禁回忆

你的思路有问题，如果你想等待程序执行完之后再重复执行的话，你需要的是递归调用，而不是时钟

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

子程序1 ()
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
子程序1

调试输出 (123)
延迟 (1000)
子程序1 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 子程序1 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 子程序1<br /> <br /> 调试输出 (123)<br /> 延迟 (1000)<br /> 子程序1 ()