多线程经典案例学习

weiyongbo

可以了解许可区的使用
大致了解线程是什么，
如何启动多条线程进行运算。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
许可证	线程许可证

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
i	整数型
表项索引	整数型

计次循环首 (100, i)
表项索引 ＝ 超级列表框1.插入表项 (i － 1, 到文本 (i), , , , )
超级列表框1.置标题 (表项索引, 1, 到文本 (i))
超级列表框1.置标题 (表项索引, 3, 到文本 (i))
计次循环尾 ()
许可证 ＝ 线程_创建许可证 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (超级列表框1.取表项数 (), i)
线程_启动 (&求和单元, i, )
线程_启动 (&求乘单元, i)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
求和单元
参数名	类 型	参考	可空	数组	备 注
参数一	整数型

变量名	类 型	静态	数组	备 注
i	整数型
A	整数型
B	整数型
c	整数型

' 调试输出 (“启动了第” ＋ 到文本 (参数一) ＋ “个线程”)
线程_进入许可区 (许可证)
A ＝ 到整数 (超级列表框1.取标题 (参数一 － 1, 0))
B ＝ 到整数 (超级列表框1.取标题 (参数一 － 1, 1))
c ＝ A ＋ B
超级列表框1.置标题 (参数一 － 1, 2, 到文本 (c))
线程_退出许可区 (许可证)
延时 (100)

子程序名	返回值类型	公开	备 注
求乘单元
参数名	类 型	参考	可空	数组	备 注
参数一	整数型
i	整数型
A	整数型
B	整数型
c	整数型

' 调试输出 (“启动了第” ＋ 到文本 (参数一) ＋ “个线程”)
线程_进入许可区 (许可证)
A ＝ 到整数 (超级列表框1.取标题 (参数一 － 1, 2))
B ＝ 到整数 (超级列表框1.取标题 (参数一 － 1, 3))
调试输出 (A)
调试输出 (B)
c ＝ A × B
超级列表框1.置标题 (参数一 － 1, 4, 到文本 (c))
线程_退出许可区 (许可证)

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 许可证, 线程许可证<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> .局部变量 表项索引, 整数型<br /> <br /> .计次循环首 (100, i)<br />     表项索引 ＝ 超级列表框1.插入表项 (i － 1, 到文本 (i), , , , )<br />     超级列表框1.置标题 (表项索引, 1, 到文本 (i))<br />     超级列表框1.置标题 (表项索引, 3, 到文本 (i))<br /> .计次循环尾 ()<br /> 许可证 ＝ 线程_创建许可证 ()<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     线程_启动 (&求和单元, i, )<br />     线程_启动 (&求乘单元, i)<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> <br /> .子程序 求和单元<br /> .参数 参数一, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 A, 整数型<br /> .局部变量 B, 整数型<br /> .局部变量 c, 整数型<br /> <br /> ' 调试输出 (“启动了第” ＋ 到文本 (参数一) ＋ “个线程”)<br /> 线程_进入许可区 (许可证)<br /> A ＝ 到整数 (超级列表框1.取标题 (参数一 － 1, 0))<br /> B ＝ 到整数 (超级列表框1.取标题 (参数一 － 1, 1))<br /> c ＝ A ＋ B<br /> 超级列表框1.置标题 (参数一 － 1, 2, 到文本 (c))<br /> 线程_退出许可区 (许可证)<br /> 延时 (100)<br /> <br /> .子程序 求乘单元<br /> .参数 参数一, 整数型<br /> .参数 i, 整数型<br /> .参数 A, 整数型<br /> .参数 B, 整数型<br /> .参数 c, 整数型<br /> <br /> ' 调试输出 (“启动了第” ＋ 到文本 (参数一) ＋ “个线程”)<br /> 线程_进入许可区 (许可证)<br /> A ＝ 到整数 (超级列表框1.取标题 (参数一 － 1, 2))<br /> B ＝ 到整数 (超级列表框1.取标题 (参数一 － 1, 3))<br /> 调试输出 (A)<br /> 调试输出 (B)<br /> c ＝ A × B<br /> 超级列表框1.置标题 (参数一 － 1, 4, 到文本 (c))<br /> 线程_退出许可区 (许可证)

littleplus

学习下，谢谢，多线程总是搞不好

白天很傻很天真

q517226994 发表于 2020-8-19 11:14
用了那么多年的列表框 , 听你说完我才知道  原来多线程只要别同时操作一个格子就可以了 ? 我一直以为只有 ...

加法 写到一列，乘法写到一列。你加不加锁有什么区别。永远不可能两个数据写到同一个位置，读更不影响。

影响的是界面本身，不建议线程中操作界面，你加了锁也一样是线程操作界面，所以不明白他加锁的意义何在

♂隐

看不懂呢~？

q517226994

白天很傻很天真 发表于 2020-8-6 10:42
为什么要加许可证？要操作的又不是同一个行，加法乘法 也不是同一列啊。
你要说对界面有影响，本身就不建 ...

用了那么多年的列表框 , 听你说完我才知道  原来多线程只要别同时操作一个格子就可以了 ? 我一直以为只有一个线程可以操作列表 ,........

前程0102

真的长知识了感谢大佬

超级大懒虫

还经典案例，

笔迹

没看懂。。我还是习惯用任务投递。

荒年的小白菜

看不懂

a897887419

这种没感觉快到哪里去