|
Página 2 de 2
|
Identificar Los Colores De Los Pixel De Una Imagen.
| Autor |
Mensaje |
 vuott 
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación: 
|
 Re: Identificar Los Colores De Los Pixel De Una Imagen.
con el ratón y el evento Mouse_Down(),
Creo que sustancialmente es aceptable, pero practicamente tendras hacer click sobre cada pixel ! 
Gracias, Shell, por tu aporte.
Saludos.
|
#11 Domingo, 12 Octobre 2014, 11:29 |
|
 |
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación:  Al otro lado de la pantalla
|
Re: Identificar Los Colores De Los Pixel De Una Imagen.
Creo que sustancialmente es aceptable, pero practicamente tendras hacer click sobre cada pixel !
Siempre se puede aplicar un bucle anidado para la coordenada x y la y. 
Gracias, Shell, por tu aporte.
Bueno, se que no lo completé mucho. Por otra parte llevo varios días con un constipado de "narices". Y estoy muyyyy flojo.
A pesar de todo he contestado también al post de RazaAztk sobre la función del juego "tres con una raya de coca", lo que muchos no hicieron....uuumm!. 
( Con constipado y todo!).
Vaya, esto me ha hecho recordar algo....lo que es el cerebro inhumano.
Saludos
=================== Gambas Básico
"No es un bug, es una característica no documentada"
|
#12 Domingo, 12 Octobre 2014, 11:54 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación:
|
Re: Identificar Los Colores De Los Pixel De Una Imagen.
Bueno, un mi aporte: usando el metodo " .Pixels" de la Clase Image.
última edición por vuott el Domingo, 12 Octobre 2014, 23:40; editado 1 vez |
#13 Domingo, 12 Octobre 2014, 23:39 |
|
|
Shell
Analista Programador
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53 Ubicación: Al otro lado de la pantalla
|
Re: Identificar Los Colores De Los Pixel De Una Imagen.
Hola!.
Estoy pasando los ejemplos que habéis creado a un proyecto de Gambas.
Bien. He creado la imagen con el editor de imágenes de gambas. Por muy pequeña que sea la imagen veo los 4 cuadrados de colores.
Lo que es realmente difícil de ver es con Gimp u otro visor, por lo pequeña que es la imagen.
¿ Cómo es que con el editor de dibujo de gambas es tan fácil de ver ?. Ajustándose a la primera.
Leerá algo automáticamente del archivo. Hice un png.
Saludos
=================== Gambas Básico
"No es un bug, es una característica no documentada"
|
#14 Lunes, 13 Octobre 2014, 10:23 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación:
|
Re: Identificar Los Colores De Los Pixel De Una Imagen.
ehmmm... y ahora un otro mi aporte con la...... stream-mania!
Usaremos el metodo ''.Data'' de la Clase ''Image'' y los Memory-Stream:
Public Sub Form_Open()
With PictureBox1
.X = 50
.Y = 50
.W = 40
.H = 40
.Stretch = True
End With
End
Public Sub Button1_Click()
Dim im As Image
Dim st As Stream
Dim fo, b As Byte
Dim j As Integer
Dim s As String
im = Image.Load("/ruta/del/file/imagen")
fo = Len(im.Format)
' Dereferenciamos el "Puntero", así muestrando todos los valores de los colores de los pixel de la imagen:
st = Memory im.Data For Read Write
For j = 0 To (im.H * im.W * fo) - 1
Read #st, b
If j Mod 4 = 0 Then Print "------------------"
Print j, b, Hex(b, 2)
Next
Print "------------------"
' Cambiamos el color del píxel que ocupa 4 byte empezando desde el 9° byte:
Seek #st, 8
' Establecemos el color azul (si el formato es diferente de "BGR", a continuación, el primer byte es relativo al valor "alfa"!):
s = Right("FF0000FF", fo * 2)
Write #st, Val("&" & s) As Integer
' Leemos de nuevo los valores de los colores despues que hemos cambiado el 3°píxel:
Seek #st, 0
For j = 0 To (im.H * im.W * fo) - 1
Read #st, b
If j Mod 4 = 0 Then Print "------------------"
Print j, b, Hex(b, 2)
Next
st.Close
' Muestra la imagen como fue modificada:
PictureBox1.Picture = im.Picture
End
última edición por vuott el Miercoles, 05 Noviembre 2014, 16:28; editado 2 veces |
#15 Lunes, 13 Octobre 2014, 19:35 |
|
|
|
|
 Temas parecidos
 Temas parecidos
|
|
Página 2 de 2
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno
|
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
|
|
|
|
|
Foro 
