Código fuente de procesamiento de imágenes Vb

Filtro de mediana:

Dim x es un número entero, y es un número entero, el tamaño es un número entero = 3, el punto (8) es un número entero

Para x = CInt((tamaño - 1) / 2) A CInt(jpgImage. Ancho - 1 - (Tamaño - 1) / 2)

Para y = CInt((tamaño - 1) / 2) A CInt(jpgImage. Alto - 1 - (Tamaño - 1) / 2)

punto(0) = jpgImagen. ObtenerPixel(x - 1, y - 1). raro

punto(1) = jpgImagen. ObtenerPixel(x-1,y). raro

punto(2) = jpgImagen. ObtenerPixel(x - 1, y 1). Raro

Punto(3) = jpgImagen. ObtenerPixel(x,y-1). raro

punto(4) = jpgImagen. ObtenerPixel(x, y). Raro

Punto(5) = jpgImagen. ObtenerPixel(x, y 1). raro

punto(6) = jpgImagen. ObtenerPixel(x 1, y - 1). raro

punto(7) = jpgImagen. ObtenerPixel(x 1, y). raro

punto(8) = jpgImagen. ObtenerPixel(x 1, y 1). Raro

Matriz. Ordenar(punto)

jpgImagen. SetPixel(x, y, Color. FromArgb(punto(4), punto(4), punto(4)))

Entonces