Codice:
'Ambi girovaghi (ultime 9 sortite-nove ruote diverse)
Sub Main()
Dim ru(1)
Dim n(2)
Dim ru1(1)
Dim ru2(1)
Dim ru3(1)
Dim ru4(1)
Dim ru5(1)
Dim ru6(1)
Dim ru7(1)
Dim ru8(1)
Dim ru9(1)
Dim ru10(1)
ru(1) = 11
ru1(1) = 1
ru2(1) = 2
ru3(1) = 3
ru4(1) = 4
ru5(1) = 5
ru6(1) = 6
ru7(1) = 7
ru8(1) = 8
ru9(1) = 9
ru10(1) = 10
For z = 10 To 280 Step 10
i = 160 + z
Scrivi "======================== nelle ultime " &i&" estrazioni"
ini = EstrazioneFin - i
fin = EstrazioneFin
For x = 1 To 89
For y = x + 1 To 90
n(1) = x
n(2) = y
If SerieFreqTurbo(ini,fin,n,ru,2) = 9 Then
If SerieFreqTurbo(ini,fin,n,ru1,2) < 2 Then
If SerieFreqTurbo(ini,fin,n,ru2,2) < 2 Then
If SerieFreqTurbo(ini,fin,n,ru3,2) < 2 Then
If SerieFreqTurbo(ini,fin,n,ru4,2) < 2 Then
If SerieFreqTurbo(ini,fin,n,ru5,2) < 2 Then
If SerieFreqTurbo(ini,fin,n,ru6,2) < 2 Then
If SerieFreqTurbo(ini,fin,n,ru7,2) < 2 Then
If SerieFreqTurbo(ini,fin,n,ru8,2) < 2 Then
If SerieFreqTurbo(ini,fin,n,ru9,2) < 2 Then
If SerieFreqTurbo(ini,fin,n,ru10,2) < 2 Then
Scrivi StringaNumeri(n) & " rc " & SerieRitardoTurbo(ini,fin,n,ru,2)
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next
Next
Next
End Sub
Ambo "girovago" più ritardato a tutte:
52.86 rc 140
ultime nove sortite:
02.04.2015 Ve
02.05.2015 To
20.06.2015 Ge
30.06.2015 Pa
24.09.2015 Fi
27.10.2015 Ro
10.11.2015 Mi
28.01.2016 Na
24.03.2016 Ba
Unico ambo con le ultime dieci sortite in dieci ruote diverse
13.38 rc 20
07.04.2015 Ge
14.04.2015 Ca
08.08.2015 Ve
31.03.2016 Ba
31.03.2016 Ro
21.07.2016 To
18.08.2016 Na
13.10.2016 Mi
15.12.2016 Pa
29.12.2016 Fi
Saluti