Posts written by santani

Ciao Cinzia.
Ti ringrazio ancora una volta, approfitto x chiedere un'altra cosa,
è possibile disporre l'output invece che
1-2....................
1-3....................
1-4 ...................

in base al ritardo attuale?

32-38 rit attuale 1292
.................................
.................................
................................
...............................

37-42 rit attuale 911
................................
................................
...............................

e cosi via.... cioè in base agli ambi + in ritardo
Comunque se è troppo complicato non ti preoccupare , va bene anche cosi comè
Grazie ancora

Ciao, provo a spiegarmi meglio, la ricerca deve effettuarsi su tutti i 4005 ambi e io devo decidere su quali e quante rute giocare.
Per il resto la tabella che ne esce va bene del tipo di quella degli ambi bivalenti.
Cioè deve riassumere l'estrazione di inizio, le o la ruota in gioco, i 2 numeri usciti, a quale estrazione, in quale ruota, con quale ritardo e infine con quale ritardo di posizione dall'uscita precedente.
Esempio se decidessi di giocare su 3 ruote:


6734 CA-GE-PA ambo 67.79 è sortito alla 7441 nella ruota di PA con rit 706 2

6701 MI-FI-VE ambo 12,44 è sortito alla 7455 nella ruota di VE con rit 754 14


Nell'immagine un esempio x impostare quali e quante ruote.

Ciao Cinzia, mi avevi aiutato tempo fà x un listato sugli ambi bivalenti, ti rinfresco la memoria il listato era questo:

Sub Main()
Dim n(2),ru(1),ru1(1),rur(1),rur1(2)

rur1(1) = 11
rur1(2) = 12
fin = EstrazioneFin
ini = 7440
For es = 7440 To EstrazioneFin
cc = cc + 1
For rr = 1 To 11
If rr = 11 Then rr = 12
rur(1) = rr
For pp = 1 To 4
For pp1 = pp + 1 To 5
n(1) = Estratto(es,rr,pp)
n(2) = Estratto(es,rr,pp1)
OrdinaMatrice n,1
If n(1) > 0 Then
rt = SerieRitardo(1,es - 1,n,rur,2)

If rt > 600 Then
u = es - rt - 1
frr = SerieFreq(u,u,n,rur1,2)
If frr > 1 And frr < 3 Then

For r = 1 To 10
For r1 = r + 1 To 11
If r1 = 11 Then r1 = 12
Messaggio(es)
If r = rr Xor r1 = rr Then
ru(1) = r
ru1(1) = r1
If SerieFreq(u + 1,es - 1,n,ru,2) = 0 And SerieFreq(u + 1,es - 1,n,ru1,2) = 0 Then
If SerieFreq(u,u,n,ru,2) > 0 And SerieFreq(u,u,n,ru1,2) > 0 Then
Scrivi FormatSpace(u,4,1) & " " & SiglaRuota(r) & "-" & SiglaRuota(r1) & " ambo bivalente " & StringaNumeri(n) _
& " è sortito alla " & FormatSpace(es,4,1) & " nella ruota di " & SiglaRuota(rr) & " con rit " & FormatSpace(rt,4,1) & " " & FormatSpace(cc,4,1)
cc = 0

End If
End If
End If
Next
Next
End If
End If
End If
Next
Next
Next
Next
End Sub



Ora gentilmenti chiedo , lo stesso tipo di ricerca si può fare con gli ambi in generale , cioè tutti gli ambi e poi magari tramite inputbox poter scegliere quali e quante ruote abilitare?
Grazie !

Ciao Cinzia27

Perfetto Grazie!

Per Cinzia27
Ho notato facendo alcune verifiche che c'è un errore di incolonnamento.
Mi spiego meglio con un esempio:

6740 NA-VE ambo bivalente 2.54 è sortito alla 7560 nella ruota di VE con rit 819 3 23
6667 BA-NA ambo bivalente 7.67 è sortito alla 7537 nella ruota di BA con rit 869 23 18
6507 FI-VE ambo bivalente 9.90 è sortito alla 7519 nella ruota di VE con rit 1011 18 08
6820 MI-VE ambo bivalente 4.81 è sortito alla 7511 nella ruota di MI con rit 690 8 16
6829 PA-RO ambo bivalente 9.82 è sortito alla 7495 nella ruota di PA con rit 665 16 19
6864 NA-VE ambo bivalente 51.73 è sortito alla 7476 nella ruota di VE con rit 611 19 15
6663 RO-TO ambo bivalente 5.80 è sortito alla 7461 nella ruota di RO con rit 797 15 12
6758 NA-TO ambo bivalente 12.15 è sortito alla 7449 nella ruota di NA con rit 690 12 08
6734 CA-GE ambo bivalente 67.79 è sortito alla 7441 nella ruota di GE con rit 706 8

In rosso ci sono i risulti nella giusta riga , in pratica sono tutti sfalsati di una riga
Sai dirmi come correggere se è possibile
E , scusa se mi ripeto, per il discorso di includere nelle ricerche solo i 10 ritardi maggiori si potrà fare qualcosa?
GRAZIE!

Ma ,non sò che dire, io lottodesk non ce l'ho
al limite farò senza ruota nazionale

No niente da fare, continua a trovarne soltanto 1 di ambi sulla nazionale
io ho messo questo su spaziometria e su l8+
ma!!

Sub main()
Dim n(2),ru(1),ru1(1),rur(1),rur1(2)

rur1(1)=11
rur1(2)=12
fin=EstrazioneFin
ini=7440
For es=fin To ini step -1
cc=cc+1
For rr=1 To 11
If rr=11 Then rr=12
rur(1)=rr
For pp=1 To 4
For pp1=pp+1 To 5
n(1)=Estratto(es,rr,pp)
n(2)=Estratto(es,rr,pp1)
OrdinaMatrice n
If n(1)>0 Then
rt=SerieRitardo(1,es-1,n,rur,2)

If rt>600 Then
u=es-rt-1
frr=SerieFreq(u,u,n,rur1,2)
If frr>1 And frr<3 Then

For r=1 To 10
For r1=r+1 To 11
If r1=11 Then r1=12
Messaggio(es)
If r=rr Xor r1=rr Then
ru(1)=r
ru1(1)=r1
If SerieFreq(u+1,es-1,n,ru,2)=0 And SerieFreq(u+1,es-1,n,ru1,2)=0 Then
If SerieFreq(u,u,n,ru,2)>0 And SerieFreq(u,u,n,ru1,2)>0 Then
Scrivi FormatSpace(u,4,1)&" "& SiglaRuota (r)&"-"&SiglaRuota (r1) &" ambo bivalente "&stringanumeri(n) _
&" è sortito alla "&FormatSpace(es,4,1)&" nella ruota di "& SiglaRuota (rr)&" con rit "&FormatSpace(rt,4,1)&" "& FormatSpace(cc,4,1)
cc=0

End If
End If
End If
Next
Next
End If
End If
End If
Next
Next
Next
Next
End Sub

Ciao Cinzia27 , si i casi sono quelli.
Quando dici "ho impostato su un altro script l'archivio dall'estrazione finale alla 7440"
non ti riferisci a quello che hai già postato cambiando solo il numero 6665 con 7440,
perchè io ho provato e la nazionale continua ad essere assente.
Credo Tu ti riferisca ad un altro modificato vero?
Comunque grazie x l'impegno che ci metti!

Per il discorso di includere nelle ricerche solo i 10 ritardi maggiori si potrà fare qualcosa?

Ciao Cinzia27 , ho provato lo script e funziona.
Però come il tuo precedente, non rileva ben 14 sfaldamenti con la ruota nazionale.
Se vuoi fare la comparazione col listato postato da me ( ma non mio che però non corrisponde alle mie esigenze di incolonnamento di uscita ) all'inizio della discussione, vedrai che ci sono ben 15 ambi bivalenti
nello stesso periodo di ricerca mentre col tuo ne rileva solo 1

UN MISTERO!

Ciao, ho provato lo script su spaziometria nel farlo girare mi dava errore OrdinaMatrice n cosi' ho aggiunto ,1
ora va, ma ho fatto bene?
Ho notato che ,tranne in 1 caso, non include la ruota nazionale.
Comunque a parte questo è un bel passo avanti x la "tabella" di uscita che cerco
Grazie mille a Cinzia27
Ora manca l'impostazione x fargli calcolare solo i primi 10 ritardatari ( al posto di ritardo minimo 600 estrazioni )

Edited by santani - 25/11/2017, 11:37

Ciao Cinnzia27, ciao Claudio.
Nell'esempio postato ci sono solo quelli x il periodo che è impostato dal listato e cioè dall'estrazione 6000 e con ritardo minimo di 600 estrazioni .
Volendo questi parametri si possono modificare facilmente:

Sub Main()
x = 600 '<======= indicare il ritardo minimo
Scrivi
Scrivi String(10," ") & "STORICO AMBI BIVALENTI ",1
Scrivi String(4," ") & "CON RITARDO ISOCRONO minimo di ",1
Scrivi String(15," ") & x & " estrazioni " & Chr(10),1
Dim nu(2),tt(1),tz(1),ru(2)
tt(1) = 11
tz(1) = 12
ef = EstrazioneFin
For es = 6000 To EstrazioneFin - x + 1' 6000 è la1^ del 1986
Messaggio "Elaboro " & es
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
For r2 = r1 + 1 To 11 : If r2 = 11 Then r2 = 12
If Posizione(Es,r2,a) > 0 And Posizione(Es,r2,b) > 0 Then
nu(1) = a : nu(2) = b
ru(1) = r1 : ru(2) = r2
Sp = SeriePrima(es + 1,ef,nu,ru,2)
ri = Sp - es
If ri > x Then
Scrivi "[" & es & "] " & DataEstrazione(es) & " AR => " & SerieFreq(es,es,nu,tt,2) & " " & _
SiglaRuota(r1) & "-" & SiglaRuota(r2) & " " & StringaNumeri(nu) & " sortito il " & _
DataEstrazione(SP) & " [" & Sp & "] " & "rit => " & ri
End If
End If
Next
Next
Next
Next
Next
End Sub

Ho evidenziato in rosso le eventuali modifiche.
Comunque utilizzandolo cosi' comè il risultato integrale è questo:

STORICO AMBI BIVALENTI
CON RITARDO ISOCRONO minimo di
600 estrazioni

[6024] 21.06.1986 AR => 2 Ba-Na 69.49 sortito il 20.12.1997 [6665] rit => 641
[6052] 03.01.1987 AR => 2 Ba-Ve 64.26 sortito il 07.01.1999 [6774] rit => 722
[6069] 02.05.1987 AR => 2 Na-Ve 79.23 sortito il 17.10.1998 [6751] rit => 682
[6082] 01.08.1987 AR => 2 Fi-Ve 73.46 sortito il 13.05.1998 [6706] rit => 624
[6099] 28.11.1987 AR => 2 Fi-Mi 05.55 sortito il 12.04.2000 [6906] rit => 807
[6115] 19.03.1988 AR => 2 Na-Ro 51.42 sortito il 14.10.1998 [6750] rit => 635
[6147] 29.10.1988 AR => 2 Ca-Ro 25.39 sortito il 15.05.1999 [6811] rit => 664
[6209] 08.01.1990 AR => 2 Pa-Ve 29.50 sortito il 05.11.2003 [7284] rit => 1075
[6221] 31.03.1990 AR => 2 Na-Ro 28.68 sortito il 20.03.2002 [7109] rit => 888
[6222] 07.04.1990 AR => 2 Ba-Na 59.71 sortito il 19.11.2003 [7288] rit => 1066
[6245] 15.09.1990 AR => 2 Ba-Fi 87.60 sortito il 09.06.2001 [7027] rit => 782
[6246] 22.09.1990 AR => 2 Pa-To 13.65 sortito il 09.06.2001 [7027] rit => 781
[6274] 06.04.1991 AR => 2 Fi-Ro 72.66 sortito il 19.02.2000 [6891] rit => 617
[6277] 27.04.1991 AR => 2 Ca-Ve 16.02 sortito il 17.11.2001 [7073] rit => 796
[6406] 16.10.1993 AR => 2 Fi-Pa 14.12 sortito il 31.12.2002 [7195] rit => 789
[6406] 16.10.1993 AR => 2 Mi-Pa 12.46 sortito il 31.03.2001 [7007] rit => 601
[6417] 03.01.1994 AR => 2 Ge-Ve 62.05 sortito il 23.06.2001 [7031] rit => 614
[6420] 22.01.1994 AR => 2 Ca-Mi 67.69 sortito il 24.04.2004 [7333] rit => 913
[6434] 30.04.1994 AR => 2 Fi-Pa 08.62 sortito il 30.06.2004 [7352] rit => 918
[6445] 16.07.1994 AR => 2 Ba-Ro 17.81 sortito il 13.02.2002 [7099] rit => 654
[6446] 23.07.1994 AR => 2 Ge-Ve 61.65 sortito il 21.12.2002 [7191] rit => 745
[6468] 24.12.1994 AR => 2 Ge-Ro 30.12 sortito il 15.02.2003 [7209] rit => 741
[6494] 24.06.1995 AR => 2 Ca-Fi 71.52 sortito il 25.08.2004 [7368] rit => 874
[6507] 23.09.1995 AR => 2 Fi-Ve 09.90 sortito il 19.11.2005 [7519] rit => 1012
[6508] 30.09.1995 AR => 2 Fi-To 80.37 sortito il 13.07.2002 [7142] rit => 634
[6512] 28.10.1995 AR => 2 Ca-Ve 49.60 sortito il 28.05.2003 [7238] rit => 726
[6532] 16.03.1996 AR => 2 Mi-Ve 08.60 sortito il 04.09.2002 [7157] rit => 625
[6574] 04.01.1997 AR => 2 Fi-Ge 53.58 sortito il 02.03.2006 [7563] rit => 989
[6574] 04.01.1997 AR => 2 Ge-Ro 62.64 sortito il 14.07.2004 [7356] rit => 782
[6586] 19.03.1997 AR => 2 Ba-To 74.81 sortito il 11.12.2004 [7399] rit => 813
[6599] 03.05.1997 AR => 2 Ge-Ro 27.73 sortito il 14.09.2006 [7647] rit => 1048
[6609] 07.06.1997 AR => 2 Pa-To 08.82 sortito il 07.07.2004 [7354] rit => 745
[6624] 30.07.1997 AR => 2 Ba-To 64.59 sortito il 19.10.2010 [8288] rit => 1664
[6644] 08.10.1997 AR => 2 Fi-Ge 04.25 sortito il 12.07.2007 [7776] rit => 1132
[6656] 19.11.1997 AR => 2 Ba-Fi 90.53 sortito il 26.06.2004 [7351] rit => 695
[6663] 13.12.1997 AR => 2 Ro-To 05.80 sortito il 07.07.2005 [7461] rit => 798
[6667] 27.12.1997 AR => 2 Ba-Na 67.07 sortito il 31.12.2005 [7537] rit => 870
[6672] 14.01.1998 AR => 2 Pa-Ro 83.24 sortito il 31.03.2004 [7326] rit => 654
[6685] 28.02.1998 AR => 2 Pa-Ve 90.60 sortito il 14.08.2004 [7365] rit => 680
[6686] 04.03.1998 AR => 2 Ge-To 40.26 sortito il 14.01.2004 [7304] rit => 618
[6726] 22.07.1998 AR => 2 Mi-To 78.32 sortito il 12.05.2004 [7338] rit => 612
[6734] 19.08.1998 AR => 2 Ca-Ge 79.67 sortito il 07.05.2005 [7441] rit => 707
[6740] 09.09.1998 AR => 2 Na-Ve 02.54 sortito il 23.02.2006 [7560] rit => 820
[6758] 11.11.1998 AR => 2 Na-To 15.12 sortito il 04.06.2005 [7449] rit => 691
[6801] 10.04.1999 AR => 2 Mi-To 25.10 sortito il 09.02.2008 [7867] rit => 1066
[6816] 02.06.1999 AR => 2 Fi-Ro 16.58 sortito il 03.06.2009 [8072] rit => 1256
[6820] 16.06.1999 AR => 2 Mi-Ve 04.81 sortito il 02.11.2005 [7511] rit => 691
[6829] 17.07.1999 AR => 2 Pa-Ro 82.09 sortito il 24.09.2005 [7495] rit => 666
[6842] 01.09.1999 AR => 2 Fi-Pa 42.46 sortito il 08.07.2006 [7618] rit => 776
[6864] 17.11.1999 AR => 2 Na-Ve 73.51 sortito il 11.08.2005 [7476] rit => 612
[6865] 20.11.1999 AR => 2 Ge-Na 45.30 sortito il 11.11.2010 [8298] rit => 1433
[6923] 10.06.2000 AR => 2 Ge-Pa 63.32 sortito il 26.07.2007 [7782] rit => 859
[6925] 17.06.2000 AR => 2 Ba-Na 44.50 sortito il 13.05.2006 [7594] rit => 669
[6932] 12.07.2000 AR => 2 Ba-Mi 84.56 sortito il 28.10.2006 [7666] rit => 734
[6936] 26.07.2000 AR => 2 Pa-Ve 03.44 sortito il 03.08.2006 [7629] rit => 693
[6961] 21.10.2000 AR => 2 Fi-Ge 10.57 sortito il 22.11.2007 [7833] rit => 872
[7016] 02.05.2001 AR => 2 Mi-Ro 63.70 sortito il 05.07.2008 [7930] rit => 914
[7042] 01.08.2001 AR => 2 Na-To 63.19 sortito il 30.10.2007 [7823] rit => 781
[7048] 22.08.2001 AR => 2 Fi-Ge 62.33 sortito il 28.02.2008 [7875] rit => 827
[7070] 07.11.2001 AR => 2 Ge-Pa 86.34 sortito il 19.08.2008 [7949] rit => 879
[7119] 24.04.2002 AR => 2 Mi-To 47.65 sortito il 28.07.2007 [7783] rit => 664
[7133] 12.06.2002 AR => 2 Ro-To 39.71 sortito il 12.02.2009 [8025] rit => 892
[7139] 03.07.2002 AR => 2 Pa-To 21.69 sortito il 21.07.2007 [7780] rit => 641
[7160] 14.09.2002 AR => 2 Fi-Ge 18.38 sortito il 02.02.2008 [7864] rit => 704
[7162] 21.09.2002 AR => 2 Ca-Fi 72.79 sortito il 05.02.2008 [7865] rit => 703
[7170] 19.10.2002 AR => 2 Ge-Na 19.14 sortito il 11.09.2007 [7802] rit => 632
[7180] 23.11.2002 AR => 2 Mi-Ve 56.53 sortito il 30.10.2008 [7980] rit => 800
[7215] 08.03.2003 AR => 2 Pa-Ve 81.12 sortito il 17.05.2008 [7909] rit => 694
[7226] 16.04.2003 AR => 2 Fi-To 11.37 sortito il 24.11.2007 [7834] rit => 608
[7246] 25.06.2003 AR => 2 Pa-Ro 09.52 sortito il 12.06.2010 [8233] rit => 987
[7254] 23.07.2003 AR => 2 Fi-Pa 15.56 sortito il 26.09.2009 [8122] rit => 868
[7287] 15.11.2003 AR => 2 Ge-Pa 90.88 sortito il 27.12.2008 [8005] rit => 718
[7306] 21.01.2004 AR => 2 Mi-Na 03.20 sortito il 31.07.2008 [7941] rit => 635
[7309] 31.01.2004 AR => 2 Ge-Mi 26.79 sortito il 04.11.2008 [7982] rit => 673
[7315] 21.02.2004 AR => 2 Fi-Pa 04.07 sortito il 15.09.2012 [8587] rit => 1272
[7323] 20.03.2004 AR => 2 Ge-To 08.10 sortito il 24.06.2008 [7925] rit => 602
[7326] 31.03.2004 AR => 2 Ca-Ve 60.64 sortito il 12.07.2008 [7933] rit => 607
[7327] 03.04.2004 AR => 2 Mi-Na 87.41 sortito il 18.09.2008 [7962] rit => 635
[7350] 23.06.2004 AR => 2 Ge-Ro 11.47 sortito il 11.12.2010 [8311] rit => 961
[7367] 21.08.2004 AR => 2 Ge-Pa 77.42 sortito il 27.01.2009 [8018] rit => 651
[7391] 13.11.2004 AR => 2 To-Ve 03.32 sortito il 25.02.2010 [8187] rit => 796
[7409] 15.01.2005 AR => 2 Mi-To 33.84 sortito il 15.03.2011 [8351] rit => 942
[7414] 02.02.2005 AR => 2 Ge-Na 42.84 sortito il 26.02.2011 [8344] rit => 930
[7422] 02.03.2005 AR => 2 Pa-Ro 68.09 sortito il 16.04.2009 [8052] rit => 630
[7424] 09.03.2005 AR => 2 Fi-Ge 79.08 sortito il 22.09.2009 [8120] rit => 696
[7425] 12.03.2005 AR => 2 Na-Ro 74.16 sortito il 27.02.2010 [8188] rit => 763
[7445] 21.05.2005 AR => 2 Pa-To 79.61 sortito il 20.08.2009 [8106] rit => 661
[7466] 19.07.2005 AR => 2 Ba-Na 73.09 sortito il 13.06.2009 [8077] rit => 611
[7466] 19.07.2005 AR => 2 Fi-Ro 35.32 sortito il 03.09.2011 [8425] rit => 959
[7515] 10.11.2005 AR => 2 Fi-Pa 23.51 sortito il 27.03.2010 [8200] rit => 685
[7552] 04.02.2006 AR => 2 Ba-Mi 47.76 sortito il 17.06.2010 [8235] rit => 683
[7552] 04.02.2006 AR => 1 Pa-Nz 83.38 sortito il 18.05.2010 [8222] rit => 670
[7584] 20.04.2006 AR => 1 Na-Nz 05.29 sortito il 01.12.2015 [9089] rit => 1505
[7607] 13.06.2006 AR => 2 Ge-Pa 54.48 sortito il 06.09.2014 [8896] rit => 1289
[7629] 03.08.2006 AR => 2 Mi-Na 05.25 sortito il 18.02.2017 [9280] rit => 1651
[7634] 16.08.2006 AR => 2 Ca-To 09.21 sortito il 12.05.2012 [8533] rit => 899
[7639] 26.08.2006 AR => 2 Ge-Mi 28.12 sortito il 06.02.2014 [8805] rit => 1166
[7640] 29.08.2006 AR => 2 Ge-Mi 13.25 sortito il 21.06.2012 [8550] rit => 910
[7680] 30.11.2006 AR => 2 Ba-Ca 43.49 sortito il 03.07.2012 [8555] rit => 875
[7685] 12.12.2006 AR => 2 Ge-Mi 25.07 sortito il 21.10.2010 [8289] rit => 604
[7690] 23.12.2006 AR => 2 Ro-To 46.70 sortito il 04.09.2012 [8582] rit => 892
[7704] 25.01.2007 AR => 2 Fi-Ve 42.39 sortito il 12.09.2013 [8742] rit => 1038
[7738] 14.04.2007 AR => 3 Ro-To 74.73 sortito il 29.12.2011 [8475] rit => 737
[7759] 04.06.2007 AR => 2 Ge-Pa 48.40 sortito il 16.05.2013 [8691] rit => 932
[7762] 09.06.2007 AR => 2 Ge-Pa 19.85 sortito il 07.02.2013 [8649] rit => 887
[7770] 28.06.2007 AR => 2 Ge-To 52.20 sortito il 18.10.2012 [8601] rit => 831
[7772] 03.07.2007 AR => 2 Ge-Ve 76.58 sortito il 14.06.2011 [8390] rit => 618
[7774] 07.07.2007 AR => 2 To-Ve 37.22 sortito il 06.09.2011 [8426] rit => 652
[7777] 14.07.2007 AR => 2 Ca-Ve 19.79 sortito il 25.06.2011 [8395] rit => 618
[7784] 31.07.2007 AR => 2 Pa-To 53.57 sortito il 13.09.2011 [8429] rit => 645
[7786] 04.08.2007 AR => 2 To-Ve 29.70 sortito il 12.04.2012 [8520] rit => 734
[7791] 16.08.2007 AR => 2 Ca-Ve 25.28 sortito il 26.07.2011 [8408] rit => 617
[7818] 18.10.2007 AR => 2 Ge-To 76.68 sortito il 09.05.2013 [8688] rit => 870
[7830] 15.11.2007 AR => 2 Ro-To 85.43 sortito il 04.08.2012 [8569] rit => 739
[7865] 05.02.2008 AR => 2 Ba-Ro 44.87 sortito il 24.07.2012 [8564] rit => 699
[7867] 09.02.2008 AR => 2 Pa-Ro 60.03 sortito il 16.02.2013 [8653] rit => 786
[7888] 29.03.2008 AR => 2 Mi-Ve 03.52 sortito il 27.01.2015 [8957] rit => 1069
[7902] 02.05.2008 AR => 1 Mi-Nz 24.46 sortito il 22.02.2014 [8812] rit => 910
[7921] 14.06.2008 AR => 2 Ge-Mi 36.12 sortito il 22.12.2012 [8629] rit => 708
[7932] 10.07.2008 AR => 2 Ge-Pa 39.02 sortito il 14.05.2016 [9160] rit => 1228
[7937] 22.07.2008 AR => 2 Mi-Nz 87.75 sortito il 31.07.2012 [8567] rit => 630
[7965] 25.09.2008 AR => 2 Ca-Ge 28.70 sortito il 14.03.2013 [8664] rit => 699
[7968] 02.10.2008 AR => 2 Fi-To 01.67 sortito il 09.08.2012 [8571] rit => 603
[7980] 30.10.2008 AR => 1 Na-Nz 18.79 sortito il 24.12.2012 [8630] rit => 650
[7985] 11.11.2008 AR => 1 Ca-Nz 35.70 sortito il 10.11.2012 [8611] rit => 626
[7985] 11.11.2008 AR => 1 Ca-Nz 70.87 sortito il 27.10.2012 [8605] rit => 620
[7996] 06.12.2008 AR => 2 Fi-Pa 46.80 sortito il 18.12.2012 [8627] rit => 631
[8001] 18.12.2008 AR => 1 To-Nz 52.72 sortito il 29.01.2015 [8958] rit => 957
[8017] 24.01.2009 AR => 1 Na-Nz 13.72 sortito il 20.07.2013 [8719] rit => 702
[8018] 27.01.2009 AR => 1 To-Nz 66.30 sortito il 18.12.2012 [8627] rit => 609
[8061] 07.05.2009 AR => 2 To-Ve 25.43 sortito il 06.04.2013 [8674] rit => 613
[8080] 20.06.2009 AR => 2 Ca-Ro 46.58 sortito il 17.05.2014 [8848] rit => 768
[8085] 02.07.2009 AR => 1 Ro-Nz 72.07 sortito il 05.01.2016 [9104] rit => 1019
[8093] 21.07.2009 AR => 2 Pa-Ro 60.14 sortito il 13.07.2013 [8716] rit => 623
[8158] 19.12.2009 AR => 1 To-Nz 73.83 sortito il 24.11.2015 [9086] rit => 928
[8171] 19.01.2010 AR => 2 Ca-Fi 32.10 sortito il 03.02.2015 [8960] rit => 789
[8191] 06.03.2010 AR => 1 Ro-Nz 77.09 sortito il 08.02.2014 [8806] rit => 615
[8207] 13.04.2010 AR => 2 Na-Ve 48.01 sortito il 05.07.2014 [8869] rit => 662
[8211] 22.04.2010 AR => 2 Na-Ro 81.85 sortito il 25.11.2014 [8930] rit => 719
[8212] 24.04.2010 AR => 2 Ba-To 32.64 sortito il 25.09.2014 [8904] rit => 692
[8225] 25.05.2010 AR => 1 Fi-Nz 10.38 sortito il 24.10.2015 [9073] rit => 848
[8261] 17.08.2010 AR => 2 Ge-Ro 80.43 sortito il 15.10.2016 [9226] rit => 965
[8270] 07.09.2010 AR => 2 Mi-Na 11.02 sortito il 05.05.2015 [8999] rit => 729
[8324] 11.01.2011 AR => 2 Ca-Mi 85.89 sortito il 24.12.2015 [9099] rit => 775
[8325] 13.01.2011 AR => 2 Ba-Mi 80.67 sortito il 27.12.2016 [9257] rit => 932
[8355] 24.03.2011 AR => 2 Ca-Na 14.42 sortito il 06.06.2015 [9013] rit => 658
[8371] 30.04.2011 AR => 2 Ge-Ve 84.09 sortito il 07.07.2015 [9026] rit => 655
[8385] 03.06.2011 AR => 1 Fi-Nz 47.75 sortito il 22.04.2017 [9307] rit => 922
[8393] 21.06.2011 AR => 1 Mi-Nz 72.90 sortito il 07.07.2015 [9026] rit => 633
[8424] 01.09.2011 AR => 1 Pa-Nz 40.51 sortito il 30.08.2016 [9206] rit => 782
[8474] 27.12.2011 AR => 2 Ge-Pa 89.87 sortito il 20.12.2016 [9254] rit => 780
[8498] 21.02.2012 AR => 2 Ge-Ve 90.62 sortito il 09.05.2017 [9314] rit => 816
[8515] 31.03.2012 AR => 1 Ba-Nz 31.62 sortito il 26.05.2016 [9165] rit => 650
[8520] 12.04.2012 AR => 2 Ba-To 75.70 sortito il 04.05.2017 [9312] rit => 792
[8556] 05.07.2012 AR => 2 Ro-To 66.20 sortito il 20.10.2016 [9228] rit => 672
[8556] 05.07.2012 AR => 2 Ro-To 20.28 sortito il 07.05.2016 [9157] rit => 601
[8675] 09.04.2013 AR => 2 Ba-Mi 09.29 sortito il 06.04.2017 [9300] rit => 625
[8734] 24.08.2013 AR => 1 Ca-Nz 56.68 sortito il 08.07.2017 [9340] rit => 606

Come vedete non mi sembra che manchino alcuni risultati devo solo metterli in ordine di sfadamento tramite excel perchè tramite il listato non riesco.
Una parte della mia richiesta iniziale si può dire che l'ho risolta, rimane il discorso che per il tipo di ricerca che ho in mente , mi farebbe comodo l'opzione di mettere in gioco solamente i 10 ambi più in ritardo invece di quelli con minimo 600 estrazioni

Grazie Claudio.
Sarebbe bello che questo risultato lo dasse direttamente il programma dato che io con excel non ho nessuna pratica, mi sa che dovrò imparare a usarlo-

Saluti , Santani

Ciao SKorpio, grazie per la risposta, è proprio il tipo di "tabella" che mi serve.
Come fai a ricavarla?
Nel senso, che programma usi e eventualmente con quale script?

Grazie Matteo x l'intervento, per quanto riguarda la parte del foglio excel può andare bene.
Invece la mia seconda richiesta vuole mettere in gioco solo i 10 ambi bivalenti che per esempio alla data di oggi sono più in ritardo indipendentemente da quale
sia ( 600- 700-1000 estrazioni non ha importanza ) e calcolare ogni quante estrazioni ne esce uno di essi

Gentilmente,una richiesta, da questo listato si ricava l'uscita degli ambi in ordine di inizio

previsione.La domanda è, si può modificare per avere il risultato in ordine di data di

sfaldamento?
( Ho fatto esempio in basso )

Sub main()
x= 600 '<======= indicare il ritardo minimo
Scrivi
Scrivi String(10," ")&"STORICO AMBI BIVALENTI ",1
Scrivi String(4," ")&"CON RITARDO ISOCRONO minimo di ",1
Scrivi String(15," ")& x &" estrazioni "&chr(10),1

Dim nu(2),tt(1),tz(1),ru(2)

tt(1)=11
tz(1)=12
ef= EstrazioneFin
For es= 6000 To EstrazioneFin-x+1'6000 è la1^ del 1986
Messaggio "Elaboro " & es
For r1 = 1 To 10
For p1= 1 To 4
For p2= p1+1 To 5
a1= Estratto(es,r1,p1)
b1= Estratto(es,r1,p2)
nu(1)=a1
nu(2)=b1
If SerieFreq(es,es,nu,tt,2) Or SerieFreq (es,es,nu,tz,2)>1 Then
For r2= r1+1 To 11 : If r2=11 Then r2=12
For q1= 1 To 4
For q2=q1+1 To 5
a2= Estratto(es,r2,q1)
b2= Estratto(es,r2,q2)
If a1=a2 And b1=b2 Or a1=b2 And a2=b1 Then
ru(1)=r1:ru(2)=r2
ri= (SeriePrima(es+1,ef,nu,ru,2)-(es))
If SerieFreq(es+1,ef,nu,ru,2)>0 And ri >x Then
Scrivi "["&es&"] "& DataEstrazione(es)&" AR => "& SerieFreq(es,es,nu,tt,2)& " "&_
SiglaRuota(r1)&"-" & SiglaRuota(r2)& " "& StringaNumeri(nu) & " sortito il "&_
DataEstrazione(SeriePrima(es+1,ef,nu,ru,2))& " rit => " & ri
End If
End If
Next: Next: Next
End If
Next:Next:Next:Next
End Sub


RISULTATO CON QUESTO LISTATO:

STORICO AMBI BIVALENTI
CON RITARDO ISOCRONO minimo di
600 estrazioni

[6024] 21.06.1986 AR => 2 Ba-Na 69.49 sortito il 20.12.1997 rit => 641
[6052] 03.01.1987 AR => 2 Ba-Ve 64.26 sortito il 07.01.1999 rit => 722
[6069] 02.05.1987 AR => 2 Na-Ve 79.23 sortito il 17.10.1998 rit => 682
[6082] 01.08.1987 AR => 2 Fi-Ve 73.46 sortito il 13.05.1998 rit => 624
[6099] 28.11.1987 AR => 2 Fi-Mi 05.55 sortito il 12.04.2000 rit => 807
[6115] 19.03.1988 AR => 2 Na-Ro 51.42 sortito il 14.10.1998 rit => 635
[6147] 29.10.1988 AR => 2 Ca-Ro 25.39 sortito il 15.05.1999 rit => 664
[6209] 08.01.1990 AR => 2 Pa-Ve 29.50 sortito il 05.11.2003 rit => 1075
[6221] 31.03.1990 AR => 2 Na-Ro 28.68 sortito il 20.03.2002 rit => 888
[6222] 07.04.1990 AR => 2 Ba-Na 59.71 sortito il 19.11.2003 rit => 1066
[6245] 15.09.1990 AR => 2 Ba-Fi 87.60 sortito il 09.06.2001 rit => 782
[6246] 22.09.1990 AR => 2 Pa-To 13.65 sortito il 09.06.2001 rit => 781
[6274] 06.04.1991 AR => 2 Fi-Ro 72.66 sortito il 19.02.2000 rit => 617
[6277] 27.04.1991 AR => 2 Ca-Ve 16.02 sortito il 17.11.2001 rit => 796

ESEMPIO di cosa cerco

ORDINATI in base alla data di uscita e aggiungere il numero estrazione di uscita IN

EVIDENZA



[6024] 21.06.1986 AR => 2 Ba-Na 69.49 sortito il 20.12.1997 [6665] rit => 641
[6082] 01.08.1987 AR => 2 Fi-Ve 73.46 sortito il 13.05.1998 [6706] rit=> 624
[6115] 19.03.1988 AR => 2 Na-Ro 51.42 sortito il 14.10.1998 [6750] rit => 635
[6069] 02.05.1987 AR => 2 Na-Ve 79.23 sortito il 17.10.1998 [6751] rit => 682
[6052] 03.01.1987 AR => 2 Ba-Ve 64.26 sortito il 07.01.1999 [6774] rit => 722
[6147] 29.10.1988 AR => 2 Ca-Ro 25.39 sortito il 15.05.1999 [6811] rit => 664
[6274] 06.04.1991 AR => 2 Fi-Ro 72.66 sortito il 19.02.2000 [6891] rit => 617
[6099] 28.11.1987 AR => 2 Fi-Mi 05.55 sortito il 12.04.2000 [6906] rit => 807
[6245] 15.09.1990 AR => 2 Ba-Fi 87.60 sortito il 09.06.2001 [7027] rit => 782
[6246] 22.09.1990 AR => 2 Pa-To 13.65 sortito il 09.06.2001 [7027] rit => 781
[6277] 27.04.1991 AR => 2 Ca-Ve 16.02 sortito il 17.11.2001 [7073] rit => 796
[6221] 31.03.1990 AR => 2 Na-Ro 28.68 sortito il 20.03.2002 [7109] rit => 888
[6209] 08.01.1990 AR => 2 Pa-Ve 29.50 sortito il 05.11.2003 [7284] rit => 1075
[6222] 07.04.1990 AR => 2 Ba-Na 59.71 sortito il 19.11.2003 [7288] rit => 1066

SE POI ,PER SODDISFARE A PIENO LA MIA ESIGENZA SI POTESSE CAMBIARE

ANCHE IL PRONOSTICO CHE ORA PARTE DA UN RITARDO MINIMO DI 600

ESTRAZIONI, A METTERE IN GIOCO SOLO I 10 RITARDI PIU' ALTI

INDIPENDENTEMENTE DA QUALE SIA IL LORO RITARDO. GRAZIE