Tabellone ESTRATTI UGUALI isocroni

[FABIO60]

'script per spaziometria
'TABELLONE ESTRATTI UGUALI ISOCRONI
Sub Main()
Dim e
Dim a(1)
Dim riga
Dim ru1(1),ru2(1),ru3(1),ru4(1),ru5(1)
Dim ru6(1),ru7(1),ru8(1),ru9(1),ru10(1),ru12(1)
e = EstrazioneFin
Scrivi "Tabellone analitico calcolato all'estrazione del " + DataEstrazione(e)
Scrivi ""
GeneraAnalitico(e)
Scrivi String(163,"-")
For n = TabelloneAnalitico(0,0,0) To 0 Step - 1
Messaggio CStr
riga = FormatSpace(n,3) + " " + SiglaRuota(1) + Space(1)
For r = 1 To 11
If r = 11 Then R = 12
For i = 1 To 5
a(1) = TabelloneAnalitico(n,r,i)
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:ru12(1) = 12
sr1 = SerieRitardo(e - 200,e,a,ru1,1)
sr2 = SerieRitardo(e - 200,e,a,ru2,1)
sr3 = SerieRitardo(e - 200,e,a,ru3,1)
sr4 = SerieRitardo(e - 200,e,a,ru4,1)
sr5 = SerieRitardo(e - 200,e,a,ru5,1)
sr6 = SerieRitardo(e - 200,e,a,ru6,1)
sr7 = SerieRitardo(e - 200,e,a,ru7,1)
sr8 = SerieRitardo(e - 200,e,a,ru8,1)
sr9 = SerieRitardo(e - 200,e,a,ru9,1)
sr10 = SerieRitardo(e - 200,e,a,ru10,1)
sr12 = SerieRitardo(e - 200,e,a,ru12,1)
If a(1) > 0 And sr1 = n And r <> ru1(1)_
Or a(1) > 0 And sr2 = n And r <> ru2(1)_
Or a(1) > 0 And sr3 = n And r <> ru3(1)_
Or a(1) > 0 And sr4 = n And r <> ru4(1)_
Or a(1) > 0 And sr5 = n And r <> ru5(1)_
Or a(1) > 0 And sr6 = n And r <> ru6(1)_
Or a(1) > 0 And sr7 = n And r <> ru7(1)_
Or a(1) > 0 And sr8 = n And r <> ru8(1)_
Or a(1) > 0 And sr9 = n And r <> ru9(1)_
Or a(1) > 0 And sr10 = n And r <> ru10(1)_
Or a(1) > 0 And sr12 = n And r <> ru12(1) Then
riga = riga + Format2(TabelloneAnalitico(n,r,i))
Else
riga = riga + Space(2)
End If
Next
rr = r + 1
If rr = 11 Then rr = 12
riga = riga + + Space(1) + SiglaRuota(rr) + Space(1)
Next
Scrivi CStr(riga)
Next
Scrivi String(173,"-")
End Sub


Da notare sulle ruote di NA-PA gli estratti 17.5.43.80



Riguardo la coppia bivalente 80.6 su Ba-CA attualmente a Rc 24

questi i precedenti che hanno superato rc 24 per estratto 4x1

[4043] 26.06.1948 Ba-Pa 60.87 sortito il 06.02.1954 rit => 25
[4229] 19.01.1952 Ba-Pa 25.85 sortito il 30.08.1952 rit => 29
[4365] 28.08.1954 Ba-Na 09.38 sortito il 28.03.1959 rit => 39
[4831] 10.08.1963 Mi-Na 62.63 sortito il 14.12.1968 rit => 29
[4840] 12.10.1963 Ca-Pa 45.25 sortito il 14.08.1965 rit => 27
[5072] 23.03.1968 Ba-Na 03.19 sortito il 18.05.1974 rit => 27
[5120] 22.02.1969 Ba-To 14.11 sortito il 05.09.1970 rit => 27
[5130] 03.05.1969 Ba-To 36.37 sortito il 06.06.1970 rit => 28
[5913] 05.05.1984 Ca-Na 72.64 sortito il 21.06.1986 rit => 26
[5949] 12.01.1985 Ro-Ve 61.50 sortito il 25.06.1988 rit => 28
[6308] 30.11.1991 Na-Pa 35.13 sortito il 19.11.1997 rit => 32
[6500] 05.08.1995 Ba-Ro 86.32 sortito il 09.03.1996 rit => 26
[6688] 11.03.1998 Ge-Na 44.26 sortito il 06.02.1999 rit => 27
[7005] 24.03.2001 Na-To 58.39 sortito il 02.05.2002 rit => 27
[7133] 12.06.2002 Ro-To 39.71 sortito il 12.02.2009 rit => 31
[7589] 02.05.2006 Fi-Ve 52.45 sortito il 11.09.2008 rit => 36
[7663] 21.10.2006 Ca-Ve 13.82 sortito il 01.07.2008 rit => 45
[7757] 29.05.2007 Fi-Ge 34.10 sortito il 12.08.2010 rit => 31
[8444] 18.10.2011 Ba-Ve 10.18 sortito il 27.07.2013 rit => 26
[8508] 15.03.2012 Pa-To 88.03 sortito il 25.03.2014 rit => 34
[8797] 18.01.2014 Ca-Ve 55.48 sortito il 12.02.2015 rit => 28
[9062] 29.09.2015 Na-Pa 08.39 sortito il 03.12.2015 rit => 27
[9311] 02.05.2017 Ba-Ca 86.23 sortito il 05.08.2017 rit => 30


Saluti