第一个过滤白点,第二个过滤黑点。不用每个教程都给你加注释吧……
引用
评论
【图像操作】修复一些点
第一个函数是修复图像中缺少的点 (4方向)
输入：
1 图像的二维数组 (二值)
2 阈值 要具体测试，使用0~5之间的阈值获得最佳效果
return nothing
图像的二维数组被直接操作
Public Function FixPoints(ByVal PicAInput(,) As Integer, ByVal L As Integer)
Dim i, j As Integer
Dim Tmp_Count As Integer
For i = 1 To 50
For j = 1 To 50
'If PicAInput(i, j) = 1 Then Tmp_Count += 1
If PicAInput(i + 1, j) = 1 Then Tmp_Count += 1
If PicAInput(i - 1, j) = 1 Then Tmp_Count += 1
If PicAInput(i, j + 1) = 1 Then Tmp_Count += 1
If PicAInput(i, j - 1) = 1 Then Tmp_Count += 1
If Tmp_Count > L Then
PicAInput(i, j) = 1
End If
Tmp_Count = 0
Next
Next
Return Nothing
End Function
函数2
输入同上，不过是修复独立的点 （对验证码中的干扰线有去除功能
Public Function FixSpoint(ByVal PicAInput(,) As Integer, ByVal L As Integer)
Dim i, j As Integer
Dim Tmp_Count As Integer
For i = 1 To 50
For j = 1 To 50
'If PicAInput(i, j) = 1 Then Tmp_Count += 1
If PicAInput(i + 1, j) = 0 Then Tmp_Count += 1
If PicAInput(i - 1, j) = 0 Then Tmp_Count += 1
If PicAInput(i, j + 1) = 0 Then Tmp_Count += 1
If PicAInput(i, j - 1) = 0 Then Tmp_Count += 1
If Tmp_Count > L Then
PicAInput(i, j) = 0
End If
Tmp_Count = 0
Next
Next
Return Nothing
End Function
输入：
1 图像的二维数组 (二值)
2 阈值 要具体测试，使用0~5之间的阈值获得最佳效果
return nothing
图像的二维数组被直接操作
Public Function FixPoints(ByVal PicAInput(,) As Integer, ByVal L As Integer)
Dim i, j As Integer
Dim Tmp_Count As Integer
For i = 1 To 50
For j = 1 To 50
'If PicAInput(i, j) = 1 Then Tmp_Count += 1
If PicAInput(i + 1, j) = 1 Then Tmp_Count += 1
If PicAInput(i - 1, j) = 1 Then Tmp_Count += 1
If PicAInput(i, j + 1) = 1 Then Tmp_Count += 1
If PicAInput(i, j - 1) = 1 Then Tmp_Count += 1
If Tmp_Count > L Then
PicAInput(i, j) = 1
End If
Tmp_Count = 0
Next
Next
Return Nothing
End Function
函数2
输入同上，不过是修复独立的点 （对验证码中的干扰线有去除功能
Public Function FixSpoint(ByVal PicAInput(,) As Integer, ByVal L As Integer)
Dim i, j As Integer
Dim Tmp_Count As Integer
For i = 1 To 50
For j = 1 To 50
'If PicAInput(i, j) = 1 Then Tmp_Count += 1
If PicAInput(i + 1, j) = 0 Then Tmp_Count += 1
If PicAInput(i - 1, j) = 0 Then Tmp_Count += 1
If PicAInput(i, j + 1) = 0 Then Tmp_Count += 1
If PicAInput(i, j - 1) = 0 Then Tmp_Count += 1
If Tmp_Count > L Then
PicAInput(i, j) = 0
End If
Tmp_Count = 0
Next
Next
Return Nothing
End Function
LS不及格。
Public Function ColorRGB(ByVal Color As Long) As Long
If Color = -1 Then ColorRGB = 999: Exit Function
Const ByN As Integer = 256
Const ByN2 As Long = 65536
Dim A(2) As Byte
A(0) = (Color Mod ByN)
A(1) = ((Color Mod ByN2) \\ ByN)
A(2) = (Color \\ ByN2)
ColorRGB = (Color Mod ByN) + ((Color Mod ByN2) \\ ByN) + (Color \\ ByN2)
End Function
https://www.kechuang.org/t/12553
Public Function ColorRGB(ByVal Color As Long) As Long
If Color = -1 Then ColorRGB = 999: Exit Function
Const ByN As Integer = 256
Const ByN2 As Long = 65536
Dim A(2) As Byte
A(0) = (Color Mod ByN)
A(1) = ((Color Mod ByN2) \\ ByN)
A(2) = (Color \\ ByN2)
ColorRGB = (Color Mod ByN) + ((Color Mod ByN2) \\ ByN) + (Color \\ ByN2)
End Function
https://www.kechuang.org/t/12553
引用
评论