如果编辑框1输出，编辑框2等待，有人能做到吗？来个源码

时髦猪

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
运行进程	整数型
线程许可	整数型

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

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

变量名	类 型	静态	数组	备 注
i	整数型

进入许可区 (线程许可)
判断循环首 (真)
如果 (运行进程 ＝ 1 或 运行进程 ＝ 0)
编辑框1.加入文本 (“1”)
延时 (100)
退出许可区 (线程许可)
输出调试文本 (“1出去了”)
进入许可区 (线程许可)
输出调试文本 (“1又进来了”)

判断循环尾 ()
退出许可区 (线程许可)

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

变量名	类 型	静态	数组	备 注
i	整数型

进入许可区 (线程许可)
判断循环首 (真)
如果 (运行进程 ＝ 2 或 运行进程 ＝ 0)
编辑框2.加入文本 (“2”)
延时 (100)
退出许可区 (线程许可)
输出调试文本 (“2出去了”)
进入许可区 (线程许可)
输出调试文本 (“2又进来了”)

判断循环尾 ()
退出许可区 (线程许可)

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

运行进程 ＝ 1

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

运行进程 ＝ 2

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

线程许可 ＝ 创建进入许可证 ()
运行进程 ＝ 0
启动线程 (&子程序1, , )
启动线程 (&子程序2, , )

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 运行进程, 整数型<br /> .程序集变量 线程许可, 整数型<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> <br /> <br /> .子程序 子程序1<br /> .局部变量 i, 整数型<br /> <br /> 进入许可区 (线程许可)<br /> .判断循环首 (真)<br />     .如果 (运行进程 ＝ 1 或 运行进程 ＝ 0)<br />         编辑框1.加入文本 (“1”)<br />         延时 (100)<br />     .否则<br />         退出许可区 (线程许可)<br />         输出调试文本 (“1出去了”)<br />         进入许可区 (线程许可)<br />         输出调试文本 (“1又进来了”)<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> 退出许可区 (线程许可)<br /> <br /> .子程序 子程序2<br /> .局部变量 i, 整数型<br /> <br /> 进入许可区 (线程许可)<br /> .判断循环首 (真)<br />     .如果 (运行进程 ＝ 2 或 运行进程 ＝ 0)<br />         编辑框2.加入文本 (“2”)<br />         延时 (100)<br />     .否则<br />         退出许可区 (线程许可)<br />         输出调试文本 (“2出去了”)<br />         进入许可区 (线程许可)<br />         输出调试文本 (“2又进来了”)<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> 退出许可区 (线程许可)<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 运行进程 ＝ 1<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 运行进程 ＝ 2<br /> <br /> .子程序 _按钮3_被单击<br /> <br /> 线程许可 ＝ 创建进入许可证 ()<br /> 运行进程 ＝ 0<br /> 启动线程 (&子程序1, , )<br /> 启动线程 (&子程序2, , )

刚才又发错地方了  这样不对么

无名霸道

加条件判断

小刚空间

小情缘 发表于 2023-7-13 19:36
试试

没毛病，循环最后再加个判断就可以了，
因为楼主说：等编辑框1的100次执行完了，编辑框2在继续执行剩下的50次

wang2lang

线程中引入外部变量，以判定哪个编辑框需要操作或动作

b0y

test.e (949.47 KB, 下载次数: 2)

2023-7-14 02:12 上传

点击文件名下载附件

dzscuz

参考下，应该是你想要的结果，哈哈~~~
编辑框之许可证操作.e (3.52 KB, 下载次数: 0)

2023-7-14 03:20 上传

点击文件名下载附件

wang2lang

是这样吗？ 是这样吗？.e (951.07 KB, 下载次数: 1)

2023-7-15 00:02 上传

点击文件名下载附件