组件来回移动

463653346 · 发表于 2011-3-20 23:10:54

.版本 2

.判断循环首 (按钮1.左边 ≠ _启动窗口.宽度－按钮1.宽度)
按钮1.左边＝按钮1.左边＋ 1
延时 (20)
.判断循环尾 ()
.判断循环首 (按钮1.左边＝ _启动窗口.宽度－按钮1.宽度)
按钮1.左边＝按钮1.左边－ 1
.判断循环尾 ()
_按钮1_被单击 ()

_启动窗口.标题＝到文本 (按钮1.左边)

我要说明是第一个循环是可以达到效果，
.判断循环首 (按钮1.左边＝ _启动窗口.宽度－按钮1.宽度)
按钮1.左边＝按钮1.左边－ 1
.判断循环尾 ()
这段就不行了。
我要的效果是按钮来回移动。
有谁知道原因请详细的说下第2个循环那错了。

xbzx · 发表于 2011-3-20 23:10:55

本帖最后由 xbzx 于 2011-3-21 13:50 编辑

判断循环首 (按钮1.左边＝ _启动窗口.宽度－按钮1.宽度) ’这里用=号不全适，因为按钮1.左边＝按钮1.左边－ 1                               ‘ 这里减1，上面的就会不相等了，会跳出循环，                                                 ‘ 所以按钮左边-1后就不会再执行了。.判断循环尾 ()

正确的应是
.版本 2
.支持库 spec

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

.判断循环首 (按钮1.左边 ≠ _启动窗口.宽度－按钮1.宽度)
按钮1.左边＝按钮1.左边＋ 1
_启动窗口.标题＝到文本 (按钮1.左边)
_启动窗口.刷新显示 ()  ' 刷新窗口不会产生拖影。延迟 (20)
.判断循环尾 ()
.判断循环首 (按钮1.左边 ≠ 0)  ' 这里不能用=号，因为下边（按钮1.左边＝按钮1.左边－ 1）就不相等了就会跳出循环。按钮1.左边＝按钮1.左边－ 1
_启动窗口.标题＝到文本 (按钮1.左边)
_启动窗口.刷新显示 ()
延迟 (20)

.判断循环尾 ()
_按钮1_被单击 ()

.子程序 __启动窗口_将被销毁
结束 ()  ' 因程序是死循环，加这个命令强制结束。

测试.rar (1.23 KB, 下载次数: 18)

fsjoe · 发表于 2011-3-20 23:19:31

第二循环条件改为
.判断循环首 (按钮1.左边 >0)

Antony · 发表于 2011-3-21 07:50:51

本帖最后由小人物于 2011-3-21 07:57 编辑

.版本 2
.支持库 spec

.判断循环首 (按钮1.左边＜ _启动窗口.宽度－按钮1.宽度)
按钮1.左边＝按钮1.左边＋ 1
延迟 (3)
调试输出 (按钮1.左边)

.判断循环尾 ()

.判断循环首 (按钮1.左边＞ 0)
按钮1.左边＝按钮1.左边－ 1
延迟 (3)
调试输出 (按钮1.左边)

.判断循环尾 ()
_按钮2_被单击 ()
像我这样就可以了，好像运行久了会死机，点了X 调试输出还在输出，等我在改改，以前没想过这个组键移动的问题

airpppp · 发表于 2011-3-21 14:33:25

本帖最后由 airpppp 于 2011-3-21 14:39 编辑

如下:

.版本 2
.支持库 spec
.判断循环首 (按钮1.左边 ≤ _启动窗口.宽度－按钮1.宽度且按钮1.左边 ≥ 0)
按钮1.左边＝按钮1.左边－ 1
延迟 (5)
.判断循环尾 ()

复制代码

ps:论坛贴易代码的功能真不行!

		自动登录	找回密码
密码			注册

[已解决] 组件来回移动

最佳答案