¿Cómo utilizar vb para la binarización?

Opción explícita

Mostrar R como bytes

Marcar G como bytes

Cambiar B como bytes

Cambiar Dim aaa tiene la misma longitud

Ajustar bbb a bytes

Marcar I como un número entero

Atenuar j como un número entero

Subcomando privado 1_Click()

Para i = 1 a Imagen1. ScaleHeight paso 15

Para j = 1 en Imagen1. Ancho de escala paso 15

aaa =Imagen 1. Punto (j, I)

R = (aamod256)' Obtiene el valor rojo.

G = (aamod65536) \ 256 'Obtiene el valor verde.

b =(AAA mod 1677 7216)65536 'Obtiene el valor azul.

Bbb = R/3+G/3+B/3 'Obtiene el valor de escala de grises.

Si bbb & gt= 171, entonces 'bbb se puede cambiar adecuadamente para obtener el mejor efecto de binarización.

Foto 2. PSet (j, I), RGB (255, 255, 255)

Otros

Imagen 2. PSet (j, I), RGB (0, 0, 0)

Terminará si...

Siguiente j

Siguiente yo

Conector final