关于鱼刺多线程的基础规范请大神优化一下

zhangsansan

  

子程序名	返回值类型	公开	备 注
_按钮_检测用户名_被单击

变量名	类 型	静态	数组	备 注
任务总数	整数型
线程数	整数型
任务id	整数型
创建状态	逻辑型
可用线程	整数型.程序集变量 线程池类

_存在数 ＝ 0
_不存在数 ＝ 0
线程数 ＝ 到整数 (编辑框_线程数.内容)
任务总数 ＝ 取数组成员数 (_数据)
判断 (任务总数 ＝ 0)
编辑框_日志.加入文本 (到文本 (时间_取北京时间 ()) ＋ “|” ＋ “没有任务” ＋ #换行符 )
返回 ()
判断 (线程数 ＞ 任务总数)
线程数 ＝ 任务总数



创建状态 ＝ 线程池类.创建 (线程数, 线程数, , 真)
判断 (创建状态 ＝ 假)
编辑框_日志.加入文本 (到文本 (时间_取北京时间 ()) ＋ “|” ＋ “线程创建失败” ＋ #换行符 )
按钮_检测用户名.禁止 ＝ 假
返回 ()
编辑框_日志.加入文本 (到文本 (时间_取北京时间 ()) ＋ “|” ＋ “线程创建成功,线程数:” ＋ 到文本 (线程数) ＋ #换行符 )
按钮_检测用户名.禁止 ＝ 真

任务id ＝ 0
判断循环首 (任务id ＜ 任务总数)
可用线程 ＝ 线程池类.取_空闲线程数 ()
判断循环首 (可用线程 ＝ 0)
如果 (线程池类.取_状态 () ≠ 1)
返回 ()
程序_延时 (20)
可用线程 ＝ 线程池类.取_空闲线程数 ()

判断循环尾 ()
计次循环首 (可用线程, )
线程池类.投递任务 (&投递的任务, 任务id, )
原子_递增 (任务id)
程序_延时 (20)
计次循环尾 ()
程序_延时 (20)
判断循环尾 ()
线程池类.等待任务动态 ()
判断循环首 (线程池类.取_是否空闲 () ＝ 假)
如果真 (线程池类.取_状态 () ≠ 1)
返回 ()
程序_延时 (500)
判断循环尾 ()
线程池类.销毁 (0, , 真)
按钮_检测用户名.禁止 ＝ 假
编辑框_日志.加入文本 (到文本 (时间_取北京时间 ()) ＋ “|” ＋ “任务结束” ＋ #换行符 )
信息框 (“用户名检测完了”, 0, , )

.版本 2<br /> <br /> <br /> <br /> .子程序 _按钮_检测用户名_被单击<br /> .局部变量 任务总数, 整数型<br /> .局部变量 线程数, 整数型<br /> .局部变量 任务id, 整数型<br /> .局部变量 创建状态, 逻辑型<br /> .局部变量 可用线程, 整数型.程序集变量 线程池类, 鱼刺类_线程池Ex<br /> <br /> <br /> <br /> _存在数 ＝ 0<br /> _不存在数 ＝ 0<br /> <br /> 线程数 ＝ 到整数 (编辑框_线程数.内容)<br /> 任务总数 ＝ 取数组成员数 (_数据)<br /> .判断开始 (任务总数 ＝ 0)<br />     编辑框_日志.加入文本 (到文本 (时间_取北京时间 ()) ＋ “|” ＋ “没有任务” ＋ #换行符)<br />     返回 ()<br /> .判断 (线程数 ＞ 任务总数)<br />     线程数 ＝ 任务总数<br /> .默认<br /> <br /> .判断结束<br /> <br /> 创建状态 ＝ 线程池类.创建 (线程数, 线程数, , 真)<br /> .判断开始 (创建状态 ＝ 假)<br />     编辑框_日志.加入文本 (到文本 (时间_取北京时间 ()) ＋ “|” ＋ “线程创建失败” ＋ #换行符)<br />     按钮_检测用户名.禁止 ＝ 假<br />     返回 ()<br /> .默认<br />     编辑框_日志.加入文本 (到文本 (时间_取北京时间 ()) ＋ “|” ＋ “线程创建成功,线程数:” ＋ 到文本 (线程数) ＋ #换行符)<br />     按钮_检测用户名.禁止 ＝ 真<br /> <br /> .判断结束<br /> <br /> 任务id ＝ 0<br /> .判断循环首 (任务id ＜ 任务总数)<br />     可用线程 ＝ 线程池类.取_空闲线程数 ()<br />     .判断循环首 (可用线程 ＝ 0)<br />         .如果 (线程池类.取_状态 () ≠ 1)<br />             返回 ()<br />         .否则<br />             程序_延时 (20)<br />             可用线程 ＝ 线程池类.取_空闲线程数 ()<br />         .如果结束<br /> <br />     .判断循环尾 ()<br />     .计次循环首 (可用线程, )<br />         线程池类.投递任务 (&投递的任务, 任务id, )<br />         原子_递增 (任务id)<br />         程序_延时 (20)<br />     .计次循环尾 ()<br />     程序_延时 (20)<br /> .判断循环尾 ()<br /> 线程池类.等待任务动态 ()<br /> .判断循环首 (线程池类.取_是否空闲 () ＝ 假)<br />     .如果真 (线程池类.取_状态 () ≠ 1)<br />         返回 ()<br />     .如果真结束<br />     程序_延时 (500)<br /> .判断循环尾 ()<br /> 线程池类.销毁 (0, , 真)<br /> 按钮_检测用户名.禁止 ＝ 假<br /> 编辑框_日志.加入文本 (到文本 (时间_取北京时间 ()) ＋ “|” ＋ “任务结束” ＋ #换行符)<br /> 信息框 (“用户名检测完了”, 0, , )

大神优化一下