[例程]任务分块多线程执行(线程数决定分块大小)

空竹

小白拿去玩吧...大神请飘过...

  

变量名	类 型	静态	数组	备 注
sum	整数型
a	整数型
b	整数型
n	整数型
first	整数型
last	整数型
线程数	整数型

sum ＝ 订单数
线程数 ＝ 到整数 (编辑框9.内容)
a ＝ sum ÷ 线程数
如果真 (a ＝ 0)
信息框 (“线程数大于订单数!请减少线程数。”, 16, , )
返回 ()
b ＝ sum ％ 线程数
计次循环首 (线程数, n)
first ＝ 1 + (n － 1) × a
如果 (n ＝ 线程数)
last ＝ last ＋ b
last ＝ n × a
线程_启动多参_整数型 (&工作线程, first, last, , , , )
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 sum, 整数型<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 first, 整数型<br /> .局部变量 last, 整数型<br /> .局部变量 线程数, 整数型<br /> <br /> sum ＝ 订单数<br /> 线程数 ＝ 到整数 (编辑框9.内容)<br /> a ＝ sum ÷ 线程数<br /> .如果真 (a ＝ 0)<br />     信息框 (“线程数大于订单数!请减少线程数。”, 16, , )<br />     返回 ()<br /> .如果真结束<br /> b ＝ sum ％ 线程数<br /> <br /> .计次循环首 (线程数, n)<br />     first ＝ 1 + (n － 1) × a<br /> <br />     .如果 (n ＝ 线程数)<br />         last ＝ last ＋ b<br />     .否则<br />         last ＝ n × a<br /> <br /> <br />     线程_启动多参_整数型 (&工作线程, first, last, , , , )<br /> <br /> .计次循环尾 ()

来自群组: 热心网友

jonathanwen

6666666666666666666666666666666

duisir

666666666666666666666666666666666666666

515667395

多谢分享

lcx1212

论坛有你更精彩

yuzhong

1111111111111111111111111111111111111111

yuzhong

11111111111111111111

glr9107

感谢分享

wangwi39421

任务分块多线程执行

Conquer

论坛有你更精彩

sanclyj

任务分块多线程执行