PowerCat Posted March 18, 2011 Share Posted March 18, 2011 I'm trying to make a script that has two inputbox, and a button will add two more on each click. My first problem is how to assign those controls to a value, when that value has to increment with each click of addrow? ; $TTL keeps track of how many times it was ran. ; the variable name should be "pkg_1" and the next run should be "pkg_2" and so on. ; I have tried with $pkg_ + $TTL, didnt work ; tried $pkg = "$pkg_" & $TTL, didnt work. ; out of ideas :( $TTL = $TTL+1 $pkg_ + $TTL = GUICtrlCreateInput("", 5, $PosY+$PosInc, $SZ1) $srv_ + $TTL = GUICtrlCreateInput("", 305, $PosY+$PosInc, $SZ2) Later on, I have to read those dynamically created cointrols. I use $TTL to know how many loops to run. For $i = 0 to $TTL ; an attempt to read from dynamic control name. $pkg = $pkg_ + $i $srv = $srv_ + $i $val1 = GUICtrlRead($pkg, 1) $val2 = GUICtrlRead($srv, 1) ; trying to assign values to my array $list[$i][0] = $val1 $list[$i][1] = $val2 ReDim $list[$i+1][2] Next Also it seems that the last commands, to assign values to the array is failing. And aditionally, I can't seem to be able to GUICtrlRead any of the inputs created by AddRow.....! Please help me! Full script: expandcollapse popup#include <GUIConstantsEx.au3> #include <array.au3> Dim $List[1][2] $PosY = "60" $PosInc = "25" $SZ1 = "300" $SZ2 = "150" $TTL = "0" GUICreate("", 460, 600) $add = GUICtrlCreateButton("Add row", 5, 5, 75) $exec = GUICtrlCreateButton("Launch copy", 305, 5, 75) GUICtrlCreateLabel("Packages to affect", 5, 40) GUICtrlCreateLabel("On which server to copy", 5+300, 40) $pkg_0 = GUICtrlCreateInput("", 5, $PosY, $SZ1) $srv_0 = GUICtrlCreateInput("", 305, $PosY, $SZ2) GUISetState(@SW_SHOW) While 1 $msg = GUIGetMsg() If $msg = $add then AddRow() If $msg = $exec then Go() If $msg = $GUI_EVENT_CLOSE Then ExitLoop WEnd Func AddRow() ; an attempt to create "dynamic" control names. $TTL = $TTL+1 $pkg_1 = GUICtrlCreateInput("", 5, $PosY+$PosInc, $SZ1) $srv_1 = GUICtrlCreateInput("", 305, $PosY+$PosInc, $SZ2) $PosInc = $PosInc+25 EndFunc Func Go() For $i = 0 to $TTL ; an attempt to read from dynamic control name. ;~ $pkg = $pkg_ + $i ;~ $srv = $srv_ + $i $val1 = GUICtrlRead($pkg_0, 1) $val2 = GUICtrlRead($srv_0, 1) ; trying to assign values to my array $list[$i][0] = $val1 $list[$i][1] = $val2 ReDim $list[$i+1][2] Next _arraydisplay($list) EndFunc Thanks Link to comment Share on other sites More sharing options...
AdmiralAlkex Posted March 18, 2011 Share Posted March 18, 2011 (edited) $pkg_ + $TTLThat doesn't really make much sense. Plus sign is used to add things, see Operators in the helpfile.If you really really want to make it like that use Assign()/Eval(), but you really should be using an array. See the Array tutorial in the wiki if you are unsure about anything. Edited March 18, 2011 by AdmiralAlkex .Some of my scripts: ShiftER, Codec-Control, Resolution switcher for HTC ShiftSome of my UDFs: SDL UDF, SetDefaultDllDirectories, Converting GDI+ Bitmap/Image to SDL Surface Link to comment Share on other sites More sharing options...
PowerCat Posted March 18, 2011 Author Share Posted March 18, 2011 (edited) Thanks Alekex. I switched to Arrays for my controls, and I was able to get the last loop to work properly by changing my ReDim from $i+1 to $i+2 expandcollapse popup#include <GUIConstantsEx.au3> #include <array.au3> Dim $List[1][2] Dim $PKG[1][2] $PosY = "60" $PosInc = "25" $SZ1 = "300" $SZ2 = "150" $TTL = "0" GUICreate("", 700, 600) $add = GUICtrlCreateButton("Add row", 25, 5, 75) $exec = GUICtrlCreateButton("Launch copy", 305, 5, 75) GUICtrlCreateLabel("Packages to affect", 25, 40) GUICtrlCreateLabel("On which server to copy", 350, 40) GUICtrlCreateLabel($TTL, 5, $PosY) $PKG[$TTL][0] = GUICtrlCreateInput("", 25, $PosY, $SZ1) $PKG[$TTL][1] = GUICtrlCreateInput("", 330, $PosY, $SZ2) GUISetState(@SW_SHOW) While 1 $msg = GUIGetMsg() If $msg = $add then AddRow() If $msg = $exec then Go() If $msg = $GUI_EVENT_CLOSE Then ExitLoop WEnd Func AddRow() ; an attempt to create "dynamic" control names. if $TTL = 0 then ReDim $PKG[2][2] If $TTL = 0 then $TTL = 1 ;msgbox(0,"","adding box at " & $TTL) GUICtrlCreateLabel($TTL, 5, $PosY+$PosInc) $PKG[$TTL][0] = GUICtrlCreateInput("", 25, $PosY+$PosInc, $SZ1) $PKG[$TTL][1] = GUICtrlCreateInput("", 330, $PosY+$PosInc, $SZ2) $PosInc = $PosInc+25 $TTL = $TTL+1 ReDim $PKG[$TTL+1][2] EndFunc Func Go() _ArrayDelete($pkg, UBound($PKG)-1) For $i = 0 to ubound($pkg)-1 $list[$i][0] = GUICtrlRead($PKG[$i][0], 1) $list[$i][1] = GUICtrlRead($PKG[$i][1], 1) ReDim $list[$i+2][2] Next _arraydisplay($list) EndFunc Edited March 18, 2011 by PowerCat Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now