多线程 怎么判断宽带重拨

超级大懒虫

  

子程序名	返回值类型	公开	备 注
子程序_总线程

变量名	类 型	静态	数组	备 注
jb	整数型
k	整数型
bh	整数型
y	整数型
jbsz	整数型		0
k1	整数型

bh ＝ 10  ' 这里设置 多少 后拨号
重定义数组 (jbsz, 假, bh)  ' 用于存放线程句柄，后期用于检测线程是否运行完毕
计次循环首 (100, k)
y ＝ y ＋ 1
启动线程 (&子程序_子线程, k, jbsz [y])
如果真 (y ≥ bh)  ' 达到拨号标准、准备拨号工作
计次循环首 (y, k1)
等待线程 (jbsz [k1], 5000)
关闭线程句柄 (jbsz [1])
计次循环尾 ()
' 所有线程运行完毕后，开始拨号
子程序_拨号 ()
y ＝ 0

计次循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .子程序 子程序_总线程<br /> .局部变量 jb, 整数型<br /> .局部变量 k, 整数型<br /> .局部变量 bh, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 jbsz, 整数型, , "0"<br /> .局部变量 k1, 整数型<br /> <br /> <br /> bh ＝ 10  ' 这里设置 多少 后拨号<br /> <br /> 重定义数组 (jbsz, 假, bh)  ' 用于存放线程句柄，后期用于检测线程是否运行完毕<br /> .计次循环首 (100, k)<br />     y ＝ y ＋ 1<br />     启动线程 (&子程序_子线程, k, jbsz [y])<br />     .如果真 (y ≥ bh)  ' 达到拨号标准、准备拨号工作<br />         .计次循环首 (y, k1)<br />             等待线程 (jbsz [k1], 5000)<br />             关闭线程句柄 (jbsz [1])<br />         .计次循环尾 ()<br />         ' 所有线程运行完毕后，开始拨号<br />         子程序_拨号 ()<br />         y ＝ 0<br />     .如果真结束<br /> <br /> .计次循环尾 ()

上下左右空格

冥魂 发表于 2014-9-15 22:38
[e=6].版本 2
.支持库 EThread

不是用启动线程写的。。。用的是精英模块里的线程池


可以用“等待线程”么
等待线程 (jbsz [k1], 5000)
关闭线程句柄 (jbsz [1])

上下左右空格

milest 发表于 2014-9-15 22:26
在工作的子程序里，执行一个累计一次
最近我也写这个呢 刚解决

拨号前怎么判断其他的线程都完成了呢