Option Explicit
Public TotNumeriEstratti As Integer
Dim NumeriEstratti(90) As Integer
Private Sub chkReset_Click()
On Error Resume Next
cmdReset.Enabled = CBool(chkReset.Value)
cmdReset.SetFocus
End Sub
Private Sub cmdEstrazioni_Click()
Dim GiaEstratto As Boolean
Dim Index As Integer
Dim Estratto As Integer
GiaEstratto = True
Index = 0
TotNumeriEstratti = TotNumeriEstratti + 1
Do While GiaEstratto = True
Estratto = Int(Rnd * 90) + 1
GiaEstratto = False
For Index = 0 To TotNumeriEstratti
If Estratto = NumeriEstratti(Index) Then GiaEstratto = True
Next Index
Loop
NumeriEstratti(TotNumeriEstratti) = Estratto
lblNumero(Estratto - 1).BackColor = vbBlue
If TotNumeriEstratti > 1 Then lblNumero(NumeriEstratti(TotNumeriEstratti - 1) - 1).BackColor = vbRed
lblUltimo.Caption = Estratto
If TotNumeriEstratti = 90 Then
cmdEstrazioni.Enabled = False
chkReset.Value = 1
chkReset_Click
End If
End Sub
Private Sub cmdReset_Click()
Dim I As Integer
For I = 0 To 89
lblNumero(I).BackColor = vbYellow
Next I
TotNumeriEstratti = 0
lblUltimo.Caption = "-"
cmdEstrazioni.Enabled = True
chkReset.Value = 0
chkReset_Click
End Sub
Private Sub Form_Load()
Dim I As Integer
Randomize
For I = 0 To 89
lblNumero(I).Caption = I + 1
Next I
End Sub
