Programa para saber Coordenadas y Color decimal

[ziknos]

Hola, estoy haciendo un programa para saber las coordenadas del puntero del ratón y del color decimal pero no consigo hacer lo segundo.

Tampoco consigo hacer que las coordenadas que me de sean del general de la pantalla y no de la Gui en si... aquí dejo el código a ver que es lo que tengo mal...

PD: Lo he sacado de la ayuda de auto it casi todo.

Código: Seleccionar todo

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

Global $x, $y, $col

Ejemplo()

Func Ejemplo()
    Local $msg
    
    HotKeySet("{F2}", "GetPos")

    GUICreate("Presione Esc para obtener posición", 150, 150)
    $x = GUICtrlCreateLabel("0", 10, 10, 50)
    $y = GUICtrlCreateLabel("0", 10, 30, 50)
	$col = GUICtrlcreatelabel("00000", 10, 50, 50)
    GUISetState()

    ; ejecuta la GUI hasta que es cerrada
    Do
        $msg = GUIGetMsg()
    Until $msg = $GUI_EVENT_CLOSE
EndFunc   ;==>Ejemplo

Func GetPos()
    Local $a
    $a = GUIGetCursorInfo()
	
    GUICtrlSetData($x, $a[0])
    GUICtrlSetData($y, $a[1])
	
EndFunc   ;==>GetPos

Func PixelColor()
	Local $b
	$b = PixelGetColor ()
	
	GUICtrlSetData ($col, $b)
	
	EndFunc

PD: Cuando este finalizado lo posteare un poco más arreglado por si a alguien le interesa, que para usar la opción pixelgetcolor va muy bien tener algo así a mano.

[ziknos]

He cambiado algo, ahora consigo con mousegetpos lo de las coordenadas, me falta el pixelgetcolor

Código: Seleccionar todo

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

Global $x, $y, $col, $a, $pgc

Ejemplo()

Func Ejemplo()
    Local $msg, $pgc
    
    HotKeySet("{F2}", "GetPos")

    GUICreate("Presione Esc para obtener posición", 150, 150)
    $x = GUICtrlCreateLabel("0", 10, 10, 50)
    $y = GUICtrlCreateLabel("0", 10, 30, 50)
	$pgc = GUICtrlcreatelabel("00000", 10, 50, 50)
    GUISetState()

    ; ejecuta la GUI hasta que es cerrada
    Do
        $msg = GUIGetMsg()
    Until $msg = $GUI_EVENT_CLOSE
EndFunc   ;==>Ejemplo

Func GetPos()
    Local $a
    $a = MouseGetPos()
	
    GUICtrlSetData($x, $a[0])
    GUICtrlSetData($y, $a[1])
	
EndFunc   ;==>GetPos

Func Color ()
Local $pgc, $a

$pgc = Pixelgetcolor($a[0], $a[1])
Guictrlsetdata ($a, $pgc)

EndFunc

[ziknos]

Edito de nuevo, perdón por repetir tantos post seguidos... ya lo tengo casi... ahora he conseguido todo a falta de que el pixelgetcolor me muestre el color de donde tengo el ratón en ese momento y no de donde está puesto

Código: Seleccionar todo

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

Global $x, $y, $col, $a, $pgc, $b

Ejemplo()

Func Ejemplo()
    Local $msg
    
    HotKeySet("{F2}", "GetPos")
	Hotkeyset ("{F3}", "color")

    GUICreate("Presione Esc para obtener posición", 150, 150)
    $x = GUICtrlCreateLabel("0", 10, 10, 50)
    $y = GUICtrlCreateLabel("0", 10, 30, 50)
	$pgc = GUICtrlcreatelabel("00000", 10, 50, 50)
    GUISetState()

    ; ejecuta la GUI hasta que es cerrada
    Do
        $msg = GUIGetMsg()
    Until $msg = $GUI_EVENT_CLOSE
EndFunc   ;==>Ejemplo

Func GetPos()
    Local $a
    $a = MouseGetPos()
	
    GUICtrlSetData($x, $a[0])
    GUICtrlSetData($y, $a[1])
	
EndFunc   ;==>GetPos

Func Color ()
Local $b

$b = Pixelgetcolor(1555, 451)
Guictrlsetdata ($pgc, $b)


EndFunc

[ziknos]

Oleee conseguido!!! ahora lo hago un poco más bonito y lo subo! :D borrar el post entero si queréis

[arkcrew]

Jajajaja, bueno yo por mi parte no lo borraría, se ha vito claramente como te has esforzado y al final tu mismo lo has conseguido, y, además así por si alguien lo quiere aqui queda..

Saludos!

[ziknos]

Para finalizar, me falta poder escribir en un .txt la posición x, y, el color y el texto que yo quiera, esto sería para tener guardado cada vez que le de a un botón o a la tecla F3.

Código: Seleccionar todo

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

Global $x, $y, $col, $a, $b, $text, $save, $text, $file, $msj

$file = FileOpen("CoordenadasYcolores.txt", 1)

Ejemplo()

Func Ejemplo ()
	Local $msg
    
    HotKeySet("{F2}", "poscolor")
	HotkeySet ("{F3}", "guardar")

    GUICreate(" F2 ", 150, 150)
	GUICtrlCreateLabel("x ", 21, 10, 50)
	GUICtrlCreateLabel("y ", 21, 30, 50)
	GUICtrlCreateLabel ("Color ", 21, 50, 50)
    $x = GUICtrlCreateLabel("0", 50, 10, 50)
    $y = GUICtrlCreateLabel("0", 50, 30, 50)
	$col = GUICtrlcreatelabel("0", 50, 50, 50)
	$text = GUICtrlCreateInput("Texto", 21, 75, 94, 20) 
	$save = Guictrlcreatebutton("Guardar", 40, 110, 70, 20)
    GUISetState()

    ; ejecuta la GUI hasta que es cerrada
    Do
        $msg = GUIGetMsg()
    Until $msg = $GUI_EVENT_CLOSE
EndFunc   ;==>Ejemplo

Func poscolor()
    Local $a, $b
    $a = MouseGetPos()
	$b = PixelGetColor ($a[0], $a[1])
	
    GUICtrlSetData($x, $a[0])
    GUICtrlSetData($y, $a[1])
	Guictrlsetdata ($col, $b)
	
	
EndFunc 

Func guardar ()
	
	while 1
        $msj = GUIGetMsg()
        Select
            Case $msj = $save
			 FileWrite($file, $a & @LF)
			 FileWrite($file, "   " & @LF)
			 FileWrite($file, $y & @LF)
			 FileWrite($file, "   " & @LF)
			 FileWrite($file, $b & @LF)
			 FileWrite($file, "   " & @LF)
			 FileWrite($file, $text & @LF)
        EndSelect
wend
EndFunc

Me podéis ayudar a lo que me falta con el FileWrite?

Gracias

[BasicOs]

Hola de la ayuda:

Código: Seleccionar todo

$file = FileOpen("test.txt", 1)

; Check if file opened for writing OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

FileWrite($file, "Line1")
FileWrite($file, "Still Line1" & @CRLF)
FileWrite($file, "Line2")

FileClose($file)

O bien si creas un array:

Código: Seleccionar todo

#include<File.au3>

$avCommon = _FileListToArray(@CommonFilesDir)
$avUser = _FileListToArray(@UserProfileDir)
$sFile = @ScriptDir & "\Test.txt"

; Write first array to file by string file name
_FileWriteFromArray($sFile, $avCommon, 1)

; Open file and append second array
$hFile = FileOpen($sFile, 1) ; 1 = append
_FileWriteFromArray($hFile, $avUser, 1)
FileClose($hFile)

; Display results
Run("notepad.exe " & $sFile)

Aunque te recomendaria también IniWrite, aunque su uso no es para eso, te guarda los datos igual con:

Código: Seleccionar todo

IniWrite("C:\Temp\mifichero.ini", "seccion2", "clave", "valor nuevo")

Salu22:)

[ziknos]

Hola Basicos, la ayuda me la he leído varias veces y he conseguido aplicar algo parecido a alguna otra aplicación pero a esta no se qué pasa que no lo consigo... algo tengo que hacer mal pero no se qué puñetas puede ser...

he añadido esto :

Código: Seleccionar todo

Func guardar ()

Local $text

        FileWrite ($file, "comentario      " )
	FileWrite ($file, $text & @CRLF )

	FileClose($file)
EndFunc

Hay 2 problemas.. 1º que solo puedo darle 1 vez a F3 y si le vuelvo a dar no sucede nada y 2º que la variable $text no se muestra :S

Respecto a lo que me comentas de array o writeini, nunca lo he usado y no tengo mucha idea para que me sirve

[ziknos]

Me sucede una cosa MUY rara este es el código que tengo ahora

Código: Seleccionar todo

#include <GUIConstantsEx.au3>


Opt('MustDeclareVars', 1)

Global $x, $y, $col, $a, $b, $text, $save, $text, $file, $msj

$file = FileOpen("CoordenadasYcolores.txt", 1)

Ejemplo()

Func Ejemplo ()
	Local $msg
    
    HotKeySet("{F2}", "poscolor")
	HotkeySet ("{F3}", "guardar")

    GUICreate(" F2 ", 150, 150)
	GUICtrlCreateLabel("x ", 21, 10, 50)
	GUICtrlCreateLabel("y ", 21, 30, 50)
	GUICtrlCreateLabel ("Color ", 21, 50, 50)
    $x = GUICtrlCreateLabel("0", 50, 10, 50)
    $y = GUICtrlCreateLabel("0", 50, 30, 50)
	$col = GUICtrlcreatelabel("0", 50, 50, 50)
	$text = GUICtrlCreateInput("Texto", 21, 75, 94, 20) 
	$save = Guictrlcreatebutton("Guardar", 40, 110, 70, 20)
    GUISetState()

    ; ejecuta la GUI hasta que es cerrada
   While 1
	  $msg = GUIGetMsg()
	  Select
	  case $msg = $GUI_EVENT_CLOSE
		  FileClose($file)
		  ExitLoop
	  case $msg = $save
		FileWrite ($file, "comentario      " )
   FileWrite ($file, $x & @CRLF )
   continueloop


EndSelect
WEnd

EndFunc   ;==>Ejemplo

Func poscolor()
    Local $a, $b
    $a = MouseGetPos()
	$b = PixelGetColor ($a[0], $a[1])
	
    GUICtrlSetData($x, $a[0])
    GUICtrlSetData($y, $a[1])
	Guictrlsetdata ($col, $b)
	
	
EndFunc 

Ahora cuando pulso el boton "guardar" me sale en el .txt Comentario 6 no se de donde puede salirme dicho 6.

[BasicOs]

Los ficheros que se crean con las funciones ini son parecidos al .txt que creas pero más ordenado, y ves que con solo una linea puedo añadir texto a un fichero.

6 es el valor de x$ que es el controlID del control.

Si quieres leer valores usa GUICtrlRead ( controlID [, advanced] ).

Te recomiendo que uses ejemplos parecidos del foro para lo que quieres y los modifiques, hasta que domines el GUI, realmente vas bien,

Salu22:)

[Ximorro]

Anda si tenías una entrada con lo del color del pixel. Te había contestado en la otra pero veo que lo tienes muy avanzado y que te lo estás currando mogollón. ¡Muy bien!

Efectivamente como te indica BasicOS estás sacando el valor del control (su identificador) y no el texto que contiene, que es lo que en realidad quieres guardar.
Así que ese write tiene que ser:
FileWrite($file, GUICtrlRead($x) & @CRLF )

Una cosa, el ContinueLoop te sobra en este caso, eso es para interrumpir un ciclo de un bucle y volver al principio del mismo, pero en este caso simplemente hay que seguir el flujo del programa.
Una cosa por si te estás confundiendo por el C u otros lenguajes: en AutoIT los Switch o Select cuando ejecutan un case no pasan al siguiente como hace C (donde hay que poner un break, que sí, sería el equivalente de ContinueLoop, pero aquí no hace falta porque AutoIt no ejecuta el siguiente case, sólo el que cumple la condición).

[ziknos]

Muchísimas gracias!!! ya lo he finalizado!! Adjunto el código completo por si alguien le interesa

Código: Seleccionar todo

#include <GUIConstantsEx.au3>


Opt('MustDeclareVars', 1)

Global $x, $y, $col, $a, $b, $text, $save, $text, $file, $msj

$file = FileOpen("CoordenadasYcolores.txt", 1)
Filewrite ($file, " X       Y       COLOR    COMENTARIO  " &  @CRLF)
Filewrite ($file, "                                      " &  @CRLF)


Ejemplo()

Func Ejemplo ()
	Local $msg
    
    HotKeySet("{F2}", "poscolor")
	HotkeySet ("{F3}", "guardar")

    GUICreate(" CoordCol ", 150, 150)
	GUICtrlCreateLabel("x ", 21, 10, 50)
	GUICtrlCreateLabel("y ", 21, 30, 50)
	GUICtrlCreateLabel ("Color ", 21, 50, 50)
    $x = GUICtrlCreateLabel("0", 50, 10, 50)
    $y = GUICtrlCreateLabel("0", 50, 30, 50)
	$col = GUICtrlcreatelabel("0", 50, 50, 50)
	$text = GUICtrlCreateInput("", 21, 75, 94, 20) 
	Guictrlcreatelabel("F2 = Cordenadas y color", 5, 100, 120, 20)
	Guictrlcreatelabel("F3 = Guardar", 5, 120, 120, 20)
    GUISetState()

    ; ejecuta la GUI hasta que es cerrada
 While 1
	  Local $x, $y, $col, $text
	  
	 $msg = GUIGetMsg()
	  Select
	  case $msg = $GUI_EVENT_CLOSE
		  ExitLoop
EndSelect
WEnd

EndFunc   ;==>Ejemplo

Func poscolor()
    Local $a, $b
    $a = MouseGetPos()
	$b = PixelGetColor ($a[0], $a[1])
	
    GUICtrlSetData($x, $a[0])
    GUICtrlSetData($y, $a[1])
	Guictrlsetdata ($col, $b)
	
EndFunc 

Func guardar ()
	
FileWrite ($file, Guictrlread($x))
		FileWrite ($file, "    ")
	FileWrite ($file, Guictrlread($y))
		FileWrite ($file, "    ")
	FileWrite ($file, Guictrlread($col))
		FileWrite ($file, "    ")
   FileWrite ($file, Guictrlread($text) & @CRLF )
   
   endfunc

USO:
- F2 Nos muestra las coordenadas y el color decimal de el puntero del ratón
- F3 Guarda los datos de las coordenadas, el color y el comentario que queramos darle a dicha posición

Por qué lo he echo?

Para comodidad al usar el autoit y simular clicks de ratón o tener los datos a mano para hacer pixelgetcolor, etc...

[BasicOs]

El au3info del scite te hace algo parecido, pero no hay nada como hacerlo uno mismo y disfrutar tanto al hacerlo como al usarlo. ;)

Salu22:)

[ziknos]

El au3info del scite te hace algo parecido, pero no hay nada como hacerlo uno mismo y disfrutar tanto al hacerlo como al usarlo. ;)

Salu22:)

Sí, el au3info da casi lo mismo pero el color no me lo daba en decimal que es lo que yo buscaba, o eso creo!!

[Ximorro]

Es fácil pasar de decimal a hexadecimal y viceversa. El formato dependerá de para qué lo uses.
En Autoit es equivalente usar el número decimal o hexadecimal, se usa más el hexadecimal porque a simple vista te haces una idea de los valores individuales para rojo, verde y azul. En decimal eso es imposible.

En otros programas pues dependerá si te exige un formato u otro...

[ziknos]

Pues yo he usado siempre el decimal para el autoit, para usar el pixelgetcolor, como por defecto es decimal (sin poner Hex) me era mas comodo poner el color decimal y me ahorro lo de Hex cada 2 por 3, por que en casi todo lo que hago uso mucho el pixelgetcolor

[Ximorro]

En el código no tienes que usar Hex() para pasar a hexadecimal. Esa función es más bien para ti, para que dado un número decimal te muestre una cadena de texto con su representación hexadecimal.

Pero si ya sabes el número a AutoIt se lo pasas directamente poniendo delante 0x.
Por ejemplo. Si quiero poner un blanco puro pondré
0xFFFFFF
es decir, el máximo valor 255 (FF en hexadecimal) para las tres componentes rojo, verde y azul.
y eso lo hago directamente, para ponerlo en decimal tengo que poner
16777215
para blanco, ¿quieres decir que te sabes el número de memoria?

Si quiero poner por ejemplo un rojo puro pues será
0xFF0000
simplemente he puesto el rojo a FF y los otros a cero, no hay que pensar mucho y lo puedo hacer directamente, pero para ponerlo en decimal es:
16711680
¿cómo veo ahí que eso es rojo?

Por eso se usa el formato hexadecimal para los colores, es mucho más intuitivo. A veces no sabes qué color exacto sale pero te puedes hacer una idea, no sé, por ejemplo
0x80FF00
no sé exactamente qué saldrá pero veo que tiene mitad de rojo, mucho de verde y nada de azul, así que será un verde con algo de amarillo (rojo+verde = amarillo)
En cambio si me dicen que tengo el color
8453888
¡no tengo ni puñetera idea de qué puede ser!

Espero haber aclarado algo. Hex es una función para que te muestre un número decimal en un texto que es su representación hexadecimal.
Pero para usar números hexadecimales se pueden usar directamente, simplemente poniendo 0x antes del número para que AutoIt sepa que eso es hexadecimal. Y se pone SIN comillas, que no es un texto, es un número.

[ziknos]

Hola, muchas gracias, con esa explicación sí que me queda más claro del porqué usar hexadecimal en vez de de decimal.. aunque para lo que yo lo uso sería lo mismo por que sólo (de momento) lo utilizo para el pixelgetcolor con colores sacados con programas para saber el color de X pixel.

Un saludo y gracias!