查看: 19975|回复: 86	[昨夜星辰] 【源码+思路】计算偏色之RGB篇 [复制链接]

发送短消息 UID 728264 帖子 3502 精华 18 鲜花 1899 朵 铜币 27454 个 银币 1718 个 性别 在线时间 82980 注册时间 2011-08-04 最后登录 2024-12-22 2500039815 查看公共资料 搜索主题 搜索帖子 昨夜星辰 QQ250039815 组别按键认证大神 UID728264 帖子3502 精华18 鲜花1899 朵 铜币27454 个 银币1718 个 在线时间82980 注册时间2011-08-04 按键X开拓者勋章 按键精灵X版开拓者勋章 过大年勋章 俩小福娃给大家拜年啦！ 抗战胜利70周年勋章 抗战胜利70周年活动的专属勋章 单身汪勋章 单身贵族的专属勋章 按键14周年庆纪念勋章 按键14周年庆纪念勋章 羊年勋章 羊年纪念勋章 按键学院 按键学院专属勋章，按键学院学员或文章被院刊收入可领取 马年勋章 马年纪念勋章 鹰眼勋章 鹰眼注册用户专属勋章 双蛋勋章 双蛋活动勋章 黄瓜勋章 体验商业小精灵活动的奖励 按键卫士 参与“打击山寨，维护按键”活动 屌丝勋章 参与屌丝逆袭活动专属勋章 土豪勋章 活动期间在淘宝商场购买按键产品 天使勋章 天使一样的用户 潜水员 按键潜水员勋章 按键明星 按键明星勋章 黄金之翼 黄金之翼勋章 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com 龙年勋章 龙年纪念勋章 十周年勋章 十周年纪念勋章 兔年勋章 兔年纪念勋章 虎年勋章 虎年纪念勋章 论坛GG 按键论坛男性用户勋章 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章 盒子会员 盒子会员专属勋章	1# 字体大小: t T 发表于 2022-05-22 11:07 | |只看楼主 我们在进行颜色或文字识别时，经常会遇到颜色过于复杂的情况，那么就需要填写很多颜色才能识别。遇到这种情况就会造成一些麻烦，诸如颜色参数填写太长或插件对颜色个数有限制（大漠插件仅允许最多支持10个颜色），解决的方法就是通过偏色来减少颜色个数。但如果随意填写一个偏色就可能会导致颜色识别过少或过多，造成识别不精准的问题。今天我们就来讲一下如何将多个颜色，计算合并成一个精准的颜色范围，即计算偏色。 思路： 1、将要计算的16进制颜色字符串拆分为R、G、B并转换为10进制，目的是方便用于计算。 2、将拆分出全部的R、G、B统计，统计出最大的R、G、B和最小的R、G、B，对应相加并除以二，计算的出R、G、B中间值，即为颜色范围的10进制基础色。 3、将统计出最大的R、G、B或最小的R、G、B与R、G、B中间值对应相减，即可得到颜色范围的10进制偏色。 4、将10进制基础色转换为16进制，将10进制偏色转换为16进制，然后将二者连接，即为完整的颜色范围。 要点： 1、16进制转10进制用"Eval"函数配合"&H"。 Function RGB拆分(RGB_Str) RGB拆分 = Array(Eval("&H"&Mid(RGB_Str, 1, 2)), Eval("&H"&Mid(RGB_Str, 3, 2)), Eval("&H"&Mid(RGB_Str, 5, 2))) End Function 复制代码 2、R、G、B中间值计算时可能会出现小数点，应当只保留整数部分后，再取RGB中间值与RBG最大或RGB最小值中差值最大的值作为偏色。 Function 取最大差值(Min, Max, Avg) Dim 差值1, 差值2 差值1 = Abs(Min - Avg) 差值2 = Abs(Max - Avg) If 差值1 > 差值2 Then 取最大差值 = 差值1 Else 取最大差值 = 差值2 End If End Function 复制代码 3、由于R、G、B每种颜色为2位长度，所以在10进制转换为16进制时，若转换后的颜色为1位长度，需要"0"&连接颜色，否则颜色不正确。 Function RGB组合(R, G, B) R = Hex(R) If Len(R) = 1 Then R = "0" & R End If G = Hex(G) If Len(G) = 1 Then G = "0" & G End If B = Hex(B) If Len(B) = 1 Then B = "0" & B End If RGB组合 = R & G & B End Function 复制代码 完整源码： Function 计算RGB偏色(颜色组合) 颜色组合 = Split(颜色组合, "|") Dim i, U_颜色组合 U_颜色组合 = UBound(颜色组合) Dim Min_R, Min_G, Min_B Dim Max_R, Max_G, Max_B Dim Avg_R, Avg_G, Avg_B Dim RGB, R, G, B, D_R, D_G, D_B RGB = RGB拆分(颜色组合(0)) Min_R = RGB(0) Min_G = RGB(1) Min_B = RGB(2) Max_R = RGB(0) Max_G = RGB(1) Max_B = RGB(2) For i = 1 To U_颜色组合 RGB = RGB拆分(颜色组合(i)) If RGB(0) < Min_R Then Min_R = RGB(0) Else If RGB(0) > Max_R Then Max_R = RGB(0) End If End If If RGB(1) < Min_G Then Min_G = RGB(1) Else If RGB(1) > Max_G Then Max_G = RGB(1) End If End If If RGB(2) < Min_B Then Min_B = RGB(2) Else If RGB(2) > Max_B Then Max_B = RGB(2) End If End If Next Avg_R = Int((Min_R + Max_R) / 2) Avg_G = Int((Min_G + Max_G) / 2) Avg_B = Int((Min_B + Max_B) / 2) D_R = 取最大差值(Min_R, Max_R, Avg_R) D_G = 取最大差值(Min_G, Max_G, Avg_G) D_B = 取最大差值(Min_B, Max_B, Avg_B) 计算RGB偏色 = RGB组合(Avg_R, Avg_G, Avg_B) &"-"& RGB组合(D_R, D_G, D_B) End Function Function RGB拆分(RGB_Str) RGB拆分 = Array(Eval("&H"&Mid(RGB_Str, 1, 2)), Eval("&H"&Mid(RGB_Str, 3, 2)), Eval("&H"&Mid(RGB_Str, 5, 2))) End Function Function RGB组合(R, G, B) R = Hex(R) If Len(R) = 1 Then R = "0" & R End If G = Hex(G) If Len(G) = 1 Then G = "0" & G End If B = Hex(B) If Len(B) = 1 Then B = "0" & B End If RGB组合 = R & G & B End Function Function 取最大差值(Min, Max, Avg) Dim 差值1, 差值2 差值1 = Abs(Min - Avg) 差值2 = Abs(Max - Avg) If 差值1 > 差值2 Then 取最大差值 = 差值1 Else 取最大差值 = 差值2 End If End Function 复制代码 调用示例： TracePrint 计算RGB偏色("010203|030201") TracePrint 计算RGB偏色("000000|ffffff") 调试结果： 020202-010001 7F7F7F-808080 点评 江中游  分析的非常透彻  发表于 2022/7/16 21:27:25
	昨夜星辰 最后编辑于 2022-05-22 11:38:16 本主题由 超级版主 瑞祥幽冥狼 于 2023/10/5 18:35:52 执行 审核帖子 操作 点赞 近期制作： 传奇私服各种反外挂插件版本挂机软件，可教可售 原神加速、连发辅助工具 天下3自动钓大鱼辅助工具 承接脚本定制，点击下方联系 QQ：250039815 交流群：101296478
	回顶部

发送短消息 UID 5166201 帖子 79 精华 0 鲜花 26 朵 铜币 258 个 银币 207 个 性别 在线时间 1800 注册时间 2018-04-06 最后登录 2022-09-27 937758398 查看公共资料 搜索主题 搜索帖子 heiqimingren heiqimingren 组别小学四年级 UID5166201 帖子79 精华0 鲜花26 朵 铜币258 个 银币207 个 在线时间1800 注册时间2018-04-06 按键精灵开发者4级 可通过提升认证等级来升级勋章：rz.anjian.com	2# 字体大小: t T 发表于 2022-05-22 12:07 | |只看该用户 学习一下。。。。。。。。。。。。。。。。
	回顶部

发送短消息 UID 8522251 帖子 143 精华 0 鲜花 107 朵 铜币 134 个 银币 109 个 性别 在线时间 0 注册时间 2021-11-01 最后登录 2024-11-28 12345 查看公共资料 搜索主题 搜索帖子 0976039722 0976039722 组别小学六年级 UID8522251 帖子143 精华0 鲜花107 朵 铜币134 个 银币109 个 在线时间0 注册时间2021-11-01	3# 字体大小: t T 发表于 2022-05-22 12:27 | |只看该用户 就是不想用大漠 能不能用 原生命令做出有偏色功能的多點找色函數 pc版的 点评 昨夜星辰  能做出来，但是效率很低。算法和语言都决定了比大漠快是很难的。  发表于 2022/5/22 15:07:31
	回顶部

发送短消息 UID 859777 帖子 49 精华 0 鲜花 26 朵 铜币 78 个 银币 48 个 性别 在线时间 20 注册时间 2011-11-06 最后登录 2023-01-03 908888948 查看公共资料 搜索主题 搜索帖子 没空吻你 没空吻你 组别小学二年级 UID859777 帖子49 精华0 鲜花26 朵 铜币78 个 银币48 个 在线时间20 注册时间2011-11-06	4# 字体大小: t T 发表于 2022-05-22 16:17 | |只看该用户 进来学习下大神的写法。
	回顶部

发送短消息 UID 842417 帖子 539 精华 0 鲜花 63 朵 铜币 764 个 银币 100 个 性别 在线时间 8260 注册时间 2011-10-27 最后登录 2024-02-20 85137168 查看公共资料 搜索主题 搜索帖子 huangyunid huangyunid 组别高中一年级 UID842417 帖子539 精华0 鲜花63 朵 铜币764 个 银币100 个 在线时间8260 注册时间2011-10-27 按键精灵开发者2级 可通过提升认证等级来升级勋章：rz.anjian.com	5# 字体大小: t T 发表于 2022-05-22 16:41 | |只看该用户 学习大师的写作技巧，辛苦了~
	回顶部

发送短消息 UID 3958378 帖子 651 精华 0 鲜花 141 朵 铜币 3298 个 银币 128 个 性别 在线时间 7160 注册时间 2016-06-07 最后登录 2024-12-05 查看公共资料 搜索主题 搜索帖子 z3090712 组别高中三年级 UID3958378 帖子651 精华0 鲜花141 朵 铜币3298 个 银币128 个 在线时间7160 注册时间2016-06-07 按键精灵开发者2级 可通过提升认证等级来升级勋章：rz.anjian.com	6# 字体大小: t T 发表于 2022-05-22 20:12 | |只看该用户 66666666
	回顶部

发送短消息 UID 7899892 帖子 7 精华 0 鲜花 4 朵 铜币 16 个 银币 6 个 性别 在线时间 0 注册时间 2020-09-04 最后登录 2022-08-28 12345 查看公共资料 搜索主题 搜索帖子 henanhxsm henanhxsm 组别小学一年级 UID7899892 帖子7 精华0 鲜花4 朵 铜币16 个 银币6 个 在线时间0 注册时间2020-09-04	7# 字体大小: t T 发表于 2022-05-29 16:53 | |只看该用户 厉害厉害 要学习啊啊
	回顶部

发送短消息 UID 1375711 帖子 19 精华 0 鲜花 3 朵 铜币 29 个 银币 19 个 性别 在线时间 0 注册时间 2012-10-20 最后登录 2022-07-09 986094922 查看公共资料 搜索主题 搜索帖子 as986094922 as986094922 组别小学一年级 UID1375711 帖子19 精华0 鲜花3 朵 铜币29 个 银币19 个 在线时间0 注册时间2012-10-20	8# 字体大小: t T 发表于 2022-05-31 21:00 | |只看该用户 就是不想用大漠 能不能用 原生命令做出有偏色功能的多點找色函數 pc版的
	回顶部

发送短消息 UID 5897174 帖子 2 精华 0 鲜花 1 朵 铜币 22 个 银币 2 个 性别 在线时间 0 注册时间 2018-12-08 最后登录 2022-06-01 查看公共资料 搜索主题 搜索帖子 lance_ajjl lance_ajjl 组别幼儿园 UID5897174 帖子2 精华0 鲜花1 朵 铜币22 个 银币2 个 在线时间0 注册时间2018-12-08	9# 字体大小: t T 发表于 2022-06-01 09:35 | |只看该用户 感谢分享，学习
	回顶部

发送短消息 UID 8764040 帖子 1 精华 0 鲜花 2 朵 铜币 2 个 银币 2 个 性别 在线时间 0 注册时间 2022-06-07 最后登录 2022-06-07 查看公共资料 搜索主题 搜索帖子 mimi99528 组别幼儿园 UID8764040 帖子1 精华0 鲜花2 朵 铜币2 个 银币2 个 在线时间0 注册时间2022-06-07	10# 字体大小: t T 发表于 2022-06-07 19:07 | |只看该用户
	回顶部

发送短消息 UID 1953175 帖子 47 精华 0 鲜花 6 朵 铜币 185 个 银币 7 个 性别 在线时间 1220 注册时间 2013-06-27 最后登录 2022-06-27 254131169 查看公共资料 搜索主题 搜索帖子 cd520 cd520 组别小学二年级 UID1953175 帖子47 精华0 鲜花6 朵 铜币185 个 银币7 个 在线时间1220 注册时间2013-06-27	11# 字体大小: t T 发表于 2022-06-11 12:00 | |只看该用户 看看啥情况
	回顶部

发送短消息 UID 509127 帖子 56 精华 0 鲜花 1 朵 铜币 183 个 银币 1 个 性别 在线时间 3660 注册时间 2010-10-01 最后登录 2022-06-28 215212 查看公共资料 搜索主题 搜索帖子 xinghoo xinghoo 组别小学三年级 UID509127 帖子56 精华0 鲜花1 朵 铜币183 个 银币1 个 在线时间3660 注册时间2010-10-01	12# 字体大小: t T 发表于 2022-06-16 14:35 | |只看该用户 太牛了吧
	回顶部

发送短消息 UID 4345191 帖子 21 精华 0 鲜花 1 朵 铜币 58 个 银币 2 个 性别 在线时间 2380 注册时间 2017-02-18 最后登录 2022-06-22 9129700 查看公共资料 搜索主题 搜索帖子 9129700 9129700 组别小学一年级 UID4345191 帖子21 精华0 鲜花1 朵 铜币58 个 银币2 个 在线时间2380 注册时间2017-02-18	13# 字体大小: t T 发表于 2022-06-19 19:52 | |只看该用户 TracePrint 计算RGB偏色("010203|030201")
	回顶部

发送短消息 UID 3918430 帖子 18 精华 0 鲜花 41 朵 铜币 55 个 银币 18 个 性别 在线时间 20 注册时间 2016-05-15 最后登录 2023-09-04 查看公共资料 搜索主题 搜索帖子 qcg00 组别小学一年级 UID3918430 帖子18 精华0 鲜花41 朵 铜币55 个 银币18 个 在线时间20 注册时间2016-05-15	14# 字体大小: t T 发表于 2022-06-23 14:22 | |只看该用户 好东西找了很久了
	回顶部

发送短消息 UID 498488 帖子 92 精华 0 鲜花 14 朵 铜币 174 个 银币 12 个 性别 在线时间 4620 注册时间 2010-09-12 最后登录 2023-12-29 455678300 查看公共资料 搜索主题 搜索帖子 caina1213 caina1213 组别小学五年级 UID498488 帖子92 精华0 鲜花14 朵 铜币174 个 银币12 个 在线时间4620 注册时间2010-09-12	15# 字体大小: t T 发表于 2022-07-03 02:12 | |只看该用户 学习一下
	回顶部

发送短消息 UID 8742771 帖子 37 精华 0 鲜花 20 朵 铜币 35 个 银币 35 个 性别 在线时间 0 注册时间 2022-05-18 最后登录 2022-12-08 查看公共资料 搜索主题 搜索帖子 caijm321 组别小学二年级 UID8742771 帖子37 精华0 鲜花20 朵 铜币35 个 银币35 个 在线时间0 注册时间2022-05-18	16# 字体大小: t T 发表于 2022-07-16 20:32 | |只看该用户 Thanks for your sharing,Let me learn it
	回顶部

发送短消息 UID 8308745 帖子 218 精华 0 鲜花 98 朵 铜币 218 个 银币 373 个 性别 在线时间 0 注册时间 2021-05-27 最后登录 2024-09-01 查看公共资料 搜索主题 搜索帖子 ouyeah999 皮蛋炒饭 组别初中一年级 UID8308745 帖子218 精华0 鲜花98 朵 铜币218 个 银币373 个 在线时间0 注册时间2021-05-27 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com	17# 字体大小: t T 发表于 2022-08-03 19:29 | |只看该用户 学习学习
	回顶部

发送短消息 UID 1315942 帖子 311 精华 0 鲜花 41 朵 铜币 747 个 银币 64 个 性别 在线时间 12020 注册时间 2012-09-11 最后登录 2024-05-30 12345 查看公共资料 搜索主题 搜索帖子 w84428 w84428 组别初中二年级 UID1315942 帖子311 精华0 鲜花41 朵 铜币747 个 银币64 个 在线时间12020 注册时间2012-09-11 按键会员（月） 按键会员绑定账号后自动赠送	18# 字体大小: t T 发表于 2022-08-03 22:48 | |只看该用户 进来学习下大神的写法
	回顶部

发送短消息 UID 8669553 帖子 53 精华 0 鲜花 56 朵 铜币 63 个 银币 58 个 性别 在线时间 0 注册时间 2022-03-23 最后登录 2023-03-01 查看公共资料 搜索主题 搜索帖子 yz25612 组别小学三年级 UID8669553 帖子53 精华0 鲜花56 朵 铜币63 个 银币58 个 在线时间0 注册时间2022-03-23	19# 字体大小: t T 发表于 2022-08-05 14:42 | |只看该用户 向大佬学学学习
	回顶部

发送短消息 UID 394131 帖子 90 精华 0 鲜花 -24 朵 铜币 192 个 银币 131 个 性别 在线时间 2760 注册时间 2010-04-14 最后登录 2022-08-17 188377448 查看公共资料 搜索主题 搜索帖子 guowei0504 guowei0504 组别小学五年级 UID394131 帖子90 精华0 鲜花-24 朵 铜币192 个 银币131 个 在线时间2760 注册时间2010-04-14 按键会员（季） 按键会员绑定账号后自动赠送 按键精灵开发者5级 可通过提升认证等级来升级勋章：rz.anjian.com	20# 字体大小: t T 发表于 2022-08-05 23:24 | |只看该用户 正需要，专门回复看看大神解决思路
	回顶部