Sub Main()
Dim nn(9)
Dim ru(1)
For r=1 To 11
If r=11 Then r=12
ru(1) = r
c = 0
mx = 0
mx1 = 0
w = 2
numeri = Array(1,2,5,8,11,18,28,29,35,37,38,50,55,58,61,65,68,73,74,80,83,84)
x = UBound(numeri)
For i = 0 To x
If ScriptInterrotto Then Exit For
nn(1) = numeri(i)
For j = i + 1 To x
If ScriptInterrotto Then Exit For
nn(2) = numeri(j)
For k = j + 1 To x
If ScriptInterrotto Then Exit For
nn(3) = numeri(k)
For l = k + 1 To x
If ScriptInterrotto Then Exit For
nn(4) = numeri(l)
For m = l + 1 To x
If ScriptInterrotto Then Exit For
nn(5) = numeri(m)
For n = m + 1 To x
nn(6) = numeri(n)
For o = n + 1 To x
If ScriptInterrotto Then Exit For
nn(7) = numeri(o)
For p = o + 1 To x
nn(8) = numeri(p)
For q = p + 1 To x
nn(9) = numeri(q)
att = SerieRitardoTurbo(7440,EstrazioneFin,nn,ru,w)
sto = SerieStoricoTurbo(7440,EstrazioneFin,nn,ru,w)
If att > sto Then
mx = 0
mx1 = 0
'Scrivi
For es = 7440 To EstrazioneFin
If SerieFreqTurbo(es,es,nn,ru,w) > 0 Then
st = SerieRitardoTurbo(7440,es - 1,nn,ru,w)
If st > mx Then mx = st
incr = mx - mxx
If incr > mx1 Then mx1 = incr
'Scrivi FormatSpace(c,4,1) & ") " & FormatSpace(es,4,1) & " " & StringaNumeri(nn) & " st " & FormatSpace(st,4,1) & " ",0,0
'Scrivi " agg. mx " & mx & " ",0,0
'If mx > mxx Then Scrivi FormatSpace(incr,4,1) & " ",1,0
If SerieFreqTurbo(EstrazioneFin,EstrazioneFin,nn,ru,w) > 0 Then Scrivi " sortito" 'Else Scrivi
mxx = mx
End If
Next
'Scrivi
at = SerieRitardoTurbo(7440,EstrazioneFin,nn,ru,w)
fr = SerieFreqTurbo(7440,EstrazioneFin,nn,ru,w)
If mx1 <=(at - mx) Then
c = c + 1
Messaggio FormatSpace(c,4,1) & ") " & SiglaRuota(r)& " " & StringaNumeri(nn) & " st " & FormatSpace(mx,4,1) & " at " & FormatSpace(at,4,1)
Scrivi FormatSpace(c,4,1) & ") " &SiglaRuota(r)& " " & StringaNumeri(nn) & " Ritardo storico " & mx & " Ritardo attuale " & at,1
Scrivi " Frequenza : " & fr & " su un numero di estrazioni pari a " & EstrazioneFin - 7440
Scrivi " Incremento massimo storico " & mx1 & " Incremento massimo attuale " & at - mx
If mx1 =(at - mx) Then ColoreTesto 2:Scrivi "UGUAGLIANZA IncrS-IncrA" Else ColoreTesto 0
If mx1 <(at - mx) Then ColoreTesto 1:Scrivi " INCRMAX>INCRST" Else ColoreTesto 0
ColoreTesto 0
'Scrivi
End If
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub