10% probability of dying

[howie2293]

Hi all

got another problem. Been playing with a few ideas for a task which i could do with some help with. Any help would be deeply appreciated. Thanks all


The task

Write a Visual Basic program which draws a 5 by 5 grid of labels and a button. Each time the button is clicked each label should decide whether it dies or not with a 10% probability of dying. (that is, after the first click about 10% of your labels should die)

[Atheist]

What do you mean by die? Should the label be..removed?

[Shaggy Hiker]

With a number that low, it may not pay to do anything fancy with collections or anything, just loop from 0 to 24, picking a random number between 0-100 (the top value is not used in Random.GetNext, so 0-100 is right). If the number comes up less than 10, then that label dies. The only difficulty would be deciding which label each iteration of the loop was dealing with, but that shouldn't be hard.

Of course, as Atheist pointed out, we don't know what "dies" means in terms of a label.

You could make a pun out of it, by simply changing it's color.

[howie2293]

What do you mean by die? Should the label be..removed?

10% of the labels are to go each time you press a button

[Atheist]

to go ...well then i presume you mean that they should be removed
Shaggy hiker has said it all

[RobDog888]

Sounds like a school project? What have you done so far?

[jmcilhinney]

I would go along these lines. A 5x5 grid sounds like a good use of a TableLyoutPanel. You'd place your 25 Labels in the cells of the table and then do something like this:

Dim myRandom As New Random
 
For Each lbl As Label in myTableLayoutPanel.Controls
    If myRandom.Next(0, 10) = 0 Then
        'Kill the Label.
        lbl.Dispose()
        myTableLayoutPanel.Controls.Remove(lbl)
    End If
Next lbl

[howie2293]

Sounds like a school project? What have you done so far?

Not quite a school project, manage to get diffrent labels disappear at as random variable but not to the 10% dying time that was asked of the task

[jmcilhinney]

Or more specifically even:

Private myRandom As New Random
 
Private Sub KillLabels(ByVal likelihoodOfDeath As Integer)
    Debug.Assert(likelihoodOfDeath > 0 AndAlso likelihoodOfDeath <= 100)
 
    For Each lbl As Label in myTableLayoutPanel.Controls
        If myRandom.Next(0, 100) < likelihoodOfDeath Then
            'Kill the Label.
            lbl.Dispose()
            myTableLayoutPanel.Controls.Remove(lbl)
        End If
    Next lbl
End Sub