| Buongiorno ragazzi, per completezza ho adeguato anche il mio piccolo script. Option Explicit 'Storico e Attuale di Lunghette formate da 2 CS(Cinquina Sincrona) in Sincronismo Continuo per la sorte di Ambo o superiori 'Scritto da Gam il 08.05.2020 per Eugenio de Zuliani -> Forum Sub Main() Dim cs1(5),cs2(5),Lunghetta(10),ru(1),n(1),LivArch Dim Ini,fin,es,x,r,z,nn,nnn,d,sorte,lu,qn
qn = 10 ' 10=Decine 9=Novine 8=Ottina, ovvero la quantità di numeri da analizzare sorte = 2 LivArch = 0 ' inserire qui l'archivio da utilizzare: 0 = archivio tradizionale, 1 = archivio dinamico, dal 2 al 5 per archivi paralleli posizione
Ini = EstrazioneIni fin = EstrazioneFin
For es = Ini To fin - 1
AvanzamentoElab Ini,fin,es Messaggio(es) For r = 1 To 12 If r = 11 Then r = 12 ru(1) = r nn = 0 If Estratto(es,ru(1),1,LivArch) > "0" Then For z = 1 To 5 nn = nn + 1 cs1(z) = Estratto(es,ru(1),z,LivArch) Lunghetta(nn) = cs1(z) nn = nn + 1 cs2(z) = Estratto(es + 1,ru(1),z,LivArch) Lunghetta(nn) = cs2(z) Next EliminaRipetuti Lunghetta nn = 0 For z = 1 To 10 If Lunghetta(z) > "0" Then nn = nn + 1 Next
If nn = qn Then lu = " [" & Format2(nn) & "] [" & StringaNumeri(Lunghetta,,True) & "]" x = SeriePrima(es + 2,EstrazioneFin,Lunghetta,ru,sorte,,,LivArch)
If x = 0 Then Call ColoreTesto(2) Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r,,,LivArch) & " " & _ FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 1,r,,,LivArch) & _ " [" & StringaNumeri(Lunghetta,,True) & "] ATT " & FormattaStringa(EstrazioneFin - es,"0000") & " L" & LivArch & " " & Format2(qn) & " numeri In gioco ***" Call ColoreTesto(0) Else If x > 0 And x <> EstrazioneFin Then Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r,,,LivArch) & " " & _ FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 1,r,,,LivArch) & _ " [" & StringaNumeri(Lunghetta,,True) & "] STO " & FormattaStringa(x - es - 1,"0000") & " L" & LivArch & " " & Format2(qn) & " numeri in gioco" Else If x > 0 And x = EstrazioneFin Then Call ColoreTesto(2) Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r,,,LivArch) & " " & _ FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 1,r,,,LivArch) & _ " [" & StringaNumeri(Lunghetta,,True) & "] ATT " & FormattaStringa(EstrazioneFin - es,"0000") & " L" & LivArch & " " & Format2(qn) & " numeri in gioco ***" Call ColoreTesto(0) End If End If x = 0 End If End If End If Next Next Scrivi TempoTrascorso End Sub Questi i max rilevati, con archivio dal 14.09.1946 al 07.05.2020: 10 numeri (circa 45.000 casi giocabili) 5821 31.07.1982 NA 25.45.26.60.18 5822 07.08.1982 NA 02.46.23.89.66 [02.18.23.25.26.45.46.60.66.89] STO 108 L0 10 numeri in gioco 8304 25.11.2010 PA 69.52.07.18.53 8305 27.11.2010 PA 45.63.05.04.73 [04.05.07.18.45.52.53.63.69.73] STO 104 L0 10 numeri in gioco 5465 04.10.1975 NA 13.01.14.56.83 5466 11.10.1975 NA 05.80.48.43.61 [01.05.13.14.43.48.56.61.80.83] STO 100 L0 10 numeri in gioco 6921 03.06.2000 GE 85.77.18.48.69 6922 07.06.2000 GE 19.10.51.17.65 [10.17.18.19.48.51.65.69.77.85] STO 100 L0 10 numeri in gioco 4342 20.03.1954 NA 50.43.46.82.33 4343 27.03.1954 NA 80.02.68.26.70 [02.26.33.43.46.50.68.70.80.82] STO 098 L0 10 numeri in gioco
9 numeri (circa 14.000 casi giocabili) 4260 23.08.1952 FI 80.04.19.47.70 4261 30.08.1952 FI 19.89.44.87.39 [04.19.39.44.47.70.80.87.89] STO 116 L0 9 numeri in gioco 4314 05.09.1953 NA 69.36.67.38.19 4315 12.09.1953 NA 13.18.39.69.68 [13.18.19.36.38.39.67.68.69] STO 106 L0 9 numeri in gioco 9564 13.12.2018 NZ 83.27.39.25.87 9565 15.12.2018 NZ 84.16.85.87.54 [16.25.27.39.54.83.84.85.87] STO 105 L0 9 numeri in gioco 7675 18.11.2006 FI 89.27.90.88.47 7676 21.11.2006 FI 03.52.27.71.29 [03.27.29.47.52.71.88.89.90] STO 103 L0 9 numeri in gioco 5840 11.12.1982 FI 21.39.31.82.76 5841 18.12.1982 FI 29.12.21.18.14 [12.14.18.21.29.31.39.76.82] STO 102 L0 9 numeri in gioco
8 numeri (circa 1.350 casi giocabili) 4242 19.04.1952 NA 72.59.70.06.67 4243 26.04.1952 NA 06.67.24.22.88 [06.22.24.59.67.70.72.88] STO 137 L0 8 numeri in gioco 9226 15.10.2016 PA 77.27.23.82.50 9227 18.10.2016 PA 78.23.46.09.27 [09.23.27.46.50.77.78.82] STO 133 L0 8 numeri in gioco 7668 02.11.2006 RO 22.28.55.15.74 7669 04.11.2006 RO 14.31.15.28.39 [14.15.22.28.31.39.55.74] STO 110 L0 8 numeri in gioco 8749 28.09.2013 CA 13.70.39.06.41 8750 01.10.2013 CA 70.39.89.14.43 [06.13.14.39.41.43.70.89] STO 105 L0 8 numeri in gioco 8802 30.01.2014 BA 84.66.88.27.17 8803 01.02.2014 BA 87.27.05.84.18 [05.17.18.27.66.84.87.88] STO 103 L0 8 numeri in gioco
7 numeri (circa 60 casi giocabili) 8597 09.10.2012 PA 63.47.30.65.22 8598 11.10.2012 PA 83.47.65.22.48 [22.30.47.48.63.65.83] STO 69 L0 7 numeri in gioco 4246 17.05.1952 VE 70.87.60.22.49 4247 24.05.1952 VE 49.23.70.60.61 [22.23.49.60.61.70.87] STO 57 L0 7 numeri in gioco 8118 17.09.2009 NA 05.32.73.06.59 8119 19.09.2009 NA 05.06.35.32.17 [05.06.17.32.35.59.73] STO 55 L0 7 numeri in gioco 7484 30.08.2005 FI 10.52.50.67.69 7485 01.09.2005 FI 69.50.23.67.30 [10.23.30.50.52.67.69] STO 54 L0 7 numeri in gioco 6774 07.01.1999 VE 64.26.81.19.30 6775 09.01.1999 VE 20.56.26.64.19 [19.20.26.30.56.64.81] STO 45 L0 7 numeri in gioco
Invito Enplein , se vuole e fa piacere, a inserire anche qui ( https://lottogam.forumfree.it/?t=77620263) il suo listato in apposita sezione. Saluti Edited by G73 - 11/5/2020, 09:08
|