Novità

Script su Metodi Cabalistici, Ciclometrici & C.

bubù ha scritto:
bubù ha scritto:
Non mi sono spiegato bene, scusami, non voglio la ricerca avanti o indietro, ma tutto nella stessa estrazione come da esempio però il vertice deve essere su una terza ruota della stessa estrazione, non sulle due ruote che formano il rettangolo. Nel mio post il 41 è sulla NAZIONALE ma puo benissimo essere su un'altra ruota. Perdonami se non so spiegarmi. 🙏👋
Clicca per espandere...
Ciao a Tutti
Clicca per espandere...
Ho preso lo script che hai modificato, con questa modifica ho messo la ricerca del vertice nella stessa estrazione e con ruota diversa delle altre due.

Provalo e fammi sapere di eventuali errori, perché io non posso provarlo

L'ho tolto perchè errato
 
Ultima modifica:
salvo50 ha scritto:
Ho preso lo script che hai modificato, con questa modifica ho messo la ricerca del vertice nella stessa estrazione e con ruota diversa delle altre due.

Provalo e fammi sapere di eventuali errori, perché io non posso provarlo

Codice: 
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Caso,Casi,Salvo50
   Dim Visual,Met1,Met2,E1,E2,E3
   Dim DM12,DM23,DM41,DM34,A,B,C,D,E
   Dim Diam_E,Abb1,Abb2,Abb3,Abb4,Clp1,Clp2
   Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8
   Dim M(4),Z(5),N(5)
   Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2),Terno(3),Terno2(3)
   Dim Ruo(3),Ruote(4),Posta(1),Poste(2),Posts(3)
   Posta(1) = 1
   Poste(2) = 1
   Posts(2) = 1
   Posts(3) = 1
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10870)
   Clp1 = InputBox("Inserisci I colpi di gioco per l'ambata",Salvo50,9)
   Clp2 = InputBox("Inserisci I colpi di gioco per le altre sorti",Salvo50,15)
   Visual = InputBox("Se vuoi visualizzare i cerchiciclometrici metti 1, per non visualizzarli metti un qualsiasi altro numero ",Salvo50,1)
   ' Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi "8 Pigliatutto Autore Angelo Gargiulo - Mod 13 e Mod 22 - Script Salvo50   ",1,,4,,3,,1
   Scrivi "Dall'originale vertice con ruota diversa e stessa estrazione più mod. Bubù",1,,4,,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)
                  If isNumeroValidoLotto(A) Then
                     For R2 = 1 To 12
                        If R2 = 11 Then R2 = 12
                        If R2 <> R1 Then
                           For P4 = 1 To 5
                              D = Estratto(Es,R2,P4)
                              If isNumeroValidoLotto(D) 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)
                                    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 = 36 Or DM12 = 9 Then
                                       If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
                                          Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
                                          If DM12 = 36 Then
                                             Met1 = Fuori90(M(1) + 27)
                                             Met2 = Fuori90(M(3) + 27)
                                          End If
                                          If DM23 = 36 Then
                                             Met1 = Fuori90(M(2) + 27)
                                             Met2 = Fuori90(M(4) + 27)
                                          End If
                                          For R3 = 1 To 12
                                             If R3 = 11 Then R3 = 12
                                             For P5 = 1 To 5
                                                E = Estratto(Es,R3,P5) '------------
                                                If E = Met1 Or E = Met2 Then
                                                   N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
                                                   Diam_E = Diametrale(E)
                                                   Abb1 = Diam_E - 9
                                                   Abb2 = Fuori90((90 + E) - 9)
                                                   Abb3 = Diam_E + 27
                                                   Abb4 = Diam_E - 18
                                                   Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2 : Z(4) = Abb3 : Z(5) = Abb4
                                                   Amba(1) = Diam_E
                                                   Ambo1(1) = Diam_E : Ambo1(2) = Abb1
                                                   Ambo2(1) = Diam_E : Ambo2(2) = Abb2
                                                   Ambo3(1) = Abb1 : Ambo3(2) = Abb2
                                                   Ambo4(1) = Diam_E :Ambo4(2) = Abb3
                                                   Ambo5(1) = Diam_E :Ambo5(2) = Abb4
                                                   Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
                                                   Terno2(1) = Diam_E : Terno2(2) = Abb3 : Terno2(3) = Abb4
                                                   Caso = Caso + 1
                                                   Casi = Casi + 1
                                                   ColoreTesto 2
                                                   Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                                   ColoreTesto 1
                                                   Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                                   ColoreTesto 0
                                                   Scrivi
                                                   Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                   Scrivi " " & SiglaRuota(R1) & " ",1,0
                                                   For P6 = 1 To 5
                                                      E1 = Estratto(Es,R1,P6)
                                                      If E1 = A Or E1 = B Or E1 = C 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 P7 = 1 To 5
                                                      E2 = Estratto(Es,R2,P7)
                                                      If E2 = D Then
                                                         ColoreTesto 2
                                                      Else
                                                         ColoreTesto 0
                                                      End If
                                                      Scrivi Format2(E2) & " ",1,0
                                                      ColoreTesto 0
                                                   Next
                                                   Scrivi
                                                   Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                   Scrivi " " & SiglaRuota(R3) & " ",1,0
                                                   For P8 = 1 To 5
                                                      E3 = Estratto(Es,R3,P8)
                                                      If E3 = E Then
                                                         ColoreTesto 2
                                                      Else
                                                         ColoreTesto 0
                                                      End If
                                                      Scrivi Format2(E3) & " ",1,0
                                                      ColoreTesto 0
                                                   Next
                                                   Scrivi
                                                   If Visual = 1 Then
                                                      DisegnaCerchioCiclometrico M,1,1,,,1,1
                                                      DisegnaCerchioCiclometrico N,1,1,,,1,1
                                                      DisegnaCerchioCiclometrico Z,1,1,,,1,1
                                                   End If
                                                   Ruo(1) = R1 : Ruo(2) = R2
                                                   Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_ : Ruote(4) = 12
                                                   ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
                                                   ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
                                                   ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
                                                   ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2
                                                   ImpostaGiocata 5,Ambo4,Ruote,Poste,Clp2
                                                   ImpostaGiocata 6,Ambo5,Ruote,Poste,Clp2
                                                   ImpostaGiocata 7,Terno,Ruote,Posts,Clp2
                                                   ImpostaGiocata 8,Terno2,Ruote,Posts,Clp2
                                                   Gioca Es,1
                                                End If
                                             Next
                                          Next
                                       End If
                                    End If
                                 End If
                              End If
                              If ScriptInterrotto Then Exit Sub
                           Next
                        End If
                     Next
                  End If '----
               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)
               If isNumeroValidoLotto(A) Then
                  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 isNumeroValidoLotto(C) Then
                              If C <> A And C <> B And D <> A And D <> B Then
                                 M(1) = A : M(2) = B : M(3) = C : M(4) = D
                                 Call OrdinaMatrice(M,1)
                                 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 = 36 Or DM12 = 9 Then
                                    If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
                                       Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
                                       If DM12 = 36 Then
                                          Met1 = Fuori90(M(1) + 18)
                                          Met2 = Fuori90(M(3) + 18)
                                       End If
                                       If DM23 = 36 Then
                                          Met1 = Fuori90(M(2) + 18)
                                          Met2 = Fuori90(M(4) + 18)
                                       End If
                                       For R3 = 1 To 12
                                          If R3 = 11 Then R3 = 12
                                          For P5 = 1 To 5
                                             E = Estratto(Es,R3,P5)
                                             If E = Met1 Or E = Met2 Then
                                                N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
                                                Diam_E = Diametrale(E)
                                                Abb1 = Fuori90((90 + E) + 9)
                                                Abb2 = Fuori90((90 + E) - 9)
                                                Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2
                                                Amba(1) = Diam_E
                                                Ambo1(1) = Diam_E : Ambo1(2) = Abb1
                                                Ambo2(1) = Diam_E : Ambo2(2) = Abb2
                                                Ambo3(1) = Abb1 : Ambo3(2) = Abb2
                                                Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
                                                Caso = Caso + 1
                                                Casi = Casi + 1
                                                ColoreTesto 2
                                                Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                                ColoreTesto 1
                                                Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                                ColoreTesto 0
                                                Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                Scrivi " " & SiglaRuota(R1) & " ",1,0
                                                For P6 = 1 To 5
                                                   E1 = Estratto(Es,R1,P6)
                                                   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 P7 = 1 To 5
                                                   E2 = Estratto(Es,R2,P7)
                                                   If E2 = C Or E2 = D Then
                                                      ColoreTesto 2
                                                   Else
                                                      ColoreTesto 0
                                                   End If
                                                   Scrivi Format2(E2) & " ",1,0
                                                   ColoreTesto 0
                                                Next
                                                Scrivi
                                                Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                Scrivi " " & SiglaRuota(R3) & " ",1,0
                                                For P8 = 1 To 5
                                                   E3 = Estratto(Es,R3,P8)
                                                   If E3 = E Then
                                                      ColoreTesto 2
                                                   Else
                                                      ColoreTesto 0
                                                   End If
                                                   Scrivi Format2(E3) & " ",1,0
                                                   ColoreTesto 0
                                                Next
                                                Scrivi
                                                If Visual = 1 Then
                                                   DisegnaCerchioCiclometrico M,1,1,,,1,1
                                                   DisegnaCerchioCiclometrico N,1,1,,,1,1
                                                   DisegnaCerchioCiclometrico Z,1,1,,,1,1
                                                End If
                                                Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = 12
                                                Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_ : Ruote(4) = 12
                                                ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
                                                ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
                                                ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
                                                ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2
                                                ImpostaGiocata 5,Terno,Ruote,Posts,Clp2
                                                Gioca Es,1
                                             End If
                                          Next
                                       Next
                                    End If
                                 End If
                              End If
                           End If
                        Next
                        If ScriptInterrotto Then Exit Sub
                     Next
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi TempoTrascorso
End Sub
Clicca per espandere...
Allora io ho cercato di sistemare le giocate da fare, non capisco perchè nel terzo cerchio compare il 27 , dovrebbe comparire senza il 27 ma con il 5 . Così come la correzione che ho fatto io.
00027.jpg
​
'8 Pigliatutto Script Salvo50 con VERTICE nella stessa estrazione ma in una terza ruota by BubùLotto
Option Explicit
Sub Main
Dim FIn,Es,Ini,Caso,Casi,Salvo50
Dim Visual,Met1,Met2,E1,E2,E3
Dim DM12,DM23,DM41,DM34,A,B,C,D,E
Dim Diam_E,Abb1,Abb2,Abb3,Abb4,Clp1,Clp2
Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8
Dim M(4),Z(5),N(5)
Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2),Terno(3),Terno2(3)
Dim Ruo(3),Ruote(4),Posta(1),Poste(2),Posts(3)
Posta(1) = 1
Poste(2) = 1
Posts(2) = 1
Posts(3) = 1
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10870)
Clp1 = InputBox("Inserisci I colpi di gioco per l'ambata",Salvo50,9)
Clp2 = InputBox("Inserisci I colpi di gioco per le altre sorti",Salvo50,15)
Visual = InputBox("Se vuoi visualizzare i cerchiciclometrici metti 1, per non visualizzarli metti un qualsiasi altro numero ",Salvo50,1)
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi "8 Pigliatutto Autore Angelo Gargiulo - Mod 13 e Mod 22 - Script Salvo50 ",1,,4,,3,,1
Scrivi "Dall'originale vertice con ruota diversa e stessa estrazione più mod. Bubù",1,,4,,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)
If isNumeroValidoLotto(A) Then
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
If R2 <> R1 Then
For P4 = 1 To 5
D = Estratto(Es,R2,P4)
If isNumeroValidoLotto(D) 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)
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 = 36 Or DM12 = 9 Then
If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
If DM12 = 36 Then
Met1 = Fuori90(M(1) + 27)
Met2 = Fuori90(M(3) + 27)
End If
If DM23 = 36 Then
Met1 = Fuori90(M(2) + 27)
Met2 = Fuori90(M(4) + 27)
End If
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
For P5 = 1 To 5
E = Estratto(Es,R3,P5) '------------
If E = Met1 Or E = Met2 Then
N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
Diam_E = Diametrale(E)
Abb1 = Fuori90((90 + E) - 9)
Abb2 = Fuori90((90 + E) - 27)
Abb3 = Fuori90 (Abb1 + 45)
Abb4 = Fuori90 (Abb2 + 45)
Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2 : Z(4) = Abb3 : Z(5) = Abb4
Amba(1) = Diam_E
Ambo1(1) = Diam_E : Ambo1(2) = Abb1
Ambo2(1) = Diam_E : Ambo2(2) = Abb2
Ambo3(1) = Abb1 : Ambo3(2) = Abb2
Ambo4(1) = Diam_E : Ambo4(2) = Abb4
Ambo5(1) = Abb3 : Ambo5(2) = Abb4
Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
Terno2(1) = Diam_E : Terno2(2) = Abb3 : Terno2(3) = Abb4
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E1 = Estratto(Es,R1,P6)
If E1 = A Or E1 = B Or E1 = C 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 P7 = 1 To 5
E2 = Estratto(Es,R2,P7)
If E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P8 = 1 To 5
E3 = Estratto(Es,R3,P8)
If E3 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Visual = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
DisegnaCerchioCiclometrico Z,1,1,,,1,1
End If
Ruo(1) = R1 : Ruo(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_ : Ruote(4) = 12
ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2
ImpostaGiocata 5,Ambo4,Ruote,Poste,Clp2
ImpostaGiocata 6,Ambo5,Ruote,Poste,Clp2
ImpostaGiocata 7,Terno,Ruote,Posts,Clp2
ImpostaGiocata 8,Terno2,Ruote,Posts,Clp2
Gioca Es,1
End If
Next
Next
End If
End If
End If
End If
If ScriptInterrotto Then Exit Sub
Next
End If
Next
End If '----
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)
If isNumeroValidoLotto(A) Then
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 isNumeroValidoLotto(C) Then
If C <> A And C <> B And D <> A And D <> B Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
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 = 36 Or DM12 = 9 Then
If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
If DM12 = 36 Then
Met1 = Fuori90(M(1) + 18)
Met2 = Fuori90(M(3) + 18)
End If
If DM23 = 36 Then
Met1 = Fuori90(M(2) + 18)
Met2 = Fuori90(M(4) + 18)
End If
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
For P5 = 1 To 5
E = Estratto(Es,R3,P5)
If E = Met1 Or E = Met2 Then
N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
Diam_E = Diametrale(E)
Abb1 = Fuori90((90 + E) + 9)
Abb2 = Fuori90((90 + E) - 9)
Abb3 = Fuori90 (Abb1 + 45)
Abb4 = Fuori90 (Abb2 + 45)

Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2 :Z(4) = Abb3 : Z(4) = Abb4
Amba(1) = Diam_E
Ambo1(1) = Diam_E : Ambo1(2) = Abb1
Ambo2(1) = Diam_E : Ambo2(2) = Abb2
Ambo3(1) = Diam_E : Ambo3(2) = Abb3
Ambo4(1) = Diam_E : Ambo4(2) = Abb4
Ambo5(1) = Abb3 : Ambo5(2) = Abb4
Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
Terno2(1) = Diam_E : Terno2(2) = Abb3 : Terno2(3) = Abb4
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P6 = 1 To 5
E1 = Estratto(Es,R1,P6)
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 P7 = 1 To 5
E2 = Estratto(Es,R2,P7)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P8 = 1 To 5
E3 = Estratto(Es,R3,P8)
If E3 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
If Visual = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico N,1,1,,,1,1
DisegnaCerchioCiclometrico Z,1,1,,,1,1
End If
Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = 12
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_ : Ruote(4) = 12
ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2
ImpostaGiocata 5,Ambo4,Ruote,Poste,Clp2
ImpostaGiocata 6,Ambo5,Ruote,Poste,Clp2
ImpostaGiocata 7,Terno,Ruote,Posts,Clp2
ImpostaGiocata 8,Terno2,Ruote,Posts,Clp2

Gioca Es,1
End If
Next
Next
End If
End If
End If
End If
Next
If ScriptInterrotto Then Exit Sub
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi TempoTrascorso
End Sub


​
 
Ciao a Tutti
Da come hai descritto la correzione da fare, mi sembrava un errore ma
ho visto che la tua segnalazione non è un errore ma è come l'hai modificato tu
Perché ho provato l'originale come l'aveva concepito l'autore e il terzo
cerchio è un triangolo, da come lo vuoi tu deve essere un pentagono



Appena posso lo faccio
 
Ultima modifica:
Ciao a Tutti

Modifico l'ultimo postato da te dove ho visto che hai fatto le due previsioni uguali
cioe 6 ambi e 2 terni
 
bubù ha scritto:
Grazie 🙏
Clicca per espandere...
Ciao a Tutti

C'è voluto un po di tempo perchè non mi raccapezzavo più tra originale e modifiche fatte da te

Codice: 
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Caso,Casi,Salvo50
   Dim Visual,Met1,Met2,E1,E2,E3
   Dim DM12,DM23,DM41,DM34,A,B,C,D,E
   Dim Diam_E,Abb1,Abb2,Abb3,Abb4,Clp1,Clp2
   Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8
   Dim M(4),Z(5),N(5)
   Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2),Terno(3),Terno2(3)
   Dim Ruo(3),Ruote(4),Posta(1),Poste(2),Posts(3)
   Posta(1) = 1
   Poste(2) = 1
   Posts(2) = 1
   Posts(3) = 1
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10870)
   Clp1 = InputBox("Inserisci I colpi di gioco per l'ambata",Salvo50,9)
   Clp2 = InputBox("Inserisci I colpi di gioco per le altre sorti",Salvo50,15)
   Visual = InputBox("Se vuoi visualizzare i cerchiciclometrici metti 1, per non visualizzarli metti un qualsiasi altro numero ",Salvo50,1)
   ' Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi "8 Pigliatutto Autore Angelo Gargiulo - Mod 13 e Mod 22 - Script Salvo50 ",1,,4,,3,,1
   Scrivi "Dall'originale vertice con ruota diversa e stessa estrazione più mod. Bubù",1,,4,,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)
                  If isNumeroValidoLotto(A) Then
                     For R2 = 1 To 12
                        If R2 = 11 Then R2 = 12
                        If R2 <> R1 Then
                           For P4 = 1 To 5
                              D = Estratto(Es,R2,P4)
                              If isNumeroValidoLotto(D) 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)
                                    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 = 36 Or DM12 = 9 Then
                                       If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
                                          Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
                                          If DM12 = 36 Then
                                             Met1 = Fuori90(M(1) + 18)
                                             Met2 = Fuori90(M(3) + 18)
                                          End If
                                          If DM23 = 36 Then
                                             Met1 = Fuori90(M(2) + 18)
                                             Met2 = Fuori90(M(4) + 18)
                                          End If
                                          For R3 = 1 To 12
                                             If R3 = 11 Then R3 = 12
                                             For P5 = 1 To 5
                                                E = Estratto(Es,R3,P5) '------------
                                                If E = Met1 Or E = Met2 Then
                                                   N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
                                                   Diam_E = Diametrale(E)
                                                   Abb1 = Fuori90(E + 9)
                                                   Abb2 = Fuori90((90 + E) - 9)
                                                   Abb3 = Fuori90(Abb1 + 45)
                                                   Abb4 = Fuori90(Abb2 + 45)
                                                   Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2 : Z(4) = Abb3 : Z(5) = Abb4
                                                   Amba(1) = Diam_E
                                                   Ambo1(1) = Diam_E : Ambo1(2) = Abb1
                                                   Ambo2(1) = Diam_E : Ambo2(2) = Abb2
                                                   Ambo3(1) = Abb1 : Ambo3(2) = Abb2
                                                   Ambo4(1) = Diam_E : Ambo4(2) = Abb4
                                                   Ambo5(1) = Abb3 : Ambo5(2) = Abb4
                                                   Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
                                                   Terno2(1) = Diam_E : Terno2(2) = Abb3 : Terno2(3) = Abb4
                                                   Caso = Caso + 1
                                                   Casi = Casi + 1
                                                   ColoreTesto 2
                                                   Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                                   ColoreTesto 1
                                                   Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                                   ColoreTesto 0
                                                   Scrivi
                                                   Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                   Scrivi " " & SiglaRuota(R1) & " ",1,0
                                                   For P6 = 1 To 5
                                                      E1 = Estratto(Es,R1,P6)
                                                      If E1 = A Or E1 = B Or E1 = C 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 P7 = 1 To 5
                                                      E2 = Estratto(Es,R2,P7)
                                                      If E2 = D Then
                                                         ColoreTesto 2
                                                      Else
                                                         ColoreTesto 0
                                                      End If
                                                      Scrivi Format2(E2) & " ",1,0
                                                      ColoreTesto 0
                                                   Next
                                                   Scrivi
                                                   Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                   Scrivi " " & SiglaRuota(R3) & " ",1,0
                                                   For P8 = 1 To 5
                                                      E3 = Estratto(Es,R3,P8)
                                                      If E3 = E Then
                                                         ColoreTesto 2
                                                      Else
                                                         ColoreTesto 0
                                                      End If
                                                      Scrivi Format2(E3) & " ",1,0
                                                      ColoreTesto 0
                                                   Next
                                                   Scrivi
                                                   If Visual = 1 Then
                                                      DisegnaCerchioCiclometrico M,1,1,,,1,1
                                                      DisegnaCerchioCiclometrico N,1,1,,,1,1
                                                      DisegnaCerchioCiclometrico Z,1,1,,,1,1
                                                   End If
                                                   Scrivi StringaNumeri(Z," ",True),1
                                                   Ruo(1) = R1 : Ruo(2) = R2
                                                   Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_ : Ruote(4) = 12
                                                   ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
                                                   ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
                                                   ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
                                                   ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2
                                                   ImpostaGiocata 5,Ambo4,Ruote,Poste,Clp2
                                                   ImpostaGiocata 6,Ambo5,Ruote,Poste,Clp2
                                                   ImpostaGiocata 7,Terno,Ruote,Posts,Clp2
                                                   ImpostaGiocata 8,Terno2,Ruote,Posts,Clp2
                                                   Gioca Es,1
                                                End If
                                             Next
                                          Next
                                       End If
                                    End If
                                 End If
                              End If
                              If ScriptInterrotto Then Exit Sub
                           Next
                        End If
                     Next
                  End If '----
               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)
               If isNumeroValidoLotto(A) Then
                  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 isNumeroValidoLotto(C) Then
                              If C <> A And C <> B And D <> A And D <> B Then
                                 M(1) = A : M(2) = B : M(3) = C : M(4) = D
                                 Call OrdinaMatrice(M,1)
                                 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 = 36 Or DM12 = 9 Then
                                    If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
                                       Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
                                       If DM12 = 36 Then
                                          Met1 = Fuori90(M(1) + 18)
                                          Met2 = Fuori90(M(3) + 18)
                                       End If
                                       If DM23 = 36 Then
                                          Met1 = Fuori90(M(2) + 18)
                                          Met2 = Fuori90(M(4) + 18)
                                       End If
                                       For R3 = 1 To 12
                                          If R3 = 11 Then R3 = 12
                                          For P5 = 1 To 5
                                             E = Estratto(Es,R3,P5)
                                             If E = Met1 Or E = Met2 Then
                                                N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
                                                Diam_E = Diametrale(E)
                                                Abb1 = Fuori90(E + 9)
                                                Abb2 = Fuori90((90 + E) - 9)
                                                Abb3 = Fuori90(Abb1 + 45)
                                                Abb4 = Fuori90(Abb2 + 45)
                                                Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2 :Z(4) = Abb3 : Z(5) = Abb4
                                                Amba(1) = Diam_E
                                                Ambo1(1) = Diam_E : Ambo1(2) = Abb1
                                                Ambo2(1) = Diam_E : Ambo2(2) = Abb2
                                                Ambo3(1) = Diam_E : Ambo3(2) = Abb3
                                                Ambo4(1) = Diam_E : Ambo4(2) = Abb4
                                                Ambo5(1) = Abb3 : Ambo5(2) = Abb4
                                                Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
                                                Terno2(1) = Diam_E : Terno2(2) = Abb3 : Terno2(3) = Abb4
                                                Caso = Caso + 1
                                                Casi = Casi + 1
                                                ColoreTesto 2
                                                Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                                ColoreTesto 1
                                                Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                                ColoreTesto 0
                                                Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                Scrivi " " & SiglaRuota(R1) & " ",1,0
                                                For P6 = 1 To 5
                                                   E1 = Estratto(Es,R1,P6)
                                                   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 P7 = 1 To 5
                                                   E2 = Estratto(Es,R2,P7)
                                                   If E2 = C Or E2 = D Then
                                                      ColoreTesto 2
                                                   Else
                                                      ColoreTesto 0
                                                   End If
                                                   Scrivi Format2(E2) & " ",1,0
                                                   ColoreTesto 0
                                                Next
                                                Scrivi
                                                Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                Scrivi " " & SiglaRuota(R3) & " ",1,0
                                                For P8 = 1 To 5
                                                   E3 = Estratto(Es,R3,P8)
                                                   If E3 = E Then
                                                      ColoreTesto 2
                                                   Else
                                                      ColoreTesto 0
                                                   End If
                                                   Scrivi Format2(E3) & " ",1,0
                                                   ColoreTesto 0
                                                Next
                                                Scrivi
                                                If Visual = 1 Then
                                                   DisegnaCerchioCiclometrico M,1,1,,,1,1
                                                   DisegnaCerchioCiclometrico N,1,1,,,1,1
                                                   DisegnaCerchioCiclometrico Z,1,1,,,1,1
                                                End If
                                                Scrivi StringaNumeri(Z," ",True),1
                                                Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = 12
                                                Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_ : Ruote(4) = 12
                                                ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
                                                ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
                                                ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
                                                ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2
                                                ImpostaGiocata 5,Ambo4,Ruote,Poste,Clp2
                                                ImpostaGiocata 6,Ambo5,Ruote,Poste,Clp2
                                                ImpostaGiocata 7,Terno,Ruote,Posts,Clp2
                                                ImpostaGiocata 8,Terno2,Ruote,Posts,Clp2
                                                Gioca Es,1
                                             End If
                                          Next
                                       Next
                                    End If
                                 End If
                              End If
                           End If
                        Next
                        If ScriptInterrotto Then Exit Sub
                     Next
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi TempoTrascorso
End Sub
 
salvo50 ha scritto:
Ciao a Tutti

C'è voluto un po di tempo perchè non mi raccapezzavo più tra originale e modifiche fatte da te

Codice: 
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Caso,Casi,Salvo50
   Dim Visual,Met1,Met2,E1,E2,E3
   Dim DM12,DM23,DM41,DM34,A,B,C,D,E
   Dim Diam_E,Abb1,Abb2,Abb3,Abb4,Clp1,Clp2
   Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8
   Dim M(4),Z(5),N(5)
   Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2),Terno(3),Terno2(3)
   Dim Ruo(3),Ruote(4),Posta(1),Poste(2),Posts(3)
   Posta(1) = 1
   Poste(2) = 1
   Posts(2) = 1
   Posts(3) = 1
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10870)
   Clp1 = InputBox("Inserisci I colpi di gioco per l'ambata",Salvo50,9)
   Clp2 = InputBox("Inserisci I colpi di gioco per le altre sorti",Salvo50,15)
   Visual = InputBox("Se vuoi visualizzare i cerchiciclometrici metti 1, per non visualizzarli metti un qualsiasi altro numero ",Salvo50,1)
   ' Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi "8 Pigliatutto Autore Angelo Gargiulo - Mod 13 e Mod 22 - Script Salvo50 ",1,,4,,3,,1
   Scrivi "Dall'originale vertice con ruota diversa e stessa estrazione più mod. Bubù",1,,4,,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)
                  If isNumeroValidoLotto(A) Then
                     For R2 = 1 To 12
                        If R2 = 11 Then R2 = 12
                        If R2 <> R1 Then
                           For P4 = 1 To 5
                              D = Estratto(Es,R2,P4)
                              If isNumeroValidoLotto(D) 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)
                                    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 = 36 Or DM12 = 9 Then
                                       If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
                                          Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
                                          If DM12 = 36 Then
                                             Met1 = Fuori90(M(1) + 18)
                                             Met2 = Fuori90(M(3) + 18)
                                          End If
                                          If DM23 = 36 Then
                                             Met1 = Fuori90(M(2) + 18)
                                             Met2 = Fuori90(M(4) + 18)
                                          End If
                                          For R3 = 1 To 12
                                             If R3 = 11 Then R3 = 12
                                             For P5 = 1 To 5
                                                E = Estratto(Es,R3,P5) '------------
                                                If E = Met1 Or E = Met2 Then
                                                   N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
                                                   Diam_E = Diametrale(E)
                                                   Abb1 = Fuori90(E + 9)
                                                   Abb2 = Fuori90((90 + E) - 9)
                                                   Abb3 = Fuori90(Abb1 + 45)
                                                   Abb4 = Fuori90(Abb2 + 45)
                                                   Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2 : Z(4) = Abb3 : Z(5) = Abb4
                                                   Amba(1) = Diam_E
                                                   Ambo1(1) = Diam_E : Ambo1(2) = Abb1
                                                   Ambo2(1) = Diam_E : Ambo2(2) = Abb2
                                                   Ambo3(1) = Abb1 : Ambo3(2) = Abb2
                                                   Ambo4(1) = Diam_E : Ambo4(2) = Abb4
                                                   Ambo5(1) = Abb3 : Ambo5(2) = Abb4
                                                   Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
                                                   Terno2(1) = Diam_E : Terno2(2) = Abb3 : Terno2(3) = Abb4
                                                   Caso = Caso + 1
                                                   Casi = Casi + 1
                                                   ColoreTesto 2
                                                   Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                                   ColoreTesto 1
                                                   Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                                   ColoreTesto 0
                                                   Scrivi
                                                   Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                   Scrivi " " & SiglaRuota(R1) & " ",1,0
                                                   For P6 = 1 To 5
                                                      E1 = Estratto(Es,R1,P6)
                                                      If E1 = A Or E1 = B Or E1 = C 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 P7 = 1 To 5
                                                      E2 = Estratto(Es,R2,P7)
                                                      If E2 = D Then
                                                         ColoreTesto 2
                                                      Else
                                                         ColoreTesto 0
                                                      End If
                                                      Scrivi Format2(E2) & " ",1,0
                                                      ColoreTesto 0
                                                   Next
                                                   Scrivi
                                                   Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                   Scrivi " " & SiglaRuota(R3) & " ",1,0
                                                   For P8 = 1 To 5
                                                      E3 = Estratto(Es,R3,P8)
                                                      If E3 = E Then
                                                         ColoreTesto 2
                                                      Else
                                                         ColoreTesto 0
                                                      End If
                                                      Scrivi Format2(E3) & " ",1,0
                                                      ColoreTesto 0
                                                   Next
                                                   Scrivi
                                                   If Visual = 1 Then
                                                      DisegnaCerchioCiclometrico M,1,1,,,1,1
                                                      DisegnaCerchioCiclometrico N,1,1,,,1,1
                                                      DisegnaCerchioCiclometrico Z,1,1,,,1,1
                                                   End If
                                                   Scrivi StringaNumeri(Z," ",True),1
                                                   Ruo(1) = R1 : Ruo(2) = R2
                                                   Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_ : Ruote(4) = 12
                                                   ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
                                                   ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
                                                   ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
                                                   ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2
                                                   ImpostaGiocata 5,Ambo4,Ruote,Poste,Clp2
                                                   ImpostaGiocata 6,Ambo5,Ruote,Poste,Clp2
                                                   ImpostaGiocata 7,Terno,Ruote,Posts,Clp2
                                                   ImpostaGiocata 8,Terno2,Ruote,Posts,Clp2
                                                   Gioca Es,1
                                                End If
                                             Next
                                          Next
                                       End If
                                    End If
                                 End If
                              End If
                              If ScriptInterrotto Then Exit Sub
                           Next
                        End If
                     Next
                  End If '----
               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)
               If isNumeroValidoLotto(A) Then
                  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 isNumeroValidoLotto(C) Then
                              If C <> A And C <> B And D <> A And D <> B Then
                                 M(1) = A : M(2) = B : M(3) = C : M(4) = D
                                 Call OrdinaMatrice(M,1)
                                 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 = 36 Or DM12 = 9 Then
                                    If(DM12 = 36 And DM23 = 9 And DM34 = 36 And DM41 = 9)_
                                       Or(DM41 = 36 And DM12 = 9 And DM23 = 36 And DM34 = 9) Then
                                       If DM12 = 36 Then
                                          Met1 = Fuori90(M(1) + 18)
                                          Met2 = Fuori90(M(3) + 18)
                                       End If
                                       If DM23 = 36 Then
                                          Met1 = Fuori90(M(2) + 18)
                                          Met2 = Fuori90(M(4) + 18)
                                       End If
                                       For R3 = 1 To 12
                                          If R3 = 11 Then R3 = 12
                                          For P5 = 1 To 5
                                             E = Estratto(Es,R3,P5)
                                             If E = Met1 Or E = Met2 Then
                                                N(1) = A : N(2) = B : N(3) = C : N(4) = D : N(5) = E
                                                Diam_E = Diametrale(E)
                                                Abb1 = Fuori90(E + 9)
                                                Abb2 = Fuori90((90 + E) - 9)
                                                Abb3 = Fuori90(Abb1 + 45)
                                                Abb4 = Fuori90(Abb2 + 45)
                                                Z(1) = Diam_E : Z(2) = Abb1 : Z(3) = Abb2 :Z(4) = Abb3 : Z(5) = Abb4
                                                Amba(1) = Diam_E
                                                Ambo1(1) = Diam_E : Ambo1(2) = Abb1
                                                Ambo2(1) = Diam_E : Ambo2(2) = Abb2
                                                Ambo3(1) = Diam_E : Ambo3(2) = Abb3
                                                Ambo4(1) = Diam_E : Ambo4(2) = Abb4
                                                Ambo5(1) = Abb3 : Ambo5(2) = Abb4
                                                Terno(1) = Diam_E : Terno(2) = Abb1 : Terno(3) = Abb2
                                                Terno2(1) = Diam_E : Terno2(2) = Abb3 : Terno2(3) = Abb4
                                                Caso = Caso + 1
                                                Casi = Casi + 1
                                                ColoreTesto 2
                                                Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                                ColoreTesto 1
                                                Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                                ColoreTesto 0
                                                Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                Scrivi " " & SiglaRuota(R1) & " ",1,0
                                                For P6 = 1 To 5
                                                   E1 = Estratto(Es,R1,P6)
                                                   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 P7 = 1 To 5
                                                   E2 = Estratto(Es,R2,P7)
                                                   If E2 = C Or E2 = D Then
                                                      ColoreTesto 2
                                                   Else
                                                      ColoreTesto 0
                                                   End If
                                                   Scrivi Format2(E2) & " ",1,0
                                                   ColoreTesto 0
                                                Next
                                                Scrivi
                                                Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                Scrivi " " & SiglaRuota(R3) & " ",1,0
                                                For P8 = 1 To 5
                                                   E3 = Estratto(Es,R3,P8)
                                                   If E3 = E Then
                                                      ColoreTesto 2
                                                   Else
                                                      ColoreTesto 0
                                                   End If
                                                   Scrivi Format2(E3) & " ",1,0
                                                   ColoreTesto 0
                                                Next
                                                Scrivi
                                                If Visual = 1 Then
                                                   DisegnaCerchioCiclometrico M,1,1,,,1,1
                                                   DisegnaCerchioCiclometrico N,1,1,,,1,1
                                                   DisegnaCerchioCiclometrico Z,1,1,,,1,1
                                                End If
                                                Scrivi StringaNumeri(Z," ",True),1
                                                Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = 12
                                                Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TT_ : Ruote(4) = 12
                                                ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
                                                ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
                                                ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
                                                ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp2
                                                ImpostaGiocata 5,Ambo4,Ruote,Poste,Clp2
                                                ImpostaGiocata 6,Ambo5,Ruote,Poste,Clp2
                                                ImpostaGiocata 7,Terno,Ruote,Posts,Clp2
                                                ImpostaGiocata 8,Terno2,Ruote,Posts,Clp2
                                                Gioca Es,1
                                             End If
                                          Next
                                       Next
                                    End If
                                 End If
                              End If
                           End If
                        Next
                        If ScriptInterrotto Then Exit Sub
                     Next
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi TempoTrascorso
End Sub
Clicca per espandere...
Perfetto Grazieeeee (y)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 10 luglio 2026
    Bari
    88
    71
    89
    31
    33
    Cagliari
    05
    67
    39
    21
    35
    Firenze
    54
    85
    02
    78
    57
    Genova
    17
    45
    04
    25
    29
    Milano
    56
    58
    49
    35
    08
    Napoli
    49
    56
    19
    68
    08
    Palermo
    87
    39
    72
    05
    56
    Roma
    59
    51
    22
    62
    41
    Torino
    60
    84
    32
    28
    01
    Venezia
    46
    69
    11
    36
    22
    Nazionale
    22
    36
    41
    18
    76
    Estrazione Simbolotto
    Nazionale
    23
    34
    14
    42
    44
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto