Buongiorno,
ho trovato questo script molto interessante:
Sub Main()
Dim som(5,90)
Dim estr(5)
Dim Val(5,90)
es = InputBox("inserisci 0 per l'ultima estrazione, 1 per la prima del mese.",,1)
For r2 = 1 To 10
For r = 1 To 10
z = 0
For i = 1 To 5
For j = 1 To 90
som(i,j) = 0
Val(i,j) = True
Next
Next
For i = 1 To 5
estr(i) = 0
Next
valido = False
For n = EstrazioneFin - 259 To EstrazioneFin 'Modificando il 180 si cambia il n° di estrazioni esaminate
If valido = True Then
For i = 1 To 5
For j = 1 To 5
k = Estratto(n,r2,j) - estr(i)
If k <= 0 Then
k = k + 90
End If
If Val(i,k) = True Then
som(i,k) = som(i,k) + 1
End If
Next
Next
For i = 1 To 5
For j = 1 To 5
k = Estratto(n,r2,j) - estr(i)
If k <= 0 Then
k = k + 90
End If
If Val(i,k) = True Then
Val(i,k) = False
End If
Next
Next
End If
If es = 0 Then m = n + 1 Else m = n End If
If IndiceMensile(m) = 1 Then
z = z + 1
valido = True
For i = 1 To 5
estr(i) = Estratto(n,r,i)
Next
For i = 1 To 5
For j = 1 To 90
Val(i,j) = True
Next
Next
End If
Next
For i = 1 To 5
For j = 1 To 90
zz = Int((z/100)*90)
s = CStr(eval(i)) + " estratto di " + NomeRuota(r) + " + " + CStr(eval(j)) + " sulla ruota di "
s = s + NomeRuota(r2) + " è uscito " + CStr(som(i,j)) + " volte su " + CStr(eval(z))
If som(i,j) > zz Then
Scrivi s
End If
Next
Next
Next
Next
End Sub
ma non ho capito una cosa: cambiando il numero di estrazioni qui:
For n = EstrazioneFin - 259 To EstrazioneFin 'Modificando il 180 si cambia il n° di estrazioni esaminate
cambia anche il risultato, mi spiego meglio, lasciando il numero "259" il risultato sono 2 selezioni, mentre se inserisco "159" le selezioni sono 192, non dovrebbe essere il contrario?...cioè più estrazioni inserisco da valutare maggiori saranno le uscite?...e viceversa?
Grazie.
lottomoney