Erosion (侵蚀) (VB 6.0)

介绍

八邻居侵蚀的计算方式如下：

四邻居侵蚀的计算方式如下：

用法

‘设定所有变量必须宣告才能使用

Option Explicit

‘窗体起始加载事件

Private Sub Form_Load()

    ‘picture1加载影像

    Picture1.Picture = LoadPicture(App.Path & "\Lai, Tai-Yu.bmp")

    ‘宣告巡览X轴变量

    Dim lngX As Long

    ‘宣告巡览Y轴变量

    Dim lngY As Long

    ‘宣告结果像素变量

    Dim intS

    ‘宣告矩阵第一列变量

    Dim intA, intB, intC

    ‘宣告矩阵第二列变量

    Dim intD, intE, intF

    ‘宣告矩阵第三列变量

    Dim intG, intH, intI

    ‘设定picture1控件采用像素为单位

    Picture1.ScaleMode = 3

    ‘使picture1控件的自动重绘有效

    Picture1.AutoRedraw = True

    ‘设定picture2控件采用像素为单位

    Picture2.ScaleMode = 3

    ‘使picture2控件的自动重绘有效

    Picture2.AutoRedraw = True

    ‘巡览picture1的Y轴

    For lngY = 0 To Picture1.ScaleHeight

        ‘巡览picture1的X轴

        For lngX = 0 To Picture1.ScaleWidth

            ‘让计算机有多余时间处理其他事件

            DoEvents

            ‘像素值减去255，是代表当遇到白色的时候，回传值为零

            ‘反之若遇到黑色则为-255

            intA = (Picture1.Point(lngX - 1, lngY - 1) And &HFF) - 255

            intB = (Picture1.Point(lngX, lngY - 1) And &HFF) - 255

            intC = (Picture1.Point(lngX + 1, lngY - 1) And &HFF) - 255

            intD = (Picture1.Point(lngX - 1, lngY) And &HFF) - 255

            intE = (Picture1.Point(lngX, lngY) And &HFF) - 255

            intF = (Picture1.Point(lngX + 1, lngY) And &HFF) - 255

            intG = (Picture1.Point(lngX - 1, lngY + 1) And &HFF) - 255

            intH = (Picture1.Point(lngX, lngY + 1) And &HFF) - 255

            intI = (Picture1.Point(lngX + 1, lngY + 1) And &HFF) – 255

            '当结果像素等于零时，则设定为白色；反之则设定为黑色

            intS = intA And intB And intC And intD And intF And intG And intH And intI

            If intS = 0 Then

              intS = 255

            Else

              intS = 0

            End If

            ‘依据结果像素变量，设定picture2的颜色

            Picture2.PSet (lngX, lngY), RGB(intS, intS, intS)

        ‘跳回X轴循环下一次

        Next lngX

    ‘跳回Y轴循环下一次

    Next lngY

‘结束事件子程序

End Sub

下载原始档及执行档：

https://drive.google.com/file/d/0BzHb_OyLyVZlVExRNW9nam9MNUU/view?usp=sharing

例外

1. 如果执行档不能执行，请先安装vbrun60sp6.exe。

参考

[1] https://www.wikipedia.org/

[2] Kuo-Jen, Lien, Digital Image Processing, ISBN: 9789574998333, Scholars Books Co., Ltd.

致谢

感谢 (维基自由百科, Kuo-Jen, Lien) 提供的知识。