窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_窗口1 | | | | 变量名 | 类 型 | 数组 | 备 注 | 线程池 | 鱼刺类_线程池Ex | | 启动线程 (&主线程, , )变量名 | 类 型 | 静态 | 数组 | 备 注 | 总任务数 | 整数型 | | | 并发线程 | 整数型 | | | 当前任务数 | 整数型 | | | n | 整数型 | | | 空闲数 | 整数型 | | | 如果真 (编辑框_总任务.内容 = “”)信息框 (“请输入总任务数”, 64, , )返回 ()如果真 (编辑框_线程.内容 = “”)信息框 (“请输入并发线程数”, 64, , )返回 ()超级列表框1.全部删除 ()按钮_开始.禁止 = 真 总任务数 = 到整数 (编辑框_总任务.内容 )并发线程 = 到整数 (编辑框_线程.内容 )当前任务数 = 总任务数 如果真 (取反 (线程池. 创建 (并发线程, 并发线程, )) )信息框 (“线程池创建失败!”, 64, , )返回 ()判断循环首 (n < 总任务数 )空闲数 = 线程池. 取_空闲线程数 ()如果真 (空闲数 > 0 )当前任务数 = 总任务数 - n 如果真 (当前任务数 > 空闲数 )当前任务数 = 空闲数 计次循环首 (当前任务数, )n = n + 1 超级列表框1. 插入表项 (-1, 到文本 (n ), , , , )超级列表框1. 保证显示 (n - 1 )线程池. 投递任务 (&子线程, n )计次循环尾 ()线程池.等待任务动态 ()判断循环尾 ()判断循环首 (线程池. 取_是否有空闲 () = 假)如果真 (线程池. 取_状态 () ≠ #线程池_正在工作 )跳出循环 ()线程池.等待任务动态 (100)判断循环尾 ()线程池. 销毁 ()按钮_开始.禁止 = 假 信息框 (“运行完毕!”, 64, , )变量名 | 类 型 | 静态 | 数组 | 备 注 | 索引 | 整数型 | | | 状态码 | 整数型 | | |
状态码 = 访问百du ()索引 = n - 1 超级列表框1. 置标题 (索引, 1, 到文本 (状态码 )) 网页_访问_对象 (“https://www.baidu.com/”, , , , , , , 状态码, , , , , , , , , )返回 (状态码 )线程池. 销毁 (0, )按钮_开始.禁止 = 假
|