易语言组件移动边缘检测

荭枫

前段时间没事写了一个简单的组件移动边缘检测 水平低 勿喷

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口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.高度 ≤ 下边缘)
返回 (真)

返回 (假)

.版本 2<br /> <br /> .程序集 窗口程序集_窗口1<br /> <br /> .子程序 _窗口1_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .判断开始 (键代码 ＝ #A键)<br /> 按钮2.左边 ＝ 按钮2.左边 － 1<br /> .判断 (键代码 ＝ #D键)<br /> 按钮2.左边 ＝ 按钮2.左边 ＋ 1<br /> .判断 (键代码 ＝ #W键)<br /> 按钮2.顶边 ＝ 按钮2.顶边 ＋ 1<br /> <br /> .判断 (键代码 ＝ #S键)<br /> 按钮2.顶边 ＝ 按钮2.顶边 － 1<br /> .默认<br /> <br /> .判断结束<br /> 刷新显示 ()<br /> <br /> .子程序 _按钮2_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 a, 逻辑型<br /> <br /> a ＝ 假<br /> a ＝ 判断物体 ()<br /> .如果 (a ＝ 真)<br /> 标签1.标题 ＝ “不要怼我”<br /> .如果真 (键代码 ＝ #A键)<br /> 按钮2.左边 ＝ 按钮2.左边<br /> .如果真结束<br /> .如果真 (键代码 ＝ #D键)<br /> 按钮2.左边 ＝ 按钮2.左边<br /> .如果真结束<br /> .如果真 (键代码 ＝ #W键)<br /> 按钮2.顶边 ＝ 按钮2.顶边<br /> .如果真结束<br /> .如果真 (键代码 ＝ #S键)<br /> 按钮2.顶边 ＝ 按钮2.顶边<br /> .如果真结束<br /> <br /> .否则<br /> 标签1.标题 ＝ “快来怼我”<br /> .如果结束<br /> .如果真 (键代码 ＝ #A键)<br /> 按钮2.左边 ＝ 按钮2.左边 － 1<br /> .如果真结束<br /> .如果真 (键代码 ＝ #D键)<br /> 按钮2.左边 ＝ 按钮2.左边 ＋ 1<br /> .如果真结束<br /> .如果真 (键代码 ＝ #W键)<br /> 按钮2.顶边 ＝ 按钮2.顶边 － 1<br /> .如果真结束<br /> .如果真 (键代码 ＝ #S键)<br /> 按钮2.顶边 ＝ 按钮2.顶边 ＋ 1<br /> .如果真结束<br /> <br /> <br /> .子程序 判断物体, 逻辑型<br /> .局部变量 左边缘<br /> .局部变量 右边缘<br /> .局部变量 上边缘<br /> .局部变量 下边缘<br /> <br /> 左边缘 ＝ 分组框1.左边<br /> 右边缘 ＝ 分组框1.左边 ＋ 分组框1.宽度<br /> 上边缘 ＝ 分组框1.顶边<br /> 下边缘 ＝ 分组框1.顶边 ＋ 分组框1.高度<br /> .如果真 (按钮2.左边 ≥ 左边缘 且 按钮2.左边 ≤ 右边缘)<br /> .如果真 (按钮2.顶边 ≥ 上边缘 且 按钮2.顶边 ≤ 下边缘)<br /> 返回 (真)<br /> .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (按钮2.左边 ＋ 按钮2.宽度 ≥ 左边缘 且 按钮2.左边 ＋ 按钮2.宽度 ≤ 右边缘)<br /> .如果真 (按钮2.顶边 ＋ 按钮2.高度 ≥ 上边缘 且 按钮2.顶边 ＋ 按钮2.高度 ≤ 下边缘)<br /> 返回 (真)<br /> .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (按钮2.左边 ＋ 按钮2.宽度 ≥ 左边缘 且 按钮2.左边 ＋ 按钮2.宽度 ≤ 右边缘)<br /> .如果真 (按钮2.顶边 ≥ 上边缘 且 按钮2.顶边 ≤ 下边缘)<br /> 返回 (真)<br /> .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (按钮2.左边 ≥ 左边缘 且 按钮2.左边 ≤ 右边缘)<br /> .如果真 (按钮2.顶边 ＋ 按钮2.高度 ≥ 上边缘 且 按钮2.顶边 ＋ 按钮2.高度 ≤ 下边缘)<br /> 返回 (真)<br /> .如果真结束<br /> <br /> .如果真结束<br /> 返回 (假)

aidijy

了解一下，看

nan柯

不错 支持一下

qiuyingjia

可以的支持

小易学编

嗯,不知有木有用，试试看了..

月光刀影

持开源~！感谢分享

绝版ん楠楠

支持开源~！感谢分享

1530787462

过来学习一下

明月黄籽实况主

感谢分享！、

表哥怡风

过来学习一下

sa123123

挺好的