Posted by: Lucid

## Help with VB.net Program - 12/02/04 09:42 PM

The purpose of the program is to simulate rolling a six sided die. Then the program keeps track of the frequency of each roll, the number of total rolls and the probability . My problem is that every time my program simulates rolling a one it prints to Frq1 and does not increment correctly. I want it to increment each time by one starting from a value of zero. Any help would be greatly appreciated.

Code:

Private Sub Calculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calculate.Click

Dim Frequency As Double

Dim Probability As Decimal

Dim DieNumber As Integer

Dim One, Two, Three, Four, Five, Six As Integer

One = 0

IncrementCounter:

Randomize()

DieNumber = CInt(Int((6 * Rnd()) + 1))

Results.Items.Add(DieNumber)

Select Case True

Case DieNumber = 1

One = One + 1

Frq1.Items.Add(One)

GoTo IncrementCounter

End Select

Code:

Private Sub Calculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calculate.Click

Dim Frequency As Double

Dim Probability As Decimal

Dim DieNumber As Integer

Dim One, Two, Three, Four, Five, Six As Integer

One = 0

IncrementCounter:

Randomize()

DieNumber = CInt(Int((6 * Rnd()) + 1))

Results.Items.Add(DieNumber)

Select Case True

Case DieNumber = 1

One = One + 1

Frq1.Items.Add(One)

GoTo IncrementCounter

End Select