Solved

how to get multiple random numbers

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

DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

Question has a verified solution.

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

This tutorial is about how to put some of your C++ program's functionality into a standard DLL, and how to make working with the EXE and the DLL simple and seamless.   We'll be using Microsoft Visual Studio 2008 and we will cut out the noise; that i…
This article describes how to add a user-defined command button to the Windows 7 Explorer toolbar.  In the previous article (http://www.experts-exchange.com/A_2172.html), we saw how to put the Delete button back there where it belongs.  "Delete" is …
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…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

770 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