Cómo leer los píxeles de cuadros de imágenes en Visual Basic 6

Escrito por launie sorrels | Traducido por mariana nonino
  • Comparte
  • Twittea
  • Comparte
  • Pin
  • E-mail
Cómo leer los píxeles de cuadros de imágenes en Visual Basic 6
La lectura de un píxel individual de una imagen no es difícil. Aprende a hacerlo. (Jupiterimages/Photos.com/Getty Images)

La lectura de un píxel individual de una imagen no es difícil. De hecho, VB (Visual Basic) tiene funciones específicas incorporadas que le permiten al programador poder ver y editar los píxeles de forma rápida y sencilla. Hay otras herramientas y funciones más avanzadas que utilizan los programadores avanzados que son más rápidas y más eficientes. Aprender a ver un píxel y extraer los medios individuales de éste son sólo los primeros pasos para convertirse en un gurú de VB.

Nivel de dificultad:
Moderadamente difícil

Otras personas están leyendo

Instrucciones

  1. 1

    Inicia la aplicación de Visual Basic 6. Ve a la hoja donde tienes la imagen de la que deseas recibir los datos.

  2. 2

    Abre el formulario en la vista Diseño.

  3. 3

    Crea tres funciones que van a leer el píxel una vez que lo hayas recuperado. Public Function ExtractRed(ByVal CurrentColor As Long) As Byte ExtractRed = CurrentColor And 255 End Function Public Function ExtractGreen(ByVal CurrentColor As Long) As Byte ExtractGreen = (CurrentColor \ 256) And 255 End Function Public Function ExtractBlue(ByVal CurrentColor As Long) As Byte ExtractBlue = (CurrentColor \ 65536) And 255 End Function

  4. 4

    Dimensiona los objetos como se indica: Dim PixelColo Dim PixelColor as Long Dim ColorRed as Byte, ColorGreen as Byte, ColorBlue as Byte La función "dim" se refiere a dimensión y su uso aquí es como un verbo. PixelColor, ColorRed, ColorGreen y ColorBlue son todas las variables para la entrada de datos.

  5. 5

    Escribe el siguiente código debajo de las instrucciones Dim: PixelColor = PictureBox.Point (x, y) Now the code looks like this: Dim PixelColor as Long Dim ColorRed as Byte, ColorGreen as Byte, ColorBlue as Byte PixelColor = PictureBox.Point (x, y) PictureBox se llama a las coordenadas (x, y) y éstas son los lugares específicos donde deseas colocar los datos del píxel. Los datos del píxel se almacenan ahora en el PixelColor variable. El siguiente paso consiste en extraer los colores individuales de la gama RGB.

  6. 6

    Escribe el siguiente código en la última oración: ColorRed = ExtractRed(Color) ColorGreen = ExtractGreen(Color) ColorBlue = ExtractBlue(Color) Now the code looks like this: Dim PixelColor as Long Dim ColorRed as Byte, ColorGreen as Byte, ColorBlue as Byte PixelColor = PictureBox.Point (x, y) ColorRed = ExtractRed(PixelColor) ColorGreen = ExtractGreen(PixelColor) ColorBlue = ExtractBlue(PixelColor) Ahora cada una de las variables ColorRed, ColorGreen y ColorBlue tendrán un número del cero al 255 almacenado en ellas. Haz conseguido exitosamente seleccionar un píxel y establecer la secuencia específica de colores.

No dejes de ver

Filtrar por:
  • Mostrar todos
  • Artículos
  • Galerías de fotos
  • Videos
Ordenar:
  • Más relevante
  • Más popular
  • Más reciente

No se encuentran artículos disponibles

No se encuentran slideshows disponibles

No se encuentran videos disponibles