求助求助

AhRui666

在一个子程序里面怎么让一个其中某一个地方返回是失败了，但我想让他回到这个子程序的第一步中继续执行。用返回的话好像就整个程序都直接关了

辉辉回

.版本 2

.子程序 子程序1
.局部变量 a, 整数型

a ＝ 1
.如果真 (a ≠ 1)
    子程序1 ()
.如果真结束

自己调用自己  是这个意思吧  

LEOONL

套一个一次的循环里，到哪一步判断失败跳出循环后面的代码就不会执行了，在外层套一句判断成功的代码就跳出

  

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

子程序1 ()

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

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

判断循环首 (真)
计次循环首 (1, )
a ＝ a ＋ 1
如果真 (a ＝ 5)
跳出循环 ()
调试输出 (a)
计次循环尾 ()
如果真 (a ＝ 5)
跳出循环 ()

判断循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 子程序1 ()<br /> <br /> .子程序 子程序1<br /> .局部变量 a, 整数型<br /> <br /> .判断循环首 (真)<br />     .计次循环首 (1, )<br />         a ＝ a ＋ 1<br />         .如果真 (a ＝ 5)<br />             跳出循环 ()<br />         .如果真结束<br />         调试输出 (a)<br />     .计次循环尾 ()<br />     .如果真 (a ＝ 5)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()

AhRui666

辉辉回 发表于 2024-10-13 14:03
.版本 2

.子程序 子程序1

但是这样的话多线程运行起来不会很卡吗

AhRui666

LEOONL 发表于 2024-10-13 14:05
套一个一次的循环里，到哪一步判断失败跳出循环后面的代码就不会执行了，在外层套一句判断成功的代码就跳出 ...

循环加过了，但是这个运行起来让我感觉好卡

LEOONL

AhRui666 发表于 2024-10-13 14:21
循环加过了，但是这个运行起来让我感觉好卡

和正常运行代码又没区别 卡什么呢，卡也是因为本来的代码的关系啊

AhRui666

辉辉回 发表于 2024-10-13 14:03
.版本 2

.子程序 子程序1

用了这个开始以后停不下来了啊啊啊啊

AhRui666

LEOONL 发表于 2024-10-13 14:23
和正常运行代码又没区别 卡什么呢，卡也是因为本来的代码的关系啊

那可能是我里面的如果太多了

cobi

看看这样可以不：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程句柄	整数型
进入许可证	整数型

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

进入许可证 ＝ 创建进入许可证 ()

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

如果真 (线程句柄 ≠ 0)
强制结束线程 (线程句柄)
删除进入许可证 (进入许可证)

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

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

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

进入许可区 (进入许可证)
判断 (取窗口句柄 () ＝ 0)  ' 假设条件
退出许可区 (进入许可证)
延迟 (200)  ' 不延迟一下怕线程崩溃哈
启动线程 (&子程序1, , 线程句柄)
退出许可区 (进入许可证)
延迟 (200)  ' 不延迟一下怕线程崩溃哈
启动线程 (&子程序1, , 线程句柄)

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

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程句柄, 整数型<br /> .程序集变量 进入许可证, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 进入许可证 ＝ 创建进入许可证 ()<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> .如果真 (线程句柄 ≠ 0)<br />     强制结束线程 (线程句柄)<br />     删除进入许可证 (进入许可证)<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&子程序1, , 线程句柄)<br /> <br /> .子程序 子程序1<br /> <br /> 进入许可区 (进入许可证)<br /> .判断开始 (取窗口句柄 () ＝ 0)  ' 假设条件<br />     退出许可区 (进入许可证)<br />     延迟 (200)  ' 不延迟一下怕线程崩溃哈<br />     启动线程 (&子程序1, , 线程句柄)<br /> .默认<br />     退出许可区 (进入许可证)<br />     延迟 (200)  ' 不延迟一下怕线程崩溃哈<br />     启动线程 (&子程序1, , 线程句柄)