学习多线程一个简单例子

调试输出 (“分配子程序接受任务数:” ＋ 到文本 (表项数) ＋ “-开始分配任务-当前线程分配:” ＋ 编辑框1.内容)
集_线程数 ＝ 到整数 (编辑框1.内容)
.如果真 (集_线程数 ＝ 0)
集_线程数 ＝ 1
.如果真结束
清除数组 (集_句柄)
集_当前任务 ＝ 0
.循环判断首 ()
.如果真 (集_当前线程 ＜ 集_线程数)
集_当前任务 ＝ 集_当前任务 ＋ 1
集_当前线程 ＝ 集_当前线程 ＋ 1
进度条1.位置 ＝ 集_当前任务 ÷ 表项数 × 100
临时句柄 ＝ 创建线程 (0, 0, &计算, 临时句柄, 0, 临时句柄)
.如果真结束
.如果真 (集_当前任务 ≥ 表项数)
跳出循环 ()
.如果真结束
延时_ (20)
.循环判断尾 (真)
启动线程 (&结束, , )
调试输出 (“处理” ＋ 到文本 (表项数) ＋ “条数据；共计执行:” ＋ 到文本 (集_执行次数) ＋ “次；耗时:” ＋ 到文本 (取整 ((取启动时间 () － 集_启动时间) ÷ 1000)) ＋ “秒---ps:线挂起也计算”)