Novità

Script su Metodi Cabalistici, Ciclometrici & C.

salvo50

Advanced Member >PLATINUM PLUS<
SCRIPT SU METODI CABALISTICI, CICLOMETRICI & COMPANY












IL QUADRATO NUMERICO DI URAZIO

Il quadrato numerico (Urazio) - C. Tedesco.jpg


Codice:
'Progetto - IL QUADRATO NUMERICO - AUTORE URAZIO
'Script by Salvo50
Option Explicit
Sub Main
    Dim Fin,Clp,Col,Esqcol,Esq,Es,R1,K,Caso,Casi,K1
    Dim A(5),B(5),C(5),D(5),E(5),AB(5),BC(5),CD(5),DE(5)
    Dim S1,S2,S3,S4,S5,D12,D23,D34,D45,Rs12,Rs34
    Dim D1,D2,D3,D4,D5,D6,D7,D8,Rs1,Rs2,Rs3,Rs4
    Dim Num(2),Ru(1),Poste(2)
    Poste(1) = 1
    Poste(2) = 1
    Fin = EstrazioneFin
    Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,1048)'1048 l'esempio nell'articolo, Ruota Napoli
    Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,13))
    Col = CInt(InputBox(" Quante estrazioni vuoi controllare?",,10))
    Esqcol = Esq + Col
    If Esqcol > Fin Then Esqcol = Fin
    For Es = Esq To Esqcol
        Caso = 0
        AvanzamentoElab Esq,Esqcol,Es
        For R1 = 1 To 10
            'Le 5 estrazioni
            A(1) = Estratto((Es - 4),R1,1):If A(1) > 0 Then
            A(2) = Estratto((Es - 4),R1,2):A(3) = Estratto((Es - 4),R1,3)
            A(4) = Estratto((Es - 4),R1,4):A(5) = Estratto((Es - 4),R1,5):B(1) = Estratto((Es - 3),R1,1)
            B(2) = Estratto((Es - 3),R1,2):B(3) = Estratto((Es - 3),R1,3):B(4) = Estratto((Es - 3),R1,4)
            B(5) = Estratto((Es - 3),R1,5):C(1) = Estratto((Es - 2),R1,1):C(2) = Estratto((Es - 2),R1,2)
            C(3) = Estratto((Es - 2),R1,3):C(4) = Estratto((Es - 2),R1,4):C(5) = Estratto((Es - 2),R1,5)
            D(1) = Estratto((Es - 1),R1,1):D(2) = Estratto((Es - 1),R1,2):D(3) = Estratto((Es - 1),R1,3)
            D(4) = Estratto((Es - 1),R1,4):D(5) = Estratto((Es - 1),R1,5):E(1) = Estratto(Es,R1,1)
            E(2) = Estratto(Es,R1,2):E(3) = Estratto(Es,R1,3):E(4) = Estratto(Es,R1,4):E(5) = Estratto(Es,R1,5)
            'I 4 Risultati centrali ogni 2 estrazioni
            AB(1) = Fuori90(90 +(B(1) - A(1))):AB(2) = Fuori90(90 +(B(2) - A(2))):AB(3) = Fuori90(90 +(B(3) - A(3)))
            AB(4) = Fuori90(90 +(B(4) - A(4))):AB(5) = Fuori90(90 +(B(5) - A(5))):BC(1) = Fuori90(90 +(C(1) - B(1)))
            BC(2) = Fuori90(90 +(C(2) - B(2))):BC(3) = Fuori90(90 +(C(3) - B(3))):BC(4) = Fuori90(90 +(C(4) - B(4)))
            BC(5) = Fuori90(90 +(C(5) - B(5))):CD(1) = Fuori90(90 +(D(1) - C(1))):CD(2) = Fuori90(90 +(D(2) - C(2)))
            CD(3) = Fuori90(90 +(D(3) - C(3))):CD(4) = Fuori90(90 +(D(4) - C(4))):CD(5) = Fuori90(90 +(D(5) - C(5)))
            DE(1) = Fuori90(90 +(E(1) - D(1))):DE(2) = Fuori90(90 +(E(2) - D(2))):DE(3) = Fuori90(90 +(E(3) - D(3)))
            DE(4) = Fuori90(90 +(E(4) - D(4))):DE(5) = Fuori90(90 +(E(5) - D(5)))
            'Le somme delle estrazioni
            S1 = Fuori90(A(1) + A(2) + A(3) + A(4) + A(5)):S2 = Fuori90(B(1) + B(2) + B(3) + B(4) + B(5))
            S3 = Fuori90(C(1) + C(2) + C(3) + C(4) + C(5)):S4 = Fuori90(D(1) + D(2) + D(3) + D(4) + D(5))
            S5 = Fuori90(E(1) + E(2) + E(3) + E(4) + E(5))
            'Le differenze delle somme
            D12 = Fuori90(90 +(S2 - S1)):D23 = Fuori90(90 +(S3 - S2)):D34 = Fuori90(90 +(S4 - S3)):D45 = Fuori90(90 +(S5 - S4))
            D1 = Fuori90(90 +(D12 - S1)):D2 = Fuori90(90 +(S2 - D12)):D3 = Fuori90(90 +(D23 - S2)):D4 = Fuori90(90 +(S3 - D23))
            D5 = Fuori90(90 +(D34 - S3)):D6 = Fuori90(90 +(S4 - D34)):D7 = Fuori90(90 +(D45 - S4)):D8 = Fuori90(90 +(S5 - D45))
            Rs1 = Fuori90(90 +(D2 - D1)):Rs2 = Fuori90(90 +(D4 - D3)):Rs3 = Fuori90(90 +(D6 - D5)):Rs4 = Fuori90(90 +(D8 - D7))
            Rs12 = Fuori90(90 +(Rs2 - Rs1)):Rs34 = Fuori90(90 +(Rs4 - Rs3))
            'Fine calcoli--------------------------------------------------
            Ru(1) = R1
            Num(1) = Rs12
            Num(2) = Rs34
            Caso = Caso + 1
            Casi = Casi + 1
            ColoreTesto 1
            Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
            ColoreTesto 2
            Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
            ColoreTesto 0
            For K = 4 To 0 Step - 1
                Scrivi Space(23) &(" Estrazione n." & Format2(Es - K) & " del " & DataEstrazione(Es - K)),1,0
                Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti((Es - K),R1),1
            Next
            Scrivi
            For K1 = 1 To 5
                Scrivi Space(20) & Format2(A(K1)) & "  " & Format2(AB(K1)) & "  " & Format2(B(K1)),0,0
                Scrivi "  --  " & Format2(B(K1)) & "  " & Format2(BC(K1)) & "  " & Format2(C(K1)),0,0
                Scrivi "  --  " & Format2(C(K1)) & "  " & Format2(CD(K1)) & "  " & Format2(D(K1)),0,0
                Scrivi "  --  " & Format2(D(K1)) & "  " & Format2(DE(K1)) & "  " & Format2(E(K1))
            Next
            ColoreTesto 2
            Scrivi Space(20) & Format2(S1) & "  " & Format2(D12) & "  " & Format2(S2),0,0
            Scrivi "  --  " & Format2(S2) & "  " & Format2(D23) & "  " & Format2(S3),0,0
            Scrivi "  --  " & Format2(S3) & "  " & Format2(D34) & "  " & Format2(S4),0,0
            Scrivi "  --  " & Format2(S4) & "  " & Format2(D45) & "  " & Format2(S5)
            ColoreTesto 1
            Scrivi Space(22) & Format2(D1) & "  " & Format2(D2) & Space(10) & Format2(D3),0,0
            Scrivi "  " & Format2(D4) & Space(10) & Format2(D5) & "  " & Format2(D6),0,0
            Scrivi Space(10) & Format2(D7) & "  " & Format2(D8) : ColoreTesto 0
            Scrivi Space(24) & Format2(Rs1) & Space(14) & Format2(Rs2) & Space(14) & Format2(Rs3) & Space(14) & Format2(Rs4)
            ColoreTesto 2
            Scrivi Space(32) & Format2(Rs12) & Space(30) & Format2(Rs34)
            ColoreTesto 0
            Scrivi
            ImpostaGiocata 1,Num,Ru,Poste,Clp
            Gioca Es
        End If
    Next
Next
ScriviResoconto
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Due Somme 45 Per Un Quadrato Perfetto di Pasquale Robbe

Codice:
 'Progetto - Due Somme 45 Per Un Quadrato Perfetto - by Pasquale Robbe
'Script   - by Salvo50
Option Explicit
Sub Main
    Dim R1,R2,P1,P2,Es,CLP1,Esq,Caso,Casi
    Dim FIn,Ini,Ruote(2),Posta(2),poste(2),posts(3)
    Dim Idestr,Col,Esqcol,E1,E2,E3,E4
    Dim Num1(2),Num2(2),Num3(2),Num4(2),Num5(2),Num6(4)
    Dim S1,S2,S3,D1,D2,D3,Diam1,Diam2,Diam12,Abb1,Abb2
    Posta(1) = 1
    Posta(2) = 1
    poste(2) = 1
    posts(2) = 1
    posts(3) = 1
    FIn = EstrazioneFin
    Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Idestr,7818)'7818 esempio 2, 7935 esempio 1
    CLP1 = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,6))
    Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,2500))
    Esqcol = Esq + Col
    If Esqcol > FIn Then Esqcol = FIn
    For Es = Esq To Esqcol
        Caso = 0
        AvanzamentoElab Esq,Esqcol,Es
        For R1 = 1 To 10
            For P1 = 1 To 4
                P2 = P1 + 1
                E1 = Estratto(Es,R1,P1)
                E2 = Estratto(Es,R1,P2)
                For R2 = R1 + 1 To 11
                    If R2 = 11 Then R2 = 12
                    E3 = Estratto(Es,R2,P1)
                    E4 = Estratto(Es,R2,P2)
                    'E1---E2
                    '|     |
                    '|     |
                    'E3---E4
                    If E1 > 0 Then
                        S1 = Fuori90(E1 + E2)
                        S2 = Fuori90(E3 + E4)
                        If S1 = 45 And S2 = 45 Then
                            S3 = 90
                            D1 = Differenza(E1,E2)
                            D2 = Differenza(E3,E4)
                            D3 = Differenza(D1,D2)
                            Diam1 = Diametrale(D3)
                            Diam12 = Fuori90(Diam1 + 2)
                            Abb1 = S3 - Diam12
                            Abb2 = Diametrale(Abb1)
                            Caso = Caso + 1
                            Casi = Casi + 1
                            ColoreTesto 1
                            Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                            ColoreTesto 2
                            Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                            ColoreTesto 0
                            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                            Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
                            Scrivi Space(20) & " Seconda Ruota " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2),1
                            Scrivi
                            Scrivi " Ambi Base  " & Space(6) & " Somme Oriz. " & Space(3) & " Differenze Oriz.",0,0
                            Scrivi "   Diff. delle Diff."
                            Scrivi "  " & Format2(E1) & Space(1) & Format2(E2) & Space(16) & Format2(S1),0,0
                            Scrivi Space(17) &     Format2(D1) & Space(17) & Format2(D3)
                            '---------------------------------------------------------------------------------------------------
                            Scrivi "  " & Format2(E3) & Space(1) & Format2(E4) & Space(16) & Format2(S2),0,0
                            Scrivi Space(17) & Format2(D2)
                            Scrivi String(105,"-")
                            Ruote(1) = R1
                            Ruote(2) = R2
                            Num1(1) = S1
                            Num1(2) = S3
                            Num2(1) = S1
                            Num2(2) = Abb1
                            Num3(1) = S1
                            Num3(2) = Abb2
                            Num4(1) = S3
                            Num4(2) = Abb1
                            Num5(1) = S3
                            Num5(2) = Abb2
                            Num6(1) = S1
                            Num6(2) = S3
                            Num6(3) = Abb1
                            Num6(4) = Abb2
                            ImpostaGiocata 1,Num1,Ruote,Posta,CLP1
                            ImpostaGiocata 2,Num2,Ruote,Posta,CLP1
                            ImpostaGiocata 3,Num3,Ruote,Posta,CLP1
                            ImpostaGiocata 4,Num4,Ruote,Posta,CLP1
                            ImpostaGiocata 5,Num5,Ruote,Posta,CLP1
                            ImpostaGiocata 6,Num6,Ruote,posts,CLP1
                            Gioca Es
                        End If
                    End If
                Next
            Next
        Next
        If ScriptInterrotto Then Exit Sub
    Next
    ScriviResoconto
    Scrivi Space(46) & "Progetto - Due Somme 45 Per Un Quadrato Perfetto - by Paquale Robbe"
    Scrivi Space(46) & "Script   - by Salvo50"
End Sub
 
Ultima modifica:

Matematico

Advanced Member >PLATINUM<
Ciao salvo50, grazie 1000...ottimo listato ,sinceramente pensavo fosse più potente questo metodo comunque no nè da buttare ;)
 

salvo50

Advanced Member >PLATINUM PLUS<
Matematico;n2090016 ha scritto:
Ti allego un'altro metodo interessante a mio avviso:


Ciao a Tutti!

Questo non riesco proprio a farlo, se qualche esperto si vuole cimentare, è ben accetto.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti e Buone Feste

Per il momento abbandono lo script del Quadrato Diametrale e proseguo con altri script alla mia portata.

L'ambo Costante di Fedele Davenal

L'ambo costante - Fedele Daneval - C. Tedesco.jpg


Codice:
 'PROGETTO - L'AMBO COSTANTE - BY FEDELE DAVENAL
'SCRIPT BY SALVO50
Option Explicit
Sub Main
    Dim FIn,Es,Esq,Clp,Col,EsqCol,Idestr,Clp2
    Dim Posta(2),Ambo(2),Ruota(2)
    Dim Num1(5),Num2(5),X,Y,Gi,Ru
    Dim Estr1,Estr2,Estr3,Estr4,Estr5,R1,Caso,Casi
    Dim Fe1,Fe2,Fe3,Fe4,Fe5,Fe15
    FIn = EstrazioneFin
    Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Idestr,9120)'992 esempio nell'articolo
    Ru = InputBox("In quale ruota vuoi fare la ricerca?",,6)
    Clp = InputBox("Per quanti colpi vuoi giocare l'ambo?",,5)
    Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,60))
    Posta(2) = 1
    EsqCol = Esq + Col
    If EsqCol > FIn Then EsqCol = FIn
    For Es = Esq To EsqCol
        Messaggio Es
        AvanzamentoElab Esq,EsqCol,Es
        Caso = 0
        For R1 = Ru To Ru
            Ruota(1) = R1
            Estr1 = Estratto(Es,R1,1)
            Estr2 = Estratto(Es,R1,2)
            Estr3 = Estratto(Es,R1,3)
            Estr4 = Estratto(Es,R1,4)
            Estr5 = Estratto(Es,R1,5)
            Fe1 = Figura(Estr1)
            Fe2 = Figura(Estr2)
            Fe3 = Figura(Estr3)
            Fe4 = Figura(Estr4)
            Fe5 = Figura(Estr5)
            Fe15 = FuoriX(Fe1 + Fe5,9)
            If Fe15 <> 9 And Fe1 <> 9 And Fe2 <> 9 And Fe3 <> 9 And Fe4 <> 9 And Fe5 <> 9 Then
                Num1(1) = Fe15 & Fe1
                Num1(2) = Fe15 & Fe2
                Num1(3) = Fe15 & Fe3
                Num1(4) = Fe15 & Fe4
                Num1(5) = Fe15 & Fe5
                '-------------------
                Num2(1) = Fe1 & Fe3
                Num2(2) = Fe3 & Fe5
                Num2(3) = Fe5 & Fe4
                Num2(4) = Fe4 & Fe2
                Num2(5) = Fe2 & Fe1
                Caso = Caso + 1
                Casi = Casi + 1
                ColoreTesto 1
                Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                ColoreTesto 2
                Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                ColoreTesto 0
                Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),0,0
                Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),2
                Scrivi
                ColoreTesto 2
                Scrivi Space(30) &(Fe1),1:Scrivi:Scrivi
                Scrivi Space(22) &(Fe2) & Space(7) &(Fe15) & Space(7) &(Fe3),1:Scrivi:Scrivi
                Scrivi Space(26) &(Fe4) & Space(7) &(Fe5),1
                Scrivi
                ColoreTesto 1
                Scrivi Space(14) & Num1(1) & " " & Num1(2) & " " & Num1(3) & " " & Num1(4) & " " & Num1(5),1,0
                Scrivi "     " & Num2(1) & " " & Num2(2) & " " & Format2(Num2(3)) & " " & Format2(Num2(4)) & " " & Num2(5),1
                ColoreTesto 0
                Scrivi
                Gi = 0
                For X = 1 To UBound(Num1)
                    For Y = 1 To UBound(Num2)
                        EliminaRipetuti Num1 : EliminaRipetuti Num2
                        If Num1(X) > 0 And Num2(Y) > 0 Then
                            Ambo(1) = Num1(X)
                            Ambo(2) = Num2(Y)
                            Gi = Gi + 1
                            ImpostaGiocata Gi,Ambo,Ruota,Posta,Clp,2
                            Gioca Es
                        End If
                    Next
                Next
            End If
        Next
        If ScriptInterrotto Then Exit Sub
    Next
    ScriviResoconto
    Scrivi Space(50) & "PROGETTO - L'AMBO COSTANTE - BY FEDELE DAVENAL"
    Scrivi Space(50) & "SCRIPT - BY SALVO50"
End Sub
 
Ultima modifica:
L

LuigiB

Guest
Salvo , io ci darei uno sguardo a quel metodo che non ti riesce di implementare solo che al momento sto lavorando ad un progetto che sarà una piccola sorpresa e che nelle intenzioni serve per ammodernare la parte script di spaziometria e per consentire l'utilizzo degli script anche a chi non dispone del programma a causa di problemi di installazione su sistemi operativi recenti.
Ve la do come anticipazione spero di poterlo pubblicare per la befana ..anzi non so se prima della befana avro bisogno di qualche betatester per aiutarmi a verificare se funziona prima di pubblicarlo ..
ad ogni mod per il tuo metodo ti consiglio di dividere il problema in problemi piu piccoli e partire da li affrontandone uno alla volta ..le capacità penso che non ti manchino per farlo ..forse c i devi solo ragioanre di piu ....
ciao ..
 

salvo50

Advanced Member >PLATINUM PLUS<
LuigiB, ti faccio tanti auguri per il tuo programma, tornando al metodo proposto da Matematico, grazie per il consiglio che mi hai dato.

Ciao!
 
  • Like
Reazioni: dbr

salvo50

Advanced Member >PLATINUM PLUS<
Matematico;n2090016 ha scritto:
Ti allego un'altro metodo interessante a mio avviso:


Ciao a Tutti!

Per prima cosa vediamo cosa chiede di fare il metodo

1)Trovare in una qualsiasi ruota, 2 coppie di numeri con distanza 30
2)In un altra ruota cercare una coppia sempre di distanza 30
3)Queste tre coppie dividerli in due gruppi di tre elementi
4)In ogni gruppo trovare tra un numero e l'altro la distanza 9
5)Nei due gruppi bisogna stabilire qual'è il numero medio,
6)Trovare in altre due ruote un numero di distanza 36 in più o in meno dei numeri medi trovati
7)Questi 4 numeri trovati, sono il pronostico

Premetto che l'immagine si vede malissimo e per capirci qualcosa sono andato a cercare l'estrazione del 16 Agosto 2014.

Faccio un abbozzo di script

Codice:
 'Progetto - Il Quadrato Diametrale - by Paolo Carta
'Abbozzo Script 1   - by Salvo50
Option Explicit
Sub Main
    Dim R1,R2,P1,P2,P3,P4,P5,P6,Es
    Dim FIn,Ini
    Dim Idestr,Col,Esqcol,Esq,Caso,Casi
    Dim D1,D2,D3,D4,D5,D6,D7
    Dim A1,A2,B1,B2,C1,C2
    Dim DD1,DD2
    FIn = EstrazioneFin
    Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Idestr,8887)
    Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,FIn))
    DD1 = CInt(InputBox(" Quale prima distanza? ",,30))
    DD2 = CInt(InputBox(" Quale seconda distanza? ",,9))
    Esqcol = Esq + Col
    If Esqcol > FIn Then Esqcol = FIn
    For Es = Esq To Esqcol
        Caso = 0
        AvanzamentoElab Esq,Esqcol,Es
        For R1 = 1 To 10
            For P1 = 1 To 2
                For P2 = P1 + 1 To 3
                    For P3 = P2 + 1 To 4
                        For P4 = P3 + 1 To 5
                            A1 = Estratto(Es,R1,P1) : If A1 > 0 Then
                            A2 = Estratto(Es,R1,P2)
                            D1 = Differenza(A1,A2)
                            B1 = Estratto(Es,R1,P3)
                            B2 = Estratto(Es,R1,P4)
                            D2 = Differenza(B1,B2)
                            If D1 = DD1 And D2 = DD1 Then
                                For R2 = R1 + 1 To 10
                                    If R2 <> R1 Then
                                        For P5 = 1 To 4
                                            For P6 = P5 + 1 To 5
                                                C1 = Estratto(Es,R2,P5)
                                                C2 = Estratto(Es,R2,P6)
                                                D3 = Differenza(C1,C2)
                                                If D3 = DD1 Then
                                                    Caso = Caso + 1
                                                    Casi = Casi + 1
                                                    ColoreTesto 1
                                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                                    Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                                    ColoreTesto 0
                                                    Scrivi(" Estrazione n." & FormattaStringa(Es,"0000") & " del " & DataEstrazione(Es)),1,0
                                                    Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
                                                    ColoreTesto 2
                                                    Scrivi Space(5) & Format2(A1) & Space(1) & Format2(A2) & Space(5) & Format2(B1),0,0
                                                    Scrivi Space(1) & Format2(B2),1,0
                                                    ColoreTesto 0
                                                    Scrivi "  Coppie Distanza " & DD1

                                                    Scrivi Space(20) & " Seconda Ruota " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2),1,0
                                                    ColoreTesto 2
                                                    Scrivi Space(5) & Format2(C1) & Space(1) & Format2(C2),1,0
                                                    ColoreTesto 0
                                                    Scrivi Space(11) & " Coppia Distanza " & DD1

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

ma non va bene, perchè partendo dall'estrazione 8887 che è quella dell'articolo, non
la vede, quindi c'è qualcosa che non và nello script, non riuscendo a capire
l'errore, opto di procedere senza i FOR-NEXT e faccio quest'altro abbozzo di script

Codice:
 'Progetto - Il Quadrato Diametrale - by Paolo Carta
'Abbozzo di Script 2   - by Salvo50
Option Explicit
Sub Main
    Dim R1,R2,P5,P6,Es,Esq,Caso,Casi
    Dim FIn,Ini
    Dim Idestr,Col,Esqcol,E1,E2,E3,E4,E5,Ok,S
    Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
    Dim DD1,DD2,C1,C2
    FIn = EstrazioneFin
    Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Idestr,8887)
    Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,9410))
    DD1 = CInt(InputBox(" Quale prima differenza? ",,30))
    DD2 = CInt(InputBox(" Quale seconda differenza? ",,9))
    Esqcol = Esq + Col
    If Esqcol > FIn Then Esqcol = FIn
    For Es = Esq To Esqcol
        Caso = 0
        AvanzamentoElab Esq,Esqcol,Es
        S = ""
        For R1 = 1 To 9
            Ok = 0
            E1 = Estratto(Es,R1,1) : If E1 > 0 Then
            E2 = Estratto(Es,R1,2)
            E3 = Estratto(Es,R1,3)
            E4 = Estratto(Es,R1,4)
            E5 = Estratto(Es,R1,5)
            '10 ambi, 10 differenze
            D1 = Differenza(E1,E2)
            D2 = Differenza(E1,E3)
            D3 = Differenza(E1,E4)
            D4 = Differenza(E1,E5)
            D5 = Differenza(E2,E3)
            D6 = Differenza(E2,E4)
            D7 = Differenza(E2,E5)
            D8 = Differenza(E3,E4)
            D9 = Differenza(E3,E5)
            D10 = Differenza(E4,E5)
            ' per ogni ambo accoppiato ai 3 numeri restanti, tre combinazioni diverse, 10x3=30 combinazioni
            ' eliminate 15 combinazioni, perchè doppioni
            ' 1 ----------------------------------------------------------------------------------------------------------------
            If(D1 = DD1 And D8 = DD1) Then S = S & Format2(E1) & " " & Format2(E2) & "  " & Format2(E3) & " " & Format2(E4) : Ok = 1
            If(D1 = DD1 And D9 = DD1) Then S = S & Format2(E1) & " " & Format2(E2) & "  " & Format2(E3) & " " & Format2(E5) : Ok = 1
            If(D1 = DD1 And D10 = DD1) Then S = S & Format2(E1) & " " & Format2(E2) & "  " & Format2(E4) & " " & Format2(E5) : Ok = 1
            ' 2 ----------------------------------------------------------------------------------------------------------------
            If(D2 = DD1 And D6 = DD1) Then S = S & Format2(E1) & " " & Format2(E3) & "  " & Format2(E2) & " " & Format2(E4) : Ok = 1
            If(D2 = DD1 And D7 = DD1) Then S = S & Format2(E1) & " " & Format2(E3) & "  " & Format2(E2) & " " & Format2(E5) : Ok = 1
            If(D2 = DD1 And D10 = DD1) Then S = S & Format2(E1) & " " & Format2(E3) & "  " & Format2(E4) & " " & Format2(E5) : Ok = 1
            ' 3 ----------------------------------------------------------------------------------------------------------------
            If(D3 = DD1 And D5 = DD1) Then S = S & Format2(E1) & " " & Format2(E4) & "  " & Format2(E2) & " " & Format2(E3) : Ok = 1
            If(D3 = DD1 And D7 = DD1) Then S = S & Format2(E1) & " " & Format2(E4) & "  " & Format2(E2) & " " & Format2(E5) : Ok = 1
            If(D3 = DD1 And D9 = DD1) Then S = S & Format2(E1) & " " & Format2(E4) & "  " & Format2(E3) & " " & Format2(E5) : Ok = 1
            ' 4 ----------------------------------------------------------------------------------------------------------------
            If(D4 = DD1 And D5 = DD1) Then S = S & Format2(E1) & " " & Format2(E5) & "  " & Format2(E2) & " " & Format2(E3) : Ok = 1
            If(D4 = DD1 And D6 = DD1) Then S = S & Format2(E1) & " " & Format2(E5) & "  " & Format2(E2) & " " & Format2(E4) : Ok = 1
            If(D4 = DD1 And D8 = DD1) Then S = S & Format2(E1) & " " & Format2(E5) & "  " & Format2(E3) & " " & Format2(E4) : Ok = 1
            ' 5 ----------------------------------------------------------------------------------------------------------------
            If(D5 = DD1 And D10 = DD1) Then S = S & Format2(E2) & " " & Format2(E3) & "  " & Format2(E4) & " " & Format2(E5) : Ok = 1
            ' 6 ----------------------------------------------------------------------------------------------------------------
            If(D6 = DD1 And D9 = DD1) Then S = S & Format2(E2) & " " & Format2(E4) & "  " & Format2(E3) & " " & Format2(E5) : Ok = 1
            ' 7 ----------------------------------------------------------------------------------------------------------------
            If(D7 = DD1 And D8 = DD1) Then S = S & Format2(E2) & " " & Format2(E5) & "  " & Format2(E3) & " " & Format2(E4) : Ok = 1
            '----------------------------------------------------------------------------------------------------------------
            If Ok = 1 Then
                For R2 = R1 + 1 To 10
                    If R1 <> R2 Then
                        For P5 = 1 To 4
                            For P6 = P5 + 1 To 5
                                C1 = Estratto(Es,R2,P5)
                                C2 = Estratto(Es,R2,P6)
                                D11 = Differenza(C1,C2)
                                If D11 = DD1 Then
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    ColoreTesto 1
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                    Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                    ColoreTesto 0
                                    Scrivi(" Estrazione n." & FormattaStringa(Es,"0000") & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
                                    ColoreTesto 2
                                    Scrivi Space(5) & S,1,0
                                    ColoreTesto 0
                                    Scrivi "   Coppie con Differenza " & DD1
                                    Scrivi
                                    Scrivi Space(20) & " Seconda Ruota " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2),1,0
                                    ColoreTesto 2
                                    Scrivi Space(5) & Format2(C1) & Space(1) & Format2(C2),1,0
                                    ColoreTesto 0
                                    Scrivi Space(8) & "  Coppia con Differenza " & DD1
                                End If
                            Next
                        Next
                    End If
                Next
            End If
        End If
    Next
Next
End Sub

va bene, adesso la prima estrazione la 8887, l'estrazione dell'articolo c'è.
Però su 529 estrazioni, solo 17 casi con le tre coppie differenza 30, ho provato
anche dall'estrazione numero 1 ed in tutto ci sono 199 casi, poi di questi 199,
bisogna vedere quante ce ne sono di differenza 9, in seguito su altre due ruote
trovare la distanza 36, io sono più che convinto che in tutto l'arco delle 9415 estrazioni,
con le caretteristiche di questo sistema ci saranno si e no, due, massimo tre casi
o forse solo il caso dell'articolo, per questo nello script ho messo le distanze
e le differenze che si possono variare.

Proseguo con lo script, a tempo perso.
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Proseguo con il Quadrato Diametrale, trovare la distanza 9 nelle 2 terne, ho calcolato che ogni coppia

sviluppa 24 doppie terne diverse, le coppie sono 10, quindi abbiamo 24*10=240 combinazioni, però faccio un

esempio con la combinazione dell'articolo che è la seguente

25 34 43 -------- 55 64 73

altra combinazione

55 64 73 -------- 25 34 43


secondo me le due combinazioni sono simili, perchè è solo l'aspetto visivo che li distingue.

Ho constatato che delle 240 combinazioni, la metà sono doppioni, come l'esempio descritto.

Quindi ho proseguito lo script con 120 IF-THEN ed ho constatato che in 9418 estrazioni, c'è solo la
combinazione descritta nell'articolo, quindi lo ritengo inutile proseguire nella ricerca ancora della distanza
36 in altre 2 ruote.


Codice:
 'Progetto - Il Quadrato Diametrale - by Paolo Carta
'Abbozzo Script   - by Salvo50
Option Explicit
Dim E1,E2,E3,E4,E5,E6,C1,C2,SS
Sub Main
    Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11,D12,D13
    Dim D14,D15,D16,D17,D18,D19,D20,D21,DI21
    Dim R1,R2,P5,P6,Es,Esq,Caso,Casi
    Dim FIn,Ini,Ruote(2)
    Dim Idestr,Col,Esqcol,Ok,Ok2,S
    Dim DD1,DD2
    FIn = EstrazioneFin
    Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Idestr,8887)'8887 uguale estrazione nell'articolo
    Col = CInt(InputBox("Inserisci l'estrazione che vuoi finire ",,FIn))
    DD1 = CInt(InputBox(" Quale prima distanza? ",,30))
    DD2 = CInt(InputBox(" Quale seconda distanza? ",,9))
    Esqcol = Esq + Col
    If Esqcol > FIn Then Esqcol = FIn
    For Es = Esq To Esqcol
        Caso = 0
        AvanzamentoElab Esq,Esqcol,Es
        For R1 = 1 To 9
            S = ""
            SS = ""
            E1 = Estratto(Es,R1,1) : If E1 > 0 Then
            E2 = Estratto(Es,R1,2)
            E3 = Estratto(Es,R1,3)
            E4 = Estratto(Es,R1,4)
            E5 = Estratto(Es,R1,5)
            '10 ambi, 10 differenze
            D1 = Differenza(E1,E2)
            D2 = Differenza(E1,E3)
            D3 = Differenza(E1,E4)
            D4 = Differenza(E1,E5)
            D5 = Differenza(E2,E3)
            D6 = Differenza(E2,E4)
            D7 = Differenza(E2,E5)
            D8 = Differenza(E3,E4)
            D9 = Differenza(E3,E5)
            D10 = Differenza(E4,E5)
            Ok = 0
            'Tutte le combinazioni di doppio ambo con 5 numeri = 15 combinazioni
            ' 1 ---------------------------------------------------------------------------------------------------------------------
            If(D1 = DD1 And D8 = DD1) Then S = S & Format2(E1) & " " & Format2(E2) & "    " & Format2(E3) & " " & Format2(E4) : Ok = 1
            If(D1 = DD1 And D9 = DD1) Then S = S & Format2(E1) & " " & Format2(E2) & "    " & Format2(E3) & " " & Format2(E5) : Ok = 1
            If(D1 = DD1 And D10 = DD1) Then S = S & Format2(E1) & " " & Format2(E2) & "    " & Format2(E4) & " " & Format2(E5) : Ok = 1
            ' 2 ----------------------------------------------------------------------------------------------------------------------
            If(D2 = DD1 And D6 = DD1) Then S = S & Format2(E1) & " " & Format2(E3) & "    " & Format2(E2) & " " & Format2(E4) : Ok = 1
            If(D2 = DD1 And D7 = DD1) Then S = S & Format2(E1) & " " & Format2(E3) & "    " & Format2(E2) & " " & Format2(E5) : Ok = 1
            If(D2 = DD1 And D10 = DD1) Then S = S & Format2(E1) & " " & Format2(E3) & "    " & Format2(E4) & " " & Format2(E5) : Ok = 1
            ' 3 ----------------------------------------------------------------------------------------------------------------------
            If(D3 = DD1 And D5 = DD1) Then S = S & Format2(E1) & " " & Format2(E4) & "    " & Format2(E2) & " " & Format2(E3) : Ok = 1
            If(D3 = DD1 And D7 = DD1) Then S = S & Format2(E1) & " " & Format2(E4) & "    " & Format2(E2) & " " & Format2(E5) : Ok = 1
            If(D3 = DD1 And D9 = DD1) Then S = S & Format2(E1) & " " & Format2(E4) & "    " & Format2(E3) & " " & Format2(E5) : Ok = 1
            ' 4 ----------------------------------------------------------------------------------------------------------------------
            If(D4 = DD1 And D5 = DD1) Then S = S & Format2(E1) & " " & Format2(E5) & "    " & Format2(E2) & " " & Format2(E3) : Ok = 1
            If(D4 = DD1 And D6 = DD1) Then S = S & Format2(E1) & " " & Format2(E5) & "    " & Format2(E2) & " " & Format2(E4) : Ok = 1
            If(D4 = DD1 And D8 = DD1) Then S = S & Format2(E1) & " " & Format2(E5) & "    " & Format2(E3) & " " & Format2(E4) : Ok = 1
            ' 5 ----------------------------------------------------------------------------------------------------------------------
            If(D5 = DD1 And D10 = DD1) Then S = S & Format2(E2) & " " & Format2(E3) & "    " & Format2(E4) & " " & Format2(E5) : Ok = 1
            ' 6 ----------------------------------------------------------------------------------------------------------------------
            If(D6 = DD1 And D9 = DD1) Then S = S & Format2(E2) & " " & Format2(E4) & "    " & Format2(E3) & " " & Format2(E5) : Ok = 1
            ' 7 ----------------------------------------------------------------------------------------------------------------------
            If(D7 = DD1 And D8 = DD1) Then S = S & Format2(E2) & " " & Format2(E5) & "    " & Format2(E3) & " " & Format2(E4) : Ok = 1
            '-------------------------------------------------------------------------------------------------------------------------
            For R2 = R1 + 1 To 10
                For P5 = 1 To 4
                    For P6 = P5 + 1 To 5
                        C1 = Estratto(Es,R2,P5)
                        C2 = Estratto(Es,R2,P6)
                        DI21 = Differenza(C1,C2)
                        If DI21 = DD1 Then
                            D11 = Differenza(E1,C1)
                            D12 = Differenza(E1,C2)
                            D13 = Differenza(E2,C1)
                            D14 = Differenza(E2,C2)
                            D15 = Differenza(E3,C1)
                            D16 = Differenza(E3,C2)
                            D17 = Differenza(E4,C1)
                            D18 = Differenza(E4,C2)
                            D19 = Differenza(E5,C1)
                            D20 = Differenza(E5,C2)
                            If Ok = 1 Then
                                Ok2 = 0
                                'Tutte le combinazioni di distanza in doppia terna con numeri 5 + 2 = 120 combinazioni
                                If D1 = DD2 Then
                                    If D11 = DD2 Then                                '1
                                        If D8 = DD2 And D18 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C2): Ok2 = 1
                                        If D9 = DD2 And D20 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                        If D10 = DD2 And D20 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                        '
                                        If D8 = DD2 And D16 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                        If D9 = DD2 And D16 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                        If D10 = DD2 And D18 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                    End If
                                    If D13 = DD2 Then
                                        If D8 = DD2 And D18 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C1) & Space(10) &(E3) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                        If D9 = DD2 And D20 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C1) & Space(10) &(E3) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                        If D10 = DD2 And D20 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C1) & Space(10) &(E4) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                        '
                                        If D8 = DD2 And D16 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C1) & Space(10) &(E4) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                        If D9 = DD2 And D16 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C1) & Space(10) &(E5) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                        If D10 = DD2 And D18 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C1) & Space(10) &(E5) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                    End If
                                    If D12 = DD2 Then
                                        If D8 = DD2 And D17 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                        If D9 = DD2 And D19 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                        If D10 = DD2 And D19 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                        '
                                        If D8 = DD2 And D15 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                        If D9 = DD2 And D15 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                        If D10 = DD2 And D17 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                    End If
                                    If D14 = DD2 Then
                                        If D8 = DD2 And D17 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                        If D9 = DD2 And D19 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                        If D10 = DD2 And D19 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                        '
                                        If D8 = DD2 And D15 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                        If D9 = DD2 And D15 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                        If D10 = DD2 And D17 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                    End If
                                End If
                                '2
                                If D2 = DD2 Then
                                    If D11 = DD2 Then
                                        If D6 = DD2 And D18 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                        If D7 = DD2 And D20 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                        If D10 = DD2 And D20 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                        '
                                        If D6 = DD2 And D14 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                        If D7 = DD2 And D14 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                        If D10 = DD2 And D18 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                    End If
                                    If D15 = DD2 Then
                                        If D6 = DD2 And D18 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                        If D7 = DD2 And D20 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                        If D10 = DD2 And D20 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                        '
                                        If D6 = DD2 And D14 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                        If D7 = DD2 And D14 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                        If D10 = DD2 And D18 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                    End If
                                    If D12 = DD2 Then
                                        If D6 = DD2 And D17 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                        If D7 = DD2 And D19 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                        If D10 = DD2 And D19 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                        '
                                        If D6 = DD2 And D13 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                        If D7 = DD2 And D13 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                        If D10 = DD2 And D17 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                    End If
                                    If D16 = DD2 Then
                                        If D6 = DD2 And D17 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                        If D7 = DD2 And D19 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                        If D10 = DD2 And D19 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                        '
                                        If D6 = DD2 And D13 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                        If D7 = DD2 And D13 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                        If D10 = DD2 And D17 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                    End If
                                End If
                                '3
                                If D3 = DD2 Then
                                    If D11 = DD2 Then
                                        If D5 = DD2 And D16 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                        If D7 = DD2 And D20 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                        If D9 = DD2 And D20 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                        '
                                        If D5 = DD2 And D14 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                        If D7 = DD2 And D14 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                        If D9 = DD2 And D16 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                    End If
                                    If D17 = DD2 Then
                                        If D5 = DD2 And D16 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                        If D7 = DD2 And D20 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                        If D9 = DD2 And D20 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                        '
                                        If D5 = DD2 And D14 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                        If D7 = DD2 And D14 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                        If D9 = DD2 And D16 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                    End If
                                    If D12 = DD2 Then
                                        If D5 = DD2 And D15 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                        If D7 = DD2 And D19 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                        If D9 = DD2 And D19 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                        '
                                        If D5 = DD2 And D13 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                        If D7 = DD2 And D13 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                        If D9 = DD2 And D15 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                    End If
                                    If D18 = DD2 Then
                                        If D5 = DD2 And D15 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                        If D7 = DD2 And D19 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                        If D9 = DD2 And D19 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                        '
                                        If D5 = DD2 And D13 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                        If D7 = DD2 And D13 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                        If D9 = DD2 And D15 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                    End If
                                End If
                                '4
                                If D4 = DD2 Then
                                    If D11 = DD2 Then
                                        If D5 = DD2 And D16 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                        If D6 = DD2 And D18 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                        If D8 = DD2 And D18 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                        '
                                        If D5 = DD2 And D14 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                        If D6 = DD2 And D14 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                        If D8 = DD2 And D16 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                    End If
                                    If D19 = DD2 Then
                                        If D5 = DD2 And D16 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                        If D6 = DD2 And D18 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                        If D8 = DD2 And D18 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                        '
                                        If D5 = DD2 And D14 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                        If D6 = DD2 And D14 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                        If D8 = DD2 And D16 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                    End If
                                    If D12 = DD2 Then
                                        If D5 = DD2 And D15 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                        If D6 = DD2 And D17 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                        If D8 = DD2 And D17 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                        '
                                        If D5 = DD2 And D13 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                        If D6 = DD2 And D13 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                        If D8 = DD2 And D15 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                    End If
                                    If D20 = DD2 Then
                                        If D5 = DD2 And D15 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                        If D6 = DD2 And D17 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                        If D8 = DD2 And D17 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                        '
                                        If D5 = DD2 And D13 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                        If D6 = DD2 And D13 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                        If D8 = DD2 And D15 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                    End If
                                End If
                                '5
                                If D5 = DD2 Then
                                    If D13 = DD2 Then
                                        If D10 = DD2 And D20 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E2) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                        '
                                        If D10 = DD2 And D18 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E2) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                    End If
                                    If D15 = DD2 Then
                                        If D10 = DD2 And D20 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E3) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                        '
                                        If D10 = DD2 And D18 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E3) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                    End If
                                    If D14 = DD2 Then
                                        If D10 = DD2 And D19 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                        '
                                        If D10 = DD2 And D17 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                    End If
                                    If D16 = DD2 Then
                                        If D10 = DD2 And D19 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E3) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                        '
                                        If D10 = DD2 And D17 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E3) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                    End If
                                End If
                                '6
                                If D6 = DD2 Then
                                    If D13 = DD2 Then
                                        If D9 = DD2 And D20 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E2) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                        '
                                        If D9 = DD2 And D16 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E2) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                    End If
                                    If D17 = DD2 Then
                                        If D9 = DD2 And D20 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E4) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                        '
                                        If D9 = DD2 And D16 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E4) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                    End If
                                    If D14 = DD2 Then
                                        If D9 = DD2 And D19 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                        '
                                        If D9 = DD2 And D15 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                    End If
                                    If D18 = DD2 Then
                                        If D9 = DD2 And D19 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E4) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                        '
                                        If D9 = DD2 And D15 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E3) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                    End If
                                End If
                                '7
                                If D7 = DD2 Then
                                    If D13 = DD2 Then
                                        If D8 = DD2 And D18 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E2) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                        '
                                        If D8 = DD2 And D16 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E2) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                    End If
                                    If D19 = DD2 Then
                                        If D8 = DD2 And D18 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E5) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                        '
                                        If D8 = DD2 And D16 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E5) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                    End If
                                    If D14 = DD2 Then
                                        If D8 = DD2 And D17 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                        '
                                        If D8 = DD2 And D15 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                    End If
                                    If D20 = DD2 Then
                                        If D8 = DD2 And D17 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E5) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                        '
                                        If D8 = DD2 And D15 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E5) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                    End If
                                End If
                                If Ok2 = 1 Then
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    ColoreTesto 1
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1
                                    Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1
                                    ColoreTesto 0
                                    Scrivi(" Estrazione n." & FormattaStringa(Es,"0000") & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
                                    ColoreTesto 2
                                    Scrivi Space(10) & S,1,0
                                    ColoreTesto 0
                                    Scrivi " <--  Coppie Distanza " & DD1
                                    Scrivi Space(20) & " Seconda Ruota " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2),1,0
                                    ColoreTesto 2
                                    Scrivi Space(10) & Format2(C1) & Space(1) & Format2(C2),1,0
                                    ColoreTesto 0
                                    Scrivi "          <--  Coppia Distanza " & DD1
                                    Scrivi
                                    Scrivi
                                    Scrivi
                                    Scrivi Space(20) & "Terne distanza " & DD2 & " -->  " & SS,1
                                End If
                            End If
                        End If
                    Next
                Next
            Next
        End If
    Next
Next
End Sub
 
Ultima modifica:

rosce14

Premium Member
CIAO SALVO50, GRAZIE PER GLI SCRIPT, VOLEVO CHIEDERTI PERCHE SI FERMA AL 30/06/16. COME SI FA AD AGGIORNARE? GRAZIE.
 

salvo50

Advanced Member >PLATINUM PLUS<
originariamente inviato da rosce14
CIAO SALVO50, GRAZIE PER GLI SCRIPT, VOLEVO CHIEDERTI PERCHE SI FERMA AL 30/06/16. COME SI FA AD AGGIORNARE? GRAZIE.

Ciao, scusami Rosce14, ma solo adesso vedo

quando lanci lo script, alla prima domanda chiede da quale estrazione vuoi iniziare, io ho impostato la 9120 che corrisponde all'estrazione del 11-02-2016, ma questa tu la puoi cambiare a piacere, immettendo un altro numero

la seconda domanda ti chiede quale ruota, io l'ho impostata su Napoli, anche qui puoi cambiare la ruota, da 1 a 10 per le ruote tradizionali e 12 per la nazionale

la terza domanda ti chiede, le singole giocate per quanti colpi vuoi giocarle, io l'ho impostate a 5, tu puoi cambiarle

alla quarta ed ultima domanda ti chiede in quante estrazioni vuoi fare i calcoli, io l'ho impostato a 60, questo vuol dire che i calcoli partono dall'estrazione 9120 (quella impostata alla prima domanda) più altre 60 estrazioni che corrisponde alla data del 30-06-2016, quindi se vuoi, ad esempio prolungare i calcoli fino all'ultima estrazione in archivio, alla quarta domanda metti un numero alto ad esempio 1000, io l'ho fatto così per dare la possibilità di poter fare calcoli anche in date molto lontane e non dover modificare numeri nello script.
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti!

Proseguo col - Quadrato Diametrale -

Dato che in tutte le estrazione, con le distanze 30 e 9, c'è solo l'estrazione dell'articolo, ho pensato di cercare tutte le distanze, e quindi ho modificato lo script, partendo dall'estrazione numero 1 del 07-01-1871 fino alla 9424, ci sono volute più di 10 ore per cercare tutte le combinazioni con le caratteristiche del sistema, sono risultati 189 combinazioni, quindi 9424/189=49, praticamente di media una combinazione ogni 49 estrazioni, posto lo script modificato e le 189 estrazioni con le coppie e le terne trovate, se qualcuno si vuole cimentare a trovare per conto proprio le combinazioni, le suggerisco di cambiare il tempo di TimeOut in infinito, si trova in basso a sinistra della schermata principale di Spaziometria.

Codice:
 'Progetto - Il Quadrato Diametrale - by Paolo Carta
'Modifica ricerca di tutte le distanze - by Salvo50
'Script - prima parte  - by Salvo50
Option Explicit
Sub Main
    Dim tInizio
    tInizio = Timer
    Dim E1,E2,E3,E4,E5,C1,C2,SS,SSS
    Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11,D12,D13
    Dim D14,D15,D16,D17,D18,D19,D20,D21,DI21,DD1,DD2
    Dim R1,R2,P5,P6,Es,Esq,Caso,Casi
    Dim FIn,Ini,Idestr,Col,Esqcol,Ok,Ok2,S
    FIn = EstrazioneFin
    Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Idestr,8887)'8887 uguale estrazione nell'articolo
    Col = CInt(InputBox("Quante estrazioni vuoi controllare? ",,1000))
    Esqcol = Esq + Col
    If Esqcol > FIn Then Esqcol = FIn
    For Es = Esq To Esqcol
        Caso = 0
        AvanzamentoElab Esq,Esqcol,Es
        For R1 = 1 To 9
            For DD1 = 1 To 90
                For DD2 = 1 To 90
                    If DD1 <> DD2 Then
                        S = ""
                        SS = ""
                        E1 = Estratto(Es,R1,1) : If E1 > 0 Then
                        E2 = Estratto(Es,R1,2)
                        E3 = Estratto(Es,R1,3)
                        E4 = Estratto(Es,R1,4)
                        E5 = Estratto(Es,R1,5)
                        '10 ambi, 10 differenze
                        D1 = Differenza(E1,E2)
                        D2 = Differenza(E1,E3)
                        D3 = Differenza(E1,E4)
                        D4 = Differenza(E1,E5)
                        D5 = Differenza(E2,E3)
                        D6 = Differenza(E2,E4)
                        D7 = Differenza(E2,E5)
                        D8 = Differenza(E3,E4)
                        D9 = Differenza(E3,E5)
                        D10 = Differenza(E4,E5)
                        Ok = 0
                        'Tutte le combinazioni di doppio ambo con 5 numeri = 15 combinazioni
                        ' 1 ---------------------------------------------------------------------------------------------------------------------
                        If(D1 = DD1 And D8 = DD1) Then S = S & Format2(E1) & " " & Format2(E2) & "    " & Format2(E3) & " " & Format2(E4) : Ok = 1
                        If(D1 = DD1 And D9 = DD1) Then S = S & Format2(E1) & " " & Format2(E2) & "    " & Format2(E3) & " " & Format2(E5) : Ok = 1
                        If(D1 = DD1 And D10 = DD1) Then S = S & Format2(E1) & " " & Format2(E2) & "    " & Format2(E4) & " " & Format2(E5) : Ok = 1
                        ' 2 ----------------------------------------------------------------------------------------------------------------------
                        If(D2 = DD1 And D6 = DD1) Then S = S & Format2(E1) & " " & Format2(E3) & "    " & Format2(E2) & " " & Format2(E4) : Ok = 1
                        If(D2 = DD1 And D7 = DD1) Then S = S & Format2(E1) & " " & Format2(E3) & "    " & Format2(E2) & " " & Format2(E5) : Ok = 1
                        If(D2 = DD1 And D10 = DD1) Then S = S & Format2(E1) & " " & Format2(E3) & "    " & Format2(E4) & " " & Format2(E5) : Ok = 1
                        ' 3 ----------------------------------------------------------------------------------------------------------------------
                        If(D3 = DD1 And D5 = DD1) Then S = S & Format2(E1) & " " & Format2(E4) & "    " & Format2(E2) & " " & Format2(E3) : Ok = 1
                        If(D3 = DD1 And D7 = DD1) Then S = S & Format2(E1) & " " & Format2(E4) & "    " & Format2(E2) & " " & Format2(E5) : Ok = 1
                        If(D3 = DD1 And D9 = DD1) Then S = S & Format2(E1) & " " & Format2(E4) & "    " & Format2(E3) & " " & Format2(E5) : Ok = 1
                        ' 4 ----------------------------------------------------------------------------------------------------------------------
                        If(D4 = DD1 And D5 = DD1) Then S = S & Format2(E1) & " " & Format2(E5) & "    " & Format2(E2) & " " & Format2(E3) : Ok = 1
                        If(D4 = DD1 And D6 = DD1) Then S = S & Format2(E1) & " " & Format2(E5) & "    " & Format2(E2) & " " & Format2(E4) : Ok = 1
                        If(D4 = DD1 And D8 = DD1) Then S = S & Format2(E1) & " " & Format2(E5) & "    " & Format2(E3) & " " & Format2(E4) : Ok = 1
                        ' 5 ----------------------------------------------------------------------------------------------------------------------
                        If(D5 = DD1 And D10 = DD1) Then S = S & Format2(E2) & " " & Format2(E3) & "    " & Format2(E4) & " " & Format2(E5) : Ok = 1
                        ' 6 ----------------------------------------------------------------------------------------------------------------------
                        If(D6 = DD1 And D9 = DD1) Then S = S & Format2(E2) & " " & Format2(E4) & "    " & Format2(E3) & " " & Format2(E5) : Ok = 1
                        ' 7 ----------------------------------------------------------------------------------------------------------------------
                        If(D7 = DD1 And D8 = DD1) Then S = S & Format2(E2) & " " & Format2(E5) & "    " & Format2(E3) & " " & Format2(E4) : Ok = 1
                        '-------------------------------------------------------------------------------------------------------------------------
                        If Ok = 1 Then
                            For R2 = R1 + 1 To 10
                                For P5 = 1 To 4
                                    For P6 = P5 + 1 To 5
                                        C1 = Estratto(Es,R2,P5)
                                        C2 = Estratto(Es,R2,P6)
                                        DI21 = Differenza(C1,C2)
                                        If DI21 = DD1 Then
                                            If C1 <> E1 And C1 <> E2 And C1 <> E3 And C1 <> E4 And C1 <> E5 And C2 <> E1 And C2 <> E2 And C2 <> E3 And C2 <> E4 And C2 <> E5 Then
                                                D11 = Differenza(E1,C1)
                                                D12 = Differenza(E1,C2)
                                                D13 = Differenza(E2,C1)
                                                D14 = Differenza(E2,C2)
                                                D15 = Differenza(E3,C1)
                                                D16 = Differenza(E3,C2)
                                                D17 = Differenza(E4,C1)
                                                D18 = Differenza(E4,C2)
                                                D19 = Differenza(E5,C1)
                                                D20 = Differenza(E5,C2)
                                                Ok2 = 0
                                                'Tutte le combinazioni di distanza in doppia terna con numeri 5 + 2 = 120 combinazioni
                                                If D1 = DD2 Then
                                                    If D11 = DD2 Then                                '1
                                                        If D8 = DD2 And D18 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C2): Ok2 = 1
                                                        If D9 = DD2 And D20 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                                        If D10 = DD2 And D20 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                                        '
                                                        If D8 = DD2 And D16 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                                        If D9 = DD2 And D16 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                                        If D10 = DD2 And D18 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                                    End If
                                                    If D13 = DD2 Then
                                                        If D8 = DD2 And D18 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C1) & Space(10) &(E3) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                                        If D9 = DD2 And D20 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C1) & Space(10) &(E3) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                                        If D10 = DD2 And D20 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C1) & Space(10) &(E4) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                                        '
                                                        If D8 = DD2 And D16 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C1) & Space(10) &(E4) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                                        If D9 = DD2 And D16 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C1) & Space(10) &(E5) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                                        If D10 = DD2 And D18 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C1) & Space(10) &(E5) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                                    End If
                                                    If D12 = DD2 Then
                                                        If D8 = DD2 And D17 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                                        If D9 = DD2 And D19 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                                        If D10 = DD2 And D19 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                                        '
                                                        If D8 = DD2 And D15 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                                        If D9 = DD2 And D15 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                                        If D10 = DD2 And D17 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                                    End If
                                                    If D14 = DD2 Then
                                                        If D8 = DD2 And D17 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                                        If D9 = DD2 And D19 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                                        If D10 = DD2 And D19 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                                        '
                                                        If D8 = DD2 And D15 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                                        If D9 = DD2 And D15 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                                        If D10 = DD2 And D17 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                                    End If
                                                End If
                                                '2
                                                If D2 = DD2 Then
                                                    If D11 = DD2 Then
                                                        If D6 = DD2 And D18 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                                        If D7 = DD2 And D20 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                                        If D10 = DD2 And D20 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                                        '
                                                        If D6 = DD2 And D14 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                                        If D7 = DD2 And D14 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                                        If D10 = DD2 And D18 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                                    End If
                                                    If D15 = DD2 Then
                                                        If D6 = DD2 And D18 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                                        If D7 = DD2 And D20 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                                        If D10 = DD2 And D20 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                                        '
                                                        If D6 = DD2 And D14 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                                        If D7 = DD2 And D14 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                                        If D10 = DD2 And D18 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                                    End If
                                                    If D12 = DD2 Then
                                                        If D6 = DD2 And D17 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                                        If D7 = DD2 And D19 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                                        If D10 = DD2 And D19 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                                        '
                                                        If D6 = DD2 And D13 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                                        If D7 = DD2 And D13 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                                        If D10 = DD2 And D17 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                                    End If
                                                    If D16 = DD2 Then
                                                        If D6 = DD2 And D17 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                                        If D7 = DD2 And D19 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                                        If D10 = DD2 And D19 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                                        '
                                                        If D6 = DD2 And D13 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                                        If D7 = DD2 And D13 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                                        If D10 = DD2 And D17 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E3) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                                    End If
                                                End If
                                                '3
                                                If D3 = DD2 Then
                                                    If D11 = DD2 Then
                                                        If D5 = DD2 And D16 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                                        If D7 = DD2 And D20 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                                        If D9 = DD2 And D20 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                                        '
                                                        If D5 = DD2 And D14 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                                        If D7 = DD2 And D14 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                                        If D9 = DD2 And D16 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                                    End If
                                                    If D17 = DD2 Then
                                                        If D5 = DD2 And D16 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                                        If D7 = DD2 And D20 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                                        If D9 = DD2 And D20 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                                        '
                                                        If D5 = DD2 And D14 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                                        If D7 = DD2 And D14 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                                        If D9 = DD2 And D16 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                                    End If
                                                    If D12 = DD2 Then
                                                        If D5 = DD2 And D15 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                                        If D7 = DD2 And D19 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                                        If D9 = DD2 And D19 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                                        '
                                                        If D5 = DD2 And D13 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                                        If D7 = DD2 And D13 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                                        If D9 = DD2 And D15 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                                    End If
                                                    If D18 = DD2 Then
                                                        If D5 = DD2 And D15 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                                        If D7 = DD2 And D19 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                                        If D9 = DD2 And D19 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                                        '
                                                        If D5 = DD2 And D13 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                                        If D7 = DD2 And D13 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                                        If D9 = DD2 And D15 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E4) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                                    End If
                                                End If
                                                '4
                                                If D4 = DD2 Then
                                                    If D11 = DD2 Then
                                                        If D5 = DD2 And D16 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                                        If D6 = DD2 And D18 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                                        If D8 = DD2 And D18 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                                        '
                                                        If D5 = DD2 And D14 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                                        If D6 = DD2 And D14 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                                        If D8 = DD2 And D16 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                                    End If
                                                    If D19 = DD2 Then
                                                        If D5 = DD2 And D16 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                                        If D6 = DD2 And D18 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                                        If D8 = DD2 And D18 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                                        '
                                                        If D5 = DD2 And D14 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                                        If D6 = DD2 And D14 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E2) & " " & Format2(C2) : Ok2 = 1
                                                        If D8 = DD2 And D16 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                                    End If
                                                    If D12 = DD2 Then
                                                        If D5 = DD2 And D15 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                                        If D6 = DD2 And D17 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                                        If D8 = DD2 And D17 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                                        '
                                                        If D5 = DD2 And D13 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                                        If D6 = DD2 And D13 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                                        If D8 = DD2 And D15 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E1) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                                    End If
                                                    If D20 = DD2 Then
                                                        If D5 = DD2 And D15 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                                        If D6 = DD2 And D17 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C2) & Space(10) & Format2(E2) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                                        If D8 = DD2 And D17 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                                        '
                                                        If D5 = DD2 And D13 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                                        If D6 = DD2 And D13 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E2) & " " & Format2(C1) : Ok2 = 1
                                                        If D8 = DD2 And D15 = DD2 Then SS = SS & Format2(E1) & " " & Format2(E5) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                                    End If
                                                End If
                                                '5
                                                If D5 = DD2 Then
                                                    If D13 = DD2 Then
                                                        If D10 = DD2 And D20 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E2) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                                        '
                                                        If D10 = DD2 And D18 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E2) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                                    End If
                                                    If D15 = DD2 Then
                                                        If D10 = DD2 And D20 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E3) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                                        '
                                                        If D10 = DD2 And D18 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E3) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                                    End If
                                                    If D14 = DD2 Then
                                                        If D10 = DD2 And D19 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                                        '
                                                        If D10 = DD2 And D17 = DD2 Then SS = SS & Format2(E3) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                                    End If
                                                    If D16 = DD2 Then
                                                        If D10 = DD2 And D19 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E3) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                                        '
                                                        If D10 = DD2 And D17 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E3) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                                    End If
                                                End If
                                                '6
                                                If D6 = DD2 Then
                                                    If D13 = DD2 Then
                                                        If D9 = DD2 And D20 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E2) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                                        '
                                                        If D9 = DD2 And D16 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E2) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                                    End If
                                                    If D17 = DD2 Then
                                                        If D9 = DD2 And D20 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E4) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C2) : Ok2 = 1
                                                        '
                                                        If D9 = DD2 And D16 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E4) & " " & Format2(C1) & Space(10) & Format2(E5) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                                    End If
                                                    If D14 = DD2 Then
                                                        If D9 = DD2 And D19 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                                        '
                                                        If D9 = DD2 And D15 = DD2 Then SS = SS & Format2(E4) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E5) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                                    End If
                                                    If D18 = DD2 Then
                                                        If D9 = DD2 And D19 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E4) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E5) & " " & Format2(C1) : Ok2 = 1
                                                        '
                                                        If D9 = DD2 And D15 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E3) & " " & Format2(C1) & Space(10) & Format2(E2) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                                    End If
                                                End If
                                                '7
                                                If D7 = DD2 Then
                                                    If D13 = DD2 Then
                                                        If D8 = DD2 And D18 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E2) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                                        '
                                                        If D8 = DD2 And D16 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E2) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                                    End If
                                                    If D19 = DD2 Then
                                                        If D8 = DD2 And D18 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E5) & " " & Format2(C1) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C2) : Ok2 = 1
                                                        '
                                                        If D8 = DD2 And D16 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E5) & " " & Format2(C1) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C2) : Ok2 = 1
                                                    End If
                                                    If D14 = DD2 Then
                                                        If D8 = DD2 And D17 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                                        '
                                                        If D8 = DD2 And D15 = DD2 Then SS = SS & Format2(E5) & " " & Format2(E2) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                                    End If
                                                    If D20 = DD2 Then
                                                        If D8 = DD2 And D17 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E5) & " " & Format2(C2) & Space(10) & Format2(E3) & " " & Format2(E4) & " " & Format2(C1) : Ok2 = 1
                                                        '
                                                        If D8 = DD2 And D15 = DD2 Then SS = SS & Format2(E2) & " " & Format2(E5) & " " & Format2(C2) & Space(10) & Format2(E4) & " " & Format2(E3) & " " & Format2(C1) : Ok2 = 1
                                                    End If
                                                End If
                                                If Ok2 = 1 Then
                                                    Caso = Caso + 1
                                                    Casi = Casi + 1
                                                    ColoreTesto 1
                                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1
                                                    Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1
                                                    ColoreTesto 0
                                                    Scrivi(" Estrazione n." & FormattaStringa(Es,"0000") & " del " & DataEstrazione(Es)),1,0
                                                    Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
                                                    ColoreTesto 2
                                                    Scrivi Space(10) & S,1,0
                                                    ColoreTesto 0
                                                    Scrivi " <--  Coppie Distanza " & DD1
                                                    Scrivi Space(20) & " Seconda Ruota " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2),1,0
                                                    ColoreTesto 2
                                                    Scrivi Space(10) & Format2(C1) & Space(1) & Format2(C2),1,0
                                                    ColoreTesto 0
                                                    Scrivi "          <--  Coppia Distanza " & DD1
                                                    Scrivi
                                                    Scrivi
                                                    Scrivi
                                                    Scrivi Space(20) & "Terne distanza " & DD2 & " -->  " & SS,1
                                                    Scrivi
                                                End If
                                            End If
                                        End If
                                    Next
                                Next
                            Next
                        End If
                    End If
                End If
            Next
        Next
    Next
Next
If ScriptInterrotto Then Exit Sub
Scrivi
Scrivi
Dim nend
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - tInizio))
End Sub
Function FormattaSecondi(se)
    Dim hh
    Dim Mm
    Dim Sse
    Dim TimeStr
    hh = se \ 3600
    Mm =(se Mod 3600) \ 60
    Sse = se -((hh * 3600) +(Mm * 60))
    TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Sse)
    FormattaSecondi = TimeStr
End Function

Codice:
 ***************************************************************************************** Casi Totali 0001
******************************************************************************** Estrazione 177 caso 0001
 Estrazione n.0177 del 23.05.1874  NA 66.23.72.29.01          66 23    72 29 <--  Coppie Distanza 43
                     Seconda Ruota VE 17.47.67.60.73          17 60          <--  Coppia Distanza 43



                    Terne distanza 6 -->  72 66 60          29 23 17

***************************************************************************************** Casi Totali 0002
******************************************************************************** Estrazione 184 caso 0001
 Estrazione n.0184 del 11.07.1874  BA 67.24.61.11.54          67 24    11 54 <--  Coppie Distanza 43
                     Seconda Ruota MI 37.11.80.08.23          37 80          <--  Coppia Distanza 43



                    Terne distanza 13 -->  54 67 80          11 24 37

***************************************************************************************** Casi Totali 0003
******************************************************************************** Estrazione 199 caso 0001
 Estrazione n.0199 del 24.10.1874  NA 49.80.84.89.75          80 89    84 75 <--  Coppie Distanza 9
                     Seconda Ruota TO 70.28.16.79.20          70 79          <--  Coppia Distanza 9



                    Terne distanza 5 -->  80 75 70          89 84 79

***************************************************************************************** Casi Totali 0004
******************************************************************************** Estrazione 210 caso 0001
 Estrazione n.0210 del 09.01.1875  BA 08.26.17.16.27          26 27    17 16 <--  Coppie Distanza 1
                     Seconda Ruota MI 06.51.03.41.07          06 07          <--  Coppia Distanza 1



                    Terne distanza 10 -->  26 16 06          27 17 07

***************************************************************************************** Casi Totali 0005
******************************************************************************** Estrazione 227 caso 0001
 Estrazione n.0227 del 08.05.1875  MI 64.18.45.38.71          64 38    45 71 <--  Coppie Distanza 26
                     Seconda Ruota PA 25.78.47.52.81          78 52          <--  Coppia Distanza 26



                    Terne distanza 7 -->  64 71 78          38 45 52

***************************************************************************************** Casi Totali 0006
******************************************************************************** Estrazione 447 caso 0001
 Estrazione n.0447 del 26.07.1879  PA 07.43.48.12.40          07 43    48 12 <--  Coppie Distanza 36
                     Seconda Ruota VE 01.38.27.02.79          38 02          <--  Coppia Distanza 36



                    Terne distanza 5 -->  12 07 02          48 43 38

***************************************************************************************** Casi Totali 0007
******************************************************************************** Estrazione 456 caso 0001
 Estrazione n.0456 del 27.09.1879  FI 63.09.01.07.57          63 07    01 57 <--  Coppie Distanza 56
                     Seconda Ruota NA 69.13.28.47.52          69 13          <--  Coppia Distanza 56



                    Terne distanza 6 -->  57 63 69          01 07 13

***************************************************************************************** Casi Totali 0008
******************************************************************************** Estrazione 511 caso 0001
 Estrazione n.0511 del 16.10.1880  FI 31.34.24.41.08          31 41    34 24 <--  Coppie Distanza 10
                     Seconda Ruota NA 38.46.15.48.79          38 48          <--  Coppia Distanza 10



                    Terne distanza 7 -->  24 31 38          34 41 48

***************************************************************************************** Casi Totali 0009
******************************************************************************** Estrazione 520 caso 0001
 Estrazione n.0520 del 18.12.1880  NA 05.61.14.70.12          05 61    14 70 <--  Coppie Distanza 56
                     Seconda Ruota PA 79.14.44.25.23          79 23          <--  Coppia Distanza 56



                    Terne distanza 9 -->  05 14 23          61 70 79

***************************************************************************************** Casi Totali 0010
******************************************************************************** Estrazione 522 caso 0001
 Estrazione n.0522 del 01.01.1881  FI 35.44.52.62.45          35 45    52 62 <--  Coppie Distanza 10
                     Seconda Ruota TO 69.02.79.70.19          69 79          <--  Coppia Distanza 10



                    Terne distanza 17 -->  35 52 69          45 62 79

***************************************************************************************** Casi Totali 0011
******************************************************************************** Estrazione 541 caso 0001
 Estrazione n.0541 del 14.05.1881  FI 72.56.63.70.79          72 56    63 79 <--  Coppie Distanza 16
                     Seconda Ruota RO 65.02.49.24.71          65 49          <--  Coppia Distanza 16



                    Terne distanza 7 -->  79 72 65          63 56 49

***************************************************************************************** Casi Totali 0012
******************************************************************************** Estrazione 634 caso 0001
 Estrazione n.0634 del 24.02.1883  FI 19.09.39.15.33          09 33    39 15 <--  Coppie Distanza 24
                     Seconda Ruota MI 64.27.35.87.03          27 03          <--  Coppia Distanza 24



                    Terne distanza 6 -->  15 09 03          39 33 27

***************************************************************************************** Casi Totali 0013
******************************************************************************** Estrazione 674 caso 0001
 Estrazione n.0674 del 01.12.1883  FI 08.63.39.45.14          08 14    39 45 <--  Coppie Distanza 6
                     Seconda Ruota NA 76.57.65.70.73          76 70          <--  Coppia Distanza 6



                    Terne distanza 31 -->  08 39 70          14 45 76

***************************************************************************************** Casi Totali 0014
******************************************************************************** Estrazione 685 caso 0001
 Estrazione n.0685 del 16.02.1884  MI 71.37.50.65.58          71 50    37 58 <--  Coppie Distanza 21
                     Seconda Ruota VE 31.76.84.63.71          84 63          <--  Coppia Distanza 21



                    Terne distanza 13 -->  58 71 84          37 50 63

***************************************************************************************** Casi Totali 0015
******************************************************************************** Estrazione 714 caso 0001
 Estrazione n.0714 del 06.09.1884  BA 32.22.24.21.31          32 31    22 21 <--  Coppie Distanza 1
                     Seconda Ruota RO 65.76.08.11.12          11 12          <--  Coppia Distanza 1



                    Terne distanza 10 -->  32 22 12          31 21 11

***************************************************************************************** Casi Totali 0016
*******************************************************************************  Estrazione 714 caso 0002
 Estrazione n.0714 del 06.09.1884  BA 32.22.24.21.31          32 22    21 31 <--  Coppie Distanza 10
                     Seconda Ruota VE 64.47.79.30.20          30 20          <--  Coppia Distanza 10



                    Terne distanza 1 -->  32 31 30          22 21 20

***************************************************************************************** Casi Totali 0017
******************************************************************************** Estrazione 801 caso 0001
 Estrazione n.0801 del 08.05.1886  PA 67.53.19.59.73          67 53    59 73 <--  Coppie Distanza 14
                     Seconda Ruota TO 47.25.61.39.30          47 61          <--  Coppia Distanza 14



                    Terne distanza 6 -->  73 67 61          59 53 47

***************************************************************************************** Casi Totali 0018
******************************************************************************** Estrazione 828 caso 0001
 Estrazione n.0828 del 13.11.1886  FI 67.43.20.73.44          67 43    20 44 <--  Coppie Distanza 24
                     Seconda Ruota TO 49.26.90.66.05          90 66          <--  Coppia Distanza 24



                    Terne distanza 23 -->  44 67 90          20 43 66

***************************************************************************************** Casi Totali 0019
******************************************************************************** Estrazione 884 caso 0001
 Estrazione n.0884 del 10.12.1887  NA 61.01.64.24.38          61 24    01 38 <--  Coppie Distanza 37
                     Seconda Ruota VE 06.02.84.47.36          84 47          <--  Coppia Distanza 37



                    Terne distanza 23 -->  38 61 84          01 24 47

***************************************************************************************** Casi Totali 0020
******************************************************************************** Estrazione 937 caso 0001
 Estrazione n.0937 del 15.12.1888  BA 33.28.50.38.55          33 28    50 55 <--  Coppie Distanza 5
                     Seconda Ruota RO 72.52.77.66.03          72 77          <--  Coppia Distanza 5



                    Terne distanza 22 -->  33 55 77          28 50 72

***************************************************************************************** Casi Totali 0021
******************************************************************************** Estrazione 1092 caso 0001
 Estrazione n.1092 del 05.12.1891  NA 12.44.09.26.47          12 47    44 09 <--  Coppie Distanza 35
                     Seconda Ruota TO 41.06.04.62.45          41 06          <--  Coppia Distanza 35



                    Terne distanza 3 -->  12 09 06          47 44 41

***************************************************************************************** Casi Totali 0022
******************************************************************************** Estrazione 1210 caso 0001
 Estrazione n.1210 del 10.03.1894  FI 69.59.19.29.47          69 29    59 19 <--  Coppie Distanza 40
                     Seconda Ruota PA 22.39.79.35.24          39 79          <--  Coppia Distanza 40



                    Terne distanza 10 -->  59 69 79          19 29 39

***************************************************************************************** Casi Totali 0023
******************************************************************************** Estrazione 1314 caso 0001
 Estrazione n.1314 del 07.03.1896  NA 55.64.69.22.78          55 64    69 78 <--  Coppie Distanza 9
                     Seconda Ruota PA 63.50.16.69.41          50 41          <--  Coppia Distanza 9



                    Terne distanza 14 -->  69 55 41          78 64 50

***************************************************************************************** Casi Totali 0024
******************************************************************************** Estrazione 1416 caso 0001
 Estrazione n.1416 del 19.02.1898  PA 89.08.20.07.88          89 08    07 88 <--  Coppie Distanza 81
                     Seconda Ruota VE 75.87.06.22.40          87 06          <--  Coppia Distanza 81



                    Terne distanza 1 -->  89 88 87          08 07 06

***************************************************************************************** Casi Totali 0025
******************************************************************************** Estrazione 1462 caso 0001
 Estrazione n.1462 del 07.01.1899  MI 28.49.66.06.11          28 66    49 11 <--  Coppie Distanza 38
                     Seconda Ruota PA 49.36.45.83.68          45 83          <--  Coppia Distanza 38



                    Terne distanza 17 -->  11 28 45          49 66 83

***************************************************************************************** Casi Totali 0026
******************************************************************************** Estrazione 1469 caso 0001
 Estrazione n.1469 del 25.02.1899  NA 68.80.73.85.54          68 73    80 85 <--  Coppie Distanza 5
                     Seconda Ruota TO 63.55.70.56.61          56 61          <--  Coppia Distanza 5



                    Terne distanza 12 -->  80 68 56          85 73 61

***************************************************************************************** Casi Totali 0027
******************************************************************************** Estrazione 1492 caso 0001
 Estrazione n.1492 del 05.08.1899  MI 01.10.13.22.19          01 10    13 2210 19    13 22 <--  Coppie Distanza 9
                     Seconda Ruota NA 55.30.08.34.25          34 25          <--  Coppia Distanza 9



                    Terne distanza 12 -->  01 13 25          10 22 34

***************************************************************************************** Casi Totali 0028
******************************************************************************** Estrazione 1726 caso 0001
 Estrazione n.1726 del 30.01.1904  BA 87.54.75.52.64          87 75    52 64 <--  Coppie Distanza 12
                     Seconda Ruota NA 41.29.85.04.07          41 29          <--  Coppia Distanza 12



                    Terne distanza 23 -->  87 64 41          75 52 29

***************************************************************************************** Casi Totali 0029
******************************************************************************** Estrazione 1795 caso 0001
 Estrazione n.1795 del 27.05.1905  MI 20.34.51.21.50          20 21    51 50 <--  Coppie Distanza 1
                     Seconda Ruota VE 83.40.81.22.80          81 80          <--  Coppia Distanza 1



                    Terne distanza 30 -->  20 50 80          21 51 81

***************************************************************************************** Casi Totali 0030
******************************************************************************** Estrazione 1824 caso 0001
 Estrazione n.1824 del 16.12.1905  PA 90.88.73.64.75          90 88    73 75 <--  Coppie Distanza 2
                     Seconda Ruota VE 90.60.41.72.58          60 58          <--  Coppia Distanza 2



                    Terne distanza 15 -->  90 75 60          88 73 58

***************************************************************************************** Casi Totali 0031
******************************************************************************** Estrazione 1939 caso 0001
 Estrazione n.1939 del 29.02.1908  FI 68.49.04.85.66          68 49    85 66 <--  Coppie Distanza 19
                     Seconda Ruota MI 77.34.51.32.90          51 32          <--  Coppia Distanza 19



                    Terne distanza 17 -->  85 68 51          66 49 32

***************************************************************************************** Casi Totali 0032
******************************************************************************** Estrazione 1999 caso 0001
 Estrazione n.1999 del 24.04.1909  NA 74.73.62.58.47          73 62    58 47 <--  Coppie Distanza 11
                     Seconda Ruota PA 73.64.17.43.32          43 32          <--  Coppia Distanza 11



                    Terne distanza 15 -->  73 58 43          62 47 32

***************************************************************************************** Casi Totali 0033
******************************************************************************** Estrazione 2002 caso 0001
 Estrazione n.2002 del 15.05.1909  RO 61.38.52.72.49          61 72    38 49 <--  Coppie Distanza 11
                     Seconda Ruota VE 57.50.26.15.07          26 15          <--  Coppia Distanza 11



                    Terne distanza 23 -->  61 38 15          72 49 26

***************************************************************************************** Casi Totali 0034
******************************************************************************** Estrazione 2051 caso 0001
 Estrazione n.2051 del 23.04.1910  BA 59.57.09.84.11          59 11    57 09 <--  Coppie Distanza 48
                     Seconda Ruota RO 62.68.13.61.08          13 61          <--  Coppia Distanza 48



                    Terne distanza 2 -->  57 59 61          09 11 13

***************************************************************************************** Casi Totali 0035
******************************************************************************** Estrazione 2058 caso 0001
 Estrazione n.2058 del 11.06.1910  BA 83.78.27.19.70          78 27    19 70 <--  Coppie Distanza 51
                     Seconda Ruota FI 39.38.47.62.11          62 11          <--  Coppia Distanza 51



                    Terne distanza 8 -->  78 70 62          27 19 11

***************************************************************************************** Casi Totali 0036
******************************************************************************** Estrazione 2208 caso 0001
 Estrazione n.2208 del 26.04.1913  RO 35.57.33.24.46          35 24    57 46 <--  Coppie Distanza 11
                     Seconda Ruota VE 79.37.33.68.81          79 68          <--  Coppia Distanza 11



                    Terne distanza 22 -->  35 57 79          24 46 68

***************************************************************************************** Casi Totali 0037
******************************************************************************** Estrazione 2256 caso 0001
 Estrazione n.2256 del 28.03.1914  NA 21.51.60.65.74          51 60    65 74 <--  Coppie Distanza 9
                     Seconda Ruota TO 32.40.30.88.79          88 79          <--  Coppia Distanza 9



                    Terne distanza 14 -->  51 65 79          60 74 88

***************************************************************************************** Casi Totali 0038

******************************************************************************** Estrazione 2381 caso 0001
 Estrazione n.2381 del 19.08.1916  FI 24.03.68.06.27          24 03    06 27 <--  Coppie Distanza 21
                     Seconda Ruota VE 50.09.72.30.56          09 30          <--  Coppia Distanza 21



                    Terne distanza 3 -->  24 27 30          03 06 09

***************************************************************************************** Casi Totali 0039
******************************************************************************** Estrazione 2567 caso 0001
 Estrazione n.2567 del 13.03.1920  RO 61.34.17.59.19          61 19    17 59 <--  Coppie Distanza 42
                     Seconda Ruota TO 63.88.39.21.44          63 21          <--  Coppia Distanza 42



                    Terne distanza 2 -->  59 61 63          17 19 21

***************************************************************************************** Casi Totali 0040
******************************************************************************** Estrazione 2640 caso 0001
 Estrazione n.2640 del 06.08.1921  MI 28.41.20.84.33          28 41    20 33 <--  Coppie Distanza 13
                     Seconda Ruota TO 44.25.15.12.36          25 12          <--  Coppia Distanza 13



                    Terne distanza 8 -->  28 20 12          41 33 25

***************************************************************************************** Casi Totali 0041
******************************************************************************** Estrazione 2646 caso 0001
 Estrazione n.2646 del 17.09.1921  FI 54.71.53.36.17          54 71    53 36 <--  Coppie Distanza 17
                     Seconda Ruota VE 50.35.32.18.41          35 18          <--  Coppia Distanza 17



                    Terne distanza 18 -->  54 36 18          71 53 35

***************************************************************************************** Casi Totali 0042
******************************************************************************** Estrazione 2699 caso 0001
 Estrazione n.2699 del 23.09.1922  BA 71.67.64.40.68          71 68    67 64 <--  Coppie Distanza 3
                     Seconda Ruota TO 16.75.26.34.72          75 72          <--  Coppia Distanza 3



                    Terne distanza 4 -->  67 71 75          64 68 72

***************************************************************************************** Casi Totali 0043
******************************************************************************** Estrazione 2711 caso 0001
 Estrazione n.2711 del 16.12.1922  RO 51.75.64.62.68          51 64    75 62 <--  Coppie Distanza 13
                     Seconda Ruota TO 21.86.06.73.38          86 73          <--  Coppia Distanza 13



                    Terne distanza 11 -->  51 62 73          64 75 86

***************************************************************************************** Casi Totali 0044
******************************************************************************** Estrazione 2786 caso 0001
 Estrazione n.2786 del 24.05.1924  MI 42.27.36.21.16          42 27    36 21 <--  Coppie Distanza 15
                     Seconda Ruota TO 15.87.75.17.30          15 30          <--  Coppia Distanza 15



                    Terne distanza 6 -->  42 36 30          27 21 15

***************************************************************************************** Casi Totali 0045
******************************************************************************** Estrazione 2567 caso 0001
 Estrazione n.2567 del 13.03.1920  RO 61.34.17.59.19          61 19    17 59 <--  Coppie Distanza 42
                     Seconda Ruota TO 63.88.39.21.44          63 21          <--  Coppia Distanza 42



                    Terne distanza 2 -->  59 61 63          17 19 21

***************************************************************************************** Casi Totali 0046
******************************************************************************** Estrazione 2640 caso 0001
 Estrazione n.2640 del 06.08.1921  MI 28.41.20.84.33          28 41    20 33 <--  Coppie Distanza 13
                     Seconda Ruota TO 44.25.15.12.36          25 12          <--  Coppia Distanza 13



                    Terne distanza 8 -->  28 20 12          41 33 25

***************************************************************************************** Casi Totali 0047
******************************************************************************** Estrazione 2646 caso 0001
 Estrazione n.2646 del 17.09.1921  FI 54.71.53.36.17          54 71    53 36 <--  Coppie Distanza 17
                     Seconda Ruota VE 50.35.32.18.41          35 18          <--  Coppia Distanza 17



                    Terne distanza 18 -->  54 36 18          71 53 35

***************************************************************************************** Casi Totali 0048
******************************************************************************** Estrazione 2699 caso 0001
 Estrazione n.2699 del 23.09.1922  BA 71.67.64.40.68          71 68    67 64 <--  Coppie Distanza 3
                     Seconda Ruota TO 16.75.26.34.72          75 72          <--  Coppia Distanza 3



                    Terne distanza 4 -->  67 71 75          64 68 72

***************************************************************************************** Casi Totali 0049
******************************************************************************** Estrazione 2711 caso 0001
 Estrazione n.2711 del 16.12.1922  RO 51.75.64.62.68          51 64    75 62 <--  Coppie Distanza 13
                     Seconda Ruota TO 21.86.06.73.38          86 73          <--  Coppia Distanza 13



                    Terne distanza 11 -->  51 62 73          64 75 86

***************************************************************************************** Casi Totali 0050
******************************************************************************** Estrazione 2786 caso 0001
 Estrazione n.2786 del 24.05.1924  MI 42.27.36.21.16          42 27    36 21 <--  Coppie Distanza 15
                     Seconda Ruota TO 15.87.75.17.30          15 30          <--  Coppia Distanza 15



                    Terne distanza 6 -->  42 36 30          27 21 15

***************************************************************************************** Casi Totali 0051
******************************************************************************** Estrazione 2847 caso 0001
 Estrazione n.2847 del 25.07.1925  NA 56.37.63.29.64          56 29    37 64 <--  Coppie Distanza 27
                     Seconda Ruota RO 72.63.21.48.29          21 48          <--  Coppia Distanza 27



                    Terne distanza 8 -->  64 56 48          37 29 21

***************************************************************************************** Casi Totali 0052
******************************************************************************** Estrazione 2903 caso 0001
 Estrazione n.2903 del 21.08.1926  FI 44.52.33.29.48          44 48    33 29 <--  Coppie Distanza 4
                     Seconda Ruota PA 13.14.18.66.39          14 18          <--  Coppia Distanza 4



                    Terne distanza 15 -->  44 29 14          48 33 18

***************************************************************************************** Casi Totali 0053
******************************************************************************** Estrazione 2953 caso 0001
 Estrazione n.2953 del 06.08.1927  BA 30.20.12.44.22          30 20    12 22 <--  Coppie Distanza 10
                     Seconda Ruota RO 53.81.14.11.04          14 04          <--  Coppia Distanza 10



                    Terne distanza 8 -->  30 22 14          20 12 04

***************************************************************************************** Casi Totali 0054
******************************************************************************** Estrazione 3028 caso 0001
 Estrazione n.3028 del 12.01.1929  FI 32.71.59.20.84          32 71    59 20 <--  Coppie Distanza 39
                     Seconda Ruota RO 83.89.44.85.54          83 44          <--  Coppia Distanza 39



                    Terne distanza 12 -->  20 32 44          59 71 83

***************************************************************************************** Casi Totali 0055
******************************************************************************** Estrazione 3087 caso 0001
 Estrazione n.3087 del 01.03.1930  TO 69.59.78.50.37          69 50    59 78 <--  Coppie Distanza 19
                     Seconda Ruota VE 65.15.60.41.20          60 41          <--  Coppia Distanza 19



                    Terne distanza 9 -->  78 69 60          59 50 41

***************************************************************************************** Casi Totali 0056
******************************************************************************** Estrazione 3127 caso 0001
 Estrazione n.3127 del 06.12.1930  BA 65.43.71.26.32          65 26    71 32 <--  Coppie Distanza 39
                     Seconda Ruota TO 29.38.35.77.44          38 77          <--  Coppia Distanza 39



                    Terne distanza 6 -->  65 71 77          26 32 38

***************************************************************************************** Casi Totali 0057
******************************************************************************** Estrazione 3131 caso 0001
 Estrazione n.3131 del 03.01.1931  PA 43.61.04.60.44          43 60    61 44 <--  Coppie Distanza 17
                     Seconda Ruota VE 28.45.62.43.89          45 62          <--  Coppia Distanza 17



                    Terne distanza 1 -->  43 44 45          60 61 62

***************************************************************************************** Casi Totali 0058
******************************************************************************** Estrazione 3224 caso 0001
 Estrazione n.3224 del 15.10.1932  FI 55.74.41.66.49          74 66    41 49 <--  Coppie Distanza 8
                     Seconda Ruota RO 23.24.16.65.12          24 16          <--  Coppia Distanza 8



                    Terne distanza 25 -->  74 49 24          66 41 16

***************************************************************************************** Casi Totali 0059
******************************************************************************** Estrazione 3233 caso 0001
 Estrazione n.3233 del 17.12.1932  FI 80.43.75.28.23          80 28    75 23 <--  Coppie Distanza 52
                     Seconda Ruota RO 61.85.90.18.70          18 70          <--  Coppia Distanza 52



                    Terne distanza 5 -->  80 75 70          28 23 18

***************************************************************************************** Casi Totali 0060
******************************************************************************** Estrazione 3358 caso 0001
 Estrazione n.3358 del 11.05.1935  PA 37.88.23.48.62          37 62    23 48 <--  Coppie Distanza 25
                     Seconda Ruota RO 51.53.76.87.19          51 76          <--  Coppia Distanza 25



                    Terne distanza 14 -->  23 37 51          48 62 76

***************************************************************************************** Casi Totali 0061
******************************************************************************** Estrazione 3433 caso 0001
 Estrazione n.3433 del 17.10.1936  FI 36.04.30.46.40          36 46    30 40 <--  Coppie Distanza 10
                     Seconda Ruota PA 24.33.34.39.88          24 34          <--  Coppia Distanza 10



                    Terne distanza 6 -->  36 30 24          46 40 34

***************************************************************************************** Casi Totali 0062
******************************************************************************** Estrazione 3481 caso 0001
 Estrazione n.3481 del 18.09.1937  MI 31.66.61.39.26          31 66    61 26 <--  Coppie Distanza 35
                     Seconda Ruota NA 05.66.43.36.71          36 71          <--  Coppia Distanza 35



                    Terne distanza 5 -->  26 31 36          61 66 71

***************************************************************************************** Casi Totali 0063
******************************************************************************** Estrazione 3537 caso 0001
 Estrazione n.3537 del 15.10.1938  RO 85.74.33.23.22          85 33    74 22 <--  Coppie Distanza 52
                     Seconda Ruota VE 39.02.48.63.11          63 11          <--  Coppia Distanza 52



                    Terne distanza 11 -->  85 74 63          33 22 11

***************************************************************************************** Casi Totali 0064
******************************************************************************** Estrazione 3588 caso 0001
 Estrazione n.3588 del 07.10.1939  GE 11.18.60.62.53          11 53    18 60 <--  Coppie Distanza 42
                     Seconda Ruota VE 09.25.76.53.67          25 67          <--  Coppia Distanza 42



                    Terne distanza 7 -->  11 18 25          53 60 67

***************************************************************************************** Casi Totali 0065
******************************************************************************** Estrazione 3598 caso 0001
 Estrazione n.3598 del 16.12.1939  MI 77.61.72.52.56          77 72    61 56 <--  Coppie Distanza 5
                     Seconda Ruota RO 86.60.90.45.40          45 40          <--  Coppia Distanza 5



                    Terne distanza 16 -->  77 61 45          72 56 40

***************************************************************************************** Casi Totali 0066
******************************************************************************** Estrazione 3602 caso 0001
 Estrazione n.3602 del 13.01.1940  CA 36.26.08.51.61          36 26    51 61 <--  Coppie Distanza 10
                     Seconda Ruota GE 76.69.77.75.86          76 86          <--  Coppia Distanza 10



                    Terne distanza 25 -->  36 61 86          26 51 76

***************************************************************************************** Casi Totali 0067
******************************************************************************** Estrazione 3679 caso 0001
 Estrazione n.3679 del 05.07.1941  CA 04.64.60.42.08          04 60    64 08 <--  Coppie Distanza 56
                     Seconda Ruota MI 40.78.68.12.18          68 12          <--  Coppia Distanza 56



                    Terne distanza 4 -->  04 08 12          60 64 68

***************************************************************************************** Casi Totali 0067
******************************************************************************** Estrazione 3693 caso 0001
 Estrazione n.3693 del 11.10.1941  BA 32.19.37.50.60          32 50    19 37 <--  Coppie Distanza 18
                     Seconda Ruota PA 20.45.85.63.36          45 63          <--  Coppia Distanza 18



                    Terne distanza 13 -->  19 32 45          37 50 63

***************************************************************************************** Casi Totali 0069
******************************************************************************** Estrazione 3702 caso 0001
 Estrazione n.3702 del 13.12.1941  CA 74.20.25.22.76          74 20    22 76 <--  Coppie Distanza 54
                     Seconda Ruota RO 75.78.56.24.11          78 24          <--  Coppia Distanza 54



                    Terne distanza 2 -->  74 76 78          20 22 24

***************************************************************************************** Casi Totali 0070
******************************************************************************** Estrazione 3717 caso 0001
 Estrazione n.3717 del 28.03.1942  CA 42.11.48.19.50          42 11    19 50 <--  Coppie Distanza 31
                     Seconda Ruota PA 34.67.03.47.36          34 03          <--  Coppia Distanza 31



                    Terne distanza 8 -->  50 42 34          19 11 03

***************************************************************************************** Casi Totali 0071
******************************************************************************** Estrazione 3735 caso 0001
 Estrazione n.3735 del 01.08.1942  FI 24.58.66.16.61          24 66    58 16 <--  Coppie Distanza 42
                     Seconda Ruota MI 46.64.74.32.67          74 32          <--  Coppia Distanza 42



                    Terne distanza 8 -->  16 24 32          58 66 74

***************************************************************************************** Casi Totali 0072
******************************************************************************** Estrazione 3755 caso 0001
 Estrazione n.3755 del 19.12.1942  BA 57.54.37.26.34          57 37    54 34 <--  Coppie Distanza 20
                     Seconda Ruota GE 60.72.79.15.40          60 40          <--  Coppia Distanza 20



                    Terne distanza 3 -->  54 57 60          34 37 40

***************************************************************************************** Casi Totali 0073
******************************************************************************** Estrazione 3765 caso 0001
 Estrazione n.3765 del 27.02.1943  GE 45.28.74.14.60          28 74    14 60 <--  Coppie Distanza 46
                     Seconda Ruota MI 34.79.88.42.14          88 42          <--  Coppia Distanza 46



                    Terne distanza 14 -->  14 28 42          60 74 88

***************************************************************************************** Casi Totali 0074
******************************************************************************** Estrazione 3799 caso 0001
 Estrazione n.3799 del 23.10.1943  GE 21.66.72.38.27          21 66    72 27 <--  Coppie Distanza 45
                     Seconda Ruota MI 84.65.78.60.33          78 33          <--  Coppia Distanza 45



                    Terne distanza 6 -->  21 27 33          66 72 78

***************************************************************************************** Casi Totali 0075
******************************************************************************** Estrazione 3814 caso 0001
 Estrazione n.3814 del 05.02.1944  GE 56.27.44.54.17          27 54    44 17 <--  Coppie Distanza 27
                     Seconda Ruota RO 69.24.84.34.07          34 07          <--  Coppia Distanza 27



                    Terne distanza 10 -->  27 17 07          54 44 34

***************************************************************************************** Casi Totali 0076
******************************************************************************** Estrazione 3818 caso 0001
 Estrazione n.3818 del 04.03.1944  MI 27.59.49.81.03          27 59    49 81 <--  Coppie Distanza 32
                     Seconda Ruota VE 05.06.58.37.61          05 37          <--  Coppia Distanza 32



                    Terne distanza 22 -->  49 27 05          81 59 37

***************************************************************************************** Casi Totali 0077
******************************************************************************** Estrazione 3840 caso 0001
 Estrazione n.3840 del 05.08.1944  MI 27.37.46.61.80          27 61    46 80 <--  Coppie Distanza 34
                     Seconda Ruota PA 08.01.42.43.85          08 42          <--  Coppia Distanza 34



                    Terne distanza 19 -->  46 27 08          80 61 42

***************************************************************************************** Casi Totali 0078
******************************************************************************** Estrazione 3853 caso 0001
 Estrazione n.3853 del 04.11.1944  TO 57.89.35.68.36          57 89    68 36 <--  Coppie Distanza 32
                     Seconda Ruota VE 15.47.27.44.60          15 47          <--  Coppia Distanza 32



                    Terne distanza 21 -->  57 36 15          89 68 47

***************************************************************************************** Casi Totali 0079
******************************************************************************** Estrazione 3928 caso 0001
 Estrazione n.3928 del 13.04.1946  CA 67.50.49.53.46          50 46    49 53 <--  Coppie Distanza 4
                     Seconda Ruota GE 10.72.47.42.43          47 43          <--  Coppia Distanza 4



                    Terne distanza 3 -->  53 50 47          49 46 43

***************************************************************************************** Casi Totali 0080
******************************************************************************** Estrazione 4019 caso 0001
 Estrazione n.4019 del 10.01.1948  CA 03.24.21.15.42          03 21    24 42 <--  Coppie Distanza 18
                     Seconda Ruota GE 45.39.18.42.63          45 63          <--  Coppia Distanza 18



                    Terne distanza 21 -->  03 24 45          21 42 63

***************************************************************************************** Casi Totali 0081
******************************************************************************** Estrazione 4035 caso 0001
 Estrazione n.4035 del 30.04.1948  MI 56.77.33.61.28          56 28    33 61 <--  Coppie Distanza 28
                     Seconda Ruota VE 40.38.25.76.66          38 66          <--  Coppia Distanza 28



                    Terne distanza 5 -->  56 61 66          28 33 38

***************************************************************************************** Casi Totali 0082
******************************************************************************** Estrazione 4063 caso 0001
 Estrazione n.4063 del 13.11.1948  BA 59.78.81.62.71          59 78    81 62 <--  Coppie Distanza 19
                     Seconda Ruota PA 55.75.32.56.66          75 56          <--  Coppia Distanza 19



                    Terne distanza 3 -->  62 59 56          81 78 75

***************************************************************************************** Casi Totali 0083
******************************************************************************** Estrazione 4083 caso 0001
 Estrazione n.4083 del 02.04.1949  BA 62.29.33.55.26          62 33    55 26 <--  Coppie Distanza 29
                     Seconda Ruota RO 06.76.61.19.48          19 48          <--  Coppia Distanza 29



                    Terne distanza 7 -->  62 55 48          33 26 19

***************************************************************************************** Casi Totali 0084
******************************************************************************** Estrazione 4092 caso 0001
 Estrazione n.4092 del 04.06.1949  CA 87.52.51.72.71          52 72    51 71 <--  Coppie Distanza 20
                     Seconda Ruota GE 53.58.45.73.27          53 73          <--  Coppia Distanza 20



                    Terne distanza 1 -->  51 52 53          71 72 73

***************************************************************************************** Casi Totali 0085
******************************************************************************** Estrazione 4154 caso 0001
 Estrazione n.4154 del 12.08.1950  FI 16.50.02.35.17          50 17    02 35 <--  Coppie Distanza 33
                     Seconda Ruota NA 04.32.64.65.45          32 65          <--  Coppia Distanza 33



                    Terne distanza 15 -->  35 50 65          02 17 32

***************************************************************************************** Casi Totali 0086
******************************************************************************** Estrazione 4156 caso 0001
 Estrazione n.4156 del 26.08.1950  NA 31.40.45.37.42          40 45    37 42 <--  Coppie Distanza 5
                     Seconda Ruota PA 20.82.39.34.36          39 34          <--  Coppia Distanza 5



                    Terne distanza 3 -->  40 37 34          45 42 39

***************************************************************************************** Casi Totali 0087
******************************************************************************** Estrazione 4172 caso 0001
 Estrazione n.4172 del 16.12.1950  CA 75.55.21.19.53          55 53    21 19 <--  Coppie Distanza 2
                     Seconda Ruota GE 30.10.87.72.89          87 89          <--  Coppia Distanza 2



                    Terne distanza 34 -->  21 55 89          19 53 87

***************************************************************************************** Casi Totali 0088
******************************************************************************** Estrazione 4297 caso 0001
 Estrazione n.4297 del 09.05.1953  FI 24.73.66.36.43          73 66    36 43 <--  Coppie Distanza 7
                     Seconda Ruota PA 06.14.90.13.72          06 13          <--  Coppia Distanza 7



                    Terne distanza 30 -->  73 43 13          66 36 06

***************************************************************************************** Casi Totali 0089
******************************************************************************** Estrazione 4373 caso 0001
 Estrazione n.4373 del 23.10.1954  BA 42.76.60.40.56          76 56    60 40 <--  Coppie Distanza 20
                     Seconda Ruota NA 03.53.24.48.44          24 44          <--  Coppia Distanza 20



                    Terne distanza 16 -->  76 60 44          56 40 24

***************************************************************************************** Casi Totali 0090
******************************************************************************** Estrazione 4625 caso 0001
 Estrazione n.4625 del 22.08.1959  CA 35.38.55.44.29          35 44    38 29 <--  Coppie Distanza 9
                     Seconda Ruota RO 50.41.44.58.70          50 41          <--  Coppia Distanza 9



                    Terne distanza 6 -->  29 35 41          38 44 50

***************************************************************************************** Casi Totali 0091
******************************************************************************** Estrazione 4700 caso 0001
 Estrazione n.4700 del 28.01.1961  GE 56.89.09.46.79          56 89    46 79 <--  Coppie Distanza 33
                     Seconda Ruota RO 42.73.30.69.36          69 36          <--  Coppia Distanza 33



                    Terne distanza 10 -->  56 46 36          89 79 69

***************************************************************************************** Casi Totali 0092
******************************************************************************** Estrazione 4735 caso 0001
 Estrazione n.4735 del 07.10.1961  FI 38.33.14.08.19          38 19    33 14 <--  Coppie Distanza 19
                     Seconda Ruota VE 43.70.49.24.35          43 24          <--  Coppia Distanza 19



                    Terne distanza 5 -->  33 38 43          14 19 24

***************************************************************************************** Casi Totali 0093
******************************************************************************** Estrazione 4739 caso 0001
 Estrazione n.4739 del 06.11.1961  RO 47.34.36.49.53          47 49    34 36 <--  Coppie Distanza 2
                     Seconda Ruota VE 70.48.17.60.62          60 62          <--  Coppia Distanza 2



                    Terne distanza 13 -->  34 47 60          36 49 62

***************************************************************************************** Casi Totali 0094
******************************************************************************** Estrazione 4759 caso 0001
 Estrazione n.4759 del 24.03.1962  BA 06.15.36.07.44          15 07    36 44 <--  Coppie Distanza 8
                     Seconda Ruota TO 73.08.65.15.54          73 65          <--  Coppia Distanza 8



                    Terne distanza 29 -->  15 44 73          07 36 65

***************************************************************************************** Casi Totali 0095
******************************************************************************** Estrazione 4776 caso 0001
 Estrazione n.4776 del 21.07.1962  BA 09.59.83.87.13          09 83    87 13 <--  Coppie Distanza 74
                     Seconda Ruota NA 05.79.37.64.65          05 79          <--  Coppia Distanza 74



                    Terne distanza 4 -->  13 09 05          87 83 79

***************************************************************************************** Casi Totali 0096
******************************************************************************** Estrazione 4903 caso 0001
 Estrazione n.4903 del 28.12.1964  FI 15.27.10.85.80          15 85    10 80 <--  Coppie Distanza 70
                     Seconda Ruota PA 44.56.08.05.75          05 75          <--  Coppia Distanza 70



                    Terne distanza 5 -->  15 10 05          85 80 75

***************************************************************************************** Casi Totali 0097
******************************************************************************** Estrazione 4943 caso 0001
 Estrazione n.4943 del 02.10.1965  BA 47.83.34.56.25          47 56    34 25 <--  Coppie Distanza 9
                     Seconda Ruota GE 08.36.69.78.20          69 78          <--  Coppia Distanza 9



                    Terne distanza 22 -->  25 47 69          34 56 78

***************************************************************************************** Casi Totali 0098
******************************************************************************** Estrazione 4952 caso 0001
 Estrazione n.4952 del 04.12.1965  CA 29.35.84.18.67          35 84    18 67 <--  Coppie Distanza 49
                     Seconda Ruota RO 35.44.01.32.50          01 50          <--  Coppia Distanza 49



                    Terne distanza 17 -->  35 18 01          84 67 50

***************************************************************************************** Casi Totali 0099
******************************************************************************** Estrazione 4956 caso 0001
 Estrazione n.4956 del 03.01.1966  BA 06.01.20.25.44          06 25    01 20 <--  Coppie Distanza 19
                     Seconda Ruota CA 68.20.31.30.11          30 11          <--  Coppia Distanza 19



                    Terne distanza 5 -->  01 06 11          20 25 30

***************************************************************************************** Casi Totali 0100
******************************************************************************** Estrazione 5034 caso 0001
 Estrazione n.5034 del 01.07.1967  FI 88.71.86.90.67          71 90    86 67 <--  Coppie Distanza 19
                     Seconda Ruota MI 58.05.39.63.82          63 82          <--  Coppia Distanza 19



                    Terne distanza 4 -->  71 67 63          90 86 82

***************************************************************************************** Casi Totali 0101
******************************************************************************** Estrazione 5088 caso 0001
 Estrazione n.5088 del 13.07.1968  NA 45.27.37.55.29          45 55    27 37 <--  Coppie Distanza 10
                     Seconda Ruota RO 17.63.80.73.68          63 73          <--  Coppia Distanza 10



                    Terne distanza 18 -->  27 45 63          37 55 73

***************************************************************************************** Casi Totali 0102
******************************************************************************** Estrazione 5089 caso 0001
 Estrazione n.5089 del 20.07.1968  CA 63.40.57.51.52          63 51    40 52 <--  Coppie Distanza 12
                     Seconda Ruota FI 62.74.69.87.46          62 74          <--  Coppia Distanza 12



                    Terne distanza 11 -->  52 63 74          40 51 62

***************************************************************************************** Casi Totali 0103
******************************************************************************** Estrazione 5093 caso 0001
 Estrazione n.5093 del 17.08.1968  FI 30.51.71.04.50          30 50    51 71 <--  Coppie Distanza 20
                     Seconda Ruota GE 09.73.29.02.42          09 29          <--  Coppia Distanza 20



                    Terne distanza 21 -->  51 30 09          71 50 29

***************************************************************************************** Casi Totali 0104
******************************************************************************** Estrazione 5130 caso 0001
 Estrazione n.5130 del 03.05.1969  CA 39.19.05.52.06          39 52    19 06 <--  Coppie Distanza 13
                     Seconda Ruota FI 85.66.72.65.17          85 72          <--  Coppia Distanza 13



                    Terne distanza 33 -->  06 39 72          19 52 85

***************************************************************************************** Casi Totali 0105
******************************************************************************** Estrazione 5269 caso 0001
 Estrazione n.5269 del 01.01.1972  BA 30.43.53.71.61          43 53    71 61 <--  Coppie Distanza 10
                     Seconda Ruota PA 57.79.89.54.65          79 89          <--  Coppia Distanza 10



                    Terne distanza 18 -->  43 61 79          53 71 89

***************************************************************************************** Casi Totali 0106
******************************************************************************** Estrazione 5271 caso 0001
 Estrazione n.5271 del 15.01.1972  BA 78.45.10.46.11          45 10    46 11 <--  Coppie Distanza 35
                     Seconda Ruota TO 47.60.54.12.24          47 12          <--  Coppia Distanza 35



                    Terne distanza 1 -->  45 46 47          10 11 12

***************************************************************************************** Casi Totali 0107
******************************************************************************** Estrazione 5282 caso 0001
 Estrazione n.5282 del 01.04.1972  NA 12.58.45.40.53          58 45    40 53 <--  Coppie Distanza 13
                     Seconda Ruota PA 07.41.63.50.42          63 50          <--  Coppia Distanza 13



                    Terne distanza 5 -->  53 58 63          40 45 50

***************************************************************************************** Casi Totali 0108
******************************************************************************** Estrazione 5320 caso 0001
 Estrazione n.5320 del 23.12.1972  GE 34.57.25.40.72          57 25    40 72 <--  Coppie Distanza 32
                     Seconda Ruota NA 27.64.55.25.87          55 87          <--  Coppia Distanza 32



                    Terne distanza 15 -->  57 72 87          25 40 55

***************************************************************************************** Casi Totali 0109
******************************************************************************** Estrazione 5328 caso 0001
 Estrazione n.5328 del 17.02.1973  MI 68.38.32.61.31          68 61    38 31 <--  Coppie Distanza 7
                     Seconda Ruota NA 18.03.01.67.08          01 08          <--  Coppia Distanza 7



                    Terne distanza 30 -->  68 38 08          61 31 01

***************************************************************************************** Casi Totali 0110
******************************************************************************** Estrazione 5394 caso 0001
 Estrazione n.5394 del 25.05.1974  GE 85.82.11.78.89          85 89    82 78 <--  Coppie Distanza 4
                     Seconda Ruota PA 41.75.54.71.31          75 71          <--  Coppia Distanza 4



                    Terne distanza 7 -->  85 78 71          89 82 75

***************************************************************************************** Casi Totali 0111
******************************************************************************** Estrazione 5397 caso 0001
 Estrazione n.5397 del 15.06.1974  BA 42.46.64.24.56          42 64    46 24 <--  Coppie Distanza 22
                     Seconda Ruota CA 26.80.06.28.15          06 28          <--  Coppia Distanza 22



                    Terne distanza 18 -->  42 24 06          64 46 28

***************************************************************************************** Casi Totali 0112
******************************************************************************** Estrazione 5421 caso 0001
 Estrazione n.5421 del 30.11.1974  BA 13.71.18.68.15          71 18    68 15 <--  Coppie Distanza 53
                     Seconda Ruota MI 37.12.81.50.65          12 65          <--  Coppia Distanza 53



                    Terne distanza 3 -->  71 68 65          18 15 12

***************************************************************************************** Casi Totali 0113
******************************************************************************** Estrazione 5447 caso 0001
 Estrazione n.5447 del 31.05.1975  PA 56.66.28.33.51          56 51    28 33 <--  Coppie Distanza 5
                     Seconda Ruota VE 79.55.67.74.29          79 74          <--  Coppia Distanza 5



                    Terne distanza 23 -->  33 56 79          28 51 74

***************************************************************************************** Casi Totali 0114
******************************************************************************** Estrazione 5599 caso 0001
 Estrazione n.5599 del 29.04.1978  NA 04.02.60.39.23          02 39    60 23 <--  Coppie Distanza 37
                     Seconda Ruota TO 11.31.44.81.61          44 81          <--  Coppia Distanza 37



                    Terne distanza 21 -->  02 23 44          39 60 81

***************************************************************************************** Casi Totali 0115
******************************************************************************** Estrazione 5614 caso 0001
 Estrazione n.5614 del 12.08.1978  MI 09.59.63.13.20          09 59    63 13 <--  Coppie Distanza 50
                     Seconda Ruota RO 83.04.30.17.67          17 67          <--  Coppia Distanza 50



                    Terne distanza 4 -->  09 13 17          59 63 67

***************************************************************************************** Casi Totali 0116
******************************************************************************** Estrazione 5722 caso 0001
 Estrazione n.5722 del 06.09.1980  MI 43.14.32.59.30          43 59    14 30 <--  Coppie Distanza 16
                     Seconda Ruota PA 11.72.88.16.18          72 88          <--  Coppia Distanza 16



                    Terne distanza 29 -->  14 43 72          30 59 88

***************************************************************************************** Casi Totali 0117
******************************************************************************** Estrazione 5724 caso 0001
 Estrazione n.5724 del 20.09.1980  MI 04.15.05.06.07          04 05    06 07 <--  Coppie Distanza 1
                     Seconda Ruota VE 51.34.02.03.25          02 03          <--  Coppia Distanza 1



                    Terne distanza 2 -->  06 04 02          07 05 03

***************************************************************************************** Casi Totali 0118
******************************************************************************** Estrazione 5767 caso 0001
 Estrazione n.5767 del 18.07.1981  PA 51.60.01.45.66          51 66    60 45 <--  Coppie Distanza 15
                     Seconda Ruota TO 39.54.29.85.38          39 54          <--  Coppia Distanza 15



                    Terne distanza 6 -->  51 45 39          66 60 54

***************************************************************************************** Casi Totali 00119
******************************************************************************** Estrazione 6833 caso 0001
 Estrazione n.6833 del 31.07.1999  MI 77.45.43.75.65          77 45    43 75 <--  Coppie Distanza 32
                     Seconda Ruota RO 73.29.14.71.41          73 41          <--  Coppia Distanza 32



                    Terne distanza 2 -->  77 75 73          45 43 41

***************************************************************************************** Casi Totali 0120
******************************************************************************** Estrazione 6859 caso 0001
 Estrazione n.6859 del 30.10.1999  GE 88.18.05.24.82          88 24    18 82 <--  Coppie Distanza 64
                     Seconda Ruota VE 76.31.83.12.39          76 12          <--  Coppia Distanza 64



                    Terne distanza 6 -->  88 82 76          24 18 12

***************************************************************************************** Casi Totali 0121
******************************************************************************** Estrazione 6866 caso 0001
 Estrazione n.6866 del 24.11.1999  RO 16.29.44.28.45          29 28    44 45 <--  Coppie Distanza 1
                     Seconda Ruota VE 85.20.60.78.61          60 61          <--  Coppia Distanza 1



                    Terne distanza 16 -->  29 45 61          28 44 60

***************************************************************************************** Casi Totali 0122
******************************************************************************** Estrazione 6878 caso 0001
 Estrazione n.6878 del 05.01.2000  MI 37.56.78.87.28          37 87    78 28 <--  Coppie Distanza 50
                     Seconda Ruota TO 14.19.18.08.69          19 69          <--  Coppia Distanza 50



                    Terne distanza 9 -->  37 28 19          87 78 69

***************************************************************************************** Casi Totali 0123
******************************************************************************** Estrazione 6910 caso 0001
 Estrazione n.6910 del 26.04.2000  CA 39.33.36.57.54          39 36    57 5433 36    57 54 <--  Coppie Distanza 3
                     Seconda Ruota NA 17.72.45.52.75          72 75          <--  Coppia Distanza 3



                    Terne distanza 18 -->  39 57 75          36 54 72

***************************************************************************************** Casi Totali 0124
******************************************************************************** Estrazione 6913 caso 0001
 Estrazione n.6913 del 06.05.2000  PA 85.42.56.71.89          85 56    42 71 <--  Coppie Distanza 29
                     Seconda Ruota VE 44.57.29.12.28          57 28          <--  Coppia Distanza 29



                    Terne distanza 14 -->  85 71 57          56 42 28

***************************************************************************************** Casi Totali 0125
******************************************************************************** Estrazione 6949 caso 0001
 Estrazione n.6949 del 09.09.2000  GE 63.09.74.60.49          63 49    74 60 <--  Coppie Distanza 14
                     Seconda Ruota PA 72.71.85.61.28          71 85          <--  Coppia Distanza 14



                    Terne distanza 11 -->  63 74 85          49 60 71

***************************************************************************************** Casi Totali 0126
******************************************************************************** Estrazione 6960 caso 0001
 Estrazione n.6960 del 18.10.2000  GE 38.06.44.29.23          38 44    29 23 <--  Coppie Distanza 6
                     Seconda Ruota TO 08.77.14.83.61          08 14          <--  Coppia Distanza 6



                    Terne distanza 15 -->  38 23 08          44 29 14

***************************************************************************************** Casi Totali 0127
******************************************************************************** Estrazione 7013 caso 0001
 Estrazione n.7013 del 21.04.2001  GE 79.46.01.48.03          46 01    48 03 <--  Coppie Distanza 45
                     Seconda Ruota VE 63.80.50.74.05          50 05          <--  Coppia Distanza 45



                    Terne distanza 2 -->  46 48 50          01 03 05

***************************************************************************************** Casi Totali 0128
******************************************************************************** Estrazione 7058 caso 0001
 Estrazione n.7058 del 26.09.2001  RO 14.13.02.11.16          14 11    13 16 <--  Coppie Distanza 3
                     Seconda Ruota VE 09.28.51.35.12          09 12          <--  Coppia Distanza 3



                    Terne distanza 2 -->  16 14 12          13 11 09

***************************************************************************************** Casi Totali 0129
******************************************************************************** Estrazione 7175 caso 0001
 Estrazione n.7175 del 06.11.2002  GE 25.34.39.48.77          25 34    39 48 <--  Coppie Distanza 9
                     Seconda Ruota PA 87.27.75.20.11          20 11          <--  Coppia Distanza 9



                    Terne distanza 14 -->  39 25 11          48 34 20

***************************************************************************************** Casi Totali 0130
******************************************************************************** Estrazione 7242 caso 0001
 Estrazione n.7242 del 11.06.2003  BA 32.38.28.34.78          32 28    38 34 <--  Coppie Distanza 4
                     Seconda Ruota MI 43.40.58.44.16          40 44          <--  Coppia Distanza 4



                    Terne distanza 6 -->  32 38 44          28 34 40

***************************************************************************************** Casi Totali 0131
******************************************************************************** Estrazione 7302 caso 0001
 Estrazione n.7302 del 07.01.2004  RO 41.56.61.76.44          41 61    56 76 <--  Coppie Distanza 20
                     Seconda Ruota TO 46.75.51.04.26          46 26          <--  Coppia Distanza 20



                    Terne distanza 15 -->  56 41 26          76 61 46

***************************************************************************************** Casi Totali 0132
******************************************************************************** Estrazione 7351 caso 0001
 Estrazione n.7351 del 26.06.2004  CA 64.09.41.10.42          09 41    10 42 <--  Coppie Distanza 32
                     Seconda Ruota NA 40.08.84.16.14          40 08          <--  Coppia Distanza 32



                    Terne distanza 1 -->  10 09 08          42 41 40

***************************************************************************************** Casi Totali 0133
******************************************************************************** Estrazione 7352 caso 0001
 Estrazione n.7352 del 30.06.2004  PA 68.44.53.55.42          44 55    53 42 <--  Coppie Distanza 11
                     Seconda Ruota VE 40.51.41.44.81          40 51          <--  Coppia Distanza 11



                    Terne distanza 2 -->  44 42 40          55 53 51

***************************************************************************************** Casi Totali 0134
******************************************************************************** Estrazione 7381 caso 0001
 Estrazione n.7381 del 09.10.2004  BA 65.73.88.80.22          65 73    88 80 <--  Coppie Distanza 8
                     Seconda Ruota NA 47.58.50.39.45          58 50          <--  Coppia Distanza 8



                    Terne distanza 15 -->  80 65 50          88 73 58

***************************************************************************************** Casi Totali 0135
******************************************************************************** Estrazione 7381 caso 0002
 Estrazione n.7381 del 09.10.2004  BA 65.73.88.80.22          65 80    73 88 <--  Coppie Distanza 15
                     Seconda Ruota MI 07.32.57.72.43          57 72          <--  Coppia Distanza 15



                    Terne distanza 8 -->  73 65 57          88 80 72

***************************************************************************************** Casi Totali 0136
******************************************************************************** Estrazione 7510 caso 0001
 Estrazione n.7510 del 29.10.2005  BA 48.55.43.33.21          55 33    43 21 <--  Coppie Distanza 22
                     Seconda Ruota CA 31.14.38.09.03          31 09          <--  Coppia Distanza 22



                    Terne distanza 12 -->  55 43 31          33 21 09

***************************************************************************************** Casi Totali 0137
******************************************************************************** Estrazione 7580 caso 0001
 Estrazione n.7580 del 11.04.2006  BA 44.54.72.82.86          44 54    72 82 <--  Coppie Distanza 10
                     Seconda Ruota RO 16.64.26.55.80          16 26          <--  Coppia Distanza 10



                    Terne distanza 28 -->  72 44 16          82 54 26

***************************************************************************************** Casi Totali 0138
******************************************************************************** Estrazione 7615 caso 0001
 Estrazione n.7615 del 01.07.2006  GE 46.29.17.54.25          46 54    17 25 <--  Coppie Distanza 8
                     Seconda Ruota PA 11.83.82.88.75          83 75          <--  Coppia Distanza 8



                    Terne distanza 29 -->  17 46 75          25 54 83

***************************************************************************************** Casi Totali 0139
******************************************************************************** Estrazione 7683 caso 0001
 Estrazione n.7683 del 07.12.2006  GE 80.89.73.63.90          80 90    73 63 <--  Coppie Distanza 10
                     Seconda Ruota TO 58.46.61.56.85          46 56          <--  Coppia Distanza 10



                    Terne distanza 17 -->  80 63 46          90 73 56

***************************************************************************************** Casi Totali 0140
******************************************************************************** Estrazione 7766 caso 0001
 Estrazione n.7766 del 19.06.2007  FI 65.37.53.49.43          65 49    37 53 <--  Coppie Distanza 16
                     Seconda Ruota TO 24.25.41.15.50          25 41          <--  Coppia Distanza 16



                    Terne distanza 12 -->  65 53 41          49 37 25

***************************************************************************************** Casi Totali 0141
******************************************************************************** Estrazione 7865 caso 0001
 Estrazione n.7865 del 05.02.2008  PA 75.72.43.41.40          75 43    72 40 <--  Coppie Distanza 32
                     Seconda Ruota RO 87.69.44.68.37          69 37          <--  Coppia Distanza 32



                    Terne distanza 3 -->  75 72 69          43 40 37

***************************************************************************************** Casi Totali 0142
******************************************************************************** Estrazione 7878 caso 0001
 Estrazione n.7878 del 06.03.2008  MI 61.47.32.46.44          61 47    32 46 <--  Coppie Distanza 14
                     Seconda Ruota RO 16.76.62.03.54          76 62          <--  Coppia Distanza 14



                    Terne distanza 15 -->  46 61 76          32 47 62

***************************************************************************************** Casi Totali 0143
******************************************************************************** Estrazione 7886 caso 0001
 Estrazione n.7886 del 25.03.2008  FI 79.36.55.35.16          36 55    35 16 <--  Coppie Distanza 19
                     Seconda Ruota NA 36.27.56.25.75          56 75          <--  Coppia Distanza 19



                    Terne distanza 20 -->  16 36 56          35 55 75

***************************************************************************************** Casi Totali 0144
******************************************************************************** Estrazione 7959 caso 0001
 Estrazione n.7959 del 11.09.2008  CA 70.54.52.72.42          70 72    54 52 <--  Coppie Distanza 2
                     Seconda Ruota MI 31.37.36.70.34          36 34          <--  Coppia Distanza 2



                    Terne distanza 18 -->  70 52 34          72 54 36

***************************************************************************************** Casi Totali 0145
******************************************************************************** Estrazione 7966 caso 0001
 Estrazione n.7966 del 27.09.2008  PA 60.43.44.88.89          43 88    44 89 <--  Coppie Distanza 45
                     Seconda Ruota RO 55.47.42.66.87          42 87          <--  Coppia Distanza 45



                    Terne distanza 1 -->  44 43 42          89 88 87

***************************************************************************************** Casi Totali 0146
******************************************************************************** Estrazione 8003 caso 0001
 Estrazione n.8003 del 23.12.2008  BA 66.61.53.74.18          66 74    61 53 <--  Coppie Distanza 8
                     Seconda Ruota TO 01.79.87.26.13          79 87          <--  Coppia Distanza 8



                    Terne distanza 13 -->  53 66 79          61 74 87

***************************************************************************************** Casi Totali 0147
******************************************************************************** Estrazione 8035 caso 0001
 Estrazione n.8035 del 07.03.2009  BA 77.85.71.19.11          77 11    85 19 <--  Coppie Distanza 66
                     Seconda Ruota TO 19.20.03.69.49          03 69          <--  Coppia Distanza 66



                    Terne distanza 8 -->  85 77 69          19 11 03

***************************************************************************************** Casi Totali 0148
******************************************************************************** Estrazione 8062 caso 0001
 Estrazione n.8062 del 09.05.2009  CA 65.79.31.45.71          65 31    79 45 <--  Coppie Distanza 34
                     Seconda Ruota GE 24.17.61.50.51          17 51          <--  Coppia Distanza 34



                    Terne distanza 14 -->  79 65 51          45 31 17

***************************************************************************************** Casi Totali 0149
******************************************************************************** Estrazione 8074 caso 0001
 Estrazione n.8074 del 06.06.2009  PA 08.65.31.04.35          08 04    31 35 <--  Coppie Distanza 4
                     Seconda Ruota TO 58.39.22.80.62          58 62          <--  Coppia Distanza 4



                    Terne distanza 27 -->  08 35 62          04 31 58

***************************************************************************************** Casi Totali 0150
******************************************************************************** Estrazione 8110 caso 0001
 Estrazione n.8110 del 29.08.2009  FI 57.51.83.82.76          57 82    51 76 <--  Coppie Distanza 25
                     Seconda Ruota NA 20.70.79.39.45          70 45          <--  Coppia Distanza 25



                    Terne distanza 6 -->  57 51 45          82 76 70

***************************************************************************************** Casi Totali 0151
******************************************************************************** Estrazione 8126 caso 0001
 Estrazione n.8126 del 06.10.2009  BA 34.40.33.15.27          34 27    40 33 <--  Coppie Distanza 7
                     Seconda Ruota GE 49.14.21.28.37          21 28          <--  Coppia Distanza 7



                    Terne distanza 6 -->  40 34 28          33 27 21

***************************************************************************************** Casi Totali 0152
******************************************************************************** Estrazione 8128 caso 0001
 Estrazione n.8128 del 10.10.2009  GE 16.72.67.65.60          72 67    65 60 <--  Coppie Distanza 5
                     Seconda Ruota VE 09.37.79.74.55          79 74          <--  Coppia Distanza 5



                    Terne distanza 7 -->  65 72 79          60 67 74

***************************************************************************************** Casi Totali 0153
******************************************************************************** Estrazione 8196 caso 0001
 Estrazione n.8196 del 18.03.2010  FI 04.20.44.02.62          20 62    44 02 <--  Coppie Distanza 42
                     Seconda Ruota MI 77.22.48.38.80          38 80          <--  Coppia Distanza 42



                    Terne distanza 18 -->  02 20 38          44 62 80

***************************************************************************************** Casi Totali 0154
******************************************************************************** Estrazione 8235 caso 0001
 Estrazione n.8235 del 17.06.2010  CA 22.32.45.55.69          22 45    32 55 <--  Coppie Distanza 23
                     Seconda Ruota PA 12.22.35.65.75          12 35          <--  Coppia Distanza 23



                    Terne distanza 10 -->  32 22 12          55 45 35

***************************************************************************************** Casi Totali 0155
******************************************************************************** Estrazione 8301 caso 0001
 Estrazione n.8301 del 18.11.2010  BA 03.08.24.46.41          03 41    08 46 <--  Coppie Distanza 38
                     Seconda Ruota MI 13.42.03.50.51          13 51          <--  Coppia Distanza 38



                    Terne distanza 5 -->  03 08 13          41 46 51

***************************************************************************************** Casi Totali 0156
******************************************************************************** Estrazione 8309 caso 0001
 Estrazione n.8309 del 07.12.2010  FI 70.66.38.81.34          70 38    66 34 <--  Coppie Distanza 32
                     Seconda Ruota RO 30.77.62.86.39          30 62          <--  Coppia Distanza 32



                    Terne distanza 4 -->  70 66 62          38 34 30

***************************************************************************************** Casi Totali 0157
******************************************************************************** Estrazione 8348 caso 0001
 Estrazione n.8348 del 08.03.2011  PA 65.58.78.35.85          65 85    58 78 <--  Coppie Distanza 20
                     Seconda Ruota RO 51.37.48.18.71          51 71          <--  Coppia Distanza 20



                    Terne distanza 7 -->  65 58 51          85 78 71

***************************************************************************************** Casi Totali 0158
******************************************************************************** Estrazione 8352 caso 0001
 Estrazione n.8352 del 18.03.2011  PA 61.18.11.15.64          61 15    18 64 <--  Coppie Distanza 46
                     Seconda Ruota TO 67.05.21.13.33          67 21          <--  Coppia Distanza 46



                    Terne distanza 3 -->  61 64 67          15 18 21

***************************************************************************************** Casi Totali 0159
******************************************************************************** Estrazione 8369 caso 0001
 Estrazione n.8369 del 26.04.2011  RO 32.63.24.67.59          32 67    24 59 <--  Coppie Distanza 35
                     Seconda Ruota TO 51.48.32.16.33          51 16          <--  Coppia Distanza 35



                    Terne distanza 8 -->  32 24 16          67 59 51

***************************************************************************************** Casi Totali 0160
******************************************************************************** Estrazione 8395 caso 0001
 Estrazione n.8395 del 25.06.2011  CA 19.40.14.74.79          19 79    14 74 <--  Coppie Distanza 60
                     Seconda Ruota GE 69.79.82.51.09          69 09          <--  Coppia Distanza 60



                    Terne distanza 5 -->  19 14 09          79 74 69

***************************************************************************************** Casi Totali 0161
******************************************************************************** Estrazione 8398 caso 0001
 Estrazione n.8398 del 02.07.2011  PA 10.19.77.43.52          10 43    19 52 <--  Coppie Distanza 33
                     Seconda Ruota RO 11.48.61.28.15          61 28          <--  Coppia Distanza 33



                    Terne distanza 9 -->  10 19 28          43 52 61

***************************************************************************************** Casi Totali 0162
******************************************************************************** Estrazione 8462 caso 0001
 Estrazione n.8462 del 29.11.2011  PA 51.27.55.62.23          51 23    27 55 <--  Coppie Distanza 28
                     Seconda Ruota TO 86.06.31.04.59          31 59          <--  Coppia Distanza 28



                    Terne distanza 4 -->  51 55 59          23 27 31

***************************************************************************************** Casi Totali 0163
******************************************************************************** Estrazione 8489 caso 0001
 Estrazione n.8489 del 31.01.2012  BA 44.43.18.17.20          44 18    43 17 <--  Coppie Distanza 26
                     Seconda Ruota VE 87.21.34.42.16          42 16          <--  Coppia Distanza 26



                    Terne distanza 1 -->  44 43 42          18 17 16

***************************************************************************************** Casi Totali 0164
******************************************************************************** Estrazione 8524 caso 0001
 Estrazione n.8524 del 21.04.2012  NA 23.05.20.26.08          23 08    05 20 <--  Coppie Distanza 15
                     Seconda Ruota PA 17.48.44.02.58          17 02          <--  Coppia Distanza 15



                    Terne distanza 3 -->  23 20 17          08 05 02

***************************************************************************************** Casi Totali 0165
******************************************************************************** Estrazione 8551 caso 0001
 Estrazione n.8551 del 23.06.2012  TO 77.46.74.49.68          77 49    46 74 <--  Coppie Distanza 28
                     Seconda Ruota VE 71.05.18.24.43          71 43          <--  Coppia Distanza 28



                    Terne distanza 3 -->  77 74 71          49 46 43

***************************************************************************************** Casi Totali 0166
******************************************************************************** Estrazione 8580 caso 0001
 Estrazione n.8580 del 30.08.2012  BA 26.83.90.72.79          83 90    72 79 <--  Coppie Distanza 7
                     Seconda Ruota MI 81.68.62.54.61          68 61          <--  Coppia Distanza 7



                    Terne distanza 11 -->  83 72 61          90 79 68

***************************************************************************************** Casi Totali 0167
******************************************************************************** Estrazione 8599 caso 0001
 Estrazione n.8599 del 13.10.2012  MI 84.20.67.18.86          84 18    20 86 <--  Coppie Distanza 66
                     Seconda Ruota NA 35.20.16.82.69          16 82          <--  Coppia Distanza 66



                    Terne distanza 2 -->  86 84 82          20 18 16

***************************************************************************************** Casi Totali 0168
******************************************************************************** Estrazione 8625 caso 0001
 Estrazione n.8625 del 13.12.2012  GE 49.79.69.70.80          79 69    70 80 <--  Coppie Distanza 10
                     Seconda Ruota TO 89.81.34.71.04          81 71          <--  Coppia Distanza 10



                    Terne distanza 1 -->  79 80 81          69 70 71

***************************************************************************************** Casi Totali 0169
******************************************************************************** Estrazione 8634 caso 0001
 Estrazione n.8634 del 03.01.2013  FI 52.47.58.83.53          52 58    47 53 <--  Coppie Distanza 6
                     Seconda Ruota VE 48.19.42.66.03          48 42          <--  Coppia Distanza 6



                    Terne distanza 5 -->  52 47 42          58 53 48

***************************************************************************************** Casi Totali 0170
******************************************************************************** Estrazione 8792 caso 0001
 Estrazione n.8792 del 07.01.2014  PA 60.65.76.71.79          60 65    76 71 <--  Coppie Distanza 5
                     Seconda Ruota VE 82.47.52.10.87          82 87          <--  Coppia Distanza 5



                    Terne distanza 11 -->  60 71 82          65 76 87

***************************************************************************************** Casi Totali 0171
******************************************************************************** Estrazione 8793 caso 0001
 Estrazione n.8793 del 09.01.2014  BA 81.72.13.76.67          81 72    76 67 <--  Coppie Distanza 9
                     Seconda Ruota MI 42.66.71.62.27          71 62          <--  Coppia Distanza 9



                    Terne distanza 5 -->  81 76 71          72 67 62

***************************************************************************************** Casi Totali 0172
******************************************************************************** Estrazione 8793 caso 0002
 Estrazione n.8793 del 09.01.2014  BA 81.72.13.76.67          81 72    76 67 <--  Coppie Distanza 9
                     Seconda Ruota TO 69.71.86.77.57          86 77          <--  Coppia Distanza 9



                    Terne distanza 5 -->  81 76 71          72 67 62        76 81 86          67 72 77

***************************************************************************************** Casi Totali 0173
******************************************************************************** Estrazione 8808 caso 0001
 Estrazione n.8808 del 13.02.2014  FI 30.54.16.40.02          30 54    16 40 <--  Coppie Distanza 24
                     Seconda Ruota GE 68.47.44.86.48          68 44          <--  Coppia Distanza 24



                    Terne distanza 14 -->  16 30 44          40 54 68

***************************************************************************************** Casi Totali 0174
******************************************************************************** Estrazione 8833 caso 0001
 Estrazione n.8833 del 12.04.2014  NA 36.29.49.42.74          36 49    29 42 <--  Coppie Distanza 13
                     Seconda Ruota PA 60.22.35.09.61          22 35          <--  Coppia Distanza 13



                    Terne distanza 7 -->  36 29 22          49 42 35

***************************************************************************************** Casi Totali 0175
******************************************************************************** Estrazione 8840 caso 0001
 Estrazione n.8840 del 29.04.2014  CA 01.05.17.74.78          01 74    05 78 <--  Coppie Distanza 73
                     Seconda Ruota VE 82.81.27.09.39          82 09          <--  Coppia Distanza 73



                    Terne distanza 4 -->  01 05 09          74 78 82

***************************************************************************************** Casi Totali 0176
******************************************************************************** Estrazione 8846 caso 0001
 Estrazione n.8846 del 13.05.2014  PA 30.39.78.37.76          39 78    37 76 <--  Coppie Distanza 39
                     Seconda Ruota RO 71.41.80.18.64          41 80          <--  Coppia Distanza 39



                    Terne distanza 2 -->  37 39 41          76 78 80

***************************************************************************************** Casi Totali 0177
******************************************************************************** Estrazione 8887 caso 0001
 Estrazione n.8887 del 16.08.2014  FI 59.55.34.64.25          55 25    34 64 <--  Coppie Distanza 30
                     Seconda Ruota VE 39.43.58.73.68          43 73          <--  Coppia Distanza 30



                    Terne distanza 9 -->  25 34 43          55 64 73

***************************************************************************************** Casi Totali 0178
******************************************************************************** Estrazione 8902 caso 0001
 Estrazione n.8902 del 20.09.2014  FI 39.47.70.10.18          39 47    10 18 <--  Coppie Distanza 8
                     Seconda Ruota GE 68.80.76.15.56          68 76          <--  Coppia Distanza 8



                    Terne distanza 29 -->  10 39 68          18 47 76

***************************************************************************************** Casi Totali 0179
******************************************************************************** Estrazione 8984 caso 0001
 Estrazione n.8984 del 31.03.2015  CA 58.54.46.38.74          58 38    54 74 <--  Coppie Distanza 20
                     Seconda Ruota TO 89.60.22.42.33          22 42          <--  Coppia Distanza 20



                    Terne distanza 16 -->  74 58 42          54 38 22

***************************************************************************************** Casi Totali 0180
******************************************************************************** Estrazione 9083 caso 0001
 Estrazione n.9083 del 17.11.2015  NA 28.23.38.34.44          28 34    38 44 <--  Coppie Distanza 6
                     Seconda Ruota RO 48.67.18.11.54          48 54          <--  Coppia Distanza 6



                    Terne distanza 10 -->  28 38 48          34 44 54

***************************************************************************************** Casi Totali 0181
******************************************************************************** Estrazione 9128 caso 0001
 Estrazione n.9128 del 01.03.2016  BA 30.47.79.10.67          30 67    47 10 <--  Coppie Distanza 37
                     Seconda Ruota FI 78.50.55.82.87          50 87          <--  Coppia Distanza 37



                    Terne distanza 20 -->  10 30 50          47 67 87

***************************************************************************************** Casi Totali 0182
******************************************************************************** Estrazione 9128 caso 0002
 Estrazione n.9128 del 01.03.2016  FI 78.50.55.82.87          50 82    55 87 <--  Coppie Distanza 32
                     Seconda Ruota PA 45.01.61.26.77          45 77          <--  Coppia Distanza 32



                    Terne distanza 5 -->  55 50 45          87 82 77

***************************************************************************************** Casi Totali 0183
******************************************************************************** Estrazione 9162 caso 0001
 Estrazione n.9162 del 19.05.2016  NA 74.67.47.61.68          74 68    67 61 <--  Coppie Distanza 6
                     Seconda Ruota VE 15.48.32.75.81          75 81          <--  Coppia Distanza 6



                    Terne distanza 7 -->  67 74 81          61 68 75

***************************************************************************************** Casi Totali 0184
******************************************************************************** Estrazione 9223 caso 0001
 Estrazione n.9223 del 08.10.2016  MI 43.50.63.70.62          43 50    63 70 <--  Coppie Distanza 7
                     Seconda Ruota PA 85.90.83.58.79          90 83          <--  Coppia Distanza 7



                    Terne distanza 20 -->  43 63 83          50 70 90

***************************************************************************************** Casi Totali 0185
******************************************************************************** Estrazione 9231 caso 0001
 Estrazione n.9231 del 27.10.2016  NA 58.45.43.23.30          58 45    43 30 <--  Coppie Distanza 13
                     Seconda Ruota RO 53.85.60.20.73          60 73          <--  Coppia Distanza 13



                    Terne distanza 15 -->  43 58 73          30 45 60

***************************************************************************************** Casi Totali 0186
******************************************************************************** Estrazione 9244 caso 0001
 Estrazione n.9244 del 26.11.2016  BA 02.05.28.03.31          02 28    05 31 <--  Coppie Distanza 26
                     Seconda Ruota VE 08.22.26.34.48          08 34          <--  Coppia Distanza 26



                    Terne distanza 3 -->  02 05 08          28 31 34

***************************************************************************************** Casi Totali 0187
******************************************************************************** Estrazione 9314 caso 0001
 Estrazione n.9314 del 09.05.2017  BA 39.50.71.36.82          39 71    50 82 <--  Coppie Distanza 32
                     Seconda Ruota PA 65.28.42.60.53          28 60          <--  Coppia Distanza 32



                    Terne distanza 11 -->  50 39 28          82 71 60

***************************************************************************************** Casi Totali 0188
******************************************************************************** Estrazione 9316 caso 0001
 Estrazione n.9316 del 13.05.2017  GE 44.72.76.48.60          44 72    76 48 <--  Coppie Distanza 28
                     Seconda Ruota PA 15.64.14.40.68          40 68          <--  Coppia Distanza 28



                    Terne distanza 4 -->  48 44 40          76 72 68

***************************************************************************************** Casi Totali 0189
******************************************************************************** Estrazione 9371 caso 0001
 Estrazione n.9371 del 19.09.2017  RO 15.67.18.47.44          15 44    18 47 <--  Coppie Distanza 29
                     Seconda Ruota TO 24.12.41.81.08          12 41          <--  Coppia Distanza 29



                    Terne distanza 3 -->  18 15 12          47 44 41
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti!

Stò facendo un'altro script sul QUADRATO DIAMETRALE che è il continuo di quello postato sopra, in questo script inserisco tramite imput-box i 2 numeri medi trovati nell'altro script e se c'è una distanza comune nei 2 numeri medi, vengono fuori 4 numeri giocabili, come da articolo, lo posterò in seguito perchè ancora non è perfetto, e voglio continuare con altri script, quindi lascio questo post in sospeso.
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
IL TESORO CABALISTICO - LORD BYRON

Il tesoro cabalistico (Lord Byron) - C. Tedesco.jpg

Codice:
 'Progetto - BYRON
'Script   - by Salvo50
Option Explicit
Sub Main
    Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
    Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5
    Dim R1,Es,CLP,Esq,Caso,Casi
    Dim S1,S2,S3,S4,S5,S6,S10,S11,S12
    Dim FIn,Ini,Ruote(10),Posta(1)
    Dim Idestr,Col,Esqcol,Ambata(1)
    Posta(1) = 1
    FIn = EstrazioneFin
    Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Idestr,8000)
    CLP = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,13))
    Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,FIn))
    Esqcol = Esq + Col
    If Esqcol > FIn Then Esqcol = FIn
    For Es = Esq To Esqcol
        Caso = 0
        AvanzamentoElab Esq,Esqcol,Es
        For R1 = 1 To 10
            A1 = Estratto(Es,R1,1) : If A1 > 0 Then
            A2 = Estratto(Es,R1,2)
            A3 = Estratto(Es,R1,3)
            A4 = Estratto(Es,R1,4)
            A5 = Estratto(Es,R1,5)
            B1 = Estratto(Es + 1,R1,1)
            B2 = Estratto(Es + 1,R1,2)
            B3 = Estratto(Es + 1,R1,3)
            B4 = Estratto(Es + 1,R1,4)
            B5 = Estratto(Es + 1,R1,5)
            '-----------------------------------------
            S1 = Fuori90(A1 + A2 + A3 + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
            S2 = Fuori90(A2 + A3 + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
            S3 = Fuori90(A3 + A4 + A5 + B1 + B2) : If S3 < 10 Then S3 = S3 + 90
            S4 = Fuori90(A4 + A5 + B1 + B2 + B3) : If S4 < 10 Then S4 = S4 + 90
            S5 = Fuori90(A5 + B1 + B2 + B3 + B4) : If S5 < 10 Then S5 = S5 + 90
            S6 = Fuori90(B1 + B2 + B3 + B4 + B5) : If S6 < 10 Then S6 = S6 + 90
            D1 = Fuori90(90 +(A1 - A2))
            D2 = Fuori90(90 +(A2 - A3))
            D3 = Fuori90(90 +(A3 - A4))
            D4 = Fuori90(90 +(A4 - A5))
            D5 = Fuori90(90 +(A5 - B1))
            D6 = Fuori90(90 +(B1 - B2))
            '----------------------------
            D7 = Fuori90(90 +(A5 - B1)) : If D7 < 10 Then D7 = D7 + 90
            D8 = Fuori90(90 +(B1 - B2)) : If D8 < 10 Then D8 = D8 + 90
            D9 = Fuori90(90 +(B2 - B3)) : If D9 < 10 Then D9 = D9 + 90
            D10 = Fuori90(90 +(B3 - B4)) : If D10 < 10 Then D10 = D10 + 90
            D11 = Fuori90(90 +(B4 - B5)) : If D11 < 10 Then D11 = D11 + 90
            S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11)
            Ambata(1) = Fuori90(S10 + B1)
            S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6)
            S12 = Fuori90(S11 + S10)
            If S12 = 90 Then
                Caso = Caso + 1
                Casi = Casi + 1
                ColoreTesto 1
                Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                ColoreTesto 2
                Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                ColoreTesto 0
                Scrivi(" Estrazione n." & FormattaStringa(Es,"0000") & " del " & DataEstrazione(Es)),1,0
                Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
                Scrivi(" Estrazione n." & FormattaStringa(Es + 1,"0000") & " del " & DataEstrazione(Es + 1)),1,0
                Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 1,R1),1
                Scrivi
                Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1,0
                Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " -  Distanze " & Format2(D1),1,0
                Scrivi " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4) & " " & Format2(D5) & " " & Format2(D6),1
                Scrivi Space(20) & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1,0
                Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
                Scrivi Space(20) & Format2(A3) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
                Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & Space(33) & "Somma Distanze = ",1,0
                ColoreTesto 1
                Scrivi Format2(S10),1
                ColoreTesto 0
                Scrivi Space(20) & Format2(A4) & " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1,0
                Scrivi " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
                Scrivi Space(20) & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1,0
                Scrivi " " & Format2(B4) & " " & Format2(B5),1,0
                ColoreTesto 2
                Scrivi " " & Format2(Ambata(1)),1,0
                ColoreTesto 0
                Scrivi " -  Distanze " & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
                Scrivi Space(20) & String(20,"-")
                Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
                Scrivi " " & Format2(S5) & " " & Format2(S6) & "    -  Somma delle somme ",1,0
                ColoreTesto 1
                Scrivi Format2(S11),1
                ColoreTesto 0
                Scrivi
                Scrivi Space(20) & Format2(S10) & " + " & Format2(S11) & " = " & Format2(S12) & " Equazione Perfetta",1
                Scrivi
                '---------------------------------------------------------------------------------------------------
                Ruote(1) = R1
                ImpostaGiocata 1,Ambata,Ruote,Posta,CLP,1
                Gioca Es
            End If
        End If
    Next
    If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi Space(50) & "Progetto - Lord Byron - "
Scrivi Space(50) & "Script   - by Salvo50"
End Sub
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto