图像处理程序

1、Private Sub 假彩色_Click()Dim rr, gg, bb As IntegerDim vpic(2) As IntegerPicture3.ClsFor i = 0 To ypos - 1For j = 0 To xpos - 1rr = piccol(j, i, 2)gg = piccol(j, i, 1)bb = piccol(j, i, 0)vpic(0) = bbvpic(1) = rrvpic(2) = ggPicture3.PSet (j, ypos - i - 1), RGB(vpic(0), vpic(1), vpic(2)Next jNext iEnd Su

2、b'图像垂直翻转Private Sub Command7_Click()Picture3.ClsFor i = 0 To ypos - 1For j = 0 To xpos - 1s = Picture1.Point(j, i)Picture3.PSet (j, ypos - 1 - i), sNext jNext iEnd SubPrivate Sub 拉普拉斯锐化_Click()Dim vpic(2) As IntegerDim b1, b2, b4, b5, r1, r2, r4, r5, g1, g2, g4, g5 As IntegerPicture3.ClsFor i =

3、1 To ypos - 2For j = 1 To xpos - 2b1 = piccol(j, i - 1, 0)b2 = piccol(j - 1, i, 0)b3 = piccol(j, i, 0)b4 = piccol(j + 1, i, 0)b5 = piccol(j, i + 1, 0)g1 = piccol(j, i - 1, 1)g2 = piccol(j - 1, i, 1)g3 = piccol(j, i, 1)g4 = piccol(j + 1, i, 1)g5 = piccol(j, i + 1, 1)r1 = piccol(j, i - 1, 2)r2 = picco

4、l(j - 1, i, 2)r3 = piccol(j, i, 2)r4 = piccol(j + 1, i, 2)r5 = piccol(j, i + 1, 2)bb = b1 + b2 + b4 + b5gg = g1 + g2 + g4 + g5rr = r1 + r2 + r4 + r5vpic(0) = Math.Abs(5 * b3 - bb)vpic(1) = Math.Abs(5 * g3 - gg)vpic(2) = Math.Abs(5 * r3 - rr)Picture3.PSet (j, ypos - i - 1), RGB(vpic(2), vpic(1), vpic

5、(0)Next jNext iScreen.MousePointer = 0End SubPrivate Sub 梯度锐化_Click()Dim vpic(2) As IntegerDim r1, r2, r3, b1, b2, b3, g1, g2, g3 As DoubleDim rx, ry, bx, by, gx, gy As DoubleDim d1, d2, d0 As DoublePicture3.ClsScreen.MousePointer = 11For i = 0 To ypos - 2For j = 0 To xpos - 2r1 = piccol(j, i, 2)r2

6、= piccol(j, i + 1, 2)r3 = piccol(j + 1, i, 2)g1 = piccol(j, i, 1)g2 = piccol(j, i + 1, 1)g3 = piccol(j + 1, i, 1)b1 = piccol(j, i, 0)b2 = piccol(j, i + 1, 0)b3 = piccol(j + 1, i, 0)rx = r2 - r1ry = r3 - r1gx = g2 - g1gy = g3 - g1bx = b2 - b1by = b3 - b1d2 = Math.Sqr(rx * rx + ry * ry)d1 = Math.Sqr(g

7、x * gx + gy * gy)d0 = Math.Sqr(bx * bx + by * by)vpic(2) = Abs(Int(piccol(j, i, 2) - d2)vpic(1) = Abs(Int(piccol(j, i, 1) - d1)vpic(0) = Abs(Int(piccol(j, i, 0) - d0)Picture3.PSet (j, ypos - i - 1), RGB(vpic(2), vpic(1), vpic(0)NextNextScreen.MousePointer = 0End SubPrivate Sub 图像平滑_Click()Dim rr, gg

8、, bb As SinglePicture3.Clsn = 0Screen.MousePointer = 12For i = 1 To ypos - 2For j = 1 To xpos - 2rx = 0: gx = 0: bx = 0For k1 = -1 To 1For k2 = -1 To 1r = piccol(j + k2, ypos - 1 - i + k1, 0)g = piccol(j + k2, ypos - 1 - i + k1, 1)b = piccol(j + k2, ypos - 1 - i + k1, 2)rx = rx + rgx = gx + gbx = bx

9、 + bNext k2Next k1rr = rx / 9gg = gx / 9bb = bx / 9If rr < 0 Then rr = 0If rr > 255 Then rr = 255If gg < 0 Then gg = 0If gg > 255 Then gg = 255If bb < 0 Then bb = 0If bb > 255 Then bb = 255Picture3.PSet (j, i), RGB(rr, gg, bb)Next jn = n + 1Next iScreen.MousePointer = 0End SubPriva

10、te Sub 画直方图_Click()Picture2.ClsDim nfs1(255) As Integer'画坐标轴Picture2.DrawWidth = 2Picture2.Line (50, 100)-(50, 3200), RGB(0, 0, 0)Picture2.Line (50, 3200)-(2500, 3200), RGB(0, 0, 0)'计数a% = 0For j = 0 To bl.biheight - 1For i = 1 To bl.biwidth - 1a% = piccol(i, j, 0)If a% >= 255 Thena% = 255End Ifnfs1(a%) = nfs1(a%) + 1