| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | |||
| 变量名 | 类 型 | 数组 | 备 注 |
| 许可证 | 整数型 | ||
| 是否运行 | 逻辑型 | ||
| 数据缓存 | 文本型 | 0 | |
| 线程池 | 整数型 | 0 | |
| 线程数量 | 整数型 | ||
| 队列最大值 | 整数型 |
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| __启动窗口_创建完毕 | |||||
许可证 ＝ 创建进入许可证 ()
' 设置初始状态
是否运行 ＝ 假
按钮_停止.禁止 ＝ 真
队列最大值 ＝ 1000
线程数量 ＝ 到整数 (编辑框1.内容)
重定义数组 (线程池, 假, 线程数量)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮_启动_被单击 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| i | 整数型 | |||||
如果真 (到整数 (编辑框1.内容) ≤ 0)
信息框 (“线程数量必须大于0”, 0, “温馨提示”, )返回 ()
线程数量 ＝ 到整数 (编辑框1.内容)
是否运行 ＝ 真
按钮_启动.禁止 ＝ 真
按钮_停止.禁止 ＝ 假
时钟_刷新.时钟周期 ＝ 50
重定义数组 (线程池, 假, 线程数量)
标签_状态.标题 ＝ “线程状态：已启动”
计次循环首 (线程数量, i)线程池 [i] ＝ 线程_启动 (&数据生成线程)
计次循环尾 ()线程_sum.标题 ＝ 到文本 (取数组成员数 (线程池))
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮_停止_被单击 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| i | 整数型 | |||||
按钮_启动.禁止 ＝ 假
按钮_停止.禁止 ＝ 真
时钟_刷新.时钟周期 ＝ 0
标签_状态.标题 ＝ “线程状态：已停止”
计次循环首 (线程数量, i)线程_等待 (线程池 [i], 500)计次循环尾 ()| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 数据生成线程 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 数据生成 | 文本型 | |||||
判断循环首 (是否运行) ' 生成模拟数据数据生成 ＝ 到文本 (取现行时间 ()) ＋ “|” ＋ 到文本 (取随机数 (1, 1000))进入许可区 (许可证)如果真 (取数组成员数 (数据缓存) ≥ 队列最大值)删除成员 (数据缓存, 1, 500)加入成员 (数据缓存, 数据生成)退出许可区 (许可证) ' 非阻塞延时（精易模块）程序_延时 (20)判断循环尾 ()| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _时钟_刷新_周期事件 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 临时数据 | 文本型 | 0 | ||||
| 分割数据 | 文本型 | 0 | ||||
| 索引 | 整数型 | |||||
| i | 整数型 | |||||
如果真 (取数组成员数 (数据缓存) ＞ 0)复制数组 (临时数据, 数据缓存)清除数组 (数据缓存) ' 安全清空原数据退出许可区 (许可证)
' 批量插入到超级列表框
' 超级列表框_数据展示.禁止重画 () ' 禁止刷新提高性能
计次循环首 (取数组成员数 (临时数据), i)分割数据 ＝ 分割文本 (临时数据 [i], “|”, )如果真 (取数组成员数 (分割数据) ＝ 2)索引 ＝ 超级列表框_数据展示.插入表项 (-1, , , , , )超级列表框_数据展示.置标题 (索引, 0, 到文本 (超级列表框_数据展示.取表项数 ()))超级列表框_数据展示.置标题 (索引, 1, 分割数据 [1]) ' 数据值计次循环尾 ()' 超级列表框_数据展示.允许重画 ()
超级列表框_数据展示.保证显示 (超级列表框_数据展示.取表项数 () － 1) ' 自动滚动
标签_显示数据.标题 ＝ 到文本 (超级列表框_数据展示.取表项数 ())
' 强制界面刷新
处理事件 ()
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| __启动窗口_将被销毁 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| i | 整数型 | |||||
计次循环首 (线程数量, i)线程_销毁 (线程池 [i])计次循环尾 ()删除进入许可证 (许可证)
| i支持库列表 | 支持库注释 |
| EThread | 多线程支持库 |
| iext | 扩展界面支持库一 |
