开源 位图 转 二值化 反色 灰度 建议用于优化精易位图处理

shituo

为了优化速度  部分地方用了汇编的运算命令 此命令 为论坛开源模块里面附带的大家多找找就找到了
新版修复 取色出错问题，  适用于24位位图图片。  

  

子程序名	返回值类型	公开	备 注
位图_反色	字节集		黑白灰 返回1 纯黑白 返回0  彩色或 图片为空返回-1
参数名	类 型	参考	可空	数组	备 注
数据	字节集

变量名	类 型	静态	数组	备 注
图片对象	对象
图片宽度
图片高度
纠正
首
纵
i
m	整数型
bin	字节集

图片宽度 ＝ 位图_取宽度 (数据)
图片高度 ＝ 位图_取高度 (数据)
如果真 (图片宽度 ≤ 0 或 图片宽度 ≤ 0)
返回 ({  })
纠正 ＝ 位与 (图片宽度, 3)  ' ---------------------这点别忘添加了
首 ＝ 55  ' 取字节集数据 (数据, #字节型, 11)  ' 头文件长度
' 源数宽 ＝ 图片宽度 × 3 ＋ 纠正  ' 一行真正的长度
' 源大小 ＝ 源数宽 × 图片高度 ＋ 头长  ' 图片大小 字节集长度
' 调试输出 (取字节集长度 (数据), 源数宽 × 源高度 ＋ 头长)
纵 ＝ 图片宽度
bin ＝ 数据
计次循环首 (图片高度 × 图片宽度, i)
变量循环首 (首, 首 ＋ 2, 1, m)
bin [m] ＝ _Sub (255, 数据 [m])
变量循环尾 ()
' 数据 [首] ＝ 255 － 数据 [首]
' 调试输出 (首)
' 数据 [首 ＋ 1] ＝ 255 － 数据 [首 ＋ 1]
' 数据 [首 ＋ 2] ＝ 255 － 数据 [首 ＋ 2]
判断 (i ＝ 纵)
纵 ＝ 纵 ＋ 图片宽度
首 ＝ _Add3 (首, 3, 纠正)
首 ＝ 首 ＋ 3

计次循环尾 ()
返回 (bin)

子程序名	返回值类型	公开	备 注
位图_灰阶	字节集		黑白灰 返回1 纯黑白 返回0  彩色或 图片为空返回-1
参数名	类 型	参考	可空	数组	备 注
数据	字节集

变量名	类 型	静态	数组	备 注
图片对象	对象
图片宽度
图片高度
纠正
首
纵
i
m
bin	字节集

图片宽度 ＝ 位图_取宽度 (数据)
图片高度 ＝ 位图_取高度 (数据)
如果真 (图片宽度 ≤ 0 或 图片宽度 ≤ 0)
返回 ({  })
纠正 ＝ 位与 (图片宽度, 3)  ' ---------------------这点别忘添加了
首 ＝ 55  ' 取字节集数据 (数据, #字节型, 11)  ' 头文件长度
' 源数宽 ＝ 图片宽度 × 3 ＋ 纠正  ' 一行真正的长度
' 源大小 ＝ 源数宽 × 图片高度 ＋ 头长  ' 图片大小 字节集长度
' 调试输出 (取字节集长度 (数据), 源数宽 × 源高度 ＋ 头长)
纵 ＝ 图片宽度
bin ＝ 数据
计次循环首 (图片高度 × 图片宽度, i)
m ＝ _Add3 (数据 [首], 数据 [首 ＋ 1], 数据 [首 ＋ 2])
m ＝ _Idiv (m, 3)
bin [首] ＝ m
bin [首 ＋ 1] ＝ m
bin [首 ＋ 2] ＝ m
判断 (i ＝ 纵)
纵 ＝ 纵 ＋ 图片宽度
首 ＝ _Add3 (首, 3, 纠正)
首 ＝ 首 ＋ 3

计次循环尾 ()
返回 (bin)

子程序名	返回值类型	公开	备 注
位图_二值	字节集
参数名	类 型	参考	可空	数组	备 注
数据	字节集
阔值	整数型				推荐 ：127

变量名	类 型	静态	数组	备 注
图片对象	对象
图片宽度
图片高度
纠正
首
纵
i
bin	字节集
color
m

图片宽度 ＝ 位图_取宽度 (数据)
图片高度 ＝ 位图_取高度 (数据)
如果真 (图片宽度 ≤ 0 或 图片宽度 ≤ 0)
返回 ({  })
纠正 ＝ 位与 (图片宽度, 3)  ' ---------------------这点别忘添加了
首 ＝ 55  ' 取字节集数据 (数据, #字节型, 11)  ' 头文件长度
' 源数宽 ＝ 图片宽度 × 3 ＋ 纠正  ' 一行真正的长度
' 源大小 ＝ 源数宽 × 图片高度 ＋ 头长  ' 图片大小 字节集长度
' 调试输出 (取字节集长度 (数据), 源数宽 × 源高度 ＋ 头长)
纵 ＝ 图片宽度
bin ＝ 数据
阔值 ＝ 阔值 × 3
计次循环首 (图片高度 × 图片宽度, i)
color ＝ _Add3 (数据 [首], 数据 [首 ＋ 1], 数据 [首 ＋ 2])
判断 (color ＞ 阔值)
color ＝ 255
color ＝ 0

' 变量循环首 (首, 首 ＋ 2, 1, m)
bin [首] ＝ color
bin [首 ＋ 1] ＝ color
bin [首 ＋ 2] ＝ color
判断 (i ＝ 纵)
纵 ＝ 纵 ＋ 图片宽度
首 ＝ _Add3 (首, 3, 纠正)
首 ＝ 首 ＋ 3

计次循环尾 ()
返回 (bin)

子程序名	返回值类型	公开	备 注
位图_取坐标颜色_api	整数型		失败返回-1
参数名	类 型	参考	可空	数组	备 注
位图数据	字节集
坐标X	整数型
坐标Y	整数型

变量名	类 型	静态	数组	备 注
图像宽度	整数型
图像高度	整数型
首	整数型
图片对象	对象
图单行长度	整数型
图数据大小
纠正
sv	字节集

如果真 (位图数据 ＝ {  })
返回 (-1)
如果真 (坐标X ≤ 0 或 坐标Y ≤ 0)
' 调试输出 (坐标X, 坐标Y)
返回 (-1)
' 调试输出 (取字节集数据 (位图数据, #短整数型, 29))
. ' 如果真 (位图_取位数 (位图数据) ≠ 24)
' 图片对象.创建图片对象 (位图数据)
' 位图数据 ＝ 图片对象.取回图片 ()
' 图片对象.清除 ()
图像宽度 ＝ 位图_取宽度 (位图数据)
图像高度 ＝ 位图_取高度 (位图数据)
如果真 (坐标X ＞ 图像宽度 或 坐标Y ＞ 图像高度)
返回 (-1)
图数据大小 ＝ 取字节集长度 (位图数据)
图单行长度 ＝ _Idiv (图数据大小 － 54, 图像高度)
纠正 ＝ _Idiv (图单行长度, 图像宽度)
坐标Y ＝ 坐标Y ＋ 1  ' 194
坐标X ＝ 纠正 × 坐标X ＋ 1
首 ＝ 图数据大小 － 图单行长度 × 坐标Y ＋ 坐标X
返回 (图色_取颜色值_汇编 (位图数据 [首 ＋ 2], 位图数据 [首 ＋ 1], 位图数据 [首]))  ' 排列为 BGR 改为 RGB

.版本 2<br /> <br /> .子程序 位图_反色, 字节集, 公开, 黑白灰 返回1 纯黑白 返回0  彩色或 图片为空返回-1<br /> .参数 数据, 字节集<br /> .局部变量 图片对象, 对象<br /> .局部变量 图片宽度<br /> .局部变量 图片高度<br /> .局部变量 纠正<br /> .局部变量 首<br /> .局部变量 纵<br /> .局部变量 i<br /> .局部变量 m, 整数型<br /> .局部变量 bin, 字节集<br /> <br /> 图片宽度 ＝ 位图_取宽度 (数据)<br /> 图片高度 ＝ 位图_取高度 (数据)<br /> .如果真 (图片宽度 ≤ 0 或 图片宽度 ≤ 0)<br />     返回 ({  })<br /> .如果真结束<br /> 纠正 ＝ 位与 (图片宽度, 3)  ' ---------------------这点别忘添加了<br /> 首 ＝ 55  ' 取字节集数据 (数据, #字节型, 11)  ' 头文件长度<br /> ' 源数宽 ＝ 图片宽度 × 3 ＋ 纠正  ' 一行真正的长度<br /> ' 源大小 ＝ 源数宽 × 图片高度 ＋ 头长  ' 图片大小 字节集长度<br /> ' 调试输出 (取字节集长度 (数据), 源数宽 × 源高度 ＋ 头长)<br /> 纵 ＝ 图片宽度<br /> bin ＝ 数据<br /> .计次循环首 (图片高度 × 图片宽度, i)<br />     .变量循环首 (首, 首 ＋ 2, 1, m)<br />         bin [m] ＝ _Sub (255, 数据 [m])<br />     .变量循环尾 ()<br />     ' 数据 [首] ＝ 255 － 数据 [首]<br />     ' 调试输出 (首)<br />     ' 数据 [首 ＋ 1] ＝ 255 － 数据 [首 ＋ 1]<br />     ' 数据 [首 ＋ 2] ＝ 255 － 数据 [首 ＋ 2]<br />     .判断开始 (i ＝ 纵)<br />         纵 ＝ 纵 ＋ 图片宽度<br />         首 ＝ _Add3 (首, 3, 纠正)<br />     .默认<br />         首 ＝ 首 ＋ 3<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 返回 (bin)<br /> <br /> .子程序 位图_灰阶, 字节集, 公开, 黑白灰 返回1 纯黑白 返回0  彩色或 图片为空返回-1<br /> .参数 数据, 字节集<br /> .局部变量 图片对象, 对象<br /> .局部变量 图片宽度<br /> .局部变量 图片高度<br /> .局部变量 纠正<br /> .局部变量 首<br /> .局部变量 纵<br /> .局部变量 i<br /> .局部变量 m<br /> .局部变量 bin, 字节集<br /> <br /> <br /> 图片宽度 ＝ 位图_取宽度 (数据)<br /> 图片高度 ＝ 位图_取高度 (数据)<br /> .如果真 (图片宽度 ≤ 0 或 图片宽度 ≤ 0)<br />     返回 ({  })<br /> .如果真结束<br /> 纠正 ＝ 位与 (图片宽度, 3)  ' ---------------------这点别忘添加了<br /> 首 ＝ 55  ' 取字节集数据 (数据, #字节型, 11)  ' 头文件长度<br /> ' 源数宽 ＝ 图片宽度 × 3 ＋ 纠正  ' 一行真正的长度<br /> ' 源大小 ＝ 源数宽 × 图片高度 ＋ 头长  ' 图片大小 字节集长度<br /> ' 调试输出 (取字节集长度 (数据), 源数宽 × 源高度 ＋ 头长)<br /> 纵 ＝ 图片宽度<br /> bin ＝ 数据<br /> <br /> <br /> .计次循环首 (图片高度 × 图片宽度, i)<br />     m ＝ _Add3 (数据 [首], 数据 [首 ＋ 1], 数据 [首 ＋ 2])<br />     m ＝ _Idiv (m, 3)<br />     bin [首] ＝ m<br />     bin [首 ＋ 1] ＝ m<br />     bin [首 ＋ 2] ＝ m<br />     .判断开始 (i ＝ 纵)<br />         纵 ＝ 纵 ＋ 图片宽度<br />         首 ＝ _Add3 (首, 3, 纠正)<br />     .默认<br />         首 ＝ 首 ＋ 3<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 返回 (bin)<br /> <br /> .子程序 位图_二值, 字节集, 公开<br /> .参数 数据, 字节集<br /> .参数 阔值, 整数型, , 推荐 ：127<br /> .局部变量 图片对象, 对象<br /> .局部变量 图片宽度<br /> .局部变量 图片高度<br /> .局部变量 纠正<br /> .局部变量 首<br /> .局部变量 纵<br /> .局部变量 i<br /> .局部变量 bin, 字节集<br /> .局部变量 color<br /> .局部变量 m<br /> <br /> 图片宽度 ＝ 位图_取宽度 (数据)<br /> 图片高度 ＝ 位图_取高度 (数据)<br /> .如果真 (图片宽度 ≤ 0 或 图片宽度 ≤ 0)<br />     返回 ({  })<br /> .如果真结束<br /> 纠正 ＝ 位与 (图片宽度, 3)  ' ---------------------这点别忘添加了<br /> 首 ＝ 55  ' 取字节集数据 (数据, #字节型, 11)  ' 头文件长度<br /> ' 源数宽 ＝ 图片宽度 × 3 ＋ 纠正  ' 一行真正的长度<br /> ' 源大小 ＝ 源数宽 × 图片高度 ＋ 头长  ' 图片大小 字节集长度<br /> ' 调试输出 (取字节集长度 (数据), 源数宽 × 源高度 ＋ 头长)<br /> 纵 ＝ 图片宽度<br /> bin ＝ 数据<br /> 阔值 ＝ 阔值 × 3<br /> .计次循环首 (图片高度 × 图片宽度, i)<br />     color ＝ _Add3 (数据 [首], 数据 [首 ＋ 1], 数据 [首 ＋ 2])<br />     .判断开始 (color ＞ 阔值)<br />         color ＝ 255<br />     .默认<br />         color ＝ 0<br />     .判断结束<br /> <br />     ' 变量循环首 (首, 首 ＋ 2, 1, m)<br />     bin [首] ＝ color<br />     bin [首 ＋ 1] ＝ color<br />     bin [首 ＋ 2] ＝ color<br />     .判断开始 (i ＝ 纵)<br />         纵 ＝ 纵 ＋ 图片宽度<br />         首 ＝ _Add3 (首, 3, 纠正)<br />     .默认<br />         首 ＝ 首 ＋ 3<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 返回 (bin)<br /> <br /> .版本 2<br /> <br /> .子程序 位图_取坐标颜色_api, 整数型, 公开, 失败返回-1   <br /> .参数 位图数据, 字节集<br /> .参数 坐标X, 整数型<br /> .参数 坐标Y, 整数型<br /> .局部变量 图像宽度, 整数型<br /> .局部变量 图像高度, 整数型<br /> .局部变量 首, 整数型<br /> .局部变量 图片对象, 对象<br /> .局部变量 图单行长度, 整数型<br /> .局部变量 图数据大小<br /> .局部变量 纠正<br /> .局部变量 sv, 字节集<br /> <br /> .如果真 (位图数据 ＝ {  })<br />     返回 (-1)<br /> .如果真结束<br /> .如果真 (坐标X ≤ 0 或 坐标Y ≤ 0)<br />     ' 调试输出 (坐标X, 坐标Y)<br />     返回 (-1)<br /> .如果真结束<br /> ' 调试输出 (取字节集数据 (位图数据, #短整数型, 29))<br /> .' 如果真 (位图_取位数 (位图数据) ≠ 24)<br />     ' 图片对象.创建图片对象 (位图数据)<br />     ' 位图数据 ＝ 图片对象.取回图片 ()<br />     ' 图片对象.清除 ()<br /> .如果真结束<br /> 图像宽度 ＝ 位图_取宽度 (位图数据)<br /> 图像高度 ＝ 位图_取高度 (位图数据)<br /> .如果真 (坐标X ＞ 图像宽度 或 坐标Y ＞ 图像高度)<br />     返回 (-1)<br /> .如果真结束<br /> 图数据大小 ＝ 取字节集长度 (位图数据)<br /> 图单行长度 ＝ _Idiv (图数据大小 － 54, 图像高度)<br /> 纠正 ＝ _Idiv (图单行长度, 图像宽度)<br /> 坐标Y ＝ 坐标Y ＋ 1  ' 194<br /> 坐标X ＝ 纠正 × 坐标X ＋ 1<br /> 首 ＝ 图数据大小 － 图单行长度 × 坐标Y ＋ 坐标X<br /> 返回 (图色_取颜色值_汇编 (位图数据 [首 ＋ 2], 位图数据 [首 ＋ 1], 位图数据 [首]))  ' 排列为 BGR 改为 RGB

jia201314973

头疼,模块找不到,带上模块地址也好啊..

258194512

感谢分享，很给力！~

无极

没有模块 也不告知 不就是找举报么

xtavoxing

找不到汇编运算模块呀.

天堂鸟是我

分亨不全面,就它吗的骗子

xjqtongxing2022

错误(37): 找不到指定的命令／子程序／Dll命令调用名称“_Sub”。

xjqtongxing2022

支持开源,学习一下!

theone88

有好评的顺手点个呗~

1312064949

谢谢开元