第一个过滤白点,第二个过滤黑点。不用每个教程都给你加注释吧……
16238
%7B%22isLastPage%22%3Atrue%2C%22notes%22%3A%5B%5D%2C%22pid%22%3A%22t16238%22%2C%22tid%22%3A%2216238%22%2C%22mainForumsId%22%3A%5B%22134%22%5D%2C%22categoriesId%22%3A%5B%220%22%5D%2C%22tcId%22%3A%5B%5D%7D
%7B%22isEditMode%22%3Afalse%7D
【图像操作】修复一些点
第一个函数是修复图像中缺少的点 (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
引用
加载评论中，请稍候...
200字以内，仅用于支线交流，主线讨论请采用回复功能。
93°
学者 笔友
学者 笔友
200字以内，仅用于支线交流，主线讨论请采用回复功能。