马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
- 空间 多线程控制
- var 线程句柄,运行行数,对象句柄,开启线程数量,
- 运行行数 = 1
- 线程数量 = 0
- 功能 加法运算()
- 线程.进入临界区(对象句柄)
- 调试输出("线程数量 :"&线程数量)
- var a ,b,内容
- 内容=表格.获得内容("表格0",运行行数,1)
- 加数= 字符串.截取(内容,0,4)
- 被加数=字符串.截取(内容,5,9)
- 结果= 加数+被加数
- 表格.设置内容("表格0",运行行数,2,结果)
- 运行行数= 运行行数+1
- 调试输出(结果)
- 调试输出("运行行数 :"&运行行数)
- 调试输出("线程数量 :"&线程数量)
- 线程数量=线程数量-1
- 线程.离开临界区(对象句柄)
-
- 功能结束
- 功能 计算开始()
- 开启线程数量 = 编辑框.获得文本("编辑框0")
- 循环(真)
- 如果(线程数量<开启线程数量&&运行行数!=500)
- 线程.开启("多线程控制.加法运算","")
- 线程数量=线程数量+1
- 如果结束
- 循环结束
-
-
- 功能结束
- 功能 开始_点击()
-
- 对象句柄=线程.创建临界区()
- 线程.开启("多线程控制.计算开始","")
-
- 功能结束
- 功能 退出_点击()
-
- 线程.删除临界区(对象句柄)
-
- 辅助.退出()
-
- 功能结束
- 功能 初始化()
复制代码
|