- 积分
- 50
- 阅读权限
- 100
- 鲜花
- 0
- 猫粮
- 184
- 在线时间
- 82 小时
- 精华
- 0
- 注册时间
- 2018-5-1
- 性别
- 保密
- 最后登录
- 2024-2-10
易语言游戏编程班学员
- 鲜花
- 0
- 猫粮
- 184
|
楼主 |
发表于 2019-4-3 22:40:36
|
显示全部楼层
绝杀了!研究了个算法
If 色系识别(146, 149) = True Then
TracePrint "找到"
End If
Function 色系识别(x,y)
色系值 = False
color = dm.GetColorBGR(x,y)
B = Mid(color, 1, 2)
G = Mid(color, 3, 2)
R = Mid(color, 5, 2)
R1 = Lib.算法.十六进制转十进制(R)
G1 = Lib.算法.十六进制转十进制(G)
B1 = Lib.算法.十六进制转十进制(B)
MyString = Len(B1)
If MyString = 1 Then
b1="0"&b1
End If
权值 = R1 + G1 + B1
CR = R1 / 权值
CG = G1 / 权值
CB = B1 / 权值
If CG > 0.4 Then
TracePrint abs(cr - cb)
m=abs(cr - cb)
MyVar = Mid(m, 1, 5)
TracePrint myvar
If MyVar = 0.101 or MyVar = 0.102 Then
色系识别=True
End If
End If
End Function
|
|