时钟执行判断

tonygyt

想咨询哈各位，如下面的代码，比如我点击按钮1的时候，时钟开始运行，然后隔一两秒再点击按钮2，时钟再次运行，相当于是时钟运行了两次，能否有个什么判断之类的，点了按钮2之后，判断如果时钟里面的程序正在执行，那么按钮2点了之后时钟的程序就不要再运行了，谢谢了。
[e]
.版本 2
.支持库 spec

.程序集 窗口程序集1
.程序集变量 a, 整数型

.子程序 _按钮1_被单击

时钟1.时钟周期 ＝ 1000

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

时钟1.时钟周期 ＝ 0
延迟 (2000)
a ＝ a ＋ 1
调试输出 (a)


.子程序 _按钮2_被单击

时钟1.时钟周期 ＝ 1000

[/e]

找№北

时钟周期事件是否执行中.zip (1.48 KB, 下载次数: 5)

2014-4-8 22:30 上传

点击文件名下载附件 [e]
.版本 2
.支持库 spec

.程序集 窗口程序集1
.程序集变量 是否执行中, 逻辑型
.程序集变量 计次, 整数型

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

计次 ＝ 计次 ＋ 1
调试输出 (计次)

编辑框1.加入文本 (“时钟周期事件 执行次数 ” ＋ 到文本 (计次) ＋ #换行符)
调试输出 (是否执行中)
.判断开始 (计次 ＝ 5) ' 为了方便测试 才用的 5 执行次数可以自己改
是否执行中 ＝ 假
时钟1.时钟周期 ＝ 0
.默认
是否执行中 ＝ 真

.判断结束


.子程序 _按钮1_被单击

是否执行中 ＝ 真
计次 ＝ 0
时钟1.时钟周期 ＝ 1000
编辑框1.加入文本 (“时钟周期事件 开始执行,按钮1被单击 ” ＋ #换行符)


.子程序 _按钮2_被单击

.判断开始 (是否执行中 ＝ 真)
调试输出 (“程序 执行中.....”)
编辑框1.加入文本 (“时钟周期事件 程序 还在执行中.....,按钮2被单击 ” ＋ #换行符)
.默认
调试输出 (“程序 执行完毕.....”)
编辑框1.加入文本 (“时钟周期事件 已经执行完毕,按钮2被单击 ” ＋ #换行符)
.判断结束




[/e]

大香蕉

根本不知道你在说什么

补充内容 (2014-4-8 13:04):
好吧   看懂了一点   你可以让时钟运行到最后的时候输出个提示之类的东西来证实时钟已经运行完毕

蕃茄炒饭

.版本 2

.子程序 _按钮2_被单击

.如果 (a=0)
    时钟1.时钟周期 ＝ 1000
.否则
    时钟1.时钟周期 ＝ 0
.如果结束


补充内容 (2014-4-8 13:11):
把  a=0 改成  如果 (a ≠ 0)

唐老湿

  下载看看吧

哥的悲伤

不知所云

残疾人的心声

沙发正解请楼主采纳