Ayuda con Inputbox
Publicado: 01 Abr 2013, 20:03
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...
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
