As Cloud technologies come of age, business leaders grapple with the impact it has on their team's skills and the gap associated with the use of a cloud platform.
Join experts from 451 Research and Concerto Cloud Services on July 27th where we will examine fact and fiction.
Course Of The Month
9 days, 7 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
How do you randomly shuffle an array
Posted on 2004-08-24
Suppose I was working with the following array, how would I randomly rearrange the order?
I am woking with VB.NET code.
Dim MyArray(4) as Integer
MyArray(0) = 6546
MyArray(1) = 6547
MyArray(2) = 6548
MyArray(3) = 6549
MyArray(4) = 6550
Cheers
I am woking with VB.NET code.
Dim MyArray(4) as Integer
MyArray(0) = 6546
MyArray(1) = 6547
MyArray(2) = 6548
MyArray(3) = 6549
MyArray(4) = 6550
Cheers
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
4-
3
- +1
9 Comments
Here are some links with different algorithms you can try:
http://www.vb-helper.com/howto_randomize_array.html
http://www.freevbcode.com/ShowCode.asp?ID=1174
http://www.mvps.org/vb/hardcore/html/shuffling.htm
I don't know which is the best, but I hope this is somewhat helpful.
http://www.vb-helper.com/howto_randomize_array.html
http://www.freevbcode.com/ShowCode.asp?ID=1174
http://www.mvps.org/vb/hardcore/html/shuffling.htm
I don't know which is the best, but I hope this is somewhat helpful.
Duplicated question?
Dim arraySize, j as Integer
Dim temp as Integer ' Must be the same type as array elements
arraySize = UBound(MyArray) - LBound(MyArray) + 1
For i = LBound(MyArray) To UBound(MyArray)
j = Int(arraySize * Rnd)
temp = MyArray(i)
MyArray(i) = MyArray(j)
MyArray(j) = temp
Next i
Dim arraySize, j as Integer
Dim temp as Integer ' Must be the same type as array elements
arraySize = UBound(MyArray) - LBound(MyArray) + 1
For i = LBound(MyArray) To UBound(MyArray)
j = Int(arraySize * Rnd)
temp = MyArray(i)
MyArray(i) = MyArray(j)
MyArray(j) = temp
Next i
![[Live Webinar] The Cloud Skills Gap](https://filedb.experts-exchange.com/files/public/2017/5/29/3249c5dc-214e-4f8f-afab-ef354630e19f.png)
Thanks for that guys!
jaime olivares,
I have this so far that when you click a button a listbox shows the numbers in the array. How do I set up your code to work with my array?
Whenever I get code from this site it never seems to be runnable code and being a beginner like me this gets frustrating. You can probaly tell from my code that I've just been introduced to the concept of arrays.
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MyArray(4) As Integer
MyArray(0) = 6546
MyArray(1) = 6547
MyArray(2) = 6548
MyArray(3) = 6549
MyArray(4) = 6550
lstNumbers.DataSource = MyArray
lstNumbers.DataBind()
End Sub
jaime olivares,
I have this so far that when you click a button a listbox shows the numbers in the array. How do I set up your code to work with my array?
Whenever I get code from this site it never seems to be runnable code and being a beginner like me this gets frustrating. You can probaly tell from my code that I've just been introduced to the concept of arrays.
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MyArray(4) As Integer
MyArray(0) = 6546
MyArray(1) = 6547
MyArray(2) = 6548
MyArray(3) = 6549
MyArray(4) = 6550
lstNumbers.DataSource = MyArray
lstNumbers.DataBind()
End Sub
Currently do you see your ordered array?
If so just merge my code with yours:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MyArray(4) As Integer
Dim arraySize, j as Integer
Dim temp as Integer ' Must be the same type as array elements
MyArray(0) = 6546
MyArray(1) = 6547
MyArray(2) = 6548
MyArray(3) = 6549
MyArray(4) = 6550
arraySize = UBound(MyArray) - LBound(MyArray) + 1
For i = LBound(MyArray) To UBound(MyArray)
j = Int(arraySize * Rnd)
temp = MyArray(i)
MyArray(i) = MyArray(j)
MyArray(j) = temp
Next i
lstNumbers.DataSource = MyArray
lstNumbers.DataBind()
End Sub
If you have any error while compiling, please tell.
If so just merge my code with yours:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MyArray(4) As Integer
Dim arraySize, j as Integer
Dim temp as Integer ' Must be the same type as array elements
MyArray(0) = 6546
MyArray(1) = 6547
MyArray(2) = 6548
MyArray(3) = 6549
MyArray(4) = 6550
arraySize = UBound(MyArray) - LBound(MyArray) + 1
For i = LBound(MyArray) To UBound(MyArray)
j = Int(arraySize * Rnd)
temp = MyArray(i)
MyArray(i) = MyArray(j)
MyArray(j) = temp
Next i
lstNumbers.DataSource = MyArray
lstNumbers.DataBind()
End Sub
If you have any error while compiling, please tell.
Thanks that worked!
You forgot to dim 'arraySize' and 'i' but nevertheless you've earned yourself 500 points.
I don't fully understand how this works but I'm glad it does.
Cheers
You forgot to dim 'arraySize' and 'i' but nevertheless you've earned yourself 500 points.
I don't fully understand how this works but I'm glad it does.
Cheers
Thanks for the points, just forgot to Dim the i ;-)
How it works, it is quiet simple:
The for loop scans for every element in the array, it select a random element in the array and swaps it with the current element.
How it works, it is quiet simple:
The for loop scans for every element in the array, it select a random element in the array and swaps it with the current element.
Cheers.
Look out for my followup question because I'll no doubt run into further problems.
Thanks again!
Look out for my followup question because I'll no doubt run into further problems.
Thanks again!
Featured Post
Benefit from a mission critical IT monitoring with Monitis Premium or get it FREE for your entry level monitoring needs.
-Over 200,000 users
-More than 300,000 websites monitored
-Used in 197 countries
-Recommended by 98% of users
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
A short article about problems I had with the new location API and permissions in Marshmallow
An introduction to basic programming syntax in Java by creating a simple program. Viewers can follow the tutorial as they create their first class in Java. Definitions and explanations about each element are given to help prepare viewers for future …
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…
- Document Management
- Document Imaging
- Programming
- Adobe Acrobat
- Scripting Languages
- Printers and Scanners, *Scripts, *batch, *PDF
Suggested Courses
Earn Certification
HTML5 Specialist - Certification
Free withPremium
Course of the Month9 days, 7 hours left to enroll
624 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.