Help on a script

[eekhoorn12]

Why doesn't this work?

expandcollapse popup

#include <array.au3>
#include <string.au3>
#include <GUIConstants.au3>


GUICreate ( "title" , 800 , 600 ); will create a dialog box that when displayed is centered
$RESULT = GUICtrlCreateInput("", 110, 40, 100, 20)

$Start = GUICtrlCreateButton ("OK",  60, 70, 50)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
GUISetState (@SW_SHOW)

Global $LETTERS[6]
$LETTERS[0] = "a"
$LETTERS[1] = "b"
$LETTERS[2] = "c"
$LETTERS[3] = "d"
$LETTERS[4] = "e"
$LETTERS[5] = "f"

$END_RESULT = ""

For $x = 1 to StringLen($RESULT)
    $i = StringMid($RESULT,$x,1)
    $a = Asc ($i)
       If $a = 97 Then
        $a_i = $LETTERS[5]
        $END_RESULT = $END_RESULT & $a_i
       EndIf
Next

While 1
    $msg = GUIGetMsg()
       Select
           Case $MSG = $GUI_EVENT_CLOSE
            Exit
           Case $msg = $Start
               MsgBox(0, '', $END_RESULT)
       EndSelect
Wend

I have changed the original code a bit. What I want is when I press ok it shows END_RESULT

Edited November 15, 2005 by eekhoorn12

[GaryFrost]

expandcollapse popup

#include <array.au3>
#include <string.au3>
#include <GUIConstants.au3>


GUICreate("title", 800, 600); will create a dialog box that when displayed is centered
$RESULT = GUICtrlCreateInput("", 110, 40, 100, 20)

$Start = GUICtrlCreateButton("OK", 60, 70, 50)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
GUISetState(@SW_SHOW)

Global $LETTERS[6]
$LETTERS[0] = "a"
$LETTERS[1] = "b"
$LETTERS[2] = "c"
$LETTERS[3] = "d"
$LETTERS[4] = "e"
$LETTERS[5] = "f"

$END_RESULT = ""

While 1
   $msg = GUIGetMsg()
   Select
      Case $msg = $GUI_EVENT_CLOSE
         Exit
      Case $msg = $Start
            $s_Result = GUICtrlRead($RESULT)
            For $x = 1 To StringLen($s_Result)
                $i = StringMid($s_Result, $x, 1)
                $a = Asc($i)
                If $a = 97 Then
                    $a_i = $LETTERS[5]
                    $END_RESULT = $END_RESULT & $a_i
                EndIf
            Next
         MsgBox(0, '', $END_RESULT)
   EndSelect
WEnd

Edited November 15, 2005 by gafrost

[SpookMeister]

I took a stab at what you were trying to do..

expandcollapse popup

#include <array.au3>
;#include <string.au3>
#include <GUIConstants.au3>


GUICreate("title", 800, 600); will create a dialog box that when displayed is centered
$RESULT = GUICtrlCreateInput("", 110, 40, 100, 20)
$Start = GUICtrlCreateButton("OK", 60, 70, 50)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
GUISetState(@SW_SHOW)

Global $LETTERS[6]
$LETTERS[0] = "a"
$LETTERS[1] = "b"
$LETTERS[2] = "c"
$LETTERS[3] = "d"
$LETTERS[4] = "e"
$LETTERS[5] = "f"

$END_RESULT = ""


While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $Start
            $data = GUICtrlRead($RESULT)
            $END_RESULT = $data & compute($data)
            MsgBox(0, '', $END_RESULT)
    EndSelect
WEnd
Func compute($var)
    For $x = 1 To StringLen($var)
        $i = StringMid($var, $x, 1)
        $a = Asc($i)
        If $a = 97 Then
            $a_i = $LETTERS[5]
            Return $a_i
        EndIf
    Next
EndFunc  ;==>compute

[eekhoorn12]

Have used the example given by gafrost and it works fine