JPG 图片 如何判断颜色 是 黑色 红色 蓝 白

liangfeng988

如下图四个白底图, 怎么判定这个图片是 什么颜色的 ? 易语言 代码,谢了.


黑色 蓝色 红色 白色


格式JPG

白色

真冬

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

_按钮1_被单击 ()

子程序名	返回值类型	公开	备 注
子程序1取图片颜色	整数型		返回平均色
参数名	类 型	参考	可空	数组	备 注
参数_图片字节集	字节集
参数_颜色排行	整数型				返回统计颜色最多的
参数_排名数	整数型				设置统计颜色排名数，默认6

变量名	类 型	静态	数组	备 注
dd	对象
a	字节集
i1	整数型
i2	整数型
r	整数型		256
g	整数型		256
b	整数型		256
c	整数型		6
c1	整数型		0
c2	整数型		0
c3	整数型		0
cc	整数型		3
ccc	字节集
cl	整数型

dd.创建图片对象 (参数_图片字节集)
' kk ＝ dd.读数值属性 (“Width”, )
' gg ＝ dd.读数值属性 (“Height”, )
a ＝ dd.取回图片 ()
变量循环首 (取字节集数据 (a, #整数型, 11), 取字节集长度 (a) － 3, 3, i1)
r [a [i1] ＋ 1] ＝ r [a [i1] ＋ 1] ＋ 1
g [a [i1 ＋ 2] ＋ 1] ＝ g [a [i1 ＋ 2] ＋ 1] ＋ 1
b [a [i1 ＋ 1] ＋ 1] ＝ b [a [i1 ＋ 1] ＋ 1] ＋ 1
变量循环尾 ()
c1 ＝ r
数组排序 (c1, 假)
c2 ＝ g
数组排序 (c2, 假)
c3 ＝ b
数组排序 (c3, 假)
如果真 (参数_排名数 ＞ 0)
重定义数组 (c, 假, 参数_排名数)
cl ＝ 取数组成员数 (c)
计次循环首 (256, i1)
计次循环首 (cl, i2)
如果真 (r [i1] ＝ c1 [i2])
c [i2] ＝ c [i2] ＋ i1 － 1
如果真 (g [i1] ＝ c2 [i2])
c [i2] ＝ c [i2] ��� (i1 － 1) × 256
如果真 (b [i1] ＝ c3 [i2])
c [i2] ＝ c [i2] ��� (i1 － 1) × 256 × 256

计次循环尾 ()
计次循环尾 ()
计次循环首 (cl, i1)
ccc ＝ 到字节集 (c [i1])
cc [1] ＝ cc [1] ＋ ccc [1]
cc [2] ＝ cc [2] ＋ ccc [2]
cc [3] ＝ cc [3] ＋ ccc [3]
计次循环尾 ()
参数_颜色排行 ＝ c
返回 (取颜色值 (cc [1] ÷ cl, cc [2] ÷ cl, cc [3] ÷ cl))

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
a	文本型		0
i1	整数型
b	字节集
c	整数型		0
i2	整数型

加入成员 (a, “”)
加入成员 (a, “”)
加入成员 (a, “”)
加入成员 (a, “”)
i1 ＝ i1 ＋ 1
如果真 (i1 ＞ 取数组成员数 (a))
i1 ＝ 1
b ＝ HTTP读文件 (a [i1])
底色 ＝ 子程序1取图片颜色 (b, c)
图片框1.图片 ＝ b
列表框1.清空 ()
列表框1.加入项目 (到文本 (底色) ＋ “平均颜色”, )
计次循环首 (取数组成员数 (c), i2)
列表框1.加入项目 (到文本 (c [i2]) ＋ “第” ＋ 数值到大写 (i2, 真) ＋ “颜色最多”, )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_列表框1_列表项被选择

底色 ＝ 到整数 (列表框1.取项目文本 (列表框1.现行选中项))

i支持库列表	支持库注释
internet	互联网支持库

.版本 2<br /> .支持库 internet<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> _按钮1_被单击 ()<br /> <br /> .子程序 子程序1取图片颜色, 整数型, , 返回平均色<br /> .参数 参数_图片字节集, 字节集<br /> .参数 参数_颜色排行, 整数型, 参考 可空 数组, 返回统计颜色最多的<br /> .参数 参数_排名数, 整数型, 可空, 设置统计颜色排名数，默认6<br /> .局部变量 dd, 对象<br /> .局部变量 a, 字节集<br /> .局部变量 i1, 整数型<br /> .局部变量 i2, 整数型<br /> .局部变量 r, 整数型, , "256"<br /> .局部变量 g, 整数型, , "256"<br /> .局部变量 b, 整数型, , "256"<br /> .局部变量 c, 整数型, , "6"<br /> .局部变量 c1, 整数型, , "0"<br /> .局部变量 c2, 整数型, , "0"<br /> .局部变量 c3, 整数型, , "0"<br /> .局部变量 cc, 整数型, , "3"<br /> .局部变量 ccc, 字节集<br /> .局部变量 cl, 整数型<br /> <br /> dd.创建图片对象 (参数_图片字节集)<br /> ' kk ＝ dd.读数值属性 (“Width”, )<br /> ' gg ＝ dd.读数值属性 (“Height”, )<br /> a ＝ dd.取回图片 ()<br /> .变量循环首 (取字节集数据 (a, #整数型, 11), 取字节集长度 (a) － 3, 3, i1)<br />     r [a [i1] ＋ 1] ＝ r [a [i1] ＋ 1] ＋ 1<br />     g [a [i1 ＋ 2] ＋ 1] ＝ g [a [i1 ＋ 2] ＋ 1] ＋ 1<br />     b [a [i1 ＋ 1] ＋ 1] ＝ b [a [i1 ＋ 1] ＋ 1] ＋ 1<br /> .变量循环尾 ()<br /> c1 ＝ r<br /> 数组排序 (c1, 假)<br /> c2 ＝ g<br /> 数组排序 (c2, 假)<br /> c3 ＝ b<br /> 数组排序 (c3, 假)<br /> .如果真 (参数_排名数 ＞ 0)<br />     重定义数组 (c, 假, 参数_排名数)<br /> .如果真结束<br /> cl ＝ 取数组成员数 (c)<br /> .计次循环首 (256, i1)<br />     .计次循环首 (cl, i2)<br />         .如果真 (r [i1] ＝ c1 [i2])<br />             c [i2] ＝ c [i2] ＋ i1 － 1<br />         .如果真结束<br />         .如果真 (g [i1] ＝ c2 [i2])<br />             c [i2] ＝ c [i2] ＋ (i1 － 1) × 256<br />         .如果真结束<br />         .如果真 (b [i1] ＝ c3 [i2])<br />             c [i2] ＝ c [i2] ＋ (i1 － 1) × 256 × 256<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> .计次循环首 (cl, i1)<br />     ccc ＝ 到字节集 (c [i1])<br />     cc [1] ＝ cc [1] ＋ ccc [1]<br />     cc [2] ＝ cc [2] ＋ ccc [2]<br />     cc [3] ＝ cc [3] ＋ ccc [3]<br /> .计次循环尾 ()<br /> 参数_颜色排行 ＝ c<br /> 返回 (取颜色值 (cc [1] ÷ cl, cc [2] ÷ cl, cc [3] ÷ cl))<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 文本型, , "0"<br /> .局部变量 i1, 整数型, 静态<br /> .局部变量 b, 字节集<br /> .局部变量 c, 整数型, , "0"<br /> .局部变量 i2, 整数型<br /> <br /> 加入成员 (a, “<img id="aimg_RNaVl" onclick="zoom(this, this.src, 0, 0, 0)" class="zoom" src="https://att.125.la/data/attachment/forum/202212/09/150747tooa8owmnncg8xw6.jpg" onmouseover="img_onmouseoverfunc(this)" lazyloadthumb="1" border="0" alt="" />”)<br /> 加入成员 (a, “<img id="aimg_Uwz8o" onclick="zoom(this, this.src, 0, 0, 0)" class="zoom" src="https://att.125.la/data/attachment/forum/202212/09/150747g662i7ibb6v2k62f.jpg" onmouseover="img_onmouseoverfunc(this)" lazyloadthumb="1" border="0" alt="" />”)<br /> 加入成员 (a, “<img id="aimg_f8Lv3" onclick="zoom(this, this.src, 0, 0, 0)" class="zoom" src="https://att.125.la/data/attachment/forum/202212/09/150747oh017y0iueyer7or.jpg" onmouseover="img_onmouseoverfunc(this)" lazyloadthumb="1" border="0" alt="" />”)<br /> 加入成员 (a, “<img id="aimg_cv62F" onclick="zoom(this, this.src, 0, 0, 0)" class="zoom" src="https://att.125.la/data/attachment/forum/202212/09/150747en0t00np6qw8t8q1.jpg" onmouseover="img_onmouseoverfunc(this)" lazyloadthumb="1" border="0" alt="" />”)<br /> i1 ＝ i1 ＋ 1<br /> .如果真 (i1 ＞ 取数组成员数 (a))<br />     i1 ＝ 1<br /> .如果真结束<br /> b ＝ HTTP读文件 (a [i1])<br /> 底色 ＝ 子程序1取图片颜色 (b, c)<br /> 图片框1.图片 ＝ b<br /> 列表框1.清空 ()<br /> 列表框1.加入项目 (到文本 (底色) ＋ “平均颜色”, )<br /> .计次循环首 (取数组成员数 (c), i2)<br />     列表框1.加入项目 (到文本 (c [i2]) ＋ “第” ＋ 数值到大写 (i2, 真) ＋ “颜色最多”, )<br /> .计次循环尾 ()<br /> <br /> .子程序 _列表框1_列表项被选择<br /> <br /> 底色 ＝ 到整数 (列表框1.取项目文本 (列表框1.现行选中项))

2022年12月9日17取图片平均色.e (149.36 KB, 下载次数: 8)

2022-12-9 17:25 上传

点击文件名下载附件






补充内容 (2022-12-9 17:27):
我代码里写的是图片网址，是论坛自己识别成图片的

泭流

乐玩模块 图色_取色均值数据（）   然后跟黑色 蓝色 红色 白色 对比 看看哪个的误差最小

snxcx123

易语言怎么样获取一张图片的颜色
https://bbs.125.la/forum.php?mod=viewthread&tid=14695573
(出处: 精易论坛)