Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 2
Ir a la página 1, 2  Siguiente
 
Identificar Los Colores De Los Pixel De Una Imagen.
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Identificar Los Colores De Los Pixel De Una Imagen. 
 
Bueno, mis amigos,
Tenemos una imagen muuuy simple: 2 x 2 pixel (es decir un cuadrado de 4 pixel totales) de estos colores: azul (blue), amarillo, rojo y verde.

Tenemos que identificar - por código - los valores hexadecimales de los colores de aquellos 4 pixel.
 



 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Identificar Los Colores De Los Pixel De Una Imagen. 
 
Me vuelves a sobrepasar, Vuott. Mira que yo soy de Albacete...
     
 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Identificar Los Colores De Los Pixel De Una Imagen. 
 
A ver si vale esto, vuott:

Dim i, j As Integer

    For i = 0 To 1
        For j = 0 To 1
            Print Hex$(Picture["4pix.png"].Image[i, j], 6)
        Next
    Next


La salida es:

0000FF
FF0000
FFFF00
00FF00

Nota: Si queremos que esas cadenas hexadecimales sean válidas en código HTML, hay que poner delante el símbolo '#' y ya se pueden usar directamente en HTML.

#0000FF
#FF0000
#FFFF00
#00FF00


Esta es la imagen usada (cada color es de 1 píxel.

 4pix

Saludos
 




===================
Jesús Guardón

Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".

"uo ǝs ʇɐu pıɟıɔıן ɐdɹǝupǝɹ ɐ dɹoƃɹɐɯɐɹ, soןo ɥɐʎ bnǝ dɹodouǝɹsǝןo"
 
jguardon - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Identificar Los Colores De Los Pixel De Una Imagen. 
 
Esta versión ligeramente modificada, puede recorrer todos los píxeles de una imagen dada, y no sólo los 4 del ejemplo.

    
Dim i, j As Integer
Dim pic As Picture

    pic = Picture["4pix.png"]

    For i = 0 To pic.Width - 1
        For j = 0 To pic.Height - 1
            Print Hex$(pic.Image[i, j], 6)
        Next
    Next


Ojo si la probáis con una imagen grande, porque va a recorrer todos los pixel.

Saludos
 




===================
Jesús Guardón

Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".

"uo ǝs ʇɐu pıɟıɔıן ɐdɹǝupǝɹ ɐ dɹoƃɹɐɯɐɹ, soןo ɥɐʎ bnǝ dɹodouǝɹsǝןo"
 
jguardon - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Identificar Los Colores De Los Pixel De Una Imagen. 
 
shordi escribió: [Ver mensaje]
Mira que yo soy de Albacete...

shordi:
...y... es decir ?
Que significa esto ? Tu eres albaceteño no un Pythonero !  



jguardon:

Interesante el tu código utilizando la sintaxis:
Image[x, y]




Para los otros amigos:

Bueno, amigos, otras maneras ?
 



 
última edición por vuott el Martes, 18 Agosto 2015, 23:06; editado 1 vez 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Identificar Los Colores De Los Pixel De Una Imagen. 
 
Supongo que abrirla con GIMP y usar la herramienta de coger color no vale... ¿verdad?   
 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Identificar Los Colores De Los Pixel De Una Imagen. 
 
shordi escribió: [Ver mensaje]
Supongo que abrirla con GIMP y usar la herramienta de coger color no vale... ¿verdad?   


...adios, mundo cruel !    
 



 
última edición por vuott el Martes, 18 Agosto 2015, 23:07; editado 1 vez 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Identificar Los Colores De Los Pixel De Una Imagen. 
 
Esto, alguien se acuerda de ColorInfo ?.

Citar:

...This class represents detailed information about a color.


 

Saludos
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Identificar Los Colores De Los Pixel De Una Imagen. 
 
Shell escribió: [Ver mensaje]
Esto, alguien se acuerda de ColorInfo ?


Encontré una explicación aquí:

http://gambas-buch.de/dw/doku.php?id=k23:k23.1:k23.1.2:start

...así que, ¿cómo lo harías?
 



 
última edición por vuott el Martes, 18 Agosto 2015, 23:07; editado 1 vez 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Identificar Los Colores De Los Pixel De Una Imagen. 
 
Hola Vuott.

Si tengo una imagen y esta la muestro en un componente de dibujo. Por ejemplo DrawingArea, con el ratón y el evento Mouse_Down(),
haré click en una zona del dibujo. Zona donde  me informara colorinfo de la cantidad o composición de rojo,verde y azul.
Esos valores los paso a hexa (que es lo que te gusta.. ) y ya esta, no ?.

Te paso un post que hice hace tiempo.

http://foro.gambas-es.org/viewtopic...ghlight=colores

Y aquí puedes bajar el ejemplo:

http://foro.gambas-es.org/viewtopic...ghlight=colores

Shordi, como no te acuerdas ?.

Sobre todo la parte que interesa es:

Public Sub Pizarra_MouseDown()
  Dim celdaposx As Integer
  Dim celdaposy As Integer
  Dim uncolor As ColorInfo
  
  celdaposx = Int(Mouse.X / tamcelda)
  celdaposy = Int(Mouse.Y / tamcelda)  
  uncolor = Color[aentcolores[celdaposx, celdaposy]]  
  
 'Aquí convertimos a hexa con el comando correspondiente...que vago soy. :-D
  lblRojo.Text = Hex$( uncolor.Red)
  lblVerde.Text = Hex$(uncolor.Green)
  lblAzul.Text = Hex$( uncolor.Blue)
  PicColor.Background = Color.RGB(uncolor.Red, uncolor.Green, uncolor.Blue)

End
 


Citar:

Encontré una explicación aquí:

http://gambas-buch.de/dw/doku.php?id=k23:k23.1:k23.1.2:start


Ale, todos a coger el paraguas, no vaya a salpicar.

"ich kein Deutsch sprechen!!.".
Si voy al país de los teutones me tengo que comprar un chubasquero.

Lo sé Vuott, el código se puede reducir. Pero llevo toda la noche en vela en el trabajo.

Saludos
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 

Publicar nuevo tema  Responder al tema  Página 1 de 2
Ir a la página 1, 2  Siguiente

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
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



  

 

cron