Ayuda con Inputbox

[mcr_bkn]

Hola amigos estaba intentado hacer un pequeño programa... convertir de texto a binario... pero no logro que el $input2 quede el binario.... osea en resumente tengo input1 y input2 y un boton, al escribir en el input 1 convertir presionando el boton y la conversion en binario quede en el input 2....

dejo el codigo...

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("String a Binario", 355, 155, 241, 124)
$Input1 = GUICtrlCreateInput("", 72, 24, 233, 21)
$Input2 = GUICtrlCreateInput("", 72, 104, 233, 21)
$Button1 = GUICtrlCreateButton("Convertir", 112, 56, 137, 33, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("String:", 24, 24, 34, 17)
$Label2 = GUICtrlCreateLabel("Binario:", 16, 104, 39, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $Button1
			$Input2 = StringToBinary(GUICtrlRead($Input1))
            MsgBox(0, "Cambio", $Input2)

	EndSwitch
WEnd

[avechuche]

Es facil, usa el comando GUICtrlSetData($input2, StringToBinary(GUICtrlRead($Input1))). El comando GUICtrlSetData es el encargado de rellenar el input2 con el texto en binario.

[Dany]

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("String a Binario", 355, 155, 241, 124)
$Input1 = GUICtrlCreateInput("", 72, 24, 233, 21)
$Input2 = GUICtrlCreateInput("", 72, 104, 233, 21)
$Button1 = GUICtrlCreateButton("Convertir", 112, 56, 137, 33, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("String:", 24, 24, 34, 17)
$Label2 = GUICtrlCreateLabel("Binario:", 16, 104, 39, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit

      Case $Button1

            GUICtrlSetData($Input2,StringToBinary(GUICtrlRead($Input1)))

   EndSwitch
WEnd

[mcr_bkn]

Muchas gracias por su ayuda!!!! esta solucionado el tema...