¿Cómo binarizar imágenes en vb?
Opción explícita
Atenuar R como byte
Atenuar G como byte
Atenuar B como byte
Atenuar aaa mientras
Atenuar bbb como byte
Atenuar i como entero
Atenuar j como entero
Subcomando privado1_Click()
Para i = 1 a Imagen1.ScaleHeight Paso 15
For j = 1 a Imagen1.ScaleWidth Paso 15
aaa = Imagen1.Point(j, i)
Privado SubComando1_Clic(). p>bbb = R / 3 G / 3 B / 3 'Obtiene el valor de escala de grises
Si bbb gt; = 171 Entonces 'Bbb se puede cambiar apropiadamente aquí para obtener el mejor efecto de 2 valores
Imagen2.PSet(j): Imagen2.PSet(j): Imagen2.PSet(j): Imagen2.PSet(jImagen2.PSet(j, i), RGB(0, 0, 0)
Finalizar si
Siguiente j
Siguiente i
Fin Sub