侵蝕（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

例外¶

如果執行檔不能執行，請先安裝vbrun60sp6.exe。

參考¶

[1] https://www.wikipedia.org/
[2] Kuo-Jen, Lien, Digital Image Processing, ISBN: 9789574998333, Scholars Books Co., Ltd.

致謝¶

感謝 (維基自由百科, Kuo-Jen, Lien) 提供的知識。

完整原始碼下載