线程启动时钟周期事件问题求解

miker99

我的目的是：用线程来启动一个时钟事件，并给时钟周期赋值一个刷新时间。
当我手动关闭线程句柄时，应退出时钟周期事件。
现在的问题是，当我用线程启动时钟周期事件并传递第二个参数，时钟周期只执行一次，不会刷新。
请问应当怎么写代码?
我的代码如下：

.版本 2
.支持库 EThread
.支持库 spec
.子程序 _按钮21_被单击
.如果 (启动线程 (&_时钟5临时测试时钟_周期事件, 3000, 线程句柄))
    调试输出 (“打开的线程句柄是：”, 线程句柄)
.否则
    信息框 (“线程打开时钟失败”, 0, , )
.如果结束


.子程序 _时钟5临时测试时钟_周期事件
.参数 k, 整数型
时钟5临时测试时钟.时钟周期 ＝ k
信息框 (“我备调用了么？？？？？” ＋ #换行符 ＋ “我的线程句柄是：” ＋ 到文本 (线程句柄) ＋ #换行符 ＋ “时钟周期是：” ＋ 到文本 (时钟5临时测试时钟.时钟周期), 0, , )
延迟 (3000)
调试输出 (“关闭线程后----执行到我了么？？？”)

落Ye知秋

有线程还用什么时钟周期。。。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程句柄	整数型

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

判断 (线程句柄 ＞ 0)
强制结束线程 (线程句柄)
线程句柄 ＝ 0
启动线程 (&子程序1, 1000, 线程句柄)

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
延迟	整数型

延迟 (延迟)
' 写你的代码
子程序1 (延迟)

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

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程句柄, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .判断开始 (线程句柄 ＞ 0)<br />     强制结束线程 (线程句柄)<br />     线程句柄 ＝ 0<br /> .默认<br />     启动线程 (&子程序1, 1000, 线程句柄)<br /> .判断结束<br /> <br /> <br /> .子程序 子程序1<br /> .参数 延迟, 整数型<br /> <br /> 延迟 (延迟)<br /> ' 写你的代码<br /> 子程序1 (延迟)

缘诚

应该时装周期事件不能传值！

miker99

缘诚 发表于 2018-12-8 18:12
应该时装周期事件不能传值！

我的时钟周期事件接受的是一个数字，
我在程序里二次赋值给时钟周期了。
还是没用。
不清楚是什么原因。

缘诚

第一个能传是因为你创建线程传的

补充内容 (2018-12-8 18:40):
你可以使用组建的标记传也是可以的只要注意临界就行

miker99

缘诚 发表于 2018-12-8 18:38
第一个能传是因为你创建线程传的

补充内容 (2018-12-8 18:40):

时钟5临时测试时钟.时钟周期 ＝ 5000
我改成这样也不行。


补充内容 (2018-12-8 18:53):
.版本 2
.支持库 spec

.子程序 _时钟5临时测试时钟_周期事件
.参数 k, 整数型

' 时钟5临时测试时钟.时钟周期 ＝ 5000
信息框 (“我备调用了么？？？？？” ＋ #换行符 ＋ “我的线程句柄是：” ＋ 到文本 (线程句柄) ＋ #换行符 ＋ “时钟周期是：” ＋ 到文本 (时钟5临时测试时钟.时钟周期), 0, , )
延迟 (3000)

调试输出 (“关闭线程后----执行到我了么？？？”)
时钟5临时测试时钟.时钟周期 ＝ 5000


补充内容 (2018-12-8 18:57):
不像是传递参数与传递方式的问题，
有可能是线程启动时钟的方法不同。
或其它未知原因。

正鑫软件开发

能用判断循环首（）尽量不用时钟

miker99

正鑫软件开发 发表于 2018-12-8 19:41
能用判断循环首（）尽量不用时钟

我的时钟实际内容很大，
里边有几个判断循环首（）
再用   跳出循环（）就，麻烦了。

weewee

时钟_删除  好像有这么个功能把

miker99

惘然如梦 发表于 2018-12-8 18:45
有线程还用什么时钟周期。。。
[e=0].版本 2
.支持库 EThread

我用时钟的目的是想  10  秒执行一次时钟内的代码。
如果只用线程的话，不是要没10秒都要启动一次线程，然后在关闭，等待下一个10秒开始？？？
还是有其他的方法可以实现我的目的？