Hi there,
Could anyone help me with writing the code for six random numbers to appear in six different list boxes, and to have them appear in ascending order.Any help or hints would be greatly appreciated.

Thanks

What do you have so far? We can help you problems, but we aren't going to write it for you. A hint is to look into the Random Class.

J

Ok here is what I have so far....

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = CStr(Int(Rnd() * 50))
        Label2.Text = CStr(Int(Rnd() * 50))
        Label3.Text = CStr(Int(Rnd() * 50))
        Label4.Text = CStr(Int(Rnd() * 50))
        Label5.Text = CStr(Int(Rnd() * 50))
        Label6.Text = CStr(Int(Rnd() * 50))

    End Sub
This generates random numbers from 0-49 in my six boxes, but sometimes the numbers are the same and I cant seem to get them into ascending order.Can anyone lend a hand here?

Any help would be much appreciated.

Try something like this:

-------------------------------------------------------------

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rnd As Random = New Random

        Dim RandomNumber As Integer
        Dim i, b, x(5), counter As Byte
        Dim ctrl As Control

        For i = 1 To 6

            RandomNumber = rnd.Next(1, 54)

            For Each ctrl In Me.Controls
                If TypeOf ctrl Is Label And ctrl.Name = "Label" & i.ToString Then
                    x(i - 1) = RandomNumber
                    counter = 0
                    For b = 0 To 5
                        If x(b) = x(i - 1) Then
                            counter += 1
                        End If
                    Next

                    If counter > 1 Then
                        i -= 1
                    Else
                        ctrl.Text = RandomNumber
                    End If
                End If
            Next
        Next

End Sub

-------------------------------------------------------------

J

Thanks so much for your help.I am still a little baffled though, (sorry still very new to all of this)Are you saying that the bit I already have is ok and I now need to add this? (is this the simplest way, do you think?)

Once again thanks again for taking the time out to help me.

Kind regards
Brett

Replace what you have with this.

J

By the way, I just saw your other post. I assume that these numbers are what you are trying to sort.

The code I gave you will randomly select a number between 1 and 53. Replace:

RandomNumber = rnd.Next(1, 54)

With:

RandomNumber = rnd.Next(0, 50)

I believe, and someone can correct me if I am wrong, that the upperbound number is one greater than the highest number you want returned but the lower bound needs to be set to the lowest number you want returned.

J

Thanks for your help, will give it a crack tonight after work and let you know how it pans out.

B

Ok so thanks to your help I have come up with this code so far...
This is giving me random numbers, but now I cant seem to get them into ascending order.Could anyone help me with this?

dim intarray(49) as integer
dim intcount as integer
dim intindex as integer
dim repeated as boolean
dim obj as object

label1.text=intarray(0)
label2.text=intarray(1)
label3.text=intarray(2)
label4,text=intarray(4)
label5.text=intarray(5)
label6.text=intarray(6)

For intcount=0 to 5
Do
repeated=false
intnumber=int((50 * rnd())+1)

for intindex=0 to 5
if intnumber=intarray(intindex) then
repeated=true
end if
Next
Loop until repeated=False

intarray(intcount)=intnumber

Next
intindex= -1
for each obj in groupbox1.controls
intindex+=1
obj.text=intarray(intindex)

Next
end if

Brett,

Have you tried what I proposed. Rnd is a VB6 keyword. You should use the Random class as I showed you.

If you are placing them in a group box, you will need to replace:

Me.Controls

with your groupbox name like:

[GroupBoxName].Controls

I assume this is groupbox1, so replace it with that.

Also, since you have an array - "x(5)", you can call the sort method of the array with on line of code to get the numbers in ascending order. Then you can loop through the controls and set the text property.

--------------------------------
        'sort the array
        Array.Sort(x)
        'reset the counter
        i = 1
        For i = 1 To 6
            For Each ctrl In groupbox1.Controls

                'check the controls to see if they are a label and named label(i)
                If TypeOf ctrl Is Label And ctrl.Name = "Label" & i.ToString Then
                    ctrl.Text = x(i - 1)
                    Exit For
                End If
            Next
        Next

--------------------------------

J