Listato per il triangolo bomba

[tiberio1]

Ne conservo altri ne postero' piu' avanti sono ottime condizioni da non perdere certamente gradirei un aiuto per i listati ma con calma grazie

 

[tiberio1]

Ne conservo altri ne postero' piu' avanti sono ottime condizioni da non perdere certamente gradirei un aiuto per i listati ma con calma grazie

Utilizzare tutte le figure da impostare..

 

[salvo50]

Ciao a Tutti.

MRK1, Rudivall, Tiberio1,Virtualhuman, Xeroxs.

Grazie

Dall'immagine si deduce, che oltre hai 4 numeri che compongono la figura, ce ne deve essere un altro uguale ad uno qualsiasi dei 3 dell'altra ruota, facendo lo script con questo criterio, nelle varie estrazioni di combinazioni ne vengono poche, partendo dall'estrazione n1 , quindi per più di 9900 estrazioni, sono risultate solo 224 estrazioni giocabili, quindi poco più di una giocata ogni 44 estrazioni, quindi ho fatto 2 script, uno con il criterio del numero doppio e l'altro senza.
Alla terza domanda rispondendo con un numero diverso da 1 si possono eliminare i cerchi ciclometrici, per rendere più veloce gli script.

Riguardo alla richiesta di utilizzare tutte le figure, spiegati meglio magari con qualche esempio, perchè non ho capito cosa intendi.

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,E,Clp,Es,Cer,Salvo50
   Dim R1,R2,P1,P2,P3,P4,P5,P6,P7,E1,E2
   Dim DM12,DM23,DM34,DM41,Caso,Casi
   Dim Somma1,Somma2,Somma3,H1,H2,H3
   Dim Ambata(1),Ambo1(2),Ambo2(2),Ruote(4),Ter(3)
   Dim Ruo(2),Po1(1),Po2(2),Po3(3),L(4),N(6),M(4)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9768))'9768 esempio nell'articolo
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,17))
   Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(20) & "LA BOMBA di ANGELO GARGIULO - SCRIPT SALVO50" & Space(21),1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   Po3(2) = 1
   'Po3(3) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 3
            For P2 = P1 + 1 To 4
               For P3 = P2 + 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  C = Estratto(Es,R1,P3)
                  For R2 = + 1 To 12
                     If R2 <> R1 Then
                        If R2 = 11 Then R2 = 12
                        For P4 = 1 To 4
                           For P5 = P4 + 1 To 5
                              D = Estratto(Es,R2,P4)
                              E = Estratto(Es,R2,P5)
                              If A > 0 And D > 0 Then
                                 If((D <> A And D <> B And D <> C) And(E = A Or E = B Or E = C))_
                                    Or((E <> A And E <> B And E <> C) And(D = A Or D = B Or D = C)) Then
                                    If((D <> A And D <> B And D <> C) And(E = A Or E = B Or E = C))Then M(1) = A : M(2) = B : M(3) = C : M(4) = D
                                    If((E <> A And E <> B And E <> C) And(D = A Or D = B Or D = C)) Then M(1) = A : M(2) = B : M(3) = C : M(4) = E
                                    Call OrdinaMatrice(M,1)
                                    'M1--M2
                                    '|   |
                                    'M4--M3
                                    DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
                                    DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
                                    If DM12 = 9 And DM23 = 9 And DM34 = 36 And DM41 = 36 _
                                       Or DM12 = 9 And DM23 = 36 And DM34 = 36 And DM41 = 9 _
                                       Or DM12 = 36 And DM23 = 36 And DM34 = 9 And DM41 = 9 _
                                       Or DM12 = 36 And DM23 = 9 And DM34 = 9 And DM41 = 36 Then
                                       '---------------------------------
                                       If DM12 = 9 And DM23 = 9 And DM34 = 36 And DM41 = 36 Then
                                          L(1) = Fuori90(M(2) + 36)
                                          Call Tiberio1(L)
                                          H1 = M(3) : H2 = M(2) : H3 = M(1)
                                       End If
                                       If DM12 = 9 And DM23 = 36 And DM34 = 36 And DM41 = 9 Then
                                          L(1) = Fuori90(M(1) + 36)
                                          Call Tiberio1(L)
                                          H1 = M(2) : H2 = M(1) : H3 = M(4)
                                       End If
                                       If DM12 = 36 And DM23 = 36 And DM34 = 9 And DM41 = 9 Then
                                          L(1) = Fuori90(M(4) + 36)
                                          Call Tiberio1(L)
                                          H1 = M(1) : H2 = M(4) : H3 = M(3)
                                       End If
                                       If DM12 = 36 And DM23 = 9 And DM34 = 9 And DM41 = 36 Then
                                          L(1) = Fuori90(M(3) + 36)
                                          Call Tiberio1(L)
                                          H1 = M(4) : H2 = M(3) : H3 = M(2)
                                       End If
                                       Somma1 = Fuori90(H1 + L(1))
                                       Somma2 = Fuori90(H2 + L(2))
                                       Somma3 = Fuori90(H3 + L(3))
                                       Ambata(1) = Somma1
                                       Ambo1(1) = Somma1 : Ambo1(2) = L(1)
                                       Ambo2(1) = Somma1 : Ambo2(2) = L(3)
                                       Ter(1) = Somma1 : Ter(2) = L(1) : Ter(3) = L(3)
                                       Caso = Caso + 1
                                       Casi = Casi + 1
                                       Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                       Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                       Scrivi
                                       ReDim MatrCasella(5,1)
                                       MatrCasella(1,0) = R1' ruota
                                       MatrCasella(1,1) = P1
                                       MatrCasella(2,0) = R1
                                       MatrCasella(2,1) = P2
                                       MatrCasella(3,0) = R1
                                       MatrCasella(3,1) = P3
                                       MatrCasella(4,0) = R2
                                       MatrCasella(4,1) = P4
                                       MatrCasella(5,0) = R2
                                       MatrCasella(5,1) = P5
                                       Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
                                       Scrivi
                                       Scrivi Space(20) & Format2(H1) & " + " & Format2(L(1)) & " = " & Format2(Somma1),1
                                       Scrivi Space(20) & Format2(H2) & " + " & Format2(L(2)) & " = " & Format2(Somma2),1,0
                                       Scrivi " Ambata",1,,,2
                                       Scrivi Space(20) & Format2(H3) & " + " & Format2(L(3)) & " = " & Format2(Somma3),1
                                       Scrivi Space(17) & " Abbinamenti Per Ambo ",1,,,1
                                       Scrivi Space(20) & Format2(L(1)) & " Abbinamento 1 ",1
                                       Scrivi Space(20) & Format2(L(3)) & " Abbinamento 2 ",1
                                       Scrivi Space(24) & " Terno ",1,,,7
                                       Scrivi Space(24) & Format2(L(1)) & " " & Format2(L(3)) & " " & Format2(Somma1),1
                                       Scrivi
                                       If Cer = 1 Then
                                          DisegnaCerchioCiclometrico M,1,1,1,,1,1
                                          N(1) = M(1) : N(2) = M(2) : N(3) = M(3) : N(4) = M(4) : N(5) = L(1) : N(6) = L(3)
                                          DisegnaCerchioCiclometrico N,1,1,,,1,1
                                       End If
                                       Scrivi
                                       Ruo(1) = R1 : Ruo(2) = R2
                                       Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = NZ_ : Ruote(4) = TT_
                                       ImpostaGiocata 1,Ambata,Ruo,Po1,Clp
                                       ImpostaGiocata 2,Ambo1,Ruote,Po2,Clp
                                       ImpostaGiocata 3,Ambo2,Ruote,Po2,Clp
                                       ImpostaGiocata 4,Ter,Ruote,Po3,Clp
                                       Gioca Es,1
                                    End If
                                 End If
                              End If
                           Next
                        Next
                     End If
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso" & TempoTrascorso
End Sub
Function Tiberio1(L)
   L(2) = Fuori90(L(1) + 9)
   L(3) = Fuori90(L(2) + 9)
   L(4) = Fuori90(L(3) + 36)
End Function

Script senza numero uguale

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp,Es,Cer
   Dim R1,R2,P1,P2,P3,P4,Salvo50
   Dim DM12,DM23,DM34,DM41,Caso,Casi
   Dim Somma1,Somma2,Somma3,H1,H2,H3
   Dim Ambata(1),Ambo1(2),Ambo2(2),Ruote(4),Ter(3)
   Dim Ruo(2),Po1(1),Po2(2),Po3(3),L(4),N(6),M(4)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9850))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,17))
   Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "LA BOMBA di ANGELO GARGIULO (senza estratto uguale)- SCRIPT SALVO50" & Space(9),1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   Po3(2) = 1
   'Po3(3) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 3
            For P2 = P1 + 1 To 4
               For P3 = P2 + 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  C = Estratto(Es,R1,P3)
                  For R2 = + 1 To 12
                     If R2 <> R1 Then
                        If R2 = 11 Then R2 = 12
                        For P4 = 1 To 5
                           D = Estratto(Es,R2,P4)
                           If A > 0 And D > 0 Then
                              If D <> A And D <> B And D <> C Then
                                 M(1) = A : M(2) = B : M(3) = C : M(4) = D
                                 Call OrdinaMatrice(M,1)
                                 'M1--M2
                                 '|   |
                                 'M4--M3
                                 DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
                                 DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
                                 If DM12 = 9 And DM23 = 9 And DM34 = 36 And DM41 = 36 _
                                    Or DM12 = 9 And DM23 = 36 And DM34 = 36 And DM41 = 9 _
                                    Or DM12 = 36 And DM23 = 36 And DM34 = 9 And DM41 = 9 _
                                    Or DM12 = 36 And DM23 = 9 And DM34 = 9 And DM41 = 36 Then
                                    '---------------------------------
                                    If DM12 = 9 And DM23 = 9 And DM34 = 36 And DM41 = 36 Then
                                       L(1) = Fuori90(M(2) + 36)
                                       Call Tiberio1(L)
                                       H1 = M(3) : H2 = M(2) : H3 = M(1)
                                    End If
                                    If DM12 = 9 And DM23 = 36 And DM34 = 36 And DM41 = 9 Then
                                       L(1) = Fuori90(M(1) + 36)
                                       Call Tiberio1(L)
                                       H1 = M(2) : H2 = M(1) : H3 = M(4)
                                    End If
                                    If DM12 = 36 And DM23 = 36 And DM34 = 9 And DM41 = 9 Then
                                       L(1) = Fuori90(M(4) + 36)
                                       Call Tiberio1(L)
                                       H1 = M(1) : H2 = M(4) : H3 = M(3)
                                    End If
                                    If DM12 = 36 And DM23 = 9 And DM34 = 9 And DM41 = 36 Then
                                       L(1) = Fuori90(M(3) + 36)
                                       Call Tiberio1(L)
                                       H1 = M(4) : H2 = M(3) : H3 = M(2)
                                    End If
                                    Somma1 = Fuori90(H1 + L(1))
                                    Somma2 = Fuori90(H2 + L(2))
                                    Somma3 = Fuori90(H3 + L(3))
                                    Ambata(1) = Somma1
                                    Ambo1(1) = Somma1 : Ambo1(2) = L(1)
                                    Ambo2(1) = Somma1 : Ambo2(2) = L(3)
                                    Ter(1) = Somma1 : Ter(2) = L(1) : Ter(3) = L(3)
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                    Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                    Scrivi
                                    ReDim MatrCasella(4,1)
                                    MatrCasella(1,0) = R1
                                    MatrCasella(1,1) = P1
                                    MatrCasella(2,0) = R1
                                    MatrCasella(2,1) = P2
                                    MatrCasella(3,0) = R1
                                    MatrCasella(3,1) = P3
                                    MatrCasella(4,0) = R2
                                    MatrCasella(4,1) = P4
                                    Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
                                    Scrivi
                                    Scrivi Space(20) & Format2(H1) & " + " & Format2(L(1)) & " = " & Format2(Somma1),1
                                    Scrivi Space(20) & Format2(H2) & " + " & Format2(L(2)) & " = " & Format2(Somma2),1,0
                                    Scrivi " Ambata",1,,,2
                                    Scrivi Space(20) & Format2(H3) & " + " & Format2(L(3)) & " = " & Format2(Somma3),1
                                    Scrivi Space(17) & " Abbinamenti Per Ambo ",1,,,1
                                    Scrivi Space(20) & Format2(L(1)) & " Abbinamento 1 ",1
                                    Scrivi Space(20) & Format2(L(3)) & " Abbinamento 2 ",1
                                    Scrivi Space(24) & " Terno ",1,,,7
                                    Scrivi Space(24) & Format2(L(1)) & " " & Format2(L(3)) & " " & Format2(Somma1),1
                                    Scrivi
                                    If Cer = 1 Then
                                       DisegnaCerchioCiclometrico M,1,1,1,,1,1
                                       N(1) = M(1) : N(2) = M(2) : N(3) = M(3) : N(4) = M(4) : N(5) = L(1) : N(6) = L(3)
                                       DisegnaCerchioCiclometrico N,1,1,,,1,1
                                    End If
                                    Scrivi
                                    Ruo(1) = R1 : Ruo(2) = R2
                                    Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = NZ_ : Ruote(4) = TT_
                                    ImpostaGiocata 1,Ambata,Ruo,Po1,Clp
                                    ImpostaGiocata 2,Ambo1,Ruote,Po2,Clp
                                    ImpostaGiocata 3,Ambo2,Ruote,Po2,Clp
                                    ImpostaGiocata 4,Ter,Ruote,Po3,Clp
                                    Gioca Es,1
                                 End If
                              End If
                           End If
                        Next
                     End If
                  Next
               Next
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      For R1 = 1 To 10
         For P1 = 1 To 3
            For P2 = P1 + 1 To 4
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C = Estratto(Es,R2,P3)
                        D = Estratto(Es,R2,P4)
                        If A > 0 And D > 0 Then
                           If D <> A And D <> B And D <> C Then
                              M(1) = A : M(2) = B : M(3) = C : M(4) = D
                              Call OrdinaMatrice(M,1)
                              'M1--M2
                              '|   |
                              'M4--M3
                              DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
                              DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
                              If DM12 = 9 And DM23 = 9 And DM34 = 36 And DM41 = 36 _
                                 Or DM12 = 9 And DM23 = 36 And DM34 = 36 And DM41 = 9 _
                                 Or DM12 = 36 And DM23 = 36 And DM34 = 9 And DM41 = 9 _
                                 Or DM12 = 36 And DM23 = 9 And DM34 = 9 And DM41 = 36 Then
                                 '---------------------------------
                                 If DM12 = 9 And DM23 = 9 And DM34 = 36 And DM41 = 36 Then
                                    L(1) = Fuori90(M(2) + 36)
                                    Call Tiberio1(L)
                                    H1 = M(3) : H2 = M(2) : H3 = M(1)
                                 End If
                                 If DM12 = 9 And DM23 = 36 And DM34 = 36 And DM41 = 9 Then
                                    L(1) = Fuori90(M(1) + 36)
                                    Call Tiberio1(L)
                                    H1 = M(2) : H2 = M(1) : H3 = M(4)
                                 End If
                                 If DM12 = 36 And DM23 = 36 And DM34 = 9 And DM41 = 9 Then
                                    L(1) = Fuori90(M(4) + 36)
                                    Call Tiberio1(L)
                                    H1 = M(1) : H2 = M(4) : H3 = M(3)
                                 End If
                                 If DM12 = 36 And DM23 = 9 And DM34 = 9 And DM41 = 36 Then
                                    L(1) = Fuori90(M(3) + 36)
                                    Call Tiberio1(L)
                                    H1 = M(4) : H2 = M(3) : H3 = M(2)
                                 End If
                                 Somma1 = Fuori90(H1 + L(1))
                                 Somma2 = Fuori90(H2 + L(2))
                                 Somma3 = Fuori90(H3 + L(3))
                                 Ambata(1) = Somma1
                                 Ambo1(1) = Somma1 : Ambo1(2) = L(1)
                                 Ambo2(1) = Somma1 : Ambo2(2) = L(3)
                                 Ter(1) = Somma1 : Ter(2) = L(1) : Ter(3) = L(3)
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                 Scrivi
                                 ReDim MatrCasella(4,1)
                                 MatrCasella(1,0) = R1
                                 MatrCasella(1,1) = P1
                                 MatrCasella(2,0) = R1
                                 MatrCasella(2,1) = P2
                                 MatrCasella(3,0) = R2
                                 MatrCasella(3,1) = P3
                                 MatrCasella(4,0) = R2
                                 MatrCasella(4,1) = P4
                                 Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
                                 Scrivi
                                 Scrivi Space(20) & Format2(H1) & " + " & Format2(L(1)) & " = " & Format2(Somma1),1
                                 Scrivi Space(20) & Format2(H2) & " + " & Format2(L(2)) & " = " & Format2(Somma2),1,0
                                 Scrivi " Ambata",1,,,2
                                 Scrivi Space(20) & Format2(H3) & " + " & Format2(L(3)) & " = " & Format2(Somma3),1
                                 Scrivi Space(17) & " Abbinamenti Per Ambo ",1,,,1
                                 Scrivi Space(20) & Format2(L(1)) & " Abbinamento 1 ",1
                                 Scrivi Space(20) & Format2(L(3)) & " Abbinamento 2 ",1
                                 Scrivi Space(24) & " Terno ",1,,,7
                                 Scrivi Space(24) & Format2(L(1)) & " " & Format2(L(3)) & " " & Format2(Somma1),1
                                 Scrivi
                                 If Cer = 1 Then
                                    DisegnaCerchioCiclometrico M,1,1,1,,1,1
                                    N(1) = M(1) : N(2) = M(2) : N(3) = M(3) : N(4) = M(4) : N(5) = L(1) : N(6) = L(3)
                                    DisegnaCerchioCiclometrico N,1,1,,,1,1
                                 End If
                                 Scrivi
                                 Ruo(1) = R1 : Ruo(2) = R2
                                 Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = NZ_ : Ruote(4) = TT_
                                 ImpostaGiocata 1,Ambata,Ruo,Po1,Clp
                                 ImpostaGiocata 2,Ambo1,Ruote,Po2,Clp
                                 ImpostaGiocata 3,Ambo2,Ruote,Po2,Clp
                                 ImpostaGiocata 4,Ter,Ruote,Po3,Clp
                                 Gioca Es,1
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso" & TempoTrascorso
End Sub
Function Tiberio1(L)
   L(2) = Fuori90(L(1) + 9)
   L(3) = Fuori90(L(2) + 9)
   L(4) = Fuori90(L(3) + 36)
End Function

 

[tiberio1]

Nell'esempio dell'articolo viene presa in esame solo la condizione con la figura 7, intendevo io prendere in considerazione tutti i casi con diverse combinazioni in figura ok

 

[salvo50]

Ciao a Tutti

Nel secondo script c'è un errore grave che elimina delle estrazioni possibili, quindi dato che non si può più modificare, ne posto un altro

Script senza numero uguale (corretto)

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp,Es,Cer
   Dim R1,R2,P1,P2,P3,P4,Salvo50
   Dim DM12,DM23,DM34,DM41,Caso,Casi
   Dim Somma1,Somma2,Somma3,H1,H2,H3
   Dim Ambata(1),Ambo1(2),Ambo2(2),Ruote(4),Ter(3)
   Dim Ruo(2),Po1(1),Po2(2),Po3(3),L(4),N(6),M(4)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9850))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,17))
   Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "LA BOMBA di ANGELO GARGIULO (senza estratto uguale)- SCRIPT SALVO50" & Space(9),1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   Po3(2) = 1
   'Po3(3) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 3
            For P2 = P1 + 1 To 4
               For P3 = P2 + 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  C = Estratto(Es,R1,P3)
                  For R2 = + 1 To 12
                     If R2 <> R1 Then
                        If R2 = 11 Then R2 = 12
                        For P4 = 1 To 5
                           D = Estratto(Es,R2,P4)
                           If A > 0 And D > 0 Then
                              If D <> A And D <> B And D <> C Then
                                 M(1) = A : M(2) = B : M(3) = C : M(4) = D
                                 Call OrdinaMatrice(M,1)
                                 'M1--M2
                                 '|   |
                                 'M4--M3
                                 DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
                                 DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
                                 If DM12 = 9 And DM23 = 9 And DM34 = 36 And DM41 = 36 _
                                    Or DM12 = 9 And DM23 = 36 And DM34 = 36 And DM41 = 9 _
                                    Or DM12 = 36 And DM23 = 36 And DM34 = 9 And DM41 = 9 _
                                    Or DM12 = 36 And DM23 = 9 And DM34 = 9 And DM41 = 36 Then
                                    '---------------------------------
                                    If DM12 = 9 And DM23 = 9 And DM34 = 36 And DM41 = 36 Then
                                       L(1) = Fuori90(M(2) + 36)
                                       Call Tiberio1(L)
                                       H1 = M(3) : H2 = M(2) : H3 = M(1)
                                    End If
                                    If DM12 = 9 And DM23 = 36 And DM34 = 36 And DM41 = 9 Then
                                       L(1) = Fuori90(M(1) + 36)
                                       Call Tiberio1(L)
                                       H1 = M(2) : H2 = M(1) : H3 = M(4)
                                    End If
                                    If DM12 = 36 And DM23 = 36 And DM34 = 9 And DM41 = 9 Then
                                       L(1) = Fuori90(M(4) + 36)
                                       Call Tiberio1(L)
                                       H1 = M(1) : H2 = M(4) : H3 = M(3)
                                    End If
                                    If DM12 = 36 And DM23 = 9 And DM34 = 9 And DM41 = 36 Then
                                       L(1) = Fuori90(M(3) + 36)
                                       Call Tiberio1(L)
                                       H1 = M(4) : H2 = M(3) : H3 = M(2)
                                    End If
                                    Somma1 = Fuori90(H1 + L(1))
                                    Somma2 = Fuori90(H2 + L(2))
                                    Somma3 = Fuori90(H3 + L(3))
                                    Ambata(1) = Somma1
                                    Ambo1(1) = Somma1 : Ambo1(2) = L(1)
                                    Ambo2(1) = Somma1 : Ambo2(2) = L(3)
                                    Ter(1) = Somma1 : Ter(2) = L(1) : Ter(3) = L(3)
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                    Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                    Scrivi
                                    ReDim MatrCasella(4,1)
                                    MatrCasella(1,0) = R1
                                    MatrCasella(1,1) = P1
                                    MatrCasella(2,0) = R1
                                    MatrCasella(2,1) = P2
                                    MatrCasella(3,0) = R1
                                    MatrCasella(3,1) = P3
                                    MatrCasella(4,0) = R2
                                    MatrCasella(4,1) = P4
                                    Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
                                    Scrivi
                                    Scrivi Space(20) & Format2(H1) & " + " & Format2(L(1)) & " = " & Format2(Somma1),1
                                    Scrivi Space(20) & Format2(H2) & " + " & Format2(L(2)) & " = " & Format2(Somma2),1,0
                                    Scrivi " Ambata",1,,,2
                                    Scrivi Space(20) & Format2(H3) & " + " & Format2(L(3)) & " = " & Format2(Somma3),1
                                    Scrivi Space(17) & " Abbinamenti Per Ambo ",1,,,1
                                    Scrivi Space(20) & Format2(L(1)) & " Abbinamento 1 ",1
                                    Scrivi Space(20) & Format2(L(3)) & " Abbinamento 2 ",1
                                    Scrivi Space(24) & " Terno ",1,,,7
                                    Scrivi Space(24) & Format2(L(1)) & " " & Format2(L(3)) & " " & Format2(Somma1),1
                                    Scrivi
                                    If Cer = 1 Then
                                       DisegnaCerchioCiclometrico M,1,1,1,,1,1
                                       N(1) = M(1) : N(2) = M(2) : N(3) = M(3) : N(4) = M(4) : N(5) = L(1) : N(6) = L(3)
                                       DisegnaCerchioCiclometrico N,1,1,,,1,1
                                    End If
                                    Scrivi
                                    Ruo(1) = R1 : Ruo(2) = R2
                                    Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = NZ_ : Ruote(4) = TT_
                                    ImpostaGiocata 1,Ambata,Ruo,Po1,Clp
                                    ImpostaGiocata 2,Ambo1,Ruote,Po2,Clp
                                    ImpostaGiocata 3,Ambo2,Ruote,Po2,Clp
                                    ImpostaGiocata 4,Ter,Ruote,Po3,Clp
                                    Gioca Es,1
                                 End If
                              End If
                           End If
                        Next
                     End If
                  Next
               Next
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C = Estratto(Es,R2,P3)
                        D = Estratto(Es,R2,P4)
                        If A > 0 And D > 0 Then
                           If D <> A And D <> B And D <> C Then
                              M(1) = A : M(2) = B : M(3) = C : M(4) = D
                              Call OrdinaMatrice(M,1)
                              'M1--M2
                              '|   |
                              'M4--M3
                              DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
                              DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
                              If DM12 = 9 And DM23 = 9 And DM34 = 36 And DM41 = 36 _
                                 Or DM12 = 9 And DM23 = 36 And DM34 = 36 And DM41 = 9 _
                                 Or DM12 = 36 And DM23 = 36 And DM34 = 9 And DM41 = 9 _
                                 Or DM12 = 36 And DM23 = 9 And DM34 = 9 And DM41 = 36 Then
                                 '---------------------------------
                                 If DM12 = 9 And DM23 = 9 And DM34 = 36 And DM41 = 36 Then
                                    L(1) = Fuori90(M(2) + 36)
                                    Call Tiberio1(L)
                                    H1 = M(3) : H2 = M(2) : H3 = M(1)
                                 End If
                                 If DM12 = 9 And DM23 = 36 And DM34 = 36 And DM41 = 9 Then
                                    L(1) = Fuori90(M(1) + 36)
                                    Call Tiberio1(L)
                                    H1 = M(2) : H2 = M(1) : H3 = M(4)
                                 End If
                                 If DM12 = 36 And DM23 = 36 And DM34 = 9 And DM41 = 9 Then
                                    L(1) = Fuori90(M(4) + 36)
                                    Call Tiberio1(L)
                                    H1 = M(1) : H2 = M(4) : H3 = M(3)
                                 End If
                                 If DM12 = 36 And DM23 = 9 And DM34 = 9 And DM41 = 36 Then
                                    L(1) = Fuori90(M(3) + 36)
                                    Call Tiberio1(L)
                                    H1 = M(4) : H2 = M(3) : H3 = M(2)
                                 End If
                                 Somma1 = Fuori90(H1 + L(1))
                                 Somma2 = Fuori90(H2 + L(2))
                                 Somma3 = Fuori90(H3 + L(3))
                                 Ambata(1) = Somma1
                                 Ambo1(1) = Somma1 : Ambo1(2) = L(1)
                                 Ambo2(1) = Somma1 : Ambo2(2) = L(3)
                                 Ter(1) = Somma1 : Ter(2) = L(1) : Ter(3) = L(3)
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                 Scrivi
                                 ReDim MatrCasella(4,1)
                                 MatrCasella(1,0) = R1
                                 MatrCasella(1,1) = P1
                                 MatrCasella(2,0) = R1
                                 MatrCasella(2,1) = P2
                                 MatrCasella(3,0) = R2
                                 MatrCasella(3,1) = P3
                                 MatrCasella(4,0) = R2
                                 MatrCasella(4,1) = P4
                                 Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
                                 Scrivi
                                 Scrivi Space(20) & Format2(H1) & " + " & Format2(L(1)) & " = " & Format2(Somma1),1
                                 Scrivi Space(20) & Format2(H2) & " + " & Format2(L(2)) & " = " & Format2(Somma2),1,0
                                 Scrivi " Ambata",1,,,2
                                 Scrivi Space(20) & Format2(H3) & " + " & Format2(L(3)) & " = " & Format2(Somma3),1
                                 Scrivi Space(17) & " Abbinamenti Per Ambo ",1,,,1
                                 Scrivi Space(20) & Format2(L(1)) & " Abbinamento 1 ",1
                                 Scrivi Space(20) & Format2(L(3)) & " Abbinamento 2 ",1
                                 Scrivi Space(24) & " Terno ",1,,,7
                                 Scrivi Space(24) & Format2(L(1)) & " " & Format2(L(3)) & " " & Format2(Somma1),1
                                 Scrivi
                                 If Cer = 1 Then
                                    DisegnaCerchioCiclometrico M,1,1,1,,1,1
                                    N(1) = M(1) : N(2) = M(2) : N(3) = M(3) : N(4) = M(4) : N(5) = L(1) : N(6) = L(3)
                                    DisegnaCerchioCiclometrico N,1,1,,,1,1
                                 End If
                                 Scrivi
                                 Ruo(1) = R1 : Ruo(2) = R2
                                 Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = NZ_ : Ruote(4) = TT_
                                 ImpostaGiocata 1,Ambata,Ruo,Po1,Clp
                                 ImpostaGiocata 2,Ambo1,Ruote,Po2,Clp
                                 ImpostaGiocata 3,Ambo2,Ruote,Po2,Clp
                                 ImpostaGiocata 4,Ter,Ruote,Po3,Clp
                                 Gioca Es,1
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso" & TempoTrascorso
End Sub
Function Tiberio1(L)
   L(2) = Fuori90(L(1) + 9)
   L(3) = Fuori90(L(2) + 9)
   L(4) = Fuori90(L(3) + 36)
End Function