---

易语言组件移动边缘检测代码

---

.版本 2

.程序集 窗口程序集_窗口1

.子程序 _窗口1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型

.判断开始 (键代码 ＝ #A键)
按钮2.左边 ＝ 按钮2.左边 － 1
.判断 (键代码 ＝ #D键)
按钮2.左边 ＝ 按钮2.左边 ＋ 1
.判断 (键代码 ＝ #W键)
按钮2.顶边 ＝ 按钮2.顶边 ＋ 1

.判断 (键代码 ＝ #S键)
按钮2.顶边 ＝ 按钮2.顶边 － 1
.默认

.判断结束
刷新显示 ()

.子程序 _按钮2_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.局部变量 a, 逻辑型

a ＝ 假
a ＝ 判断物体 ()
.如果 (a ＝ 真)
标签1.标题 ＝ “不要怼我”
.如果真 (键代码 ＝ #A键)
按钮2.左边 ＝ 按钮2.左边
.如果真结束
.如果真 (键代码 ＝ #D键)
按钮2.左边 ＝ 按钮2.左边
.如果真结束
.如果真 (键代码 ＝ #W键)
按钮2.顶边 ＝ 按钮2.顶边
.如果真结束
.如果真 (键代码 ＝ #S键)
按钮2.顶边 ＝ 按钮2.顶边
.如果真结束

.否则
标签1.标题 ＝ “快来怼我”
.如果结束
.如果真 (键代码 ＝ #A键)
按钮2.左边 ＝ 按钮2.左边 － 1
.如果真结束
.如果真 (键代码 ＝ #D键)
按钮2.左边 ＝ 按钮2.左边 ＋ 1
.如果真结束
.如果真 (键代码 ＝ #W键)
按钮2.顶边 ＝ 按钮2.顶边 － 1
.如果真结束
.如果真 (键代码 ＝ #S键)
按钮2.顶边 ＝ 按钮2.顶边 ＋ 1
.如果真结束


.子程序 判断物体, 逻辑型
.局部变量 左边缘
.局部变量 右边缘
.局部变量 上边缘
.局部变量 下边缘

左边缘 ＝ 分组框1.左边
右边缘 ＝ 分组框1.左边 ＋ 分组框1.宽度
上边缘 ＝ 分组框1.顶边
下边缘 ＝ 分组框1.顶边 ＋ 分组框1.高度
.如果真 (按钮2.左边 ≥ 左边缘 且 按钮2.左边 ≤ 右边缘)
.如果真 (按钮2.顶边 ≥ 上边缘 且 按钮2.顶边 ≤ 下边缘)
返回 (真)
.如果真结束

.如果真结束
.如果真 (按钮2.左边 ＋ 按钮2.宽度 ≥ 左边缘 且 按钮2.左边 ＋ 按钮2.宽度 ≤ 右边缘)
.如果真 (按钮2.顶边 ＋ 按钮2.高度 ≥ 上边缘 且 按钮2.顶边 ＋ 按钮2.高度 ≤ 下边缘)
返回 (真)
.如果真结束

.如果真结束
.如果真 (按钮2.左边 ＋ 按钮2.宽度 ≥ 左边缘 且 按钮2.左边 ＋ 按钮2.宽度 ≤ 右边缘)
.如果真 (按钮2.顶边 ≥ 上边缘 且 按钮2.顶边 ≤ 下边缘)
返回 (真)
.如果真结束

.如果真结束
.如果真 (按钮2.左边 ≥ 左边缘 且 按钮2.左边 ≤ 右边缘)
.如果真 (按钮2.顶边 ＋ 按钮2.高度 ≥ 上边缘 且 按钮2.顶边 ＋ 按钮2.高度 ≤ 下边缘)
返回 (真)
.如果真结束

.如果真结束
返回 (假)