可否用zm.FindColor遍历识别数字

hdyyyy

Dim ux = 352

Dim 颜色值

Dim v
Dim SB(9)
Dim N
Dim m(2)
Dim p=1


Rem 标记
for        2
Dim CODE=""
Dim uy = 166

For 8
Delay 120
颜色值 = GetPixelColor(ux, uy)
Delay 100
If 颜色值 = "FFFFFF" Then
Delay 120

v = "0"
Else
v ="1"
End If
CODE = CODE & v
Uy = Uy + 1
Delay 180

Next


Sb(0)="01111110"//0
Sb(1)="01000000"//1
Sb(2)="01100011"//2
Sb(3)="01100110"//3
Sb(4)="00001100"//4
Sb(5)="11111111"//5
Sb(6)="00111110"//6
Sb(7)="10000000"//7
Sb(8)="01101110"//8
Sb(9)="01110000"//9
Delay 100

TracePrint CODE
If CODE = SB(0) Then
N = 0
ElseIf CODE = SB(1) Then
N = "1"
ElseIf CODE = SB(2) Then
N = "2"
ElseIf CODE = SB(3) Then
N = "3"
ElseIf CODE = SB(4) Then
N = "4"
ElseIf CODE = SB(5) Then
N = "5"
ElseIf CODE = SB(6) Then
N = "6"
ElseIf CODE = SB(7) Then
N = "7"
ElseIf CODE = SB(8) Then
N = "8"
ElseIf CODE = SB(9) Then
N = "9"
Else
N = ""
End If
m(P) = N
TracePrint M(P)
p = p + 1
ux =UX+6
Delay 100
next

TracePrint M(1)&M(2)




请教各位大神，小白实在没办法才来求教，这个是识别数字的，以上代码本来是没多大问题了，通过遍历数字的最左边一列来区分，但无奈原生的GetPixelColor命令取色不够准（因为要识别的数字太小，不免有些边缘杂色，有些近似“FFFFFF”的也给归为“FFFFFF”），试了下   紫猫大大的插件命令识别的挺准，但试了好久，还是搞不懂格式怎么像我上面的代码运行，希望各位好心人能不吝指教该怎么改，还是有其他命令可以代替？谢谢啦

落幕aaa

ocr,做字库

hdyyyy

落幕aaa 发表于 2019-8-3 18:45
ocr,做字库

谢谢 已解决♪(^∇^*)

qweokup

楼主是怎么解决的呀