大哥能否帮看看

chenboss

jinenjun 发表于 2024-11-24 02:01
结束上一个按钮的动画能调慢一点吗？因为好像结束的有点快感觉生硬

重构动画实现.e (64.98 KB, 下载次数: 3, 售价: 3 枚 精币)

2 小时前 上传

点击文件名下载附件


补充内容 (2024-11-24 04:42):
多组件的正确写法

补充内容 (2024-11-24 04:44):
hk开关跟鼠标滚动顺便安排上

jinenjun

chenboss 发表于 2024-11-24 04:40
补充内容 (2024-11-24 04:42):
多组件的正确写法

  

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

变量名	类 型	静态	数组	备 注
i	整数型
a	动画按钮EX
b	标签EX
c	标签EX
d	滑动按钮EX

判断循环首 (真)
计次循环首 (16, i)
a ＝ 取标记组件 (i)
b ＝ 取标记组件 (i ＋ 100)
c ＝ 取标记组件 (i ＋ 200)
d ＝ 取标记组件 (i ＋ 300)
如果 (事件句柄 ＝ a.取窗口句柄 () 且 事件有效)
如果 (i ％ 2 ＝ 0)
如果真 (a.左边 ≥ a.宽度)
a.移动 (a.左边 － 1, a.顶边 － 1, a.宽度 ＋ 2, a.高度 ＋ 2)
d.移动 (d.左边 ＋ 2, d.顶边 ＋ 2, , )

如果真 (a.左边 ≥ -10)
a.移动 (a.左边 － 1, a.顶边 － 1, a.宽度 ＋ 2, a.高度 ＋ 2)
d.移动 (d.左边 ＋ 2, d.顶边 ＋ 2, , )


如果 (i ％ 2 ＝ 0)
如果真 (a.左边 ＜ a.宽度 ＋ 30)
a.移动 (a.左边 ＋ 1, a.顶边 ＋ 1, a.宽度 － 2, a.高度 － 2)
d.移动 (d.左边 － 2, d.顶边 － 2, , )

如果真 (a.左边 ＜ 0)
a.移动 (a.左边 ＋ 1, a.顶边 ＋ 1, a.宽度 － 2, a.高度 － 2)
d.移动 (d.左边 － 2, d.顶边 － 2, , )



计次循环尾 ()
处理事件 ()
延时 (10)
判断循环尾 ()

i支持库列表	支持库注释
ExuiKrnln	(未知支持库)

.版本 2<br /> .支持库 ExuiKrnln<br /> <br /> .子程序 动画<br /> .局部变量 i, 整数型<br /> .局部变量 a, 动画按钮EX<br /> .局部变量 b, 标签EX<br /> .局部变量 c, 标签EX<br /> .局部变量 d, 滑动按钮EX<br /> <br /> .判断循环首 (真)<br /> <br />     .计次循环首 (16, i)<br />         a ＝ 取标记组件 (i)<br />         b ＝ 取标记组件 (i ＋ 100)<br />         c ＝ 取标记组件 (i ＋ 200)<br />         d ＝ 取标记组件 (i ＋ 300)<br />         .如果 (事件句柄 ＝ a.取窗口句柄 () 且 事件有效)<br />             .如果 (i ％ 2 ＝ 0)<br />                 .如果真 (a.左边 ≥ a.宽度)<br />                     a.移动 (a.左边 － 1, a.顶边 － 1, a.宽度 ＋ 2, a.高度 ＋ 2)<br />                     d.移动 (d.左边 ＋ 2, d.顶边 ＋ 2, , )<br />                 .如果真结束<br /> <br />             .否则<br />                 .如果真 (a.左边 ≥ -10)<br />                     a.移动 (a.左边 － 1, a.顶边 － 1, a.宽度 ＋ 2, a.高度 ＋ 2)<br />                     d.移动 (d.左边 ＋ 2, d.顶边 ＋ 2, , )<br />                 .如果真结束<br /> <br />             .如果结束<br /> <br />         .否则<br />             .如果 (i ％ 2 ＝ 0)<br />                 .如果真 (a.左边 ＜ a.宽度 ＋ 30)<br />                     a.移动 (a.左边 ＋ 1, a.顶边 ＋ 1, a.宽度 － 2, a.高度 － 2)<br />                     d.移动 (d.左边 － 2, d.顶边 － 2, , )<br />                 .如果真结束<br /> <br />             .否则<br />                 .如果真 (a.左边 ＜ 0)<br />                     a.移动 (a.左边 ＋ 1, a.顶边 ＋ 1, a.宽度 － 2, a.高度 － 2)<br />                     d.移动 (d.左边 － 2, d.顶边 － 2, , )<br />                 .如果真结束<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .计次循环尾 ()<br /> <br />     处理事件 ()<br />     延时 (10)<br /> .判断循环尾 ()

错误(10064): 发现死循环代码。大哥

chenboss

jinenjun 发表于 2024-11-24 05:57
[e=0].版本 2
.支持库 ExuiKrnln

第一行  判断循环首(真)  改成  判断循环首(可视)

jinenjun

chenboss 发表于 2024-11-24 06:30
第一行  判断循环首(真)  改成  判断循环首(可视)

不过你这好丝滑，但是开关的功能代码不知道怎么写了

chenboss

jinenjun 发表于 2024-11-24 06:36
不过你这好丝滑，但是开关的功能代码不知道怎么写了

  

子程序名	返回值类型	公开	备 注
_dd_选中状态改变	整数型
参数名	类 型	参考	可空	数组	备 注
新状态	整数型
附加参数1	整数型
附加参数2	整数型
附加参数3	整数型

变量名	类 型	静态	数组	备 注
d	滑动按钮EX
hk记号	整数型

d ＝ 取事件组件 ()
hk记号 ＝ 取整 (到整数 (d.标记) － 300)
判断 (hk记号 ＝ 1)
调试输出 (hk记号, 新状态)

判断 (hk记号 ＝ 2)
调试输出 (hk记号, 新状态)
判断 (hk记号 ＝ 3)
调试输出 (hk记号, 新状态)
判断 (hk记号 ＝ 4)
调试输出 (hk记号, 新状态)



' 省略每个组件都一样这个写法，根据标记执行不同的代码

i支持库列表	支持库注释
ExuiKrnln	(未知支持库)
spec	特殊功能支持库

.版本 2<br /> .支持库 ExuiKrnln<br /> .支持库 spec<br /> <br /> .子程序 _dd_选中状态改变, 整数型<br /> .参数 新状态, 整数型<br /> .参数 附加参数1, 整数型<br /> .参数 附加参数2, 整数型<br /> .参数 附加参数3, 整数型<br /> .局部变量 d, 滑动按钮EX<br /> .局部变量 hk记号, 整数型<br /> <br /> d ＝ 取事件组件 ()<br /> hk记号 ＝ 取整 (到整数 (d.标记) － 300)<br /> <br /> .判断开始 (hk记号 ＝ 1)<br />     调试输出 (hk记号, 新状态)<br /> <br /> .判断 (hk记号 ＝ 2)<br />     调试输出 (hk记号, 新状态)<br /> <br /> .判断 (hk记号 ＝ 3)<br />     调试输出 (hk记号, 新状态)<br /> <br /> .判断 (hk记号 ＝ 4)<br />     调试输出 (hk记号, 新状态)<br /> <br /> .默认<br /> <br /> .判断结束<br /> ' 省略每个组件都一样这个写法，根据标记执行不同的代码