nCount_Down = 0
nCount_Left = 0
nCount_Right = 0
'扫描18*18 方格
For X = i * 18 To i * 18 + 17
'上部
For Y = 0 To 5
If Picture2.Point(X, Y) = vbBlack Then
nCount_Up = nCount_Up + 1 '黑色像素点总数+1
End If
Next Y
'中部
For Y = 6 To 11
If Picture2.Point(X, Y) = vbBlack Then
nCount_Middle = nCount_Middle + 1 '黑色像素点总
数+1
End If
Next Y
'下部
For Y = 12 To 17
If Picture2.Point(X, Y) = vbBlack Then
nCount_Down = nCount_Down + 1 '黑色像素点总数+1
End If
Next Y
Next X
For Y = 0 To 17
'左侧
For X = 0 To 8
If Picture2.Point(X, Y) = vbBlack Then
nCount_Left = nCount_Left + 1 '黑色像素点总数+1
End If
Next X
'右侧
For X = 9 To 17
If Picture2.Point(X, Y) = vbBlack Then
nCount_Right = nCount_Right + 1 '黑色像素点总数
+1
End If
Next X
Next Y
'写入Settings.ini
If GetValueFromIni(App.Path & "\Settings.ini", "Count", "Number" & i
& "_Left") = "" Then
WritePrivateProfileString "Count", CStr("Number" & Mid(TxtChar, i
+ 1, 1) & "_Up"), nCount_Up, App.Path & "\Settings.ini"
Else
WritePrivateProfileString "Count", CStr("Number" & Mid(TxtChar, i
+ 1, 1) & "_Up"), (nCount_Up + GetValueFromIni(App.Path & "\Settings.ini",
"Count", "Number" & i & "_Left")) * 0.5, App.Path & "\Settings.ini"
End If
If GetValueFromIni(App.Path & "\Settings.ini", "Count", "Number" & i |
