¿Cómo utilizar vb para la binarización?
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