易语言组件移动边缘检测代码
.版本 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.高度 ≤ 下边缘)
返回 (真)
.如果真结束
.如果真结束
返回 (假)
|