易语言多线程复制组件

我就我 · 发表于 2024-4-3 05:45:08

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
b	标签	3
事件	标签
倒计时	整数型
狙击_冷却	整数型
连环箭_冷却	整数型
计次	整数型
狙击_计次	整数型
普攻_计次	整数型
连环箭_计次	整数型

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

置随机数种子 ()

计次循环首 (取数组成员数 (b), 计次)

复制窗口组件 (标签1, b [计次])

b [计次].可视＝真

b [计次].左边＝ b [计次].左边 �� (b [计次].宽度＋ 10) �� (计次－ 1) － 20

b [计次].顶边＝ b [计次].顶边＋ b [计次].高度 × 4

b [计次].背景颜色＝ #红色

判断 (计次＝ 1)

b [计次].标题＝ “普攻”

b [计次].标记＝到文本 (计次)

普攻_计次＝普攻_计次＋ 1 ' 为什么这里的变量不变化啊？

调试输出 (b [计次].标记)

判断 (计次＝ 2)

b [计次].标题＝ “狙击”

b [计次].标记＝到文本 (计次)

狙击_计次＝狙击_计次＋ 1 ' 为什么这里的变量不变化啊？

调试输出 (b [计次].标记)

判断 (计次＝ 3)

b [计次].标题＝ “连环箭”

b [计次].标记＝到文本 (计次)

连环箭_计次＝连环箭_计次＋ 1 ' 为什么这里的变量不变化啊？

调试输出 (b [计次].标记)

判断 (计次＞ 3)

跳出循环 ()

' 调试输出 (b [计次].标记)

计次循环尾 ()
标签1.可视＝假

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

信息框 (“aaa”, 0, , )

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

计次循环首 (狙击_冷却, )

狙击_冷却＝狙击_冷却－ 1

事件.禁止＝真

如果真 (狙击_冷却＝ 0)

' 事件.禁止＝假

跳出循环 ()

事件.标题＝ “冷却中： ” ＋到文本 (狙击_冷却) ＋ “秒”

' 调试输出 (狙击_冷却)

延迟 (1000)

计次循环尾 ()
事件.标题＝ “狙击”
事件.禁止＝假

子程序名	返回值类型	公开	备注
连环箭

计次循环首 (连环箭_冷却, )

连环箭_冷却＝连环箭_冷却－ 1

事件.禁止＝真

如果真 (连环箭_冷却＝ 0)

跳出循环 ()

事件.标题＝ “冷却中： ” ＋到文本 (连环箭_冷却) ＋ “秒”

延迟 (1000)

计次循环尾 ()
事件.标题＝ “连环箭”
事件.禁止＝假

子程序名	返回值类型	公开	备注
_标签1_鼠标左键被按下	逻辑型
参数名	类型	参考	可空	数组	备注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类型	静态	数组	备注
标签ID	整数型

狙击_冷却＝ 7
连环箭_冷却＝ 12
事件＝取事件组件 ()
标签ID ＝到整数 (事件.标记)
调试输出 (标签ID)

判断 (标签ID ＝ 1)

启动线程 (&普攻, , )

调试输出 (“普攻_计次：” ＋到文本 (普攻_计次))

判断 (标签ID ＝ 2)
启动线程 (&狙击, , )
调试输出 (“狙击_计次：” ＋到文本 (狙击_计次))

判断 (标签ID ＝ 3)
启动线程 (&连环箭, , )
调试输出 (“连环箭_计次 ” ＋到文本 (连环箭_计次))

' 判断，

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

.版本 2<br />
.支持库 spec<br />
.支持库 EThread<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 b, 标签, , "3"<br />
.程序集变量 事件, 标签<br />
.程序集变量 倒计时, 整数型<br />
.程序集变量 狙击_冷却, 整数型<br />
.程序集变量 连环箭_冷却, 整数型<br />
.程序集变量 计次, 整数型<br />
.程序集变量 狙击_计次, 整数型<br />
.程序集变量 普攻_计次, 整数型<br />
.程序集变量 连环箭_计次, 整数型<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
置随机数种子 ()<br />
.计次循环首 (取数组成员数 (b), 计次)<br />
    复制窗口组件 (标签1, b [计次])<br />
    b [计次].可视 ＝ 真<br />
    b [计次].左边 ＝ b [计次].左边 ＋ (b [计次].宽度 ＋ 10) × (计次 － 1) － 20<br />
    b [计次].顶边 ＝ b [计次].顶边 ＋ b [计次].高度 × 4<br />
    b [计次].背景颜色 ＝ #红色<br />
    .判断开始 (计次 ＝ 1)<br />
        b [计次].标题 ＝ “普攻”<br />
        b [计次].标记 ＝ 到文本 (计次)<br />
        普攻_计次 ＝ 普攻_计次 ＋ 1  ' 为什么这里的变量不变化啊？<br />
        调试输出 (b [计次].标记)<br />
    .判断 (计次 ＝ 2)<br />
        b [计次].标题 ＝ “狙击”<br />
        b [计次].标记 ＝ 到文本 (计次)<br />
        狙击_计次 ＝ 狙击_计次 ＋ 1  ' 为什么这里的变量不变化啊？<br />
        调试输出 (b [计次].标记)<br />
    .判断 (计次 ＝ 3)<br />
        b [计次].标题 ＝ “连环箭”<br />
        b [计次].标记 ＝ 到文本 (计次)<br />
        连环箭_计次 ＝ 连环箭_计次 ＋ 1  ' 为什么这里的变量不变化啊？<br />
        调试输出 (b [计次].标记)<br />
    .判断 (计次 ＞ 3)<br />
        跳出循环 ()<br />
    .默认<br />
<br />
    .判断结束<br />
    ' 调试输出 (b [计次].标记)<br />
.计次循环尾 ()<br />
标签1.可视 ＝ 假<br />
<br />
.子程序 普攻<br />
<br />
信息框 (“aaa”, 0, , )<br />
<br />
.子程序 狙击<br />
<br />
.计次循环首 (狙击_冷却, )<br />
    狙击_冷却 ＝ 狙击_冷却 － 1<br />
    事件.禁止 ＝ 真<br />
    .如果真 (狙击_冷却 ＝ 0)<br />
        ' 事件.禁止 ＝ 假<br />
        跳出循环 ()<br />
    .如果真结束<br />
    事件.标题 ＝ “冷却中： ” ＋ 到文本 (狙击_冷却) ＋ “秒”<br />
    ' 调试输出 (狙击_冷却)<br />
    延迟 (1000)<br />
.计次循环尾 ()<br />
事件.标题 ＝ “狙击”<br />
事件.禁止 ＝ 假<br />
<br />
.子程序 连环箭<br />
<br />
.计次循环首 (连环箭_冷却, )<br />
    连环箭_冷却 ＝ 连环箭_冷却 － 1<br />
    事件.禁止 ＝ 真<br />
    .如果真 (连环箭_冷却 ＝ 0)<br />
        跳出循环 ()<br />
    .如果真结束<br />
    事件.标题 ＝ “冷却中： ” ＋ 到文本 (连环箭_冷却) ＋ “秒”<br />
    延迟 (1000)<br />
.计次循环尾 ()<br />
事件.标题 ＝ “连环箭”<br />
事件.禁止 ＝ 假<br />
<br />
.子程序 _标签1_鼠标左键被按下, 逻辑型<br />
.参数 横向位置, 整数型<br />
.参数 纵向位置, 整数型<br />
.参数 功能键状态, 整数型<br />
.局部变量 标签ID, 整数型<br />
<br />
狙击_冷却 ＝ 7<br />
连环箭_冷却 ＝ 12<br />
事件 ＝ 取事件组件 ()<br />
标签ID ＝ 到整数 (事件.标记)<br />
调试输出 (标签ID)<br />
.判断开始 (标签ID ＝ 1)<br />
    启动线程 (&普攻, , )<br />
    调试输出 (“普攻_计次：” ＋ 到文本 (普攻_计次))<br />
.默认<br />
<br />
.判断结束<br />
.判断开始 (标签ID ＝ 2)<br />
    启动线程 (&狙击, , )<br />
    调试输出 (“狙击_计次：” ＋ 到文本 (狙击_计次))<br />
.默认<br />
<br />
.判断结束<br />
.判断开始 (标签ID ＝ 3)<br />
    启动线程 (&连环箭, , )<br />
    调试输出 (“连环箭_计次 ” ＋ 到文本 (连环箭_计次))<br />
.默认<br />
<br />
.判断结束<br />
' 判断，

；大佬们，为什么三个标签分别执行的时候没问题，但是在其中一个没执行完再按另一个的时候，就会出现混乱是怎么回事？拜求大佬们指点