多个线程同时公用一个计算的子程序报错，求解答

oulin130

如图：单独线程运行，没任何问题，同时运行多个线程，就会报错。会不会是他们相互干扰了。求大神解答下，不胜感激

传奇第二个号

代码错了，我我们线程取60个网也源码内的数值到数据库也没报错

流星暴雨

问问题记得上传代码

q2051376435

代码发上来啊……

oulin130

传奇第二个号 发表于 2020-8-8 02:01
代码错了，我我们线程取60个网也源码内的数值到数据库也没报错

.版本 2

.如果真 (选择框第一名.选中 ＝ 真)
    .如果 (线程_启动 (&第一名, , 第一句柄) ＝ 0)
        信息框 (“运行失败”, 0, , )
    .否则
        运行线程 ＝ 运行线程 ＋ 1
    .如果结束

.如果真结束
.如果真 (选择框第二名.选中 ＝ 真)
    .如果 (线程_启动 (&第二名, , 第二句柄) ＝ 0)
        信息框 (“运行失败”, 0, , )
    .否则
        运行线程 ＝ 运行线程 ＋ 1
    .如果结束

.如果真结束
.如果真 (选择框第三名.选中 ＝ 真)
    .如果 (线程_启动 (&第三名, , 第三句柄) ＝ 0)
        信息框 (“运行失败”, 0, , )
    .否则
        运行线程 ＝ 运行线程 ＋ 1
    .如果结束

.如果真结束
.如果真 (选择框第四名.选中 ＝ 真)
    .如果 (线程_启动 (&第四名, , 第四句柄) ＝ 0)
        信息框 (“运行失败”, 0, , )
    .否则
        运行线程 ＝ 运行线程 ＋ 1
    .如果结束

.如果真结束
.如果真 (选择框第五名.选中 ＝ 真)
    .如果 (线程_启动 (&第五名, , 第五句柄) ＝ 0)
        信息框 (“运行失败”, 0, , )
    .否则
        运行线程 ＝ 运行线程 ＋ 1
    .如果结束

.如果真结束
.如果真 (选择框第六名.选中 ＝ 真)
    .如果 (线程_启动 (&第六名, , 第六句柄) ＝ 0)
        信息框 (“运行失败”, 0, , )
    .否则
        运行线程 ＝ 运行线程 ＋ 1
    .如果结束

.如果真结束
.如果真 (选择框第七名.选中 ＝ 真)
    .如果 (线程_启动 (&第七名, , 第七句柄) ＝ 0)
        信息框 (“运行失败”, 0, , )
    .否则
        运行线程 ＝ 运行线程 ＋ 1
    .如果结束

.如果真结束
.如果真 (选择框第八名.选中 ＝ 真)
    .如果 (线程_启动 (&第八名, , 第八句柄) ＝ 0)
        信息框 (“运行失败”, 0, , )
    .否则
        运行线程 ＝ 运行线程 ＋ 1
    .如果结束

.如果真结束
.如果真 (选择框第九名.选中 ＝ 真)
    .如果 (线程_启动 (&第九名, , 第九句柄) ＝ 0)
        信息框 (“运行失败”, 0, , )
    .否则
        运行线程 ＝ 运行线程 ＋ 1
    .如果结束

.如果真结束
.如果真 (选择框第十名.选中 ＝ 真)
    .如果 (线程_启动 (&第十名, , 第十句柄) ＝ 0)
        信息框 (“运行失败”, 0, , )
    .否则
        运行线程 ＝ 运行线程 ＋ 1

oulin130

q2051376435 发表于 2020-8-8 08:20
代码发上来啊……

.版本 2

.如果真 (选择框第一名.选中 ＝ 真)
    .如果 (线程_启动 (&第一名, , 第一句柄) ＝ 0)
        信息框 (“运行失败”, 0, , )
    .否则
        运行线程 ＝ 运行线程 ＋ 1
    .如果结束

.如果真结束
.如果真 (选择框第二名.选中 ＝ 真)
    .如果 (线程_启动 (&第二名, , 第二句柄) ＝ 0)
        信息框 (“运行失败”, 0, , )
    .否则
        运行线程 ＝ 运行线程 ＋ 1
    .如果结束

.如果真结束
.如果真 (选择框第三名.选中 ＝ 真)
    .如果 (线程_启动 (&第三名, , 第三句柄) ＝ 0)
        信息框 (“运行失败”, 0, , )
    .否则
        运行线程 ＝ 运行线程 ＋ 1
    .如果结束

.如果真结束
.如果真 (选择框第四名.选中 ＝ 真)
    .如果 (线程_启动 (&第四名, , 第四句柄) ＝ 0)
        信息框 (“运行失败”, 0, , )
    .否则
        运行线程 ＝ 运行线程 ＋ 1
    .如果结束

.如果真结束
.如果真 (选择框第五名.选中 ＝ 真)
    .如果 (线程_启动 (&第五名, , 第五句柄) ＝ 0)
        信息框 (“运行失败”, 0, , )
    .否则
        运行线程 ＝ 运行线程 ＋ 1

oulin130

流星暴雨 发表于 2020-8-8 02:39
问问题记得上传代码

.版本 2

.如果真 (选择框第一名.选中 ＝ 真)
    .如果 (线程_启动 (&第一名, , 第一句柄) ＝ 0)
        信息框 (“运行失败”, 0, , )
    .否则
        运行线程 ＝ 运行线程 ＋ 1
    .如果结束

.如果真结束
.如果真 (选择框第二名.选中 ＝ 真)
    .如果 (线程_启动 (&第二名, , 第二句柄) ＝ 0)
        信息框 (“运行失败”, 0, , )
    .否则
        运行线程 ＝ 运行线程 ＋ 1
    .如果结束

.如果真结束
.如果真 (选择框第三名.选中 ＝ 真)
    .如果 (线程_启动 (&第三名, , 第三句柄) ＝ 0)
        信息框 (“运行失败”, 0, , )
    .否则
        运行线程 ＝ 运行线程 ＋ 1
    .如果结束

.如果真结束
.如果真 (选择框第四名.选中 ＝ 真)
    .如果 (线程_启动 (&第四名, , 第四句柄) ＝ 0)
        信息框 (“运行失败”, 0, , )
    .否则
        运行线程 ＝ 运行线程 ＋ 1
    .如果结束

.如果真结束
.如果真 (选择框第五名.选中 ＝ 真)
    .如果 (线程_启动 (&第五名, , 第五句柄) ＝ 0)
        信息框 (“运行失败”, 0, , )
    .否则
        运行线程 ＝ 运行线程 ＋ 1


我知道代码有问题，就是不知道该怎么写