Novice needs some help

Jul 9 2004 12:42 PM
I have been working on a lottery project that creates 6 random unique numbers 0 - 49, and sorts them using a Bubble Sort LBound to UBound and shows the results in a set of labels. It is similar to the English lottery here in the UK! The problem is this i want the labels to change colour to reflect the numbers of the balls, 0-9 the label is white, 10 - 19 the label is Cyan, 20 - 29 the label is Red and so on. The code i've written so far is below: Dim Balls(5) As Integer Dim labels(5) As System.Windows.Forms.Label Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer Dim OuterLoop As Integer Dim InnerLoop As Integer Dim TempNumber As Integer Dim NewNumber As Integer For i = 0 To 5 Randomize() Do NewNumber = CInt(Int((49 * Rnd()) + 1)) Loop Until NewNumber <> Balls(0) And _ NewNumber <> Balls(1) And _ NewNumber <> Balls(2) And _ NewNumber <> Balls(3) And _ NewNumber <> Balls(4) And _ NewNumber <> Balls(5) Balls(i) = NewNumber Next For OuterLoop = LBound(Balls) To (UBound(Balls) - 1) For InnerLoop = (OuterLoop + 1) To UBound(Balls) If Balls(OuterLoop) > Balls(InnerLoop) Then TempNumber = Balls(OuterLoop) Balls(OuterLoop) = Balls(InnerLoop) Balls(InnerLoop) = TempNumber End If Next Next I can generate the random unique numbers compare them with each other and display them in the labels that i have set up, but i cant manage to figure out how to change the colour of the label to reflect the number displayed in the labels? I hope that you can give me a clue or tips to over come this, i tried alot of If Then Else, or a set of Select Case statements but i couldnt slim or get the code to work. I know iam waffling on but could you help me please? Mark (uk)

Answers (5)