Da Un Suggerimento Di Tascione "Raccolta Script con Cerchio Ciclometrico"

[adeleadele]

L'Ambo Unico di Angelo Gargiulo
Con Estratti uniti e isotopi

https://forum.lottoced.com/threads/a-gentile-richiesta-un-listato.2199319/

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,G,Clp,Es,Cer,Salvo50
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim DM12,DM23,DM34,DM41,Sf1,Sf2,Medio1,Medio2
   Dim Abb1,Abb2,Abb3,Abb4,Ch,DiamCh,xM1,xM2
   Dim Amba1(1),Amba2(1),Ambo1(2),Ambo2(2),Ruote(4)
   Dim Ambata(1),L(6),M(4),Ruo(2),Po1(1),Po2(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9740))'9701 Esempio nell'articolo
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,7))
   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(18) & "L'AMBO UNICO di ANGELO GARGIULO - SCRIPT SALVO50" & Space(18),1,,4,,3,,1
   Scrivi Space(28) & "ESTRATTI UNITI ED ISOTOPI" & Space(31),1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            P2 = P1 + 1
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            For R2 = R1 + 1 To 10
               C = Estratto(Es,R2,P1)
               D = Estratto(Es,R2,P2)
               If A > 0 And C > 0 Then
                  If A <> C And A <> D And B <> C And B <> D 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 = 18 And DM23 = 18 And DM34 = 18 And DM41 = 36 _
                        Or DM12 = 18 And DM23 = 18 And DM34 = 36 And DM41 = 18 _
                        Or DM12 = 18 And DM23 = 36 And DM34 = 18 And DM41 = 18 _
                        Or DM12 = 36 And DM23 = 18 And DM34 = 18 And DM41 = 18 Then
                        '---------------------------------
                        If DM12 = 18 And DM23 = 18 And DM34 = 18 And DM41 = 36 Then
                           Ch = Fuori90(M(4) + 18)
                           DiamCh = Diametrale(Ch)
                        End If
                        If DM12 = 18 And DM23 = 18 And DM34 = 36 And DM41 = 18 Then
                           Ch = Fuori90(M(3) + 18)
                           DiamCh = Diametrale(Ch)
                        End If
                        If DM12 = 18 And DM23 = 36 And DM34 = 18 And DM41 = 18 Then
                           Ch = Fuori90(M(2) + 18)
                           DiamCh = Diametrale(Ch)
                        End If
                        If DM12 = 36 And DM23 = 18 And DM34 = 18 And DM41 = 18 Then
                           Ch = Fuori90(M(1) + 18)
                           DiamCh = Diametrale(Ch)
                        End If
                        xM1 =(M(3) + M(4))
                        Medio1 = xM1 / 2
                        xM2 =(M(1) + M(2))
                        Medio2 = xM2 / 2
                        Ruo(1) = R1 : Ruo(2) = R2
                        Amba1(1) = Medio1 : Amba2(1) = Medio2
                        Sf1 = 2 : Sf2 = 2
                        Sf1 = SerieFreqTurbo(Es - 4,Es,Amba1,Ruo,1)
                        Sf2 = SerieFreqTurbo(Es - 4,Es,Amba2,Ruo,1)
                        If Sf1 = 0 Or Sf2 = 0 Then
                           Ambata(1) = DiamCh
                           Ambo1(1) = DiamCh : Ambo1(2) = Medio1
                           Ambo2(1) = DiamCh : Ambo2(2) = Medio2
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                           Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " ",1,0
                           For P5 = 1 To 5
                              E1 = Estratto(Es,R1,P5)
                              If E1 = A Or E1 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R2) & " ",1,0
                           For P6 = 1 To 5
                              E2 = Estratto(Es,R2,P6)
                              If E2 = C Or E2 = D Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi
                           Scrivi Space(27) & " Ambata = " & Format2(DiamCh),1,,,2
                           Scrivi Space(22) & " Abbinamenti Per Ambo",1,,,1
                           Scrivi Space(15) & Format2(M(3)) & " + " & Format2(M(4)) & " = " & FormattaStringa(xM1,"000"),1,0
                           Scrivi " / 2 = " & Format2(Medio1) & " Abbinamento 1",1
                           Scrivi Space(15) & Format2(M(1)) & " + " & Format2(M(2)) & " = " & FormattaStringa(xM2,"000"),1,0
                           Scrivi " / 2 = " & Format2(Medio2) & " Abbinamento 2",1
                           Scrivi Space(1) & "Se Cerca un solo ambo, è perchè l'altro abbinamento è stato",1,0,,1
                           Scrivi " riscontrato nelle 4 estrazioni A ritroso",1,,,1
                           Scrivi
                           If Cer = 1 Then
                              L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4) : L(5) = DiamCh
                              DisegnaCerchioCiclometrico L,1,1,,,1,1
                           End If
                           G = 2
                           Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = NZ_ : Ruote(4) = TT_
                           ImpostaGiocata 1,Ambata,Ruo,Po1,Clp
                           If Sf1 = 0 Then ImpostaGiocata G,Ambo1,Ruote,Po2,Clp : G = G + 1
                           If Sf2 = 0 Then ImpostaGiocata G,Ambo2,Ruote,Po2,Clp
                           Gioca Es
                        End If
                     End If
                  End If
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,G,Clp,Es,Cer,Salvo50
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim DM12,DM23,DM34,DM41,Sf1,Sf2,Medio1,Medio2
   Dim Abb1,Abb2,Abb3,Abb4,Ch,DiamCh,xM1,xM2
   Dim Amba1(1),Amba2(1),Ambo1(2),Ambo2(2),Ruote(4)
   Dim Ambata(1),L(6),M(4),Ruo(2),Po1(1),Po2(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10640))'9701 esempio nell'articolo
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,7))
   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(12) & "L'AMBO UNICO di ANGELO GARGIULO - SCRIPT SALVO50",1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         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 10
                  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 C > 0 Then
                           If A <> C And A <> D And B <> C And B <> D 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 = 18 And DM23 = 18 And DM34 = 18 And DM41 = 36 _
                                 Or DM12 = 18 And DM23 = 18 And DM34 = 36 And DM41 = 18 _
                                 Or DM12 = 18 And DM23 = 36 And DM34 = 18 And DM41 = 18 _
                                 Or DM12 = 36 And DM23 = 18 And DM34 = 18 And DM41 = 18 Then
                                 '---------------------------------
                                 If DM12 = 18 And DM23 = 18 And DM34 = 18 And DM41 = 36 Then
                                    Ch = Fuori90(M(4) + 18)
                                    DiamCh = Diametrale(Ch)
                                 End If
                                 If DM12 = 18 And DM23 = 18 And DM34 = 36 And DM41 = 18 Then
                                    Ch = Fuori90(M(3) + 18)
                                    DiamCh = Diametrale(Ch)
                                 End If
                                 If DM12 = 18 And DM23 = 36 And DM34 = 18 And DM41 = 18 Then
                                    Ch = Fuori90(M(2) + 18)
                                    DiamCh = Diametrale(Ch)
                                 End If
                                 If DM12 = 36 And DM23 = 18 And DM34 = 18 And DM41 = 18 Then
                                    Ch = Fuori90(M(1) + 18)
                                    DiamCh = Diametrale(Ch)
                                 End If
                                 xM1 =(M(3) + M(4))
                                 Medio1 = xM1 / 2
                                 xM2 =(M(1) + M(2))
                                 Medio2 = xM2 / 2
                                 Ruo(1) = R1 : Ruo(2) = R2
                                 Amba1(1) = Medio1 : Amba2(1) = Medio2
                                 Sf1 = SerieFreqTurbo(Es - 4,Es,Amba1,Ruo,1)
                                 Sf2 = SerieFreqTurbo(Es - 4,Es,Amba2,Ruo,1)
                                 If Sf1 = 0 Or Sf2 = 0 Then
                                    Ambata(1) = DiamCh
                                    Ambo1(1) = DiamCh : Ambo1(2) = Medio1
                                    Ambo2(1) = DiamCh : Ambo2(2) = Medio2
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                    Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                    For P5 = 1 To 5
                                       E1 = Estratto(Es,R1,P5)
                                       If E1 = A Or E1 = B Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E1) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi
                                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                    For P6 = 1 To 5
                                       E2 = Estratto(Es,R2,P6)
                                       If E2 = C Or E2 = D Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E2) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi
                                    Scrivi Space(27) & " Ambata = " & Format2(DiamCh),1,,,2
                                    Scrivi Space(22) & " Abbinamenti Per Ambo",1,,,1
                                    Scrivi Space(15) & Format2(M(3)) & " + " & Format2(M(4)) & " = " & FormattaStringa(xM1,"000"),1,0
                                    Scrivi " / 2 = " & Format2(Medio1) & " Abbinamento 1",1
                                    Scrivi Space(15) & Format2(M(1)) & " + " & Format2(M(2)) & " = " & FormattaStringa(xM2,"000"),1,0
                                    Scrivi " / 2 = " & Format2(Medio2) & " Abbinamento 2",1
                                    Scrivi Space(1) & "Se Cerca un solo ambo, è perchè l'altro abbinamento è stato",1,0,,1
                                    Scrivi " riscontrato nelle 4 estrazioni A ritroso",1,,,1
                                    If Cer = 1 Then
                                       L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4) : L(5) = DiamCh
                                       DisegnaCerchioCiclometrico L,1,1,,,1,1
                                    End If
                                    Scrivi
                                    G = 2
                                    Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = NZ_ : Ruote(4) = TT_
                                    ImpostaGiocata 1,Ambata,Ruo,Po1,Clp
                                    If Sf1 = 0 Then ImpostaGiocata G,Ambo1,Ruote,Po2,Clp : G = G + 1
                                    If Sf2 = 0 Then ImpostaGiocata G,Ambo2,Ruote,Po2,Clp
                                    Gioca Es
                                 End If
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[adeleadele]

Salvo ciao sono Adele ho notato nella tecnica di Gargiullo che escono i diametrali in decina. potresti mettere la doppia mabata? inoltre fa ambo secco con somme verticali da quelli indicati in te in rosso
.Estrazione n.10602 del 27.02.2025 CA 03 56 76 58 79
Estrazione n.10602 del 27.02.2025 MI 31 46 04 40 33

Ambata = 67 esempio doppia ambata 62 con somma non orizzontale ma verticale
abbinamenti per ambo 58 piu 40 fa 9...80 e 76 e 4 fa (80) 7 e 10 fare differenza 76-4 fa 72 58-40 fa 18
esce ambo secc0 62 80 terno62 80 72 se potessi mettere questa variazione in basso somma e differenza verticali,

Abbinamenti Per Ambo
58 + 76 = 134 / 2 = 67 Abbinamento 1
04 + 40 = 044 / 2 = 22 Abbinamento 2
----------------------------------------------------------------------------------------------------------------------------------------------------------
guarda Estrazione n.10620 del 29.03.2025 MI 87 51 86 10 21
Estrazione n.10620 del 29.03.2025 NA 69 15 14 61 66

Ambata = 78
Abbinamenti Per Ambo
69 + 87 = 156 / 2 = 78 Abbinamento 1
15 + 51 = 066 / 2 = 33 Abbinamento 2
Se Cerca un solo ambo, è perchè l'altro abbinamento è stato riscontrato nelle 4 estrazioni A ritroso
il 78 non usci mentre il diametrale in decina subito ambata 73 per ambo 87 piu 69 fa 66...e 51 e 15 fa sempre 66 sottrazione 87-66 21 fa 51-15fa 36 a colpo ambetto 73 66..
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Estrazione n.10424 del 20.04.2024 RO 01 88 16 50 63
Estrazione n.10424 del 20.04.2024 TO 15 70 52 62 55

Ambata = 79
Abbinamenti Per Ambo
70 + 88 = 158 / 2 = 79 Abbinamento 1
16 + 52 = 068 / 2 = 34 Abbinamento 2
Se Cerca un solo ambo, è perchè l'altro abbinamento è stato riscontrato nelle 4 estrazioni A ritroso

16.52.70.88.79

Alloa ambata 73 con somma 88 piu 70 fa 68 .e 16 e 52 fa 68 differenza 18 e 36 fa ambo secco 73 e 36 5 aprile. Io non sono capace ma se tu potessi mettere questa variante.Grazie

 

[salvo50]

ops non avevo visto il post 41

 

[adeleadele]

Option Explicit Dim R1,P1,P2,P3,Es,Es1,Clp,Caso,Casi,fin,Ini Dim E1,E2,E3,E4,Di12,Di13,Di34,Di24,Ka,E,K,K2 Dim Ru(2),Poste(2),Amb(3),A(4) Sub Main 'poste(1) = 1 Poste(2) = 1 fin = EstrazioneFin Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,10665) Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca",,15)) Scrivi Space(15) & " Progetto Somma Pari - Script Salvo50" & Space(15),1,,4,,3,,1 For Es = Ini To fin Messaggio(Es) AvanzamentoElab Ini,fin,Es Caso = 0 For R1 = 1 To 10 Ru(1) = R1 Ru(2) = TT_ For P1 = 1 To 4 For P2 = P1 + 1 To 5 E1 = Estratto(Es,R1,P1) E2 = Estratto(Es,R1,P2) E = E1 + E2 If pari(E) Then E3 = E / 2 Di12 = Distanza(E1,E2) Di13 = Distanza(E1,E3) E4 = Fuori90(E3 + Di12) Di34 = Distanza(E3,E4) Di24 = Distanza(E2,E4) If Distanza(E1,E3) = Distanza(E2,E4) Then If Distanza(E1,E2) = Distanza(E3,E4) Then A(1) = E1 A(2) = E2 A(3) = E3 A(4) = E4 uscite DisegnaCerchioCiclometrico A,- 1,1,,,1,1 Amb(1) = E4 Amb(2) = Di24 Amb(3) = Di34 ImpostaGiocata 1,Amb,Ru,Poste,Clp Gioca Es End If End If End If Next Next Next Next ScriviResoconto End Sub Function uscite Caso = Caso + 1 Casi = Casi + 1 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0 Scrivi " " & SiglaRuota(R1) & " ",1,0 For P3 = 1 To 5 K2 = Estratto(Es,R1,P3) If K2 = E1 Or K2 = E2 Then ColoreTesto 2 Else ColoreTesto 0 End If Scrivi Format2(K2) & " ",1,0 ColoreTesto 0 Next Scrivi " Evidenziati Somma Pari " & Format2(E),1 Scrivi Scrivi " " & Format2(E1) & " " & Format2(Di12) & " " & Format2(E2) Scrivi " " & Format2(Di13) & " " & Format2(Di24) Scrivi " " & Format2(E3) & " " & Format2(Di34) & " " & Format2(E4) Scrivi ColoreTesto 0 End Function

ops non avevo visto il post 41

Io in informatica sono una frana.se puoi fare questa aggiunta. Grazie

 

[salvo50]

Ciao Adele
Appena posso la faccio

 

[salvo50]

Ciao a Tutti

Ciao Adele
controlla il tuo archivio perché le tue estrazioni non corrispondono con le mie
per vedere qual è che non è giusto, lancia lo script di Joe del Post 09, nel topic

Verifica Archivio



Ti posto lo script con le modifiche richieste
il controllo degli ambetti per come è strutturato
lo script non lo posso fare

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,G,Clp,Es,Cer,Salvo50,Z,EsClp
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim DM12,DM23,DM34,DM41,Sf1,Sf2,Medio1,DiamMedio1
   Dim Abb1,Abb2,Abb3,Abb4,Ch,DiamCh,xM1,xM2
   Dim Amba(2),Ambo(2),Penta(5),Po3(4)
   Dim L(6),M(4),Ruo1(2),Ruo2(4),Po1(1),Po2(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10600))'9701 Esempio nell'articolo
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,7))
   Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,0))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(18) & "L'AMBO UNICO di ANGELO GARGIULO - SCRIPT SALVO50" & Space(18),1,,4,,3,,1
   Scrivi Space(28) & "CON MODIFICA DI ADELEADELE" & Space(31),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 9
         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 10
                  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 C > 0 Then
                           If A <> C And A <> D And B <> C And B <> D 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 = 18 And DM23 = 18 And DM34 = 18 And DM41 = 36 _
                                 Or DM12 = 18 And DM23 = 18 And DM34 = 36 And DM41 = 18 _
                                 Or DM12 = 18 And DM23 = 36 And DM34 = 18 And DM41 = 18 _
                                 Or DM12 = 36 And DM23 = 18 And DM34 = 18 And DM41 = 18 Then
                                 '---------------------------------
                                 If DM12 = 18 And DM23 = 18 And DM34 = 18 And DM41 = 36 Then
                                    Ch = Fuori90(M(4) + 18)
                                    DiamCh = Diametrale(Ch)
                                 End If
                                 If DM12 = 18 And DM23 = 18 And DM34 = 36 And DM41 = 18 Then
                                    Ch = Fuori90(M(3) + 18)
                                    DiamCh = Diametrale(Ch)
                                 End If
                                 If DM12 = 18 And DM23 = 36 And DM34 = 18 And DM41 = 18 Then
                                    Ch = Fuori90(M(2) + 18)
                                    DiamCh = Diametrale(Ch)
                                 End If
                                 If DM12 = 36 And DM23 = 18 And DM34 = 18 And DM41 = 18 Then
                                    Ch = Fuori90(M(1) + 18)
                                    DiamCh = Diametrale(Ch)
                                 End If
                                 xM1 =(M(3) + M(4))
                                 Medio1 = xM1 / 2
                                 '       xM2 =(M(1) + M(2))
                                 '      Medio2 = xM2 / 2
                                 DiamMedio1 = DiametraleD(Medio1)
                                 Abb1 = Fuori90(A + C)
                                 Abb2 = Fuori90(B + D)
                                 Abb3 = Differenza(A,C)
                                 Abb4 = Differenza(B,D)
                                 Amba(1) = Medio1 : Amba(2) = DiamMedio1
                                 Ruo1(1) = R1 : Ruo1(2) = R2
                                 Penta(1) = DiamMedio1 : Penta(2) = Abb1 : Penta(3) = Abb2 : Penta(4) = Abb3 : Penta(5) = Abb4
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                 For P5 = 1 To 5
                                    E1 = Estratto(Es,R1,P5)
                                    If E1 = A Or E1 = B Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                 For P6 = 1 To 5
                                    E2 = Estratto(Es,R2,P6)
                                    If E2 = C Or E2 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi
                                 ' Scrivi Space(27) & " Ambata = " & Format2(DiamCh),1,,,2
                                 Scrivi Space(13) & Format2(M(3)) & " + " & Format2(M(4)) & " = " & FormattaStringa(xM1,"000"),1,0
                                 Scrivi " / 2 = ",1,0
                                 Scrivi Format2(Medio1),1,0,,2
                                 Scrivi " Ambata 1 ",1
                                 Scrivi Space(12) & "Diametrale In Decina ",1,0
                                 Scrivi Format2(DiamMedio1),1,0,,2
                                 Scrivi " Ambata 2"
                                 Scrivi Space(17) & " Abbinamenti Per Ambo",1,,,1
                                 Scrivi Space(15) & Format2(A) & " + " & Format2(C) & " = " & Format2(Abb1),1,0
                                 Scrivi " Abbinamento 1",1
                                 Scrivi Space(15) & Format2(B) & " + " & Format2(D) & " = " & Format2(Abb2),1,0
                                 Scrivi " Abbinamento 2",1
                                 Scrivi Space(15) & Format2(A) & " - " & Format2(C) & " = " & Format2(Abb3),1,0
                                 Scrivi " Abbinamento 3",1
                                 Scrivi Space(15) & Format2(B) & " - " & Format2(D) & " = " & Format2(Abb4),1,0
                                 Scrivi " Abbinamento 4",1
                                 Scrivi
                                 If Cer = 1 Then
                                    L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4) : L(5) = DiamCh
                                    DisegnaCerchioCiclometrico L,1,1,,,1,1
                                 End If
                                 G = 1
                                 Ruo2(1) = R1 : Ruo2(2) = R2 : Ruo2(3) = NZ_ : Ruo2(4) = TT_
                                 ImpostaGiocata G,Amba,Ruo1,Po1,Clp
                                 For Z = 1 To UBound(Penta)
                                    If Amba(2) <> Penta(Z)Then
                                       Ambo(1) = Amba(2): Ambo(2) = Penta(Z)
                                       If Ambo(2) > 0 Then
                                          G = G + 1
                                          ImpostaGiocata G,Ambo,Ruo2,Po2,Clp
                                       End If
                                    End If
                                 Next
                                 G = G + 1
                                 ImpostaGiocata G,Penta,Ruo2,Po3,Clp
                                 Gioca Es
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub