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