根本学不会的东西

土路

接之前问的一个问题  程序一打开运行就卡死了。有人给出了答案
程序老是卡死什么原因导致的
https://bbs.125.la/forum.php?mod=viewthread&tid=14845530
(出处: 精易论坛)

现在两个问题。

怎么在剪头处输入代码  我一按空格就跑了



怎么在这里添加子程序  我添加了，子程序不会在这个位置，会跑后面去。



最后一个问题
一个窗口里的东西比较多，所以代码就多，各种时钟和进度条都有，时不时他导致运行时会卡死的原因。


如果不确定是哪个导致的程序卡死，是不是所有窗口的按钮按钮后都可以给他来段这个代码。


新手不懂。 多多理解。   不懂就不懂，你可以自己偷偷笑话我，谢谢你不要在评论区喷我。

是可可吖

子程序下面是参数   变量

是可可吖

如果代码比较多，可以写在子程序里，用启动线程

是可可吖

土路

是可可吖 发表于 2025-1-9 17:59
如果代码比较多，可以写在子程序里，用启动线程

比如窗口1   点击按钮1要运行的代码比较多
是不是可以统一用这段端口来解决卡死的问题。

.版本 2
.支持库 EThread

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

启动线程 (&子程序1, , )

.子程序 子程序1

是可可吖

土路 发表于 2025-1-9 18:03
比如窗口1   点击按钮1要运行的代码比较多
是不是可以统一用这段端口来解决卡死的问题。

最好是按功能分开写，你不可能所有的功能都一起执行，如果是调用也可以写在里面     

土路

补充下 ：

补充内容 (2025-1-9 18:07):
.版本 2
.支持库 iext

.程序集 窗口程序集_窗口8
.程序集变量 总数, 整数型
.程序集变量 默认号, 整数型
.程序集变量 进行号, 整数型

.子程序 _窗口8_创...

土路

是可可吖 发表于 2025-1-9 18:06
最好是按功能分开写，你不可能所有的功能都一起执行，如果是调用也可以写在里面      ...

就是不知道哪里导致了程序卡。  怎么把窗口集的代码一下复制出来给大家看。

土路

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口8
变量名	类 型	数组	备 注
总数	整数型
默认号	整数型
进行号	整数型

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

变量名	类 型	静态	数组	备 注
地区	文本型		0
姓	文本型		0

判断1 ＝ 真
窗口7.销毁 ()
地区 ＝ 分割文本 ( #地区, “ ”, )
姓 ＝ 分割文本 ( #姓, “ ”, )
置随机数种子 ()
计次循环首 (20, )
标签00.标题 ＝ 标签00.标题 ＋ #换行符 ＋ “恭喜” ＋ 地区 [取随机数 (1, 取数组成员数 (地区))] ＋ “的” ＋ 姓 [取随机数 (1, 取数组成员数 (姓))] ＋ 多项选择 (取随机数 (1, 2), “*******”, “*********”) ＋ “办理会员” ＋ 多项选择 (取随机数 (1, 4), “VIP通道”, “VIP通道”, “VIP通道”, “VIP通道”) ＋ “  预计” ＋ 到文本 (取随机数 (1, 55)) ＋ “分钟绑定完成” ＋ #换行符
计次循环尾 ()
时钟1.时钟周期 ＝ 6000  ' 一秒钟
进行号 ＝ 1
默认号 ＝ 取随机数 (11, 130)  ' 初始数
总数 ＝ 默认号 ＋ 取随机数 (1, 3)
显示 ()

子程序名	返回值类型	公开	备 注
_时钟2_周期事件

变量名	类 型	静态	数组	备 注
地区	文本型		0
姓	文本型		0

判断 (标签00.顶边 ＜ -392)
地区 ＝ 分割文本 ( #地区, “ ”, )
姓 ＝ 分割文本 ( #姓, “ ”, )
置随机数种子 ()
标签00.顶边 ＝ 0
标签00.标题 ＝ “”
计次循环首 (20, )
标签00.标题 ＝ 标签00.标题 ＋ #换行符 ＋ “恭喜” ＋ 地区 [取随机数 (1, 取数组成员数 (地区))] ＋ “的” ＋ 姓 [取随机数 (1, 取数组成员数 (姓))] ＋ 多项选择 (取随机数 (1, 2), “*******”, “*********”) ＋ “办理会员” ＋ 多项选择 (取随机数 (1, 4), “VIP通道”, “VIP通道”, “VIP通道”, “VIP通道”) ＋ “  预计” ＋ 到文本 (取随机数 (1, 55)) ＋ “分钟绑定完成” ＋ #换行符
计次循环尾 ()

标签00.顶边 ＝ 标签00.顶边 － 1

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

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

时钟1.时钟周期 ＝ 60000
随机数 ＝ 取随机数 (1, 3)  ' 插队人数
如果 (默认号 ＜ 取随机数 (15, 130))
默认号 ＝ 默认号 ＋ 随机数
总数 ＝ 总数 ＋ 随机数
默认号 ＝ 默认号 － 2
进行号 ＝ 进行号 ＋ 1
显示 ()

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

透明标签1.标题 ＝ 到文本 (默认号) ＋ “人”
透明标签2.标题 ＝ 到文本 (总数) ＋ “人”
标签1.标题 ＝ “现在正在激活” ＋ 到文本 (进行号) ＋ “********” ＋ “号会员，请等待.....”
标签2.标题 ＝ “下一位将激活” ＋ 到文本 (进行号 ＋ 1) ＋ “********” ＋ “号会员。请耐心等待.....”
线程_启动 (&子程序1, , )

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

如果真 (编辑框1.内容 ＝ “”)
信息框 (“请输入账号”, 0, , )
编辑框1.获取焦点 ()
返回 ()
如果真 (编辑框2.内容 ＝ “”)
信息框 (“请输入密码”, 0, , )
编辑框2.获取焦点 ()
返回 ()
如果 (编辑框1.内容 ＝ “我爱你” 且 编辑框2.内容 ＝ “你也要爱我”)
信息框 (“你们真恩爱”, 0, , )
进度条1.位置 ＝ 0
判断循环首 (真)
进度条1.位置 ＝ 进度条1.位置 ＋ 1
如果真 (进度条1.位置 ＝ 100)
信息框 (“那就在一起吧！”, 0, , )
载入 (窗口9, , 真)
跳出循环 ()

程序_延时 (2800, )
判断循环尾 ()

信息框 (“帐号或密码错误”, 0, , )

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_窗口8<br /> .程序集变量 总数, 整数型<br /> .程序集变量 默认号, 整数型<br /> .程序集变量 进行号, 整数型<br /> <br /> .子程序 _窗口8_创建完毕<br /> .局部变量 地区, 文本型, , "0"<br /> .局部变量 姓, 文本型, , "0"<br /> <br /> 判断1 ＝ 真<br /> 窗口7.销毁 ()<br /> <br /> 地区 ＝ 分割文本 (#地区, “ ”, )<br /> 姓 ＝ 分割文本 (#姓, “ ”, )<br /> 置随机数种子 ()<br /> .计次循环首 (20, )<br />     标签00.标题 ＝ 标签00.标题 ＋ #换行符 ＋ “恭喜” ＋ 地区 [取随机数 (1, 取数组成员数 (地区))] ＋ “的” ＋ 姓 [取随机数 (1, 取数组成员数 (姓))] ＋ 多项选择 (取随机数 (1, 2), “*******”, “*********”) ＋ “办理会员” ＋ 多项选择 (取随机数 (1, 4), “VIP通道”, “VIP通道”, “VIP通道”, “VIP通道”) ＋ “  预计” ＋ 到文本 (取随机数 (1, 55)) ＋ “分钟绑定完成” ＋ #换行符<br /> .计次循环尾 ()<br /> <br /> 时钟1.时钟周期 ＝ 6000  ' 一秒钟<br /> 进行号 ＝ 1<br /> 默认号 ＝ 取随机数 (11, 130)  ' 初始数<br /> 总数 ＝ 默认号 ＋ 取随机数 (1, 3)<br /> 显示 ()<br /> <br /> .子程序 _时钟2_周期事件<br /> .局部变量 地区, 文本型, , "0"<br /> .局部变量 姓, 文本型, , "0"<br /> <br /> <br /> .判断开始 (标签00.顶边 ＜ -392)<br />     地区 ＝ 分割文本 (#地区, “ ”, )<br />     姓 ＝ 分割文本 (#姓, “ ”, )<br />     置随机数种子 ()<br /> <br />     标签00.顶边 ＝ 0<br />     标签00.标题 ＝ “”<br />     .计次循环首 (20, )<br />         标签00.标题 ＝ 标签00.标题 ＋ #换行符 ＋ “恭喜” ＋ 地区 [取随机数 (1, 取数组成员数 (地区))] ＋ “的” ＋ 姓 [取随机数 (1, 取数组成员数 (姓))] ＋ 多项选择 (取随机数 (1, 2), “*******”, “*********”) ＋ “办理会员” ＋ 多项选择 (取随机数 (1, 4), “VIP通道”, “VIP通道”, “VIP通道”, “VIP通道”) ＋ “  预计” ＋ 到文本 (取随机数 (1, 55)) ＋ “分钟绑定完成” ＋ #换行符<br />     .计次循环尾 ()<br /> <br /> <br /> .默认<br />     标签00.顶边 ＝ 标签00.顶边 － 1<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 随机数, 整数型<br /> <br /> 时钟1.时钟周期 ＝ 60000<br /> 随机数 ＝ 取随机数 (1, 3)  ' 插队人数<br /> .如果 (默认号 ＜ 取随机数 (15, 130))<br />     默认号 ＝ 默认号 ＋ 随机数<br />     总数 ＝ 总数 ＋ 随机数<br /> .否则<br />     默认号 ＝ 默认号 － 2<br /> .如果结束<br /> 进行号 ＝ 进行号 ＋ 1<br /> 显示 ()<br /> <br /> <br /> .子程序 显示<br /> <br /> 透明标签1.标题 ＝ 到文本 (默认号) ＋ “人”<br /> 透明标签2.标题 ＝ 到文本 (总数) ＋ “人”<br /> 标签1.标题 ＝ “现在正在激活” ＋ 到文本 (进行号) ＋ “********” ＋ “号会员，请等待.....”<br /> 标签2.标题 ＝ “下一位将激活” ＋ 到文本 (进行号 ＋ 1) ＋ “********” ＋ “号会员。请耐心等待.....”<br /> 线程_启动 (&子程序1, , )<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果真 (编辑框1.内容 ＝ “”)<br />     信息框 (“请输入账号”, 0, , )<br />     编辑框1.获取焦点 ()<br />     返回 ()<br /> .如果真结束<br /> .如果真 (编辑框2.内容 ＝ “”)<br />     信息框 (“请输入密码”, 0, , )<br />     编辑框2.获取焦点 ()<br />     返回 ()<br /> .如果真结束<br /> .如果 (编辑框1.内容 ＝ “我爱你” 且 编辑框2.内容 ＝ “你也要爱我”)<br />     信息框 (“你们真恩爱”, 0, , )<br /> <br />     进度条1.位置 ＝ 0<br />     .判断循环首 (真)<br />         进度条1.位置 ＝ 进度条1.位置 ＋ 1<br />         .如果真 (进度条1.位置 ＝ 100)<br />             信息框 (“那就在一起吧！”, 0, , )<br />             载入 (窗口9, , 真)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />         程序_延时 (2800, )<br />     .判断循环尾 ()<br /> <br /> <br /> <br /> .否则<br />     信息框 (“帐号或密码错误”, 0, , )<br /> .如果结束

土路

土路 发表于 2025-1-9 18:13
[e=0].版本 2
.支持库 iext

就是这个窗口会卡死。  一点按钮后就卡死了。