识别颜色
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