博客
关于我
强烈建议你试试无所不能的chatGPT,快点击我
识别颜色
阅读量:5244 次
发布时间:2019-06-14

本文共 1231 字,大约阅读时间需要 4 分钟。

Function 识别颜色(颜色值)    Call Plugin.Color.ColorToRGB(颜色值, R, G, B)        比例总值 = R + G + B    //防溢出    If (R = 0) and (G = 0) and (B = 0) Then     	识别颜色 = "黑色系"    	Exit Function    End If    //计算颜色比例    红色比例 = R / 比例总值    绿色比例 = G / 比例总值    蓝色比例 = B / 比例总值    TracePrint "红色比例:" & 红色比例 & "绿色比例:" & 绿色比例 & "蓝色比例:" & 蓝色比例    //灰色系    If (红色比例 > 0.32) and (红色比例 < 0.35) and (绿色比例 > 0.32) and (绿色比例 < 0.35) Then         If R < 32 Then             识别颜色 = "黑色系"        ElseIf R > 232 Then            识别颜色 = "白色系"        Else             识别颜色 = "灰色系"        End If        Exit Function    End If    //黄色系识别    If (红色比例 > 0.4) and (绿色比例 > 0.4) Then         识别颜色 = "黄色系"        Exit Function    End If    //青色系识别    If (蓝色比例 > 0.4) and (绿色比例 > 0.4) Then         识别颜色 = "青色系"        Exit Function    End If    //品红    If (红色比例 > 0.4) and (蓝色比例 > 0.4) Then         识别颜色 = "品红色系"        Exit Function    End If    //红色    If 红色比例 > 0.5 Then         识别颜色 = "红色系"        Exit Function    End If    //绿色    If 绿色比例 > 0.5 Then         识别颜色 = "绿色系"        Exit Function    End If    //蓝色    If 蓝色比例 > 0.5 Then         识别颜色 = "蓝色系"        Exit Function    End If    识别颜色 = "没有识别到的颜色"End Function

  

转载于:https://www.cnblogs.com/wjcourse/p/7661537.html

你可能感兴趣的文章
Entityframework:“System.Data.Entity.Internal.AppConfig”的类型初始值设定项引发异常。...
查看>>
Ubuntu 安装之python开发
查看>>
恶心的struts标签,等我毕业设计弄完了,瞧我怎么收拾你。
查看>>
Linux中防火墙centos
查看>>
hudson+apachecontinuum+ant
查看>>
mysql新建用户,用户授权,删除用户,修改密码
查看>>
实验五 TCP传输及加密
查看>>
【iOS】build diff: /../Podfile.lock: No such file or directory
查看>>
【Android Studio】使用 Genymotion 调试出现错误 INSTALL_FAILED_CPU_ABI_INCOMPATI
查看>>
FancyCoverFlow
查看>>
教你一分钟实现动态模糊效果
查看>>
C++中explicit的用法
查看>>
java 企业站源码 兼容手机平板PC 响应式 主流SSM框架 freemaker 静态引擎
查看>>
AliOS编译安装MyRocks
查看>>
JS博客
查看>>
Docx转Doc操作(c#)
查看>>
Docker——error pulling image configuration
查看>>
一条简单的 SQL 执行超过 1000ms,纳尼?
查看>>
Python函数(一)之杵臼之交
查看>>
关于将qt作为max插件ui库所遇到的困难
查看>>