萌新求助，有关易语言多线程循环和时钟的问题

Ayunia

我的代码是

  

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

初始化COM库 ()
多线程许可证 ＝ _创建进入许可证 ()
线程_启动 (&_时钟3_周期事件, , )
延迟 (50)
线程_启动 (&子程序1, , )

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

判断循环首 (真)
_进入许可区 (多线程许可证)
调试输出 (“我是线程1-1”)
延迟 (1000)
调试输出 (“我是线程1-2”)
延迟 (1000)
调试输出 (“我是线程1-3”)
延迟 (1000)
_退出许可区 (多线程许可证)
延迟 (1000)
判断循环尾 ()

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

变量名	类 型	静态	数组	备 注
三号时钟	整数型

_进入许可区 (多线程许可证)
三号时钟 ＝ 到数值 (编辑框.内容) × 1000
时钟3.时钟周期 ＝ 三号时钟
调试输出 (“我是线程2”)
延迟 (200)
调试输出 (“退出许可区2”)
延迟 (200)
_退出许可区 (多线程许可证)

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

.版本 2<br /> .支持库 spec<br /> .子程序 _按钮_开始_被单击<br /> 初始化COM库 ()<br /> <br /> <br /> 多线程许可证 ＝ _创建进入许可证 ()<br /> 线程_启动 (&_时钟3_周期事件, , )<br /> 延迟 (50)<br /> 线程_启动 (&子程序1, , )<br /> <br /> <br /> .版本 2<br /> .支持库 spec<br /> .子程序 子程序1<br /> .判断循环首 (真)<br />     _进入许可区 (多线程许可证)<br />     调试输出 (“我是线程1-1”)<br />     延迟 (1000)<br />     调试输出 (“我是线程1-2”)<br />     延迟 (1000)<br />     调试输出 (“我是线程1-3”)<br />     延迟 (1000)<br />     _退出许可区 (多线程许可证)<br />     延迟 (1000)<br /> .判断循环尾 ()<br /> <br /> <br /> <br /> <br /> .子程序 _时钟3_周期事件<br /> .局部变量 三号时钟, 整数型<br /> <br /> _进入许可区 (多线程许可证)<br /> 三号时钟 ＝ 到数值 (编辑框.内容) × 1000<br /> 时钟3.时钟周期 ＝ 三号时钟<br /> 调试输出 (“我是线程2”)<br /> 延迟 (200)<br /> 调试输出 (“退出许可区2”)<br /> 延迟 (200)<br /> _退出许可区 (多线程许可证)

这样运行的代码是正常的，可以正常运行，顺序是“我是线程2”“退出许可区”“1-1”"1-2"1-3"，然后等待程序1运行结束运行时钟周期事件。
但是在我写的脚本代码里判断循环的任务没执行完就卡住了，窗口也动不了，我想写的脚本是类似于在一个循环任务里添加一个定时领取Buff的功能，时钟的时间周期到了以后如果子程序1还在执行就等待子程序1执行完再运行时钟周期的任务请大佬帮忙看看是为什么怎么改进，谢谢大佬们

frankiy

给你一个demo，实际上你遇到的问题是等待问题。

只需要在子程序之间加一个全局变量，来进行互相通知，就可以解决了。

这是一个demo，给你演示的是全局变量和等待过程中【互相通知】的操作方式。



补充内容 (2024-10-23 01:15):
还有就是，尽量不要用时钟，用线程控制。

Ayunia

frankiy 发表于 2024-10-23 01:15
给你一个demo，实际上你遇到的问题是等待问题。

只需要在子程序之间加一个全局变量，来进行互相通知，就可 ...

好的大佬我先看看学习一下！谢谢大佬这么晚回复！

dnxl

既然多线程又全程加锁，脱裤子放屁
这跟单线程有何区别，这不给自己写代码添堵么。
还有，时钟是依附在窗口线程上的，不多线程环境里

Ayunia

dnxl 发表于 2024-10-23 01:36
既然多线程又全程加锁，脱裤子放屁
这跟单线程有何区别，这不给自己写代码添堵么。
还有，时钟是依附在窗口 ...

因为是主线程的循环，想在循环里加一个定时的功能，所以才加锁，因为刚学不是很懂，看了好多例子都说是加锁控制，之前不加锁就会抢窗口程序然后又卡死，也是没有办法才这样。如果我是大佬我也不想给自己的代码添堵。谢谢大佬说的时钟的问题，上一个大佬给的意见让我用线程代替时钟也在学习了，感谢大佬半夜还看了我的贴回复