重定义易语言执行流程，让易支持GOTO，随意跳转，支持4种标志定义，内存例子第三弹

350246356

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

启动线程 (&子程序1, , )
返回 (0)  ' 可以根据您的需要返回任意数值

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

置入代码 ({ 131, 236, 8, 87, 139, 69, 4, 141, 64, 244, 139, 0, 137, 69, 252, 139, 69, 4, 141, 64, 247, 139, 0, 137, 69, 248, 139, 69, 4, 141, 64, 245, 141, 64, 255, 139, 56, 102, 129, 255, 139, 236, 117, 244, 141, 64, 255, 139, 56, 102, 129, 255, 85, 139, 117, 237, 141, 64, 2, 141, 64, 1, 139, 56, 129, 255, 139, 229, 93, 194, 116, 47, 129, 255, 139, 229, 93, 195, 116, 39, 59, 125, 252, 117, 230, 141, 64, 3, 139, 56, 59, 125, 248, 116, 5, 141, 64, 253, 235, 215, 141, 120, 9, 57, 125, 4, 117, 5, 141, 64, 253, 235, 202, 141, 64, 4, 137, 69, 4, 95, 139, 229, 93, 195 })

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

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

局_Go ＝ 1
Goto ()
局_Go ＝ 1
调试输出 (“程序执行完毕”)

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 启动线程 (&子程序1, , )<br /> <br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 Goto<br /> <br /> 置入代码 ({ 131, 236, 8, 87, 139, 69, 4, 141, 64, 244, 139, 0, 137, 69, 252, 139, 69, 4, 141, 64, 247, 139, 0, 137, 69, 248, 139, 69, 4, 141, 64, 245, 141, 64, 255, 139, 56, 102, 129, 255, 139, 236, 117, 244, 141, 64, 255, 139, 56, 102, 129, 255, 85, 139, 117, 237, 141, 64, 2, 141, 64, 1, 139, 56, 129, 255, 139, 229, 93, 194, 116, 47, 129, 255, 139, 229, 93, 195, 116, 39, 59, 125, 252, 117, 230, 141, 64, 3, 139, 56, 59, 125, 248, 116, 5, 141, 64, 253, 235, 215, 141, 120, 9, 57, 125, 4, 117, 5, 141, 64, 253, 235, 202, 141, 64, 4, 137, 69, 4, 95, 139, 229, 93, 195 })<br /> <br /> .子程序 子程序1<br /> .局部变量 局_Go, 整数型<br /> <br /> 局_Go ＝ 1<br /> Goto ()<br /> <br /> 局_Go ＝ 1<br /> 调试输出 (“程序执行完毕”)

万里晴空

350246356 发表于 2018-6-4 11:09
[e=1].版本 2
.支持库 spec

看到了，你跳回去了
等我回去看看，现在手机

350246356

枫叶果果吖 发表于 2018-6-4 11:19
你要知道
你直接跳出去的时候
循环的递增变量是不会增加的

会的，他输出结果会递增，不然楼主把我的代码复制去试试？

万里晴空

350246356 发表于 2018-6-4 11:09
[e=1].版本 2
.支持库 spec

你要知道
你直接跳出去的时候
循环的递增变量是不会增加的

花开一半

谢谢分享啊

350246356

  

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

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

' 目的: 当变量"i" = 1 到循环外部执行第一步,第一步执行完跳回循环继续执行，然后正常执行，正常执行过程中不能执行特殊情况的代码段
' 如果没理解错的话，正常应该会调试输出如下:
' 开始运行被调试程序
' * “I” | 1
' * “已经执行到第一步了” | 1
' * “已经执行到第四步了” | 4
' * “I” | 2
' * “N” | 1
' * “N” | 2
' * “调到正常执行处(标记3)” | 4
' * “子程序执行完毕” | 3
' 被调试易程序运行完毕
计次循环首 (2, i)
调试输出 (“I”, i)
如果真 (i ＝ 1)  ' ①:条件 i=1 触发
局_Go ＝ 1
goto ()  ' 跳转到标记 1
计次循环首 (2, n)
调试输出 (“N”, n)
计次循环尾 ()
到循环尾 ()  ' 防止正常执行的时候执行 跳回循环用的标记
' --------------跳回循环用的标记
局_Go ＝ 4
调试输出 (“已经执行到第四步了”, 局_Go)
计次循环尾 ()
调试输出 (“调到正常执行处(标记3)”, 局_Go)
局_Go ＝ 3
goto ()
' ------------ 特殊执行情况
局_Go ＝ 1
调试输出 (“已经执行到第一步了”, 局_Go)
局_Go ＝ 4  ' 跳回循环继续执行
goto ()  ' ②:第一步执行完跳回循环内(标记4)继续执行
' ----
局_Go ＝ 2
调试输出 (“已经执行到第二步了”, 局_Go)
局_Go ＝ 3  ' 正常执行
goto ()
' ----
' ------------ 正常执行
局_Go ＝ 3
调试输出 (“子程序执行完毕”, 局_Go)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 局_Go, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 i, 整数型<br /> <br /> ' 目的: 当变量"i" = 1 到循环外部执行第一步,第一步执行完跳回循环继续执行，然后正常执行，正常执行过程中不能执行特殊情况的代码段<br /> <br /> ' 如果没理解错的话，正常应该会调试输出如下:<br /> <br /> ' 开始运行被调试程序<br /> ' * “I” | 1<br /> ' * “已经执行到第一步了” | 1<br /> ' * “已经执行到第四步了” | 4<br /> ' * “I” | 2<br /> ' * “N” | 1<br /> ' * “N” | 2<br /> ' * “调到正常执行处(标记3)” | 4<br /> ' * “子程序执行完毕” | 3<br /> ' 被调试易程序运行完毕<br /> <br /> .计次循环首 (2, i)<br />     调试输出 (“I”, i)<br />     .如果真 (i ＝ 1)  ' ①:条件 i=1 触发<br />         局_Go ＝ 1<br />         goto ()  ' 跳转到标记 1<br />     .如果真结束<br />     .计次循环首 (2, n)<br />         调试输出 (“N”, n)<br />     .计次循环尾 ()<br />     到循环尾 ()  ' 防止正常执行的时候执行 跳回循环用的标记<br />     ' --------------跳回循环用的标记<br />     局_Go ＝ 4<br />     调试输出 (“已经执行到第四步了”, 局_Go)<br /> .计次循环尾 ()<br /> 调试输出 (“调到正常执行处(标记3)”, 局_Go)<br /> 局_Go ＝ 3<br /> goto ()<br /> ' ------------ 特殊执行情况<br /> 局_Go ＝ 1<br /> 调试输出 (“已经执行到第一步了”, 局_Go)<br /> 局_Go ＝ 4  ' 跳回循环继续执行<br /> goto ()  ' ②:第一步执行完跳回循环内(标记4)继续执行<br /> ' ----<br /> 局_Go ＝ 2<br /> 调试输出 (“已经执行到第二步了”, 局_Go)<br /> 局_Go ＝ 3  ' 正常执行<br /> goto ()<br /> ' ----<br /> ' ------------ 正常执行<br /> 局_Go ＝ 3<br /> 调试输出 (“子程序执行完毕”, 局_Go)

tvvvhg

非常好的例子，下载学习一下

以烟代酒

回复看隐藏

siniandd

350246356

支持开源~！感谢分享