Linguaggio Visual Basic – Estrazione di numeri per la tombola

  • Autore: Antonio Guadagno
  • Fonte: Seneta.it

Prendendo spunto dal gioco della tombola, l’esercitazione ha lo scopo di:

  • definire una funzione che restituisce un valore al codice chiamante tramite l’istruzione Return;
  • utilizzare la classe Random per la generazione di numeri pseudo-casuali;
  • generare una scansione dei controlli presenti nel form (Me.Controls) attraverso il costrutto For Each … Next per evidenziare le caselle corrispondenti ai numeri estratti.

Public Class frm_Tombola

Dim NumeriEstratti(90) As Short

Private Sub btn_EstraiNUmero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_EstraiNUmero.Click
Dim NomeCasella As String

lbl_NumeroEstratto.Text = NumeroEstratto()
NomeCasella = "txt_Numero" & lbl_NumeroEstratto.Text

Dim CasellaEstratta As Control
For Each CasellaEstratta In Me.Controls
If CasellaEstratta.Name = NomeCasella Then
CasellaEstratta.BackColor = Color.PaleVioletRed
CasellaEstratta.ForeColor = Color.Wheat
Exit For
End If
Next

End Sub

Private Function NumeroEstratto() As Short
Dim Casuale As New Random
Dim Beccato As Boolean = False
NumeroEstratto = 0
While Beccato = False
NumeroEstratto = Casuale.Next(1, 91)
If NumeroEstratto = NumeriEstratti(NumeroEstratto - 1) Then
Beccato = False
Else
Beccato = True
NumeriEstratti(NumeroEstratto - 1) = NumeroEstratto
End If
End While
Return NumeroEstratto
End Function

End Class

 

Le 90 TextBox potevano essere implementate anche da codice mediante la seguente routine:

Public Sub CostruisciTabellone()
Dim PosX As Short = 20, PosY As Short = 20
Dim TipoCarattere As New Font("Verdana", "12")

Dim Riga, Colonna As Integer
For Riga = 1 To 9
For Colonna = 1 To 10
Dim Casella As New TextBox
With Casella
.Font = TipoCarattere
.BackColor = Color.WhiteSmoke
.ForeColor = Color.Gray
.Name = "txt_Numero" & (Riga - 1) & Colonna
.Width = 45
.Left = PosX + .Width * (Colonna - 1)
.Top = PosY + .Height * (Riga - 1)
.Text = (Riga - 1) * 10 + Colonna
.Visible = True
.TextAlign = HorizontalAlignment.Center
.ReadOnly = True
.TabStop = False
End With
Me.Controls.Add(Casella)
Next
Next
End Sub

Visite: 508