Solved

how to get multiple random numbers

Posted on 2010-11-29
3
404 Views
Last Modified: 2013-11-27
I am trying to write a Slot machine program for a VB2008 class and i am stuck. i need to call three different random colors from my array to make it work but they all are the same, and i'm not sure why. what can i do to make it work what code i have so far is following. Thanks in advance :)

Public Class SlotMachine

    Dim Colors As Color() = {Color.Blue, Color.Red, Color.Yellow, Color.Green, Color.Orange}
    Dim used As Boolean() = New Boolean(0 To Colors.GetUpperBound(0)) {}

    Private Sub PlayButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles PlayButton.Click

        Dim rand As Color

        rand = Colors(GetRandomNumber())
        SlotLabel1.BackColor = rand

        rand = Colors(GetRandomNumber())
        SlotLabel2.BackColor = rand

        rand = Colors(GetRandomNumber())
        SlotLabel3.BackColor = rand

    End Sub

    ' return an unused random number
    Function GetRandomNumber() As Integer

        Dim randomObject As Random = New Random()
        Dim randomNumber As Integer = 0 + randomObject.Next(5)

        Return randomNumber ' return index for new flag
    End Function ' GetUniqueRandomNumber

End Class
0
Comment
Question by:Stewart1206
  • 2
3 Comments
 
LVL 85

Accepted Solution

by:
Mike Tomlinson earned 500 total points
ID: 34235577
Change:

    Dim randomObject As Random = New Random()

To:

    Static randomObject As Random = New Random()

*This will not guarantee that they will all be different though.
0
 

Author Closing Comment

by:Stewart1206
ID: 34235606
answered it correctly on first reply :D
0
 

Author Comment

by:Stewart1206
ID: 34235608
Thank you that did it!  i'm sure i will need some more help before it's done but that problem is solved THANK YOU
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
error email attachment VB2010 5 52
Having Trouble with MS Access 2010 CommandBars 19 110
Need example 5 127
Problem to packaging 1 109
What my article will show is if you ever had to do processing to a listbox without being able to just select all the items in it. My software Visual Studio 2008 crystal report v11 My issue was I wanted to add crystal report to a form and show…
A theme is a collection of property settings that allow you to define the look of pages and controls, and then apply the look consistently across pages in an application. Themes can be made up of a set of elements: skins, style sheets, images, and o…
This is Part 3 in a 3-part series on Experts Exchange to discuss error handling in VBA code written for Excel. Part 1 of this series discussed basic error handling code using VBA. http://www.experts-exchange.com/videos/1478/Excel-Error-Handlin…

679 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question