deepseek写的多线程例子

易小妞

首先超级列表框1.插入列这里语法就是错误的，再就是这里 线程句柄 ＝ 启动线程 (&工作线程, i, )

找了半天没找到这个语句

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程句柄	整数型	10"  ' 线程句柄
许可证	整数型
当前处理行	整数型
是否暂停	逻辑型
是否停止	逻辑型

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

' 初始化超级列表框
超级列表框1.插入列 ("内容", 150, , , , )
超级列表框1.插入列 ("状态", 100, , , , )
' 添加测试数据
计次循环首 (100, i)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, "数据" ＋ 到文本 (i))
超级列表框1.置标题 (索引, 1, "未处理")
计次循环尾 ()
当前处理行 ＝ 0
是否暂停 ＝ 假
是否停止 ＝ 假

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

' 创建临界许可证
许可证 ＝ 创建进入许可证 ()
当前处理行 ＝ 0
是否停止 ＝ 假
' 创建5个工作线程
计次循环首 (5, i)
线程句柄 [i] ＝ 启动线程 (&工作线程, i, )
计次循环尾 ()

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

是否暂停 ＝ 取反 (是否暂停)
按钮_暂停.标题 ＝ 选择 (是否暂停, "继续", "暂停")

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

是否停止 ＝ 真
关闭许可证句柄 (许可证)
' 等待所有线程退出
计次循环首 (5, i)
等待线程退出 (线程句柄 [i], 1000)
关闭线程句柄 (线程句柄 [i])
计次循环尾 ()

子程序名	返回值类型	公开	备 注
工作线程
参数名	类 型	参考	可空	数组	备 注
线程ID	整数型

循环判断首 ()
' 获取要处理的行号
进入许可区 (许可证)
如果真 (当前处理行 ≥ 超级列表框1.取表项数 ())
退出许可区 (许可证)
跳出循环 ()

局部_行号 ＝ 当前处理行
当前处理行 ＝ 当前处理行 ＋ 1
退出许可区 (许可证)
' 更新状态为处理中
调用窗口方法 (_启动窗口, "更新状态", 局部_行号, "处理中（线程" ＋ 到文本 (线程ID) ＋ "）")
' 模拟数据处理（这里用延时代替实际工作）
延时 (200)  ' 随机处理时间
' 处理完成
调用窗口方法 (_启动窗口, "更新状态", 局部_行号, "完成")
' 处理暂停状态
判断循环首 (是否暂停)
延时 (100)
判断循环尾 ()
如果真 (是否停止)
跳出循环 ()

循环判断尾 (真)

子程序名	返回值类型	公开	备 注
更新状态
参数名	类 型	参考	可空	数组	备 注
行号	整数型
状态文本	文本型

' 安全操作超级列表框
超级列表框1.置标题 (行号, 1, 状态文本)
超级列表框1.保证显示 (行号)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

关闭许可证句柄 (许可证)

i支持库列表	支持库注释
EThread	多线程支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 EThread<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程句柄, 整数型, , "10"  ' 线程句柄数组<br /> .程序集变量 许可证, 整数型<br /> .程序集变量 当前处理行, 整数型<br /> .程序集变量 是否暂停, 逻辑型<br /> .程序集变量 是否停止, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> ' 初始化超级列表框<br /> 超级列表框1.插入列 ("内容", 150, , , , )<br /> 超级列表框1.插入列 ("状态", 100, , , , )<br /> <br /> ' 添加测试数据<br /> .计次循环首 (100, i)<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, 0, "数据" ＋ 到文本 (i))<br />     超级列表框1.置标题 (索引, 1, "未处理")<br /> .计次循环尾 ()<br /> <br /> 当前处理行 ＝ 0<br /> 是否暂停 ＝ 假<br /> 是否停止 ＝ 假<br /> <br /> .子程序 _按钮_开始_被单击<br /> ' 创建临界许可证<br /> 许可证 ＝ 创建进入许可证 ()<br /> 当前处理行 ＝ 0<br /> 是否停止 ＝ 假<br /> <br /> ' 创建5个工作线程<br /> .计次循环首 (5, i)<br />     线程句柄 <i> ＝ 启动线程 (&工作线程, i, )<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮_暂停_被单击<br /> 是否暂停 ＝ 取反 (是否暂停)<br /> 按钮_暂停.标题 ＝ 选择 (是否暂停, "继续", "暂停")<br /> <br /> .子程序 _按钮_停止_被单击<br /> 是否停止 ＝ 真<br /> 关闭许可证句柄 (许可证)<br /> <br /> ' 等待所有线程退出<br /> .计次循环首 (5, i)<br />     等待线程退出 (线程句柄 <i>, 1000)<br />     关闭线程句柄 (线程句柄 <i>)<br /> .计次循环尾 ()<br /> <br /> .子程序 工作线程<br /> .参数 线程ID, 整数型<br /> <br /> .循环判断首 ()<br />     ' 获取要处理的行号<br />     进入许可区 (许可证)<br />     .如果真 (当前处理行 ≥ 超级列表框1.取表项数 ())<br />         退出许可区 (许可证)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     局部_行号 ＝ 当前处理行<br />     当前处理行 ＝ 当前处理行 ＋ 1<br />     退出许可区 (许可证)<br /> <br />     ' 更新状态为处理中<br />     调用窗口方法 (_启动窗口, "更新状态", 局部_行号, "处理中（线程" ＋ 到文本 (线程ID) ＋ "）")<br /> <br />     ' 模拟数据处理（这里用延时代替实际工作）<br />     延时 (200)  ' 随机处理时间<br /> <br />     ' 处理完成<br />     调用窗口方法 (_启动窗口, "更新状态", 局部_行号, "完成")<br /> <br />     ' 处理暂停状态<br />     .判断循环首 (是否暂停)<br />         延时 (100)<br />     .判断循环尾 ()<br /> <br />     .如果真 (是否停止)<br />         跳出循环 ()<br />     .如果真结束<br /> .循环判断尾 (真)<br /> <br /> .子程序 更新状态<br /> .参数 行号, 整数型<br /> .参数 状态文本, 文本型<br /> <br /> ' 安全操作超级列表框<br /> 超级列表框1.置标题 (行号, 1, 状态文本)<br /> 超级列表框1.保证显示 (行号)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> 关闭许可证句柄 (许可证)

1184798949

感谢分享

kyo9766

原理是对的，但是对支持库命令 还不是很熟悉，感谢分享

xiaoliamg

GANXIEFENXIANG

police0909

国产，都是垃圾。。。之前用来写写点网页，还行。
写个py。各种错误，各种过期代码。
还是GPT强悍，虽然不支持易语言，但是deepseek也一样垃圾，说是支持易语言，但只能写一些简单的代码，自带支持库。
写出来的代码，格式都不对。