程序奔溃问题求大神指定一二

1780880666

如下代码程序奔溃求大神指定一二

  

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

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

集_许可证 ＝ 线程_创建许可证 ()
子程序_置表头 ()

子程序名	返回值类型	公开	备 注
子程序_置表头

变量名	类 型	静态	数组	备 注
局部_分割文本	文本型		0
局部_str	文本型
i	整数型

高级表格1.行数 ＝ 1  ' 表头
高级表格1.列数 ＝ 1
高级表格1.行数 ＝ 1
高级表格1.列数 ＝ 10
高级表格1.表头行数 ＝ 1
高级表格1.表头列数 ＝ 0
高级表格1.置列宽 (0, 30)
高级表格1.置列宽 (1, 30)
高级表格1.置列宽 (2, 30)
高级表格1.置列宽 (3, 30)
高级表格1.置列宽 (4, 30)
高级表格1.置列宽 (5, 30)
高级表格1.置列宽 (6, 30)
高级表格1.置列宽 (7, 0)
高级表格1.置列宽 (8, 0)
高级表格1.置列宽 (9, 0)
高级表格1.置数据 (0, 0, #表格常量 .文本型, “0”)
高级表格1.置数据 (0, 1, #表格常量 .文本型, “1”)
高级表格1.置数据 (0, 2, #表格常量 .文本型, “2”)
高级表格1.置数据 (0, 3, #表格常量 .文本型, “3”)
高级表格1.置数据 (0, 4, #表格常量 .文本型, “4”)
高级表格1.置数据 (0, 5, #表格常量 .文本型, “5”)
高级表格1.置数据 (0, 6, #表格常量 .文本型, “6”)
高级表格1.置数据 (0, 7, #表格常量 .文本型, “7”)
高级表格1.置数据 (0, 8, #表格常量 .文本型, “8”)
高级表格1.置数据 (0, 9, #表格常量 .文本型, “9”)

子程序名	返回值类型	公开	备 注
_按钮_更改数据_被单击

线程_启动 (&子程序1)
程序_延时 (1500)
线程_启动 (&子程序2)
程序_延时 (1500)
线程_启动 (&子程序3)

子程序名	返回值类型	公开	备 注
_按钮_重置数据_被单击

线程_进入许可区 (集_许可证)
集_有数据 ＝ 假
子程序_重置数据 ()
集_有数据 ＝ 真
线程_退出许可区 (集_许可证)

子程序名	返回值类型	公开	备 注
子程序_重置数据

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

子程序_置表头 ()
计次循环首 (1000, i)
高级表格1.插入行 (, )
计次循环首 (高级表格1.列数 － 1, j)
高级表格1.置数据 (高级表格1.行数 － 1, j, #表格常量 .文本型, 到文本 (j))
计次循环尾 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
子程序_更改数据_1_2

变量名	类 型	静态	数组	备 注
n	整数型
i	整数型
s	文本型

n ＝ 高级表格1.行数 － 1
计次循环首 (n, i)
s ＝ 高级表格1.取数据 (i, 1)
s ＝ 选择 (s ＝ “1”, “10”, “1”)
高级表格1.置数据 (i, 1, #表格常量 .文本型, s)
s ＝ 高级表格1.取数据 (i, 2)
s ＝ 选择 (s ＝ “2”, “20”, “2”)
高级表格1.置数据 (i, 2, #表格常量 .文本型, s)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
子程序_更改数据_3_4

变量名	类 型	静态	数组	备 注
n	整数型
i	整数型
s	文本型

n ＝ 高级表格1.行数 － 1
计次循环首 (n, i)
s ＝ 高级表格1.取数据 (i, 3)
s ＝ 选择 (s ＝ “3”, “30”, “3”)
高级表格1.置数据 (i, 3, #表格常量 .文本型, s)
s ＝ 高级表格1.取数据 (i, 4)
s ＝ 选择 (s ＝ “4”, “40”, “4”)
高级表格1.置数据 (i, 4, #表格常量 .文本型, s)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
子程序_更改数据_5_6

变量名	类 型	静态	数组	备 注
n	整数型
i	整数型
s	文本型

n ＝ 高级表格1.行数 － 1
计次循环首 (n, i)
s ＝ 高级表格1.取数据 (i, 5)
s ＝ 选择 (s ＝ “5”, “50”, “5”)
高级表格1.置数据 (i, 5, #表格常量 .文本型, s)
s ＝ 高级表格1.取数据 (i, 6)
s ＝ 选择 (s ＝ “6”, “60”, “6”)
高级表格1.置数据 (i, 6, #表格常量 .文本型, s)
计次循环尾 ()

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

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

i ＝ 1
判断循环首 (i ＞ 0)
如果 (集_有数据 ＝ 真)
线程_进入许可区 (集_许可证)
线程_启动 (&子程序_更改数据_3_4)
线程_退出许可区 (集_许可证)


调试输出 (“无数据”)
程序_延时 (50)
判断循环尾 ()

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

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

i ＝ 1
判断循环首 (i ＞ 0)
如果 (集_有数据 ＝ 真)
线程_进入许可区 (集_许可证)
线程_启动 (&子程序_更改数据_5_6)
线程_退出许可区 (集_许可证)

调试输出 (“无数据”)
程序_延时 (50)
判断循环尾 ()

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

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

i ＝ 1
判断循环首 (i ＞ 0)
如果 (集_有数据 ＝ 真)
线程_进入许可区 (集_许可证)
线程_启动 (&子程序_更改数据_1_2)
线程_退出许可区 (集_许可证)


调试输出 (“无数据”)
程序_延时 (50)
判断循环尾 ()

i支持库列表	支持库注释
eGrid	高级表格支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eGrid<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_有数据, 逻辑型<br /> .程序集变量 集_许可证, 线程许可证<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 集_许可证 ＝ 线程_创建许可证 ()<br /> 子程序_置表头 ()<br /> <br /> .子程序 子程序_置表头<br /> .局部变量 局部_分割文本, 文本型, , "0"<br /> .局部变量 局部_str, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 高级表格1.行数 ＝ 1  ' 表头<br /> 高级表格1.列数 ＝ 1<br /> <br /> 高级表格1.行数 ＝ 1<br /> 高级表格1.列数 ＝ 10<br /> 高级表格1.表头行数 ＝ 1<br /> 高级表格1.表头列数 ＝ 0<br /> <br /> 高级表格1.置列宽 (0, 30)<br /> 高级表格1.置列宽 (1, 30)<br /> 高级表格1.置列宽 (2, 30)<br /> 高级表格1.置列宽 (3, 30)<br /> 高级表格1.置列宽 (4, 30)<br /> 高级表格1.置列宽 (5, 30)<br /> 高级表格1.置列宽 (6, 30)<br /> 高级表格1.置列宽 (7, 0)<br /> 高级表格1.置列宽 (8, 0)<br /> 高级表格1.置列宽 (9, 0)<br /> <br /> 高级表格1.置数据 (0, 0, #表格常量.文本型, “0”)<br /> 高级表格1.置数据 (0, 1, #表格常量.文本型, “1”)<br /> 高级表格1.置数据 (0, 2, #表格常量.文本型, “2”)<br /> 高级表格1.置数据 (0, 3, #表格常量.文本型, “3”)<br /> 高级表格1.置数据 (0, 4, #表格常量.文本型, “4”)<br /> 高级表格1.置数据 (0, 5, #表格常量.文本型, “5”)<br /> 高级表格1.置数据 (0, 6, #表格常量.文本型, “6”)<br /> 高级表格1.置数据 (0, 7, #表格常量.文本型, “7”)<br /> 高级表格1.置数据 (0, 8, #表格常量.文本型, “8”)<br /> 高级表格1.置数据 (0, 9, #表格常量.文本型, “9”)<br /> <br /> .子程序 _按钮_更改数据_被单击<br /> <br /> 线程_启动 (&子程序1)<br /> 程序_延时 (1500)<br /> 线程_启动 (&子程序2)<br /> 程序_延时 (1500)<br /> 线程_启动 (&子程序3)<br /> <br /> .子程序 _按钮_重置数据_被单击<br /> <br /> 线程_进入许可区 (集_许可证)<br /> 集_有数据 ＝ 假<br /> 子程序_重置数据 ()<br /> 集_有数据 ＝ 真<br /> 线程_退出许可区 (集_许可证)<br /> <br /> .子程序 子程序_重置数据<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> <br /> 子程序_置表头 ()<br /> .计次循环首 (1000, i)<br />     高级表格1.插入行 (, )<br />     .计次循环首 (高级表格1.列数 － 1, j)<br />         高级表格1.置数据 (高级表格1.行数 － 1, j, #表格常量.文本型, 到文本 (j))<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> .子程序 子程序_更改数据_1_2<br /> .局部变量 n, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 s, 文本型<br /> <br /> n ＝ 高级表格1.行数 － 1<br /> .计次循环首 (n, i)<br />     s ＝ 高级表格1.取数据 (i, 1)<br />     s ＝ 选择 (s ＝ “1”, “10”, “1”)<br />     高级表格1.置数据 (i, 1, #表格常量.文本型, s)<br /> <br />     s ＝ 高级表格1.取数据 (i, 2)<br />     s ＝ 选择 (s ＝ “2”, “20”, “2”)<br />     高级表格1.置数据 (i, 2, #表格常量.文本型, s)<br /> .计次循环尾 ()<br /> <br /> .子程序 子程序_更改数据_3_4<br /> .局部变量 n, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 s, 文本型<br /> <br /> n ＝ 高级表格1.行数 － 1<br /> .计次循环首 (n, i)<br />     s ＝ 高级表格1.取数据 (i, 3)<br />     s ＝ 选择 (s ＝ “3”, “30”, “3”)<br />     高级表格1.置数据 (i, 3, #表格常量.文本型, s)<br /> <br />     s ＝ 高级表格1.取数据 (i, 4)<br />     s ＝ 选择 (s ＝ “4”, “40”, “4”)<br />     高级表格1.置数据 (i, 4, #表格常量.文本型, s)<br /> .计次循环尾 ()<br /> <br /> .子程序 子程序_更改数据_5_6<br /> .局部变量 n, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 s, 文本型<br /> <br /> n ＝ 高级表格1.行数 － 1<br /> .计次循环首 (n, i)<br />     s ＝ 高级表格1.取数据 (i, 5)<br />     s ＝ 选择 (s ＝ “5”, “50”, “5”)<br />     高级表格1.置数据 (i, 5, #表格常量.文本型, s)<br /> <br />     s ＝ 高级表格1.取数据 (i, 6)<br />     s ＝ 选择 (s ＝ “6”, “60”, “6”)<br />     高级表格1.置数据 (i, 6, #表格常量.文本型, s)<br /> .计次循环尾 ()<br /> <br /> .子程序 子程序1<br /> .局部变量 i, 整数型<br /> <br /> i ＝ 1<br /> .判断循环首 (i ＞ 0)<br />     .如果 (集_有数据 ＝ 真)<br />         线程_进入许可区 (集_许可证)<br />         线程_启动 (&子程序_更改数据_3_4)<br />         线程_退出许可区 (集_许可证)<br />     .否则<br /> <br />         调试输出 (“无数据”)<br />     .如果结束<br />     程序_延时 (50)<br /> .判断循环尾 ()<br /> <br /> .子程序 子程序2<br /> .局部变量 i, 整数型<br /> <br /> i ＝ 1<br /> .判断循环首 (i ＞ 0)<br />     .如果 (集_有数据 ＝ 真)<br />         线程_进入许可区 (集_许可证)<br />         线程_启动 (&子程序_更改数据_5_6)<br />         线程_退出许可区 (集_许可证)<br /> <br />     .否则<br />         调试输出 (“无数据”)<br />     .如果结束<br />     程序_延时 (50)<br /> .判断循环尾 ()<br /> <br /> .子程序 子程序3<br /> .局部变量 i, 整数型<br /> <br /> i ＝ 1<br /> .判断循环首 (i ＞ 0)<br />     .如果 (集_有数据 ＝ 真)<br />         线程_进入许可区 (集_许可证)<br />         线程_启动 (&子程序_更改数据_1_2)<br />         线程_退出许可区 (集_许可证)<br />     .否则<br /> <br />         调试输出 (“无数据”)<br />     .如果结束<br />     程序_延时 (50)<br /> .判断循环尾 ()

qck易语言

许可证是独木桥，而你的许可证用在了启动线程上，线程启动只需要一毫秒，而且也不需要排队执行，许可证需要用在子程序里，谁需要上独木桥，谁就进许可区
进入许可区（）
高级表格.xxx
高级表格.xxx
高级表格.xxx
退出许可区（）

LEOONL

_按钮_重置数据_被单击                         
线程_进入许可区 (集_许可证)
集_有数据 ＝ 假
子程序_重置数据 ()
集_有数据 ＝ 真
线程_退出许可区 (集_许可证)

许可证只能用在线程里

1780880666

LEOONL 发表于 2024-11-10 16:01
_按钮_重置数据_被单击                         
线程_进入许可区 (集_许可证)
集_有数据 ＝ 假

用不用许可证程序都会奔溃哦

LEOONL

1780880666 发表于 2024-11-10 16:08
用不用许可证程序都会奔溃哦

许可证全都删掉了？ 有没错误信息 是什么

a45167039

试试吧线程里面的线程取消改成子程序看看?

凌哥

高级表格，不能在多线程里面调用，不安全，就算你加锁也不行

诺言55

https://bbs.125.la/forum.php?mod ... B%E5%B4%A9%E6%BA%83 试试

1780880666

LEOONL 发表于 2024-11-10 16:15
许可证全都删掉了？ 有没错误信息 是什么

没有错误信息的 多点两下按钮就奔溃了

1780880666

a45167039 发表于 2024-11-10 16:19
试试吧线程里面的线程取消改成子程序看看?

试过了该奔溃还是奔溃