关于多线程问题

往事如风0

目标1000 工作完变成1000多了  求助大佬





补充内容 (2024-3-17 09:32):
.版本 2
.支持库 EThread
.支持库 spec

.程序集变量 许可证, 整数型

.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型

许可证 ＝ 创建进入许可证 ()
b ＝ 1000
.计次循环首 (51, i)
    启动线程 (&Ma1, i, )
    延时 (10)
.计次循环尾 ()

.子程序 Ma1
.参数 i, 整数型
.局部变量 my, 整数型
.局部变量 c, 整数型

置随机数种子 ()
.判断循环首 (a ＜ b)
    c ＝ c ＋ 1
    my ＝ 取随机数 (1, 10)
    .如果真 (my ＝ 1)
        进入许可区 (许可证)
        a ＝ a ＋ 取随机数 (10, 51)
        退出许可区 (许可证)
    .如果真结束
    调试输出 (a)
    延时 (500)
    处理事件 ()
.判断循环尾 ()
调试输出 (a, i, c)

pnccm

你叠加的随机数范围太大 除非你取随机数的范围小一点 比如取随机数(1,5) 再在下面加个判断a的值是否大于1000

  

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

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

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

许可证 ＝ 创建进入许可证 ()
b ＝ 1000
a ＝ 900  ' 这里a=900是为了尽快出测试结果
计次循环首 (51, i)
启动线程 (&Ma1, i, )
延时 (10)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
Ma1
参数名	类 型	参考	可空	数组	备 注
i	整数型

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

置随机数种子 ()
判断循环首 (a ＜ b)
c ＝ c ＋ 1
my ＝ 取随机数 (1, 10)
如果真 (my ＝ 1)
' 进入许可区 (许可证)
a ＝ a ＋ 取随机数 (1, 5)  ' 这里改小取随机数的范围
如果真 (a ＞ 1000)  ' 这里判断a超出1000就减掉10  重新取个随机数知道叠加后是1000
a ＝ a － 10
' 退出许可区 (许可证)
调试输出 (a)
延时 (500)
处理事件 ()
判断循环尾 ()
调试输出 (a, i, c)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 许可证, 整数型<br /> .程序集变量 b, 整数型<br /> .程序集变量 a, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> <br /> 许可证 ＝ 创建进入许可证 ()<br /> b ＝ 1000<br /> a ＝ 900  ' 这里a=900是为了尽快出测试结果<br /> .计次循环首 (51, i)<br />     启动线程 (&Ma1, i, )<br />     延时 (10)<br /> .计次循环尾 ()<br /> <br /> .子程序 Ma1<br /> .参数 i, 整数型<br /> .局部变量 my, 整数型<br /> .局部变量 c, 整数型<br /> <br /> 置随机数种子 ()<br /> .判断循环首 (a ＜ b)<br />     c ＝ c ＋ 1<br />     my ＝ 取随机数 (1, 10)<br />     .如果真 (my ＝ 1)<br />         ' 进入许可区 (许可证)<br />         a ＝ a ＋ 取随机数 (1, 5)  ' 这里改小取随机数的范围<br />         .如果真 (a ＞ 1000)  ' 这里判断a超出1000就减掉10  重新取个随机数知道叠加后是1000<br />             a ＝ a － 10<br />         .如果真结束<br />         ' 退出许可区 (许可证)<br />     .如果真结束<br />     调试输出 (a)<br />     延时 (500)<br />     处理事件 ()<br /> .判断循环尾 ()<br /> 调试输出 (a, i, c)

往事如风0

测试.e (3.04 KB, 下载次数: 4)

2024-3-17 09:32 上传

点击文件名下载附件

zz1318

随机数啊   每次加10到51  =1000的几率太低了

补充内容 (2024-3-17 09:41):
而你的条件又是 小于1000才循环  

zz1318

改成

随机数 ＝ 取随机数 (1, 51)
a ＝ a ＋ 随机数
如果真 (a ＞ b) ‘大于1000
a ＝ a － 随机数

冯古屋

你调试输出的不是a吗？

往事如风0

zz1318 发表于 2024-3-17 09:46
改成

随机数 ＝ 取随机数 (1, 51)

改完死循环了。。。

zz1318

往事如风0 发表于 2024-3-17 10:24
改完死循环了。。。

你看你改的和我前面发的一样吗

pnccm

关键原因在于你a=a+取随机数(10,52)  举个例子当你a达到970的时候 你加多一个取的随机数是51 那么970+51=1021 那么 a>b就跳出循环走到下面的 调试输出(a,i,c)那最终结果肯定是超出1000的极小的概率会符合1000跳出除非走到970的时候刚好取的随机数是30 那么就刚好一千

luguidong2018

快速刷分中