首页 > 专利查询

易语言利用鼠标模拟点击的方式实现自动画图的代码

易语⾔利⽤⿏标模拟点击的⽅式实现⾃动画图的代码DLL命令表

.版本 2

.DLL命令 PostMessageA, 整数型, "user32.dll", "PostMessageA", , 如果函数调⽤成功，返回⾮零值：如果函数调⽤失败，返回值是零

.参数 hWnd, 整数型, , 其窗⼝程序接收消息的窗⼝的句柄

.参数 Msg, 整数型, , 指定被寄送的消息

.参数 wParam, 整数型, , 指定附加的消息特定的信息

.参数 IParam, 整数型, , 指定附加的消息特定的信息

⾃动绘画的代码

此功能需要加载精易模块5.6

鼠标跟随.版本 2

.⽀持库 spec

.⽀持库 shell

.⽀持库 BmpOperate

.程序集窗⼝程序集_启动窗⼝

.程序集变量⽂件路径, ⽂本型

.程序集变量开始, 逻辑型

路网密度.⼦程序 __启动窗⼝_创建完毕

窗⼝_热键注册 (取窗⼝句柄 (), 1, #A键, &_按钮_绘画_被单击, 1)

.⼦程序 _按钮_绘画_被单击

.局部变量 a, 整数型

.局部变量 b, 整数型

.局部变量⿏标位置, 精易_坐标

程序_延时 (2000, )

⿏标位置＝⿏标_取位置 ()

调试输出 (1)

开始＝真

.计次循环⾸ (画板1.宽度, a)

.计次循环⾸ (画板1.⾼度, b)

.如果 (画板1.取点 (a, b) ＝ 0)

程序_延时 (1)

⿏标_移动 (, ⿏标位置.横＋ a, ⿏标位置.纵＋ b)

⿏标_按键 (1, 3)

.否则

⿏标_按键 (1, 4)

.如果结束

系统_处理事件 ()

.如果真 (开始＝假)

跳出循环 ()

.如果真结束

.计次循环尾 ()

.如果真 (开始＝假)

跳出循环 ()

.如果真结束

.计次循环尾 ()

调试输出 (2)

.⼦程序 _按钮_载⼊_被单击

通⽤对话框1.初始⽬录＝取特定⽬录 (3)

通⽤对话框1.过滤器＝ “PNG|*.png|JPG|*.jpg|BMP|*.bmp|JPGE|*.jpge”

通⽤对话框1.打开 ()

⽂件路径＝通⽤对话框1.⽂件名

画板1.底图＝读⼊⽂件 (通⽤对话框1.⽂件名)

画板1.底图＝清除杂点 (⼆值化处理 (画板1.取图⽚ (, ), 150), 0)

.⼦程序⼆值化处理, 字节集

.参数图⽚, 字节集

.参数⼆值化值, 整数型

局部变量位图, 位图

.局部变量 x, 整数型

.局部变量 y, 整数型

.局部变量 RGB, 字节集

.局部变量颜⾊值, 整数型

位图.载⼊数据 (图⽚)

.计次循环⾸ (位图.取⾼度 (), y)

.计次循环⾸ (位图.取宽度 (), x)

RGB ＝到字节集 (位图.取某点颜⾊ (x － 1, y － 1))

颜⾊值＝ (RGB [1] ＋ RGB [2] ＋ RGB [3]) ÷ 3

.如果 (⼆值化值＜颜⾊值)

位图.置某点颜⾊ (x － 1, y － 1, #⽩⾊)

.否则

位图.置某点颜⾊ (x － 1, y － 1, #⿊⾊)

.如果结束

.计次循环尾 ()

返回 (位图.取位图数据 ())

.⼦程序清除杂点, 字节集

.参数图⽚, 字节集, , ⼆值化后的图⽚

.参数清除强度, 整数型, 可空, 默认为1

.局部变量位图, 位图

局部变量 x, 整数型

.局部变量 y, 整数型

.局部变量 x_, 整数型

.局部变量 y_, 整数型

.局部变量 i, 整数型

.局部变量 a, 整数型

.如果真 (是否为空 (清除强度))

清除强度＝ 1

.如果真结束

位图.载⼊数据 (图⽚)

.计次循环⾸ (位图.取⾼度 (), y)

包装内托

计次循环⾸ (位图.取宽度 (), x)

.如果真 (位图.取某点颜⾊ (x － 1, y － 1) ＝ #⿊⾊)

a ＝ 0

.计次循环⾸ (8, i)

x_ ＝多项选择 (i, 0, 1, 1, 1, 0, -1, -1, -1)

y_ ＝多项选择 (i, -1, -1, 0, 1, 1, 1, 0, -1)

.如果真 (位图.取某点颜⾊ (x － 1 － x_, y － 1 － y_) ＝ #⿊⾊)

a ＝ a ＋ 1

.如果真结束

.计次循环尾 ()

.如果真 (a ≤ 清除强度)

位图.置某点颜⾊ (x － 1, y － 1, #⽩⾊)

.如果真结束

.计次循环尾 ()

返回 (位图.取位图数据 ())

.⼦程序反⾊处理, 字节集

.参数图⽚, 字节集

.局部变量位图, 位图

.局部变量 x, 整数型

.局部变量 y, 整数型

局部变量 RGB, 字节集

位图.载⼊数据 (图⽚)

.计次循环⾸ (位图.取⾼度 (), y)

.计次循环⾸ (位图.取宽度 (), x)

冰点渗透压RGB ＝到字节集 (位图.取某点颜⾊ (x － 1, y － 1))

位图.置某点颜⾊ (x － 1, y － 1, 取颜⾊值 (255 － RGB [1], 255 － RGB [2], 255 － RGB [3]))

.计次循环尾 ()

三脚电感

返回 (位图.取位图数据 ())

.⼦程序 _按钮_⿊⽩_被单击

画板1.底图＝清除杂点 (⼆值化处理 (画板1.取图⽚ (, ), 150), 0)

⼦程序 _按钮_反⾊_被单击

画板1.底图＝反⾊处理 (画板1.取图⽚ (, ))

.⼦程序 _滑块条1_位置被改变

调试输出 (滑块条1.位置)

画板1.底图＝读⼊⽂件 (⽂件路径)

画板1.底图＝清除杂点 (⼆值化处理 (画板1.取图⽚ (, ), 滑块条1.位置), 0)

运⾏结果：

总结

动静压主轴以上就是这篇⽂章的全部内容了，希望本⽂的内容对⼤家的学习或者⼯作具有⼀定的参考学习价值，谢谢⼤家对的⽀持。如果你想了解更多相关内容请查看下⾯相关链接

本文发布于:2024-09-22 01:36:23，感谢您对本站的认可！

本文链接：https://www.17tex.com/tex/4/339512.html

上一篇：javascript试题

下一篇：教您轻松学会flash动画ps制图幻影离子特效制作空间白云动画

标签：程序画板位图循环清除消息对话框相关

留言与评论（共有 0 条评论）