[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 243
  • Last Modified:

Array Question

Hi all,
I have code that looks like this.
Let result = term1+term2+term3+term4+term5
Print result
My question is this, how would I setup
An array to do the same thing?

Thanks
0
cdb424ttm
Asked:
cdb424ttm
1 Solution
 
sirbountyCommented:
Greetings cdb424ttm,
 Dim term() as integer '?

How are you getting the data for term?
You would need to fill each one by:
 term(1)=n
 term(2)=n

'etc

Then result could equal
for x=1 to 5 ' also can use lbound(term), ubound(term)
   result=term(x) + result
next x

~sirbounty
0
 
EDDYKTCommented:
just

let result = join(arr, "")
0
 
cdb424ttmAuthor Commented:
sirbounty
the data is pulled from 5 text boxes but not all the boxes are filled with some thing.
so I want it to loop Through the boxes and count only the ones that have data and pull their value.
0
The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

 
cdb424ttmAuthor Commented:
not sure how to set it up to your syntax Eddykt.
I'm somewhat new to arrays
0
 
sirbountyCommented:
Take text box 1 and copy paste it to create a control array...

Text1(0) thru Text1(4)

For x = 0 to 4
  if text1(x) <> "" then strResults=val(text1(x).text) + strResults
next x

msgbox "Answer is " & strResults

0
 
cdb424ttmAuthor Commented:
Sirbounty,

How would I set a counter to go and loop through and count the number of boxes on the form.
I'm guessing something like this?

for x = 1 to text1(count)
next x

0
 
sirbountyCommented:
for x = 0 to ubound(text1)
0
 
Pi7Commented:
OK cdb424ttm, this code might help you.The assumption in this code is that all textboxes on Form1 may contain values. So the code below checks all textboxes on Form1

Dim x As Control
Dim y As Integer
For Each x In Form1
If TypeOf x Is TextBox And  Not IsNull(x.Text) Then
    Arr(y)= Val(x.Text)
    y=y+1
End If

Next x

Regards,
Pi7
0
 
sirbountyCommented:
My mistake...

for x = 1 text1.count
or
for x = 0 to text1.count - 1
0
 
sirbountyCommented:
Thanx.
0
 
cdb424ttmAuthor Commented:
sirbounty,

your last reply; what is the differents between them
0
 
sirbountyCommented:
Sorry for the delayed response...

When you create an array - it uses cardinal-ordered arrays (meaning leading index is 0).
Thus text1.count = 5 (0,1,2,3,4)

But if you reference a loop from 1 to 5, you need to adjust it

The above should read
for x = 0 to text1.count -1

text1.count is 5, so we subtract 1 from it to have our loop stop with the fifth element (#4)

Hope that helps explain it better.
Thanx.
0

Featured Post

Take Control of Web Hosting For Your Clients

As a web developer or IT admin, successfully managing multiple client accounts can be challenging. In this webinar we will look at the tools provided by Media Temple and Plesk to make managing your clients’ hosting easier.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now