hallar el color

[<[(x)]>]

holas

  estoy haciendo un proyecto en el cual necesito obtener cierto color.

hagan de cuenta que tienen un barra con los colores del arco iris y la dividen en x pedazos y  luego hallar el color de uno de esos pedazos.

busque y no encoentre como hacerlo todo por code sin pintar ni hacer ninguna de esas cosas.

espero respondan ..

[BlackZeroX]

holas

  estoy haciendo un proyecto en el cual necesito obtener cierto color.

hagan de cuenta que tienen un barra con los colores del arco iris y la dividen en x pedazos y  luego hallar el color de uno de esos pedazos.

busque y no encoentre como hacerlo todo por code sin pintar ni hacer ninguna de esas cosas.

espero respondan ..

Api GetPixel te da el color e Long para pasarlo a RGB es de la siguiente forma pero aun con el Long puedes obtener el color pero si deseas convertirlo a RGB aca el resto (Opcional cabe decir).¡!

Código (vb) [Seleccionar] Expandir


    ColorLong
    r = ColorLong Mod 256
    b = Int(ColorLong / 65536)
    g = (ColorLong - (b * 65536) - r) / 256


[<[(x)]>]

mmm no

trato de hacerlo sin esa api osea que lo calcule y me lo tire sin tener q usar ninguna imagen..

[BlackZeroX]

mmm no

trato de hacerlo sin esa api osea que lo calcule y me lo tire sin tener q usar ninguna imagen..

generar Todos los colores eso dices?

Explicate mejor xS

[seba123neo]

perdon pero no entendi nada de lo que queres hacer , si es posible pone imagenes asi se puede responder mejor y no crear un post de 50 mensajes..

[<[(x)]>]

perdón seba pero no puedo poner imagen.

lo que necesito es tener una forma de conseguir un color especifico por su brillo.
Entonces  se me ocurrió que si conocen de algún codigo que me pueda dar los valores numéricos de los colores de el mas brillante a el mas oscuro. por supuesto q no necesito todos, solo unos pokos dependiendo de mi programa.

la forma en que quiero es imagínense el codigo ese:

pongale que si llamo a la función de esta manera:

Código [Seleccionar] Expandir



Dim x as Integer
Dim total as Integer : intTotal=50

For x = 0 to intTotal

Me.ForeColor = Funcion( x, intTotal)
Me.Print "0"

Next



escriba los '0's con el primero con el color mas brillante y desentiendo asta el mas opaco.

me explico?...

[Banti]

perdón seba pero no puedo poner imagen.

lo que necesito es tener una forma de conseguir un color especifico por su brillo.
Entonces  se me ocurrió que si conocen de algún codigo que me pueda dar los valores numéricos de los colores de el mas brillante a el mas oscuro. por supuesto q no necesito todos, solo unos pokos dependiendo de mi programa.

la forma en que quiero es imagínense el codigo ese:

pongale que si llamo a la función de esta manera:

Código [Seleccionar] Expandir



Dim x as Integer
Dim total as Integer : intTotal=50

For x = 0 to intTotal

Me.ForeColor = Funcion( x, intTotal)
Me.Print "0"

Next



escriba los '0's con el primero con el color mas brillante y desentiendo asta el mas opaco.

me explico?...

O sea queres que una variable maneje el brillo. Y los colores van a ser blanco a negro, no?

[<[(x)]>]

mas o menos

pero que la variable el valor enviado a la función es un brillo y la función tiene que devolver el color que tiene este brillo.

es en forma de porcentaje por eso se le pasaría una total y un  valor.


Seria como la inversa de la función CalcGreyScale