用VB程序进行图像锐化锐化处理（Laplacian算子）

根据边缘锐差滑化???很麻烦 以前写过简单虚中腊的锐化处理 效果一般..........

Private Sub Command1_Click()

Dim r2, g2, b2 As Integer

Dim r1, g1, b1 As Integer

Dim c1 As Long

Dim c2 As Long

Dim x0, y0 As Integer

For x0 = 1 To 250

For y0 = 1 To Picture2.Height - 2

c1 = Picture1.Point(x0, y0)

r1 = (c1 And &HFF): g1 = (c1 And 62580) / 256: b1 = (c1 And &HFF0000) / 65536

'获得picture1中指定点的r g b分量培让

c2 = Picture1.Point(x0 - 1, y0 - 1)

r1 = (c2 And &HFF): g1 = (c1 And 62580) / 256: b1 = (c1 And &HFF0000) / 65536

'获得picture1中指定点相邻点的r g b分量

r1 = r1 + (r1 - r2): g1 = g1 + (g1 - g2): b1 = b1 + (b1 - b2)

If r1 >255 Then r1 = 255

If r1 <0 Then r1 = 0

If b1 >255 Then b1 = 255

If b1 <0 Then b1 = 0

If g1 >255 Then g1 = 255

If g1 <0 Then g1 = 0

Picture2.PSet (x0, y0), RGB(r1, g1, b1)

DoEvents

Next y0

Next x0

MsgBox "success"

End Sub

i=imread('1.jpg')读入图像1

i1=rgb2gray(i) 把rgb图像转换成灰度图像

bw1=edge(i1,'弊含log',0.07) 做阈值为0.07的高斯—拉普前尘拉斯（Log）算租悔笑法

figure(3),imshow(i) 显示原图

figure(4),imshow(bw1) 显示高斯—拉普拉斯（Log）边缘检测后的图

---