Author |
Message |
DifinityRJ
|
Posted: Sun Mar 16, 2008 4:28 pm Post subject: Giving Random Values to an Array |
|
|
I am having problems with the syntax in Visual basic to give an array that holds 10 values to assign it 10 random numbers.
In Turing you can do it like this
code: | var x :array 1..10 of int
for a:1..10
x(a):=Rand.Int(1,10)
end for |
In visual basic...so far I've got
Dim xArray(9) as Integer
Thanks for any help, in advance. |
|
|
|
|
|
Sponsor Sponsor
|
|
|
A.J
|
Posted: Sun Mar 16, 2008 4:30 pm Post subject: Re: Giving Random Values to an Array |
|
|
I'll advise you to check out the tutorials.
They're pretty helpful |
|
|
|
|
|
DifinityRJ
|
Posted: Sun Mar 16, 2008 4:37 pm Post subject: Re: Giving Random Values to an Array |
|
|
Yes I've checked them out. |
|
|
|
|
|
nike52
|
Posted: Sun Mar 16, 2008 6:32 pm Post subject: Re: Giving Random Values to an Array |
|
|
stick for loop/while loop here with counter i, going from 0 to 8
xArray(i) = Int((HighestValue - LowestValue + 1) * Rnd) + LowestValue
stick randomize in the form_load to get diff random sequences
i like the bunnie, i have 2 fwuffy bunnies with me right now:D |
|
|
|
|
|
CodeMonkey2000
|
Posted: Sun Mar 16, 2008 8:20 pm Post subject: RE:Giving Random Values to an Array |
|
|
Here is a useful function that is similar to turing's Rand.Int.
code: | Private Function randInt(ByVal x As Integer, ByVal Y As Integer)
If x > Y Then
Error (3)
End If
randInt = Int(Rnd * (Y - x + 1)) + x
End Function |
|
|
|
|
|
|
unoho
|
Posted: Mon Sep 15, 2008 11:02 pm Post subject: RE:Giving Random Values to an Array |
|
|
hey man, im pretty new to arrays.. but i think it would be something like this??
Dim intX(1 to 10) as integer
dim intCount as integer
for intCount = 1 to 10
intX(intCount) = randint(1,10)
next intCount
im not relaly sure about the randint part because i haven't used it for a long time. lol
just try tht. |
|
|
|
|
|
jbking
|
Posted: Fri Sep 19, 2008 2:37 pm Post subject: RE:Giving Random Values to an Array |
|
|
Dim xArray(9) as Integer defines a 9 element array as 0-8 are the valid indices for the array.
Try this instead:
Dim xArray(10)
JB |
|
|
|
|
|
|