精易模块 类_线程池1 数组错误 (已附修复好的代码)

微凉

BUG分析:
1.创建（），置线程数量（） 参数定义模糊,取值范围不精确。
2.对数组下标控制不严。
代码完善与修复：
1.删除 创建（），原因，在类的_初始化()中直接赋予线程池默认线程数10。
2.完善 置线程数量 （），原因,严格控制数组下标，让线程池的线程数量为大于0的正整数。
3.完善 变量的命名。原代码中，还有些无意义代码删除。
[e]
.版本 2

.程序集 线程池类
.程序集变量 线程池_线程总数量, 整数型
.程序集变量 线程池_句柄列表, 整数型, , "0"
.程序集变量 线程停止, 逻辑型

.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用

置线程数量 (10)

.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用



.子程序 置线程数量, , 公开, 动态控制线程池的线程数量
.参数 线程数量, 整数型, , 默认线程池量为 10

.如果真 (线程数量 ≤ 0)
    线程数量 ＝ 10
.如果真结束
线程池_线程总数量 ＝ 线程数量

.子程序 投递任务, 整数型, 公开, 往线程池中投递一个任务，返回线程句柄
.参数 函数, 子程序指针
.参数 参数, 整数型, 可空
.参数 超时, 整数型, 可空, 单位:毫秒 留空->无限等待
.局部变量 线程句柄, 整数型

.如果真 (线程停止)
    返回 (0)
.如果真结束

.如果真 (取数组成员数 (线程池_句柄列表) ＞ 线程池_线程总数量)  ' 如果 已经存在的线程句柄 多于 线程池_线程总数量,那么将等待第一条线程结束
    ' 以下代码极为坑爹。不过逻辑可以 先进先出原则。
    线程_等待 (线程池_句柄列表 [1], 超时)
    .如果真 (线程停止)
        返回 (0)
    .如果真结束

    .如果真 (超时 ≠ 0)
        TerminateThread (线程池_句柄列表 [1], 0)
    .如果真结束
    CloseHandle (线程池_句柄列表 [1])
    删除成员 (线程池_句柄列表, 1, )

.如果真结束
线程句柄 ＝ CreateThread (0, 0, 函数, 参数, 0, 0)
.如果真 (线程句柄 ≠ 0)
    加入成员 (线程池_句柄列表, 线程句柄)
.如果真结束

返回 (线程句柄)

.子程序 销毁, , 公开, 强制关闭所有线程(不推荐使用)
.局部变量 i, 整数型

线程停止 ＝ 真
.计次循环首 (取数组成员数 (线程池_句柄列表), i)
    .如果真 (线程池_句柄列表 ≠ 0)
        TerminateThread (线程池_句柄列表 , 0)
        CloseHandle (线程池_句柄列表 )
        线程池_句柄列表 ＝ 0
    .如果真结束

.计次循环尾 ()

.子程序 暂停, , 公开, 暂停所有线程
.局部变量 i, 整数型

线程停止 ＝ 真
.计次循环首 (取数组成员数 (线程池_句柄列表), i)
    .如果真 (线程池_句柄列表 ≠ 0)
        SuspendThread (线程池_句柄列表 )
    .如果真结束

.计次循环尾 ()

.子程序 恢复, , 公开, 恢复所有线程
.局部变量 i, 整数型

线程停止 ＝ 假
.计次循环首 (取数组成员数 (线程池_句柄列表), i)
    .如果真 (线程池_句柄列表 ≠ 0)
        ResumeThread (线程池_句柄列表 )
    .如果真结束

.计次循环尾 ()

.子程序 线程_等待, 逻辑型
.参数 线程句柄, 整数型
.参数 超时, 整数型, 可空, 留空，则无限等待
.局部变量 ret, 整数型
.局部变量 时间, 整数型

.如果真 (超时 ＝ 0)
    超时 ＝ -1
.如果真结束
时间 ＝ 取启动时间 ()
.循环判断首 ()
    .如果真 (线程停止)
        返回 (假)
    .如果真结束
    ret ＝ MsgWaitForMultipleObjects (1, 线程句柄, 假, 超时, 1215)
    .如果真 (超时 ≠ -1)
        .如果真 (取启动时间 () － 时间 ≥ 超时)
            ret ＝ 258
        .如果真结束

    .如果真结束
    处理事件 ()
.循环判断尾 (ret ≠ 0 且 ret ≠ 258)
返回 (ret ＝ 0)

[/e]

liluun

从来没有看见楼主这么好的人！

素顏じ亦傾國ジ

貌似很牛B的样子，现在对线程池还不是很懂，只能膜拜之。。