Solved

how to get multiple random numbers

Posted on 2010-11-29
3
403 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

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

zlib is a free compression library (a DLL) on which the popular gzip utility is built.  In this article, we'll see how to use the zlib functions to compress and decompress data in memory; that is, without needing to use a temporary file.  We'll be c…
Entering time in Microsoft Access can be difficult. An input mask often bothers users more than helping them and won't catch all typing errors. This article shows how to create a textbox for 24-hour time input with full validation politely catching …
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…
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…

839 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