源码写了一半，效果咋地也不对！帮忙看下！

雨落无声 · 发表于 2011-10-28 14:57:09

我想达到的效果是；类似网页漂浮广告的效果！窗口运行后开始漂浮！碰到边弹射回来继续飘.....循环！帮忙看下！
[e]
.版本 2
.程序集窗口程序集1
.程序集变量高, 整数型
.程序集变量宽, 整数型
.子程序 __启动窗口_创建完毕
高＝取屏幕高度 ()
宽＝取屏幕宽度 ()
_启动窗口.顶边＝高－ 232
_启动窗口.左边＝宽－ 202
时钟1.时钟周期＝ 50
时钟2.时钟周期＝ 0
时钟3.时钟周期＝ 0
.子程序 _时钟1_周期事件
.判断开始 (_启动窗口.顶边＜高－ 230 或 _启动窗口.左边＜宽－ 200)
_启动窗口.顶边＝ _启动窗口.顶边－ 3
_启动窗口.左边＝ _启动窗口.左边－ 3
.默认
.判断结束

.子程序 _时钟2_周期事件
.判断开始 (_启动窗口.顶边＜高或 _启动窗口.左边＜宽)
_启动窗口.顶边＝ _启动窗口.顶边＋ 3
_启动窗口.左边＝ _启动窗口.左边－ 3
.默认
.判断结束

.子程序 __启动窗口_位置被改变
.如果 (_启动窗口.顶边＜ 7)
时钟1.时钟周期＝ 0
时钟2.时钟周期＝ 50
返回 ()
.否则
.如果结束
.如果 (_启动窗口.顶边＞高－ 232)
时钟2.时钟周期＝ 0
时钟3.时钟周期＝ 50
返回 ()
.否则
.如果结束
.如果 (_启动窗口.顶边＜ 7)
时钟3.时钟周期＝ 0
时钟4.时钟周期＝ 50
.否则
.如果结束

.子程序 _时钟3_周期事件
.判断开始 (_启动窗口.左边＜宽)
_启动窗口.左边＝ _启动窗口.左边＋ 3
_启动窗口.顶边＝ _启动窗口.顶边－ 3
.默认
.判断结束

.子程序 _时钟4_周期事件
.判断开始 (_启动窗口.顶边＜高－ 230)
_启动窗口.顶边＝ _启动窗口.顶边＋ 3
_启动窗口.左边＝ _启动窗口.左边－ 3
.默认
.判断结束
[/e]

Sulen · 发表于 2011-10-28 14:57:10

例程.zip (1.79 KB, 下载次数: 18)

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

[已解决] 源码写了一半，效果咋地也不对！帮忙看下！

最佳答案

评分