鱼刺类_多线程 究极新手5分钟学会教学例程

KD飞飞

会看的看源码
不会看的下载源码
新手教学，大佬绕道

主要还是论坛里面没有专门写这个的新手 超简单教学 有也比较复杂
我重复造个轮子 给新手开路
简单理解就是我建个水池，把我手里鱼苗酷酷往里扔，
扔进去的是活鲤鱼，养着养着就死了翻肚子了，但是翻肚子这件事是独立完成的，就是鱼是鱼自己，他啥时候嘎巴死根本不用排队，完全就看自己啥时候想死~

单线程就是鱼排队死
多线程就是鱼并排一起死
线程池就是嘎巴一下让上万条鱼自己爱啥时候死啥时候死，我只负责下药

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
_线程操作	鱼刺类_线程操作		' 用来创建多个线程
_线程池	鱼刺类_线程池		用来创建池
文件组	文本型	0	存储位置
a	整数型

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

_线程操作.创建 (&主线程, , , , , , , , , )  ' 创建并运行一个主线程

子程序名	返回值类型	公开	备 注
主线程			激活主线程

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

如果真 (取数组成员数 (文件组) ＞ 0)
计次循环首 (取数组成员数 (文件组), ytre)
删除成员 (文件组, 1, )
计次循环尾 ()

' 上面这个程序是删空数组变量里的数组成员，确保每次点击都是空成员数组
文件_枚举 (取运行目录 () ＋ “\图片\”, “*.*”, 文件组, 真, , )  ' 取出这个文件夹下所有的文件路径
_线程池.创建 (取数组成员数 (文件组) ＋ 2, , , )  ' 创建对应数量的池子 用来容纳现成额外+2个是为了防止以外
计次循环首 (取数组成员数 (文件组), iss)  ' 投递任务，循环投递任务，你可以理解成 把任务扔到池子里
_线程池.投递任务 (&处理子程序, iss, )  ' 传递一个数字给到子程序用来做文件名字，也方便你知道每个被扔进去的现成叫啥名
计次循环尾 ()

子程序名	返回值类型	公开	备 注
处理子程序			' 用来批量改名的子程序
参数名	类 型	参考	可空	数组	备 注
定位文件	整数型				这个是任务号码的同时也是文件号码

变量名	类 型	静态	数组	备 注
随机后缀	文本型

置随机数种子 ()
随机后缀 ＝ 到文本 (取随机数 (0, 1000000))
' 为了防止重复文件名，给每个文件加一个随机后缀
文件更名 (文件组 [定位文件], 取运行目录 () ＋ “\图片\” ＋ 到文本 (定位文件) ＋ “-” ＋ 随机后缀 ＋ “.png”)  ' 在本目录下更改文件名字
a ＝ a ＋ 1  ' 其实这种计数方式不太好，不过凑合用吧
如果真 (a ＝ 取数组成员数 (文件组))  ' 判断是否更名结束
信息框 (“ok”, 0, , )

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

_线程操作.强制结束 ()  ' 没啥用

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 _线程操作, 鱼刺类_线程操作, , , ' 用来创建多个线程<br /> .程序集变量 _线程池, 鱼刺类_线程池, , , 用来创建池<br /> .程序集变量 文件组, 文本型, , "0", 存储位置<br /> .程序集变量 a, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> _线程操作.创建 (&主线程, , , , , , , , , )  ' 创建并运行一个主线程<br /> <br /> <br /> .子程序 主线程, , , 激活主线程<br /> .局部变量 iss, 整数型<br /> .局部变量 ytre, 整数型<br /> <br /> .如果真 (取数组成员数 (文件组) ＞ 0)<br />     .计次循环首 (取数组成员数 (文件组), ytre)<br />         删除成员 (文件组, 1, )<br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> ' 上面这个程序是删空数组变量里的数组成员，确保每次点击都是空成员数组<br /> <br /> 文件_枚举 (取运行目录 () ＋ “\图片\”, “*.*”, 文件组, 真, , )  ' 取出这个文件夹下所有的文件路径<br /> <br /> _线程池.创建 (取数组成员数 (文件组) ＋ 2, , , )  ' 创建对应数量的池子 用来容纳现成额外+2个是为了防止以外<br /> <br /> .计次循环首 (取数组成员数 (文件组), iss)  ' 投递任务，循环投递任务，你可以理解成 把任务扔到池子里<br />     _线程池.投递任务 (&处理子程序, iss, )  ' 传递一个数字给到子程序用来做文件名字，也方便你知道每个被扔进去的现成叫啥名<br /> .计次循环尾 ()<br /> <br /> .子程序 处理子程序, , , ' 用来批量改名的子程序<br /> .参数 定位文件, 整数型, , 这个是任务号码的同时也是文件号码<br /> .局部变量 随机后缀, 文本型<br /> <br /> <br /> 置随机数种子 ()<br /> 随机后缀 ＝ 到文本 (取随机数 (0, 1000000))<br /> ' 为了防止重复文件名，给每个文件加一个随机后缀<br /> <br /> 文件更名 (文件组 [定位文件], 取运行目录 () ＋ “\图片\” ＋ 到文本 (定位文件) ＋ “-” ＋ 随机后缀 ＋ “.png”)  ' 在本目录下更改文件名字<br /> <br /> a ＝ a ＋ 1  ' 其实这种计数方式不太好，不过凑合用吧<br /> <br /> .如果真 (a ＝ 取数组成员数 (文件组))  ' 判断是否更名结束<br />     信息框 (“ok”, 0, , )<br /> .如果真结束<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> _线程操作.强制结束 ()  ' 没啥用

半辈子

说得很形象，很有趣!!!

  

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

_线程操作.创建 (&主线程, , )

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

变量名	类 型	静态	数组	备 注
n	整数型
线程数	整数型
任务数	整数型

输出调试文本 (“任务开始”)
线程数 ＝ 5
_线程池.创建 (线程数, , , )
' -----
任务数 ＝ 100
计次循环首 (任务数, n)
_线程池.投递任务 (&处理子程序, n, )
计次循环尾 ()
' -----
判断循环首 (_线程池.取_是否完全空闲 () ＝ 假)
程序_延时 (100, 0)
判断循环尾 ()
输出调试文本 (“任务结束”)

子程序名	返回值类型	公开	备 注
处理子程序			' 用来批量改名的子程序
参数名	类 型	参考	可空	数组	备 注
序号	整数型				这个是任务号码的同时也是文件号码

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

输出调试文本 (“正在进行的任务：” ＋ 到文本 (序号))
' 具体处理任务
随机数 ＝ 取随机数 (1000, 3000)
程序_延时 (随机数, 0)
' ------

子程序名	返回值类型	公开	备 注
_按钮停止任务_被单击

_线程池.销毁 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> _线程操作.创建 (&主线程, , )<br /> <br /> .子程序 主线程, , , 主线程<br /> .局部变量 n, 整数型<br /> .局部变量 线程数, 整数型<br /> .局部变量 任务数, 整数型<br /> <br /> 输出调试文本 (“任务开始”)<br /> 线程数 ＝ 5<br /> _线程池.创建 (线程数, , , )<br /> ' -----<br /> 任务数 ＝ 100<br /> .计次循环首 (任务数, n)<br />     _线程池.投递任务 (&处理子程序, n, )<br /> .计次循环尾 ()<br /> ' -----<br /> .判断循环首 (_线程池.取_是否完全空闲 () ＝ 假)<br />     程序_延时 (100, 0)<br /> .判断循环尾 ()<br /> 输出调试文本 (“任务结束”)<br /> <br /> .子程序 处理子程序, , , ' 用来批量改名的子程序<br /> .参数 序号, 整数型, , 这个是任务号码的同时也是文件号码<br /> .局部变量 随机数, 整数型<br /> <br /> 输出调试文本 (“正在进行的任务：” ＋ 到文本 (序号))<br /> ' 具体处理任务<br /> 随机数 ＝ 取随机数 (1000, 3000)<br /> 程序_延时 (随机数, 0)<br /> ' ------<br /> <br /> .子程序 _按钮停止任务_被单击<br /> <br /> _线程池.销毁 ()

梨落

111111111111111111111

南风洵

真好，形象生动，一下理解了，执行顺序乱是不是因为没有创建许可，没有排队？

迷迭香

学习一下吧

asd2168972

谢谢，虽然没用过

kenan236

66666666666666666666666666666

yuzhong

11111111111111111111111111111111111111111

熊不熊

感谢分享，很给力！~

很安静

画画哈哈哈哈哈哈

半辈子

你不丑 发表于 2024-12-1 03:37
这个一次循环100个任务了 那线程数 是不是没起作用啊?

投递100个任务到线程池， 然后线程数（5）逐一执行，线程数我认为可以理解为并发数

你不丑

半辈子 发表于 2024-11-26 10:55
说得很形象，很有趣!!![e=0].版本 2

.子程序 _按钮1_被单击

这个一次循环100个任务了 那线程数 是不是没起作用啊?