纯新手一个!!求助大神
因工作原因 需要识别大量的数字并录入 现在也按照网上教程编了一个。
调试的时候发现数字虽然是黑底白字,但是颜色不统一有些黑色是“000000”有些黑色是“010101”等等无数个黑色(肉眼看起来都是黑色)
大神帮忙看下怎样调下 谢谢!
我这边的数字是 9*15 的!
ux = 108
uy = 232
For 9
code=""
y = uy
For 15
x = ux
For 9
GetColor=GetPixelColor(x,y)
If GetColor = "000000"Then
i = "1"
Else
i = "0"
End If
code = code & i
x = x + 1
Next
y = y + 1
Next
NO0="111111111110000111101111011101111011011111101011111101011111101011111101011111101011111101011111101011111101101111011101111011110000111"
NO1="111111111111101111110001111111101111111101111111101111111101111111101111111101111111101111111101111111101111111101111111101111110000011"
NO2="111111111100000111011111011011111101011111101011111101111111011111111011111110111111101111111011111110111111101111101011111101000000001"
NO3="111111111100001111011110111011111011011111011111111011111110111111000111111111011111111101111111101011111101011111101011111011100000111"
NO4="111111101111111001111110001111110001111101001111011001111011001110111001101111001101111001110000000111111001111111001111111001111100000"
NO5="111111111100000001101111111101111111101111111101111111101000111100111011101111101111111101111111101011111101011111101011111011100000111"
NO6="111111111111000011110111101101111101101111111011111111010000111001111011011111101011111101011111101011111101101111101101111011110000111"
NO7="111111111000000001011111011011110111111110111111101111111101111111011111111011111110111111110111111110111111110111111110111111110111111"
NO8="111111111110000111101111011011111101011111101011111101101111011110000111101111011011111101011111101011111101011111101101111011110000111"
NO9 = "111111111110000111101111011011111011011111101011111101011111101011111101101111001110000101111111101111111011011111011011110111100001111"