Random labels.text

[cindy2]

Hi everyone,

I have 4 textboxes on form1. On runtime the user will be asked to fill in names. After that, I want these names placed RANDOMLY on 4 labels (form2). How should I do that? I am trying it for ages but I still don't have a clue to get them random.

Please help me.

Cindy

[VBPhilly]

Hi everyone,

I have 4 textboxes on form1. On runtime the user will be asked to fill in names. After that, I want these names placed RANDOMLY on 4 labels (form2). How should I do that? I am trying it for ages but I still don't have a clue to get them random.

Please help me.

Cindy

Random is about numbers in vb6.

You should represent your labels as a number, and ask for one of the numbers in a random number generator function.

So, for each textbox. You could say, "RandomNumberGenerator function, give me a number between 1 and 4."

For example,
It returns 3.

See if the 3 label has a value, if not put the name there (from the textbox).

If it does have a value, keep askin the RandomNumberGenerator to give you another number until you get a clean label to populate.

keep going until you get your labels filled (all 4 of them).

Your technical challenge is with the Random generator function. You'll need to make it give you a value of only between 1 and 4. Let me know if you need help with this.

[cindy2]

Random is about numbers in vb6.

You should represent your labels as a number, and ask for one of the numbers in a random number generator function.

So, for each textbox. You could say, "RandomNumberGenerator function, give me a number between 1 and 4."

For example,
It returns 3.

See if the 3 label has a value, if not put the name there (from the textbox).

If it does have a value, keep askin the RandomNumberGenerator to give you another number until you get a clean label to populate.

keep going until you get your labels filled (all 4 of them).

Your technical challenge is with the Random generator function. You'll need to make it give you a value of only between 1 and 4. Let me know if you need help with this.

Thank you for your help!

I don't know if this is the most elegant way (probebly not :)), but it does work. I have something that looks like a random generator:

My module1 looks like this:

Function random(ByVal x As Single) As Single
Dim y As Single
x = Rnd()
If x < 0.25 Then
y = 1
ElseIf x < 0.5 And 0.25 < x Then
y = 2
ElseIf x < 0.75 And 0.5 < x Then
y = 3
ElseIf x < 1 And 0.75 < x Then
y = 4
End If
random = y
End Function


And my form1 (button_click) looks like this:

Dim g As Integer
Form2.Show()
Label1.Text = random(g)


But how can I represent my labels as numbers. Do I have to rename my labels as numbers?

I don't know how to connect the generator with the textboxes and labels.


Cindy

[Killer42]

If you have a look at the index in the VB Articles area, there's a routine there to return a random whole-number value within specified limits.

[cindy2]

If you have a look at the index in the VB Articles area, there's a routine there to return a random whole-number value within specified limits.

Ok Thanks, the Randomize function is a lot easyer than my original generator. So I have the next code:


' Initialize the random-number generator.
Randomize()
' Generate random value between 1 and 4.
Dim value As Integer = CInt(Int((4 * Rnd()) + 1))

Label1.Text = value

But how do I connect this with my labels and textboxes. It is possible to do it with an If-Then structure. But that is a lot of programming. Is there maybe a better way?

Cindy

[kadghar]

Ok Thanks, the Randomize function is a lot easyer than my original generator. So I have the next code:


' Initialize the random-number generator.
Randomize()
' Generate random value between 1 and 4.
Dim value As Integer = CInt(Int((4 * Rnd()) + 1))

Label1.Text = value

But how do I connect this with my labels and textboxes. It is possible to do it with an If-Then structure. But that is a lot of programming. Is there maybe a better way?

Cindy

work it with arrays, the main idea would be something like this

dim myArr(1 to 4) as string 'the ones in textboxes
dim myArr2(1 to 4) as string 'the ones in labels
dim Order(1 to 4) as integer
dim i as integer
dim j as integer
 
order(1) = int(rnd * 4) +1
i=2
for i = 2 to 4
    order(i) = int(rnd * 4)+1
    j=1
    do
        if order(i) = order(j) then
            order(i) = int(rnd * 4)+1
            j = 1
        else
            j=j+1
            if j = i then exit do
        end if
    loop
    i=i+1
next 
 
for i = 1 to 4
    myarr2(i) = myarr(order(i))
next

then just write the second array in your labels

[VBPhilly]

How can you represent labels as numbers? Give the labels the same name.

Each label will then be indexed because they will be considered a control array.

You'll then refer to the labels as:

Label(0)
Label(1)
Label(2)
Label(3)

From above, you can see how you would refer to the labels as a number. 0, 1, 2 or 3.

[cindy2]

work it with arrays, the main idea would be something like this

dim myArr(1 to 4) as string 'the ones in textboxes
dim myArr2(1 to 4) as string 'the ones in labels
dim Order(1 to 4) as integer
dim i as integer
dim j as integer
 
order(1) = int(rnd * 4) +1
i=2
for i = 2 to 4
    order(i) = int(rnd * 4)+1
    j=1
    do
        if order(i) = order(j) then
            order(i) = int(rnd * 4)+1
            j = 1
        else
            j=j+1
            if j = i then exit do
        end if
    loop
    i=i+1
next 
 
for i = 1 to 4
    myarr2(i) = myarr(order(i))
next

then just write the second array in your labels

Thank you, it looks very nice. It took a while, but now I understand your programming: It fils the (Order)Array, element by element, until the whole array is filt with different numbers (1 to 4). I only don't understand the next code:

myArr2(i) = myArr(Order(i))

If I run the programm, I will get the following error: "Index was outside the bounds of the array." Maybe this is because of the adjustments I had to make for the arrays. Arrays should always begin with the 0-ellement. So my code looks like this:

Dim myArr(0 To 3) As String 'the ones in textboxes
        Dim myArr2(0 To 3) As String 'the ones in labels
        Dim Order(0 To 3) As Integer
        Dim i As Integer
        Dim j As Integer
 
        Order(0) = Int(Rnd() * 4) + 1
        i = 1
        For i = 1 To 3
            Order(i) = Int(Rnd() * 4) + 1
            j = 0
            Do
                If Order(i) = Order(j) Then
                    Order(i) = Int(Rnd() * 4) + 1
                    j = 0
                Else
                    j = j + 1
                    If j = i Then Exit Do
                End If
            Loop
            i = i + 1
        Next
 
        For i = 0 To 3
            myArr2(i) = myArr(Order(i))
        Next

Apart form the error I get, I really wanna know what the code

myArr2(i) = myArr(Order(i))

exactly means. Because if I don't understand it, I can't make it work.

Cindy

[kadghar]

Thank you, it looks very nice. It took a while, but now I understand your programming: It fils the (Order)Array, element by element, until the whole array is filt with different numbers (1 to 4). I only don't understand the next code:

myArr2(i) = myArr(Order(i))

If I run the programm, I will get the following error: "Index was outside the bounds of the array." Maybe this is because of the adjustments I had to make for the arrays. Arrays should always begin with the 0-ellement. So my code looks like this:

Yeap, not all the VBs let you use arrays starting in 1.

here you have 3 arrays:

MyArr should look like this:
MyArr(0) = John
MyArr(1) = Peter
MyArr(2) = Bill
MyArr(3) = Bob

Order array has random integers, but it could look like this:
Order(0) = 3
Order(1) = 1
Order(2) = 4
Order(3) = 2

and now MyArr2(order(0) = myarr(0)... that means myArr2(3) = John and so on...

The problem here is that Order has Integers from 1 to 4 so all you have to do is to subtract one to that index:

myArr2(i) = myArr(Order(i) - 1)

That should fix the problem
HTH

[cindy2]

The problem here is that Order has Integers from 1 to 4 so all you have to do is to subtract one to that index:

myArr2(i) = myArr(Order(i) - 1)

That should fix the problem
HTH

Just before your reply I considerd also the substraction by one. But unfortunately the same error occured. :(

Cindy

[kadghar]

Just before your reply I considerd also the substraction by one. But unfortunately the same error occured. :(

Cindy

Hi there,

I've checked the code, it had some indexes troubles with the FOR since the begining, this should solve it
(also now Order is a random number from 0 to 3 so its not necessary to substract one anymore)

Dim myArr(0 To 3) As String 'the ones in textboxes
Dim myArr2(0 To 3) As String 'the ones in labels
Dim Order(0 To 3) As Integer
Dim i As Integer
Dim j As Integer
 
Order(0) = Int(Rnd() * 4)
 
For i = 1 To 3
    Order(i) = Int(Rnd() * 4)
    j = 0
    Do
        If Order(i) = Order(j) Then
            Order(i) = Int(Rnd() * 4)
            j = 0
        Else
            j = j + 1
            If j = i Then Exit Do
        End If
    Loop
Next
 
For i = 0 To 3
myArr2(i) = myArr(Order(i))
Next

HTH

[cindy2]

I've checked the code, it had some indexes troubles ...

Thank You Very Much!!!!!
It works perfectly.

Cindy