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)
 
Ciao a Tutti
Ciao Dragom
Gli altri 2 metodi che hai postato
nel primo per come faccio io gli script
mi vengono 9 FOR-NEXT concatenati
a cascata e il mio computer va in tilt,
il secondo non è alla mia portata
 
Ciao Salvo , Buona Domenica a te e a tutti voi , ti volevo chiederti se si poteva modificare questo script inserendo degli ( DIM )
" DA PREMETTERE CHE IL METODO NON E MIO , LO TROVI SUL POST DEI METODO ""
che sono
comando di ambo in decina sortita sulla ruota
comando dell'ambo sortita
comando su quale estrazione e sortita
inserisco IL LISTATO

Sub Main()

Dim rt(5), pt(2), nu(2)
Dim es, ini, fin, clp, casi
Dim n(5), d

ini = 6877
fin = EstrazioneFin
clp = 13

' Ruote di gioco: BA-CA-FI-GE-MI
rt(1)=1
rt(2)=2
rt(3)=3
rt(4)=4
rt(5)=5

pt(1)=0
pt(2)=1 ' Ambo

For es = ini To fin

AvanzamentoElab ini,fin,es

For k = 1 To 5
n(k) = Estratto(es,1,k) ' Bari
Next

d = DecinaTerzina(n)

If d > 0 Then

casi = casi + 1
Scrivi String(70,"="),1
Scrivi "Caso n° " & casi & " - Estrazione " & es & " - Terzina su Bari decina " & d,1

Select Case d

Case 1 ' 01-09
x1 = Fuori90(Estratto(es,6,3)+66)
x2 = Fuori90(Estratto(es,3,1)+46)
x3 = Fuori90(Estratto(es,5,4)+11)
x4 = Fuori90(Estratto(es,10,5)+50)
Call GiocaAmbi(es,x1,x3,x2,x4,rt,pt,nu,clp)

Case 2 ' 11-19
x1 = Fuori90(Estratto(es,8,2)+75)
x2 = Fuori90(Estratto(es,5,2)+48)
x3 = Fuori90(Estratto(es,9,1)+9)
x4 = Fuori90(Estratto(es,3,2)+87)
Call GiocaAmbi(es,x1,x3,x2,x4,rt,pt,nu,clp)

Case 3 ' 21-29
x1 = Fuori90(Estratto(es,3,4)+5) ' 4° FI + 5
x2 = Fuori90(Estratto(es,10,5)+80)
x3 = Fuori90(Estratto(es,7,1)+44)
x4 = Fuori90(Estratto(es,3,2)+55)
Call GiocaAmbi(es,x1,x4,x2,x3,rt,pt,nu,clp)

Case 4 ' 31-39
x1 = Fuori90(Estratto(es,12,3)+59)
x2 = Fuori90(Estratto(es,5,3)+68)
x3 = Fuori90(Estratto(es,2,2)+81)
x4 = Fuori90(Estratto(es,5,4)+29)
Call GiocaAmbi(es,x1,x3,x2,x4,rt,pt,nu,clp)

Case 5 ' 41-49
x1 = Fuori90(Estratto(es,8,2)+83)
x2 = Fuori90(Estratto(es,8,5)+41)
x3 = Fuori90(Estratto(es,7,3)+24)
x4 = Fuori90(Estratto(es,9,3)+22)
Call GiocaAmbi(es,x1,x4,x2,x3,rt,pt,nu,clp)

Case 6 ' 51-59
x1 = Fuori90(Estratto(es,4,3)+15)
x2 = Fuori90(Estratto(es,5,5)+17)
x3 = Fuori90(Estratto(es,4,1)+19)
x4 = Fuori90(Estratto(es,5,4)+36)
Call GiocaAmbi(es,x1,x3,x2,x4,rt,pt,nu,clp)

Case 7 ' 61-69
x1 = Fuori90(Estratto(es,10,1)+83)
x2 = Fuori90(Estratto(es,3,2)+53)
x3 = Fuori90(Estratto(es,8,4)+11)
x4 = Fuori90(Estratto(es,3,1)+60)
Call GiocaAmbi(es,x1,x3,x2,x4,rt,pt,nu,clp)

Case 8 ' 71-79
x1 = Fuori90(Estratto(es,4,3)+27)
x2 = Fuori90(Estratto(es,3,4)+57)
x3 = Fuori90(Estratto(es,7,2)+57)
Call GiocaAmbi(es,x1,x3,x2,x3,rt,pt,nu,clp)

Case 9 ' 81-89
x1 = Fuori90(Estratto(es,3,1)+72)
x2 = Fuori90(Estratto(es,6,3)+3)
x3 = Fuori90(Estratto(es,7,2)+36)
x4 = Fuori90(Estratto(es,6,1)+35)
Call GiocaAmbi(es,x1,x3,x2,x4,rt,pt,nu,clp)

End Select

Gioca es

End If

Next

Scrivi
Scrivi "Casi rilevati: " & casi,1
ScriviResoconto

End Sub


Function DecinaTerzina(n)

Dim i, c, a, b

DecinaTerzina = 0

For d = 1 To 9

a = ((d-1)*10)+1
b = a+8
c = 0

For i = 1 To 5
If n(i) >= a And n(i) <= b Then c = c + 1
Next

If c >= 3 Then
DecinaTerzina = d
Exit Function
End If

Next

End Function


Sub GiocaAmbi(es,a,b,c,d,rt,pt,nu,clp)

Scrivi "Ambo 1: " & a & "." & b,1
nu(1)=a
nu(2)=b
ImpostaGiocata 1,nu,rt,pt,clp

Scrivi "Ambo 2: " & c & "." & d,1
nu(1)=c
nu(2)=d
ImpostaGiocata 2,nu,rt,pt,clp

End Sub


GRAZIE PER L'AIUTO
 
Un metodo fortemente positivo che ha come risultato che,

giocando 2 Ambi, quasi sempre se ne vincono 2 o più,

si fonda, sicuramente su una ricerca statistica molto-molto-molto evoluta.

Pertanto è molto interessante.

Penso che difficilmente si possano avere e migliore i risultati futuri,

superando quelli già presenti.

Tra i tanti casi ne riporto alcuni ad esempio :

Caso n° 111 - Estrazione 6223 - Terzina su Bari decina 4
Ambo 1: 59.73
Ambo 2: 48.73
Estrazione generatrice del pronostico 06223 [ 15 - 14/04/1990]
G 0001 Numeri in gioco : 59.73 su BA CA FI GE MI per Ambo
V N. [59.73 ] [FI] [73 .. 59 .. ..] C. 12 Ambo 06235 [ 27 - 07/07/1990]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 48.73 su BA CA FI GE MI per Ambo
V N. [48.73 ] [MI] [73 .. .. .. 48] C. 1 Ambo 06224 [ 16 - 21/04/1990]
V N. [48.73 ] [CA] [73 .. .. 48 ..] C. 7 Ambo 06230 [ 22 - 02/06/1990]
Interrotta per raggiunta durata
======================================================================
Caso n° 128 - Estrazione 6484 - Terzina su Bari decina 9
Ambo 1: 74.29
Ambo 2: 65.47
Estrazione generatrice del pronostico 06484 [ 15 - 15/04/1995]
G 0001 Numeri in gioco : 74.29 su BA CA FI GE MI per Ambo
V N. [74.29 ] [GE] [.. .. .. 29 74] C. 2 Ambo 06486 [ 17 - 29/04/1995]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 65.47 su BA CA FI GE MI per Ambo
V N. [65.47 ] [CA] [.. 47 .. 65 ..] C. 9 Ambo 06493 [ 24 - 17/06/1995]
V N. [65.47 ] [CA] [.. 65 .. 47 ..] C. 12 Ambo 06496 [ 27 - 08/07/1995]
Interrotta per raggiunta durata

======================================================================

Caso n° 167 - Estrazione 7207 - Terzina su Bari decina 7
Ambo 1: 43.35
Ambo 2: 62.49
Estrazione generatrice del pronostico 07207 [ 12 - 08/02/2003]
G 0001 Numeri in gioco : 43.35 su BA CA FI GE MI per Ambo
V N. [43.35 ] [BA] [43 .. 35 .. ..] C. 10 Ambo 07217 [ 22 - 15/03/2003]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 62.49 su BA CA FI GE MI per Ambo
V N. [62.49 ] [MI] [.. .. 49 .. 62] C. 10 Ambo 07217 [ 22 - 15/03/2003]
V N. [62.49 ] [CA] [49 .. .. .. 62] C. 11 Ambo 07218 [ 23 - 19/03/2003]
Interrotta per raggiunta durata

======================================================================
Caso n° 359 - Estrazione 10234 - Terzina su Bari decina 6
Ambo 1: 72.54
Ambo 2: 43.76
Estrazione generatrice del pronostico 10234 [ 54 - 06/05/2023]
G 0001 Numeri in gioco : 72.54 su BA CA FI GE MI per Ambo
V N. [72.54 ] [FI] [54 .. 72 .. ..] C. 11 Ambo 10245 [ 65 - 01/06/2023]
V N. [72.54 ] [FI] [.. 54 .. .. 72] C. 12 Ambo 10246 [ 66 - 03/06/2023]
V N. [72.54 ] [FI] [.. .. 54 72 ..] C. 13 Ambo 10247 [ 67 - 06/06/2023]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 43.76 su BA CA FI GE MI per Ambo
Interrotta per raggiunta durata

======================================================================
Caso n° 398 - Estrazione 10819 - Terzina su Bari decina 4
Ambo 1: 34.9
Ambo 2: 24.8
Estrazione generatrice del pronostico 10819 [ 40 - 10/03/2026]
G 0001 Numeri in gioco : 34.09 su BA CA FI GE MI per Ambo
V N. [34.09 ] [BA] [34 .. .. .. 09] C. 3 Ambo 10822 [ 43 - 14/03/2026]
V N. [34.09 ] [BA] [09 .. .. 34 ..] C. 10 Ambo 10829 [ 50 - 27/03/2026]
V N. [34.09 ] [BA] [.. 09 .. .. 34] C. 12 Ambo 10831 [ 52 - 31/03/2026]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 24.08 su BA CA FI GE MI per Ambo
Interrotta per raggiunta durata

======================================================================

:)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 luglio 2026
    Bari
    42
    14
    74
    44
    05
    Cagliari
    81
    77
    15
    50
    53
    Firenze
    81
    12
    77
    67
    64
    Genova
    49
    32
    61
    33
    17
    Milano
    53
    24
    41
    83
    38
    Napoli
    31
    02
    68
    25
    74
    Palermo
    27
    90
    75
    40
    10
    Roma
    52
    68
    56
    78
    37
    Torino
    54
    33
    64
    42
    05
    Venezia
    49
    70
    73
    16
    06
    Nazionale
    02
    58
    06
    70
    84
    Estrazione Simbolotto
    Nazionale
    11
    42
    35
    36
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto