Jump to content

inputboxes and arrays


Recommended Posts

I am kinda new to this but here is what I am having a problem with so thanks for any help in advance.

This is part of some code for a project I've been working on. The problem I am having is that I've used a loop to plant a number of labels(the number of labels varies) and inputboxes into a form but since the inputboxes don't have individual variable names, I can't figure out a way to read them (after data is input). I had thought I would be able to use an array but it doesn't seem to be working out.

If you run this code, it dynamically places 12 labels and inputboxes on a form.

What I want to do is .. when the button is pressed, then read data that has been entered into each of the inputboxes either into an array or

individual variables. The individual variable approach gets sticky because the number of inputboxes could vary from 1 to 30 or so.

Can anyone tell me a way to build variable names on the fly ? I am hoping someone who is an array wizard and can help me or point me in the right direction.

I have uploaded the code and hopefully it is available here now for a looksee.

Form3_to_forum.au3

Link to comment
Share on other sites

I am kinda new to this but here is what I am having a problem with so thanks for any help in advance.

This is part of some code for a project I've been working on. The problem I am having is that I've used a loop to plant a number of labels(the number of labels varies) and inputboxes into a form but since the inputboxes don't have individual variable names, I can't figure out a way to read them (after data is input). I had thought I would be able to use an array but it doesn't seem to be working out.

If you run this code, it dynamically places 12 labels and inputboxes on a form.

What I want to do is .. when the button is pressed, then read data that has been entered into each of the inputboxes either into an array or

individual variables. The individual variable approach gets sticky because the number of inputboxes could vary from 1 to 30 or so.

Can anyone tell me a way to build variable names on the fly ? I am hoping someone who is an array wizard and can help me or point me in the right direction.

I have uploaded the code and hopefully it is available here now for a looksee.

Take a look at the arrayadd or arraycreate function in the help file. Hopefully that will get you where you need to go.

Link to comment
Share on other sites

Maybe...

#include <file.au3>
#include <array.au3>
#include <GUIConstants.au3>
;#include <SQLite.au3>
;#include <SQLite.dll.au3>
;#include <EzSkin.au3>
; I have removed this section from the much larger project to make it easier to deal with 
; In the actual usage it reads and writes to a database ..which is why the extra #includes and variables
; The code will run as is (using some dummy settings that I plugged in)
Dim $FirstChap = 2 ; the first chapter link in the Assessment Report 
Dim $LastChap = 18   ; the last chapter link in the Assessment Report
Dim $NoChpts = 17   ; total number of chapters in the Assessment Report
Dim $Test
Dim $Table
Dim $LinkNum = "1"
DIM $LikeThis = "'%Chapter "& $LinkNum &"%'"          ; this will be the field referenced in query using Where or Like condition
Dim $adCol = "Qq_Explanation"
Dim $Find = '%Chapter 3%'
Dim $rcount = 0
Dim $qid
Dim $answer
Dim $qid_array[1]
Dim $sArrayString
Dim $CatCnt
Dim $NewAddress
Dim $Text1 = "Orig note - "
;Dim $filename = FileOpenDialog ("Select QZR", @WorkingDir, "(*.qzr;*mdb)", 1)
;Const $CINFO = "Driver={Microsoft Access Driver (*.mdb)};Dbq="& $filename;"
;Const $ConnStrg = "Driver={Microsoft Access Driver (*.mdb)};Dbq="& $filename;"
Dim $rData = "xxxPRE "
Dim $adTable ="Qe_Category"
Dim $adCol = "Qc_Cat_Desc"
Dim $sTotal = 0
;************************************* Define the Queries ******************************************

form3()
Func Form3()

Dim $oRS
Dim $oConn
Dim $rcount
Dim $qid_array[1]
Dim $qid
Dim $sArrayString
Dim $iChp2
Dim $ChpCnt
Dim $LT = 65
Dim $LT2 = 65
Dim $Ll
Dim $Ll2
Dim $Tall = 200
Dim $Extend
Dim $bTall
Dim $ChapArray[30]
Dim $Read_Input[30] ;*********** added
Dim $INPUT

;___________________________________________________________________________

$Tall =  120 + $NoChpts * 25 
$bTall = $Tall -35  


;________________________________________________________________________________
#Region ### START Koda GUI section ### Form=C:\Program Files\CramMaster\Data\PSB_Script_project\AForm3.kxf
$Form1 = GUICreate("Available for each Chapter", 762, $Tall, 193, 115)
;Opt("GUICoordMode",2)
GUISetBkColor(0x404040)
$Label1 = GUICtrlCreateLabel("This form will show number points marked in each of the chapters. ",136, 8, 675, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Pyin3")
GUICtrlSetColor(-1, 0xFFFF00)
GUICtrlSetBkColor(-1, 0x404040)
$Label2 = GUICtrlCreateLabel("How many do you want to include in the report from each of these chapters.", 16, 32, 736, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Pyin3")
GUICtrlSetColor(-1, 0xFFFF00)
GUICtrlSetBkColor(-1, 0x404040)
$Button1 = GUICtrlCreateButton("Proceed", 360, $bTall, 75, 25, 0)
;==============================
For $iChp2 = $FirstChap to $LastChap
    $LinkNum = $iChp2
    $LikeThis = "'%Chapter "& $LinkNum &"%'" 
;; One Chapter at a time loop from here down "
;$oConn = ObjCreate("ADODB.Connection")
;$oRS = ObjCreate("ADODB.Recordset")
;$oConn.Open($ConnStrg)
;$oRS.Open("Select Qq_QuestCode From "& $Table2 &" where  Qq_Explanation Like "& $LikeThis &" And Qq_TypeCode=1;", $oConn, 1, 3)
;$ChpCnt = $oRS.RecordCount
$ChpCnt = 12
 GUICtrlCreateLabel(" Chapter "& $iChp2 &" has "& $ChpCnt &" points available. How many do you wish to include in the report?", 48, $LT, 564, 18)
    GUICtrlSetFont(-1, 9, 800, 0, "Tahoma")
    GUICtrlSetBkColor(-1, 0xC0C0C0)
$LT = $LT + 25    
;==========================
If $ChpCnt <> 0 then

$ChapArray[$iChp2]=GUICtrlCreateInput("", 632, $LT2, 52, 18)
;_ArrayAdd($ChapArray,GUICtrlCreateInput("", 632, $LT2, 52, 18))
GUICtrlSetFont(-1, 9, 800, 0, "Tahoma")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$LT2 = $LT2 + 25    
Else
endif
;++++++++++++++++++++++++++++++++++++++++++
Next  ; Loop Back for next chpt link
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            ;GUIDelete()
            
            For $iChp2 = $FirstChap to $LastChap
                $Read_Input[$iChp2] = GUICtrlRead ($ChapArray[$iChp2])
            Next
            _ArrayDisplay($Read_Input, " input info ")
                                ;--- Test Message to show results        
                                    ;Dim $sArrayString = _ArrayToString( $ChapArray,@TAB, 1 )
                                    ;MsgBox( 4096, "_ArrayToString() Test", $sArrayString )
            Exit
    EndSwitch
WEnd

EndFunc

8)

EDIT:

Be sure to note the removal of GUIDelete(), you can not read a gui's controls once it has been deleted

Edited by Valuater

NEWHeader1.png

Link to comment
Share on other sites

and???

8)

Thanks for the excellent help. After looking at some of your stuff its clear that you are a smart programmer. I really appreciate you taking the time to feed me that code ... it puts my thinking back on track.

Link to comment
Share on other sites

assign() and eval() let you dynamically create and read variable names.

Wow ... I wasn't even aware of assign() and eval(). I guess a few hundred more hours of work and I will be less likely to overlook stuff like that. Thanks a million for the suggestion. Valuater has given me a solution that is inline with what I was trying to do but I'm gonna also redo this part of the code using these functions so that I can learn how to use them correctly. You know, one of the best things about autoit is this forum and the great programmers who hang here. Thanks
Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...