demausdauth
Well-known member
Solitaire
Well-known member
Array will be initialized in the Form Load event. btnNewGame will shuffle the array. btnNext will select a different number each time it's clicked. Click btnNewGame to reshuffle and start over.
VB.NET:
Public Class Form1
Private bingo(75) As String
Private count As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For x As Integer = 1 To 75
Select Case x
Case 1 To 15
bingo(x) = "B " & x
Case 16 To 30
bingo(x) = "I " & x
Case 31 To 45
bingo(x) = "N " & x
Case 46 To 60
bingo(x) = "G " & x
Case 61 To 75
bingo(x) = "O " & x
End Select
Next x
End Sub
Private Sub btnNewGame_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewGame.Click
Dim randnum As New Random()
Dim mix As Integer, temp As String
For x As Integer = 1 To 75
mix = randnum.Next(1, 76)
temp = bingo(mix)
bingo(mix) = bingo(x)
bingo(x) = temp
Next x
count = 0
txtBingo.Clear()
End Sub
Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
count += 1
txtBingo.Text = bingo(count)
End Sub
End Classdemausdauth
Well-known member
This ensures that you have values that you need for each column. I made a form with 25 labels on it and changed the Tag property. You could easily use the Name property as well.
VB.NET:
Private Sub frmBingo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Tag = "B1"
Label2.Tag = "B2"
Label3.Tag = "B3"
Label4.Tag = "B4"
Label5.Tag = "B5"
Label6.Tag = "I1"
Label7.Tag = "I2"
Label8.Tag = "I3"
Label9.Tag = "I4"
Label10.Tag = "I5"
Label11.Tag = "N1"
Label12.Tag = "N2"
Label13.Tag = "N3"
Label14.Tag = "N4"
Label15.Tag = "N5"
Label16.Tag = "G1"
Label17.Tag = "G2"
Label18.Tag = "G3"
Label19.Tag = "G4"
Label20.Tag = "G5"
Label21.Tag = "O1"
Label22.Tag = "O2"
Label23.Tag = "O3"
Label24.Tag = "O4"
Label25.Tag = "O5"
NewCard()
End Sub
Private Sub NewCard()
For Each ctrl As Control In Me.Controls
If TypeOf ctrl Is Label Then
Dim TempLabel As Label = DirectCast(ctrl, Label)
Select Case TempLabel.Tag.ToString()(0)
Case "B"c
TempLabel.Text = TempLabel.Tag.ToString()(0) & rRnd.Next(1, 16).ToString()
Case "I"c
TempLabel.Text = TempLabel.Tag.ToString()(0) & rRnd.Next(16, 31).ToString()
Case "N"c
If TempLabel.Tag.ToString().Substring(1) = "3" Then
TempLabel.Text = "Free"
Else
TempLabel.Text = TempLabel.Tag.ToString()(0) & rRnd.Next(31, 46).ToString()
End If
Case "G"c
TempLabel.Text = TempLabel.Tag.ToString()(0) & rRnd.Next(46, 61).ToString()
Case "O"c
TempLabel.Text = TempLabel.Tag.ToString()(0) & rRnd.Next(61, 76).ToString()
End Select
End If
Next
End Sub
Private Sub btnNewCard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewCard.Click
NewCard()
End SubSolitaire
Well-known member
demausdauth: You don't need all those tags. All you need is the Text property of the labels.
wowjen: You DO need all that code. The Shuffle Sort algorithm I described above will result in 75 unique selections with no repeats, using a form-level variable to remember all the previous selections. If you run your code long enough, you will find that one or more of the numbers are repeated before the game is over.
Furthermore, you should be using the new Random object, not the legacy Rnd function.
wowjen: You DO need all that code. The Shuffle Sort algorithm I described above will result in 75 unique selections with no repeats, using a form-level variable to remember all the previous selections. If you run your code long enough, you will find that one or more of the numbers are repeated before the game is over.
Furthermore, you should be using the new Random object, not the legacy Rnd function.
Last edited:
thanks
@ dermausdauth
I appreciate your help,
but what I need is to generate a random number
without repeating in every column of BINGO Card...
and it ranges:
B = 1 to 15
I = 16 to 30
N = 31 to 45
G = 36 to 60
O = 61 to 75
btw, thanks for your help
@ dermausdauthI appreciate your help,
but what I need is to generate a random number
without repeating in every column of BINGO Card...
and it ranges:
B = 1 to 15
I = 16 to 30
N = 31 to 45
G = 36 to 60
O = 61 to 75
btw, thanks for your helpSolitaire
Well-known member
wowjen: Take another look at the previous post, which I edited a short time ago. The code I posted for you creates an array with 75 unique numbers that do not repeat. You need to study it and apply it to your own program.
Previous post:
wowjen: You DO need all that code. The Shuffle Sort algorithm I described above will result in 75 unique selections with no repeats, using a form-level variable to remember all the previous selections. If you run your code long enough, you will find that one or more of the numbers are repeated before the game is over.
Furthermore, you should be using the new Random object, not the legacy Rnd function.
Previous post:
wowjen: You DO need all that code. The Shuffle Sort algorithm I described above will result in 75 unique selections with no repeats, using a form-level variable to remember all the previous selections. If you run your code long enough, you will find that one or more of the numbers are repeated before the game is over.
Furthermore, you should be using the new Random object, not the legacy Rnd function.
Similar threads
- Question
- Question
