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

[bubù]

Buona Domenica a Tutti ,
a Salvo50 chiedo se può fare uno script non importa se non elenca tutte gli Ambi o le combinazioni vincenti, l'importante è che mi mostri la condizione di gioco con la stessa figura che si ripete in 3 ruote meglio se consecutive o diametrali o gemelli.
Se ci fai caso sembra che funzionano abbastanza bene già nei primi 6 colpi di gioco, solo nell'estrazione di ieri sera hanno pagato tutte quelle postate:
*** Estrazione n. 179 del 08/11/2025 (6^ Sab.) ESTRATTI e AMBO SECCO 21-30 TORINO e AMBO SECCO 21-57 a MILANO al 4° colpo!!! ***
*** Estrazione n. 179 del 08/11/2025 (6^ Sab.) ESTRATTO 8 a BARI e NAZIONALE e AMBO in quartina 71-89 a TUTTE (FIRENZE) al 3° colpo!!! ***
*** Estrazione n. 179 del 08/11/2025 (6^ Sab.) AMBO SECCO 21-30 a TUTTE (TORINO) al 2° colpo!!! ***
Non saranno grosse vincite ma l'importante che escano.
Grazie anche se non puoi farlo, Buona Domenica

 

[salvo50]

Ciao a Tutti
Ciao Bubù
Posso farlo, allora devo cercare in tre ruote 6 numeri con stessa figura


Poi il pronostico lo fai tu

correggimi se ho capito male

 

[bubù]

Ciao a Tutti
Ciao Bubù
Posso farlo, allora devo cercare in tre ruote 6 numeri con stessa figura
e 4 di questi 6 numeri devono formare un rettancolo con dist 18 e 27

Poi il pronostico lo fai tu

correggimi se ho capito male

Esatto, anche solo 3 di questi numeri,18-27-18 o 18-27-27 e se vuoi, puoi inserire l'Estratto che è la chiusura del Rettangolo e i due AMBI secchi Formati dall'estratto + distanza 9 e del Diametrale o se preferisci dalla distanza 54 dall'estratto, in pratica i due numeri che dividono il rettangolo in due reattangoli dist 9 e 27, questi due numeri formano il terzo AMBO Secco. Il resto dei numeri non importa se 6 o anche 5, se c'è una dist 36 dall'Estratto meglio altrimenti fa lo stesso, poi di volta in volta il resto li inserisco io. Grazie

 

[salvo50]

Ciao a Tutti
Ciao Bubù

Posso farlo cercando solo 4 numeri (estratti), quelli che formano il rettangolo,
perché con 5 o 6 numeri non riesco a individuare i 4 numeri del rettangolo
perchè ci sono troppe combinazioni.

Facendolo solo con 4 numeri mi devi dire in quante ruote devo trovare
questi 4 numeri

con 2 ruote posso fare 2 numeri per ogni ruota
oppure un numero in una ruota e 3 numeri nell'altra ruota
posso farli tutte e due le combinazioni con un solo script

se vuoi farlo con 3 ruote, dimmi i 4 numeri come vuoi
farli uscire nelle 3 ruote

ribadisco con 5 o 6 numeri non riesco a individuare il rettangolo
però in questo caso se può servirti posso farti uno script che
cerca i 6 numeri in 3 ruote e mettere il cerchio ciclometrico

 

[bubù]

Ciao a Tutti
Ciao Bubù

Posso farlo cercando solo 4 numeri (estratti), quelli che formano il rettangolo,
perché con 5 o 6 numeri non riesco a individuare i 4 numeri del rettangolo
perchè ci sono troppe combinazioni.

Facendolo solo con 4 numeri mi devi dire in quante ruote devo trovare
questi 4 numeri

con 2 ruote posso fare 2 numeri per ogni ruota
oppure un numero in una ruota e 3 numeri nell'altra ruota
posso farli tutte e due le combinazioni con un solo script

se vuoi farlo con 3 ruote, dimmi i 4 numeri come vuoi
farli uscire nelle 3 ruote

ribadisco con 5 o 6 numeri non riesco a individuare il rettangolo
però in questo caso se può servirti posso farti uno script che
cerca i 6 numeri in 3 ruote e mettere il cerchio ciclometrico

va bene con 4 numeri ma in 3 ruote anche se un numero si ripete in più ruote va bene lo stesso, in teoria basterebbero anche solo i 3 numeri il quarto numero è quello che chiude il rettangolo, quindi se c'è va bene altrimenti non serve, servirebbe un quarto numero con stessa figura xrò. Puoi prendere ad esempio la prima che ho postato che ha pagato su due delle ruote originari della previsione cioè quella di MILANO TORINO e VENEZIA dove c'erano MI 3-48 ; TO 66; e VE 75 , ma serve almeno un'altro numero della stessa figura in una delle 3 ruote ad esempio il 66 che come vedi si ripete sia a Milano che a TORINO, il rettangolo era formato dal 3; 48; e 75, mancava il 30 che è il nostro primo ESTRATTO, il tutto inizia proprio dal 30, il 66 è servito per continuare e trovare l'altro estratto il 21, ma a quello ci penso io dopo.
spero di essere stato di aiuto. se ci sono solo i 4 numeri che formano il rettangolo non si può continuare serve un altro numero della stessa figura.

 

[bubù]

Forse basta cercare numeri di stessa figura (3, 8 ...) in 3 ruote a ogni estrazione giusto per non perdere la vista a cercare nel quadro estrazionale e se puoi li inserisci nel cerchio. Il resto viene da se . così forse e più semplice da fare per te, poi se si può fare bene e ci penso io a continuare altrimenti passo alla prossima estrazione. Grazie

 

[salvo50]

Forse basta cercare numeri di stessa figura (3, 8 ...) in 3 ruote a ogni estrazione giusto per non perdere la vista a cercare nel quadro estrazionale e se puoi li inserisci nel cerchio. Il resto viene da se . così forse e più semplice da fare per te, poi se si può fare bene e ci penso io a continuare altrimenti passo alla prossima estrazione. Grazie

L'ho fatto però non credevo che per 4 numeri avresti scelto 3 ruote e quindi l'ho fatto con 2 ruote
adesso posto questo dopo ti posto quello con 3 ruote, devo modificare questo

Option Explicit
Dim DM12,DM13,DM14,DM23,DM24,DM34,A,B,C,D
Dim M(4),Z(6),N(3)
Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2)
Sub Main
   Dim FIn,Es,Ini,Caso,Casi,Salvo50
   Dim Clp1,Clp2,Visual
   Dim R1,R2,P1,P2,P3,P4
   Dim Fi_A,Fi_B,Fi_C,Fi_D,Fi_E,Fi_F,K
   Dim Ruo(2),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,10650)
   Clp1 = InputBox("Inserisci I colpi di gioco per l'ambata",Salvo50,7)
   Clp2 = InputBox("Inserisci I colpi di gioco per le altre sorti",Salvo50,7)
   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 Space(8) & "Due Ruote Stessa figura in rettangolo - Autore Bubù - Script Salvo50",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)
                  Fi_A = Figura(A) : Fi_B = Figura(B) : Fi_C = Figura(C)
                  If A > 0 And Fi_A = Fi_B And Fi_B = Fi_C Then
                     For R2 = 1 To 12
                        If R2 <> R1 Then
                           If R2 = 11 Then R2 = 12
                           For P4 = 1 To 5
                              D = Estratto(Es,R2,P4)
                              If D > 0 And D <> A And D <> B And D <> C Then
                                 Fi_D = Figura(D)
                                 If Fi_D = Fi_A Then
                                    M(1) = A : M(2) = B : M(3) = C : M(4) = D
                                    Call OrdinaMatrice(M,1)
                                    DM12 = Distanza(M(1),M(2)) : DM13 = Distanza(M(1),M(3)) : DM14 = Distanza(M(1),M(4))
                                    DM23 = Distanza(M(2),M(3)) : DM24 = Distanza(M(2),M(4)) : DM34 = Distanza(M(3),M(4))
                                    If(DM12 = 27 And DM23 = 18 And DM34 = 27 And DM14 = 18)_
                                       Or(DM12 = 18 And DM23 = 27 And DM34 = 18 And DM14 = 27) Then
                                       If(DM13 = 45 And DM14 = 18 And DM34 = 27) Or(DM24 = 45 And DM34 = 18 And DM23 = 27)_
                                          Or(DM13 = 45 And DM23 = 18 And DM12 = 27) Or(DM24 = 45 And DM12 = 18 And DM14 = 27) Then
                                          Call Bubu
                                          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
                                          ReDim MatrCasella(4,1)
                                          MatrCasella(1,0) = R1
                                          MatrCasella(1,1) = P1
                                          MatrCasella(2,0) = R1
                                          MatrCasella(2,1) = P2
                                          MatrCasella(3,0) = R1
                                          MatrCasella(3,1) = P3
                                          MatrCasella(4,0) = R2
                                          MatrCasella(4,1) = P4
                                          Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
                                          Scrivi
                                          If Visual = 1 Then
                                             DisegnaCerchioCiclometrico N,1,1,,,1,1
                                             DisegnaCerchioCiclometrico M,1,1,,,1,1
                                             DisegnaCerchioCiclometrico Z,1,1,,,1,1
                                          End If
                                          Scrivi
                                          Ruo(1) = R1 : Ruo(2) = R2
                                          ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
                                          ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp2
                                          ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp2
                                          ImpostaGiocata 4,Ambo3,Ruo,Poste,Clp2
                                          Gioca Es
                                          '
                                       End If
                                    End If
                                 End If
                              End If
                              If ScriptInterrotto Then Exit Sub
                           Next
                        End If
                     Next
                  End If '----
               Next
            Next
         Next
      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)
               Fi_A = Figura(A) : Fi_B = Figura(B)
               If A > 0 And Fi_A = Fi_B 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 C > 0 And C <> A And C <> B And D <> A And D <> B Then
                              Fi_C = Figura(C) : Fi_D = Figura(D)
                              If Fi_C = Fi_D And Fi_D = Fi_A Then
                                 M(1) = A : M(2) = B : M(3) = C : M(4) = D
                                 Call OrdinaMatrice(M,1)
                                 DM12 = Distanza(M(1),M(2)) : DM13 = Distanza(M(1),M(3)) : DM14 = Distanza(M(1),M(4))
                                 DM23 = Distanza(M(2),M(3)) : DM24 = Distanza(M(2),M(4)) : DM34 = Distanza(M(3),M(4))
                                 If(DM12 = 27 And DM23 = 18 And DM34 = 27 And DM14 = 18)_
                                    Or(DM12 = 18 And DM23 = 27 And DM34 = 18 And DM14 = 27) Then
                                    If(DM13 = 45 And DM14 = 18 And DM34 = 27) Or(DM24 = 45 And DM34 = 18 And DM23 = 27)_
                                       Or(DM13 = 45 And DM23 = 18 And DM12 = 27) Or(DM24 = 45 And DM12 = 18 And DM14 = 27) Then
                                       Call Bubu
                                       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
                                       ReDim MatrCasella(4,1)
                                       MatrCasella(1,0) = R1
                                       MatrCasella(1,1) = P1
                                       MatrCasella(2,0) = R1
                                       MatrCasella(2,1) = P2
                                       MatrCasella(3,0) = R2
                                       MatrCasella(3,1) = P3
                                       MatrCasella(4,0) = R2
                                       MatrCasella(4,1) = P4
                                       Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
                                       Scrivi
                                       If Visual = 1 Then
                                          DisegnaCerchioCiclometrico N,1,1,,,1,1
                                          DisegnaCerchioCiclometrico M,1,1,,,1,1
                                          DisegnaCerchioCiclometrico Z,1,1,,,1,1
                                       End If
                                       Ruo(1) = R1 : Ruo(2) = R2
                                       ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
                                       ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp2
                                       ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp2
                                       ImpostaGiocata 4,Ambo3,Ruo,Poste,Clp2
                                       Gioca Es
                                    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
End Sub
Function Bubu
   If(DM13 = 45 And DM14 = 18 And DM34 = 27) Then
      Amba(1) = M(2)
      Ambo1(1) = M(2) : Ambo1(2) = Fuori90(M(2) + 9)
      Ambo2(1) = M(2) : Ambo2(2) = Fuori90(M(4) + 9)
      N(1) = M(1) : N(2) = M(3) : N(3) = M(4)
   End If
   '
   If(DM24 = 45 And DM24 = 18 And DM14 = 27) Then
      Amba(1) = M(1)
      Ambo1(1) = M(1) : Ambo1(2) = Fuori90(M(1) + 9)
      Ambo2(1) = M(1) : Ambo2(2) = Fuori90(M(3) + 9)
      N(1) = M(2) : N(2) = M(3) : N(3) = M(4)
   End If
   '
   If(DM13 = 45 And DM23 = 18 And DM12 = 27) Then
      Amba(1) = M(4)
      Ambo1(1) = M(4) : Ambo1(2) = Fuori90(M(4) + 9)
      Ambo2(1) = M(4) : Ambo2(2) = Fuori90(M(2) + 9)
      N(1) = M(1) : N(2) = M(2) : N(3) = M(3)
   End If
   '
   If(DM24 = 45 And DM12 = 18 And DM14 = 27) Then
      Amba(1) = M(3)
      Ambo1(1) = M(3) : Ambo1(2) = Fuori90(M(3) + 9)
      Ambo2(1) = M(3) : Ambo2(2) = Fuori90(M(1) + 9)
      N(1) = M(1) : N(2) = M(2) : N(3) = M(4)
   End If
   Ambo3(1) = Ambo1(2) : Ambo3(2) = Ambo2(2)
   Z(1) = A : Z(2) = B : Z(3) = C : Z(4) = D : Z(5) = Ambo3(1) : Z(6) = Ambo3(2)
End Function

 

[salvo50]

Fatto, questo è con 3 ruote

Option Explicit
Dim DM12,DM13,DM14,DM23,DM24,DM34,A,B,C,D
Dim M(4),Z(6),N(3)
Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2)
Sub Main
   Dim FIn,Es,Ini,Caso,Casi,Salvo50
   Dim Clp1,Clp2,Visual
   Dim R1,R2,R3,P1,P2,P3,P4
   Dim Fi_A,Fi_B,Fi_C,Fi_D,Fi_E,Fi_F,K
   Dim Ruo(3),Posta(1),Poste(2)
   Posta(1) = 1
   Poste(2) = 1
   Posts(2) = 1
   ' Posts(3) = 1
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10700)
   Clp1 = InputBox("Inserisci I colpi di gioco per l'ambata",Salvo50,7)
   Clp2 = InputBox("Inserisci I colpi di gioco per le altre sorti",Salvo50,10)
   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 Space(8) & "Tre Ruote Stessa figura in rettangolo - Autore Bubù - Script Salvo50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            Fi_A = Figura(A)
            If A > 0 Then
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  For P2 = 1 To 5
                     B = Estratto(Es,R2,P2)
                     If B > 0 And B <> A Then
                        Fi_B = Figura(B)
                        If Fi_B = Fi_A Then
                           For R3 = 1 To 12
                              If R3 = 11 Then R3 = 12
                              If R3 <> R1 And R3 <> R2 Then
                                 For P3 = 1 To 4
                                    For P4 = P3 + 1 To 5
                                       C = Estratto(Es,R3,P3)
                                       D = Estratto(Es,R3,P4)
                                       If C > 0 And C <> A And C <> B And D <> A And D <> B Then
                                          Fi_C = Figura(C) : Fi_D = Figura(D)
                                          If Fi_C = Fi_D And Fi_D = Fi_A Then
                                             M(1) = A : M(2) = B : M(3) = C : M(4) = D
                                             Call OrdinaMatrice(M,1)
                                             DM12 = Distanza(M(1),M(2)) : DM13 = Distanza(M(1),M(3)) : DM14 = Distanza(M(1),M(4))
                                             DM23 = Distanza(M(2),M(3)) : DM24 = Distanza(M(2),M(4)) : DM34 = Distanza(M(3),M(4))
                                             If(DM12 = 27 And DM23 = 18 And DM34 = 27 And DM14 = 18)_
                                                Or(DM12 = 18 And DM23 = 27 And DM34 = 18 And DM14 = 27) Then
                                                If(DM13 = 45 And DM14 = 18 And DM34 = 27) Or(DM24 = 45 And DM34 = 18 And DM23 = 27)_
                                                   Or(DM13 = 45 And DM23 = 18 And DM12 = 27) Or(DM24 = 45 And DM12 = 18 And DM14 = 27) Then
                                                   Call Bubu
                                                   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
                                                   ReDim MatrCasella(4,1)
                                                   MatrCasella(1,0) = R1
                                                   MatrCasella(1,1) = P1
                                                   MatrCasella(2,0) = R2
                                                   MatrCasella(2,1) = P2
                                                   MatrCasella(3,0) = R3
                                                   MatrCasella(3,1) = P3
                                                   MatrCasella(4,0) = R3
                                                   MatrCasella(4,1) = P4
                                                   Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
                                                   Scrivi
                                                   If Visual = 1 Then
                                                      DisegnaCerchioCiclometrico N,1,1,,,1,1
                                                      DisegnaCerchioCiclometrico M,1,1,,,1,1
                                                      DisegnaCerchioCiclometrico Z,1,1,,,1,1
                                                   End If
                                                   Scrivi
                                                   Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3
                                                   ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
                                                   ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp2
                                                   ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp2
                                                   ImpostaGiocata 4,Ambo3,Ruo,Poste,Clp2
                                                   Gioca Es,1
                                                   '
                                                End If
                                             End If
                                          End If
                                       End If
                                    Next
                                 Next
                              End If
                           Next
                        End If
                     End If
                     If ScriptInterrotto Then Exit Sub
                  Next
               Next
            End If '----
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Function Bubu
   If(DM13 = 45 And DM14 = 18 And DM34 = 27) Then
      Amba(1) = M(2)
      Ambo1(1) = M(2) : Ambo1(2) = Fuori90(M(2) + 9)
      Ambo2(1) = M(2) : Ambo2(2) = Fuori90(M(4) + 9)
      N(1) = M(1) : N(2) = M(3) : N(3) = M(4)
   End If
   If(DM24 = 45 And DM24 = 18 And DM14 = 27) Then
      Amba(1) = M(1)
      Ambo1(1) = M(1) : Ambo1(2) = Fuori90(M(1) + 9)
      Ambo2(1) = M(1) : Ambo2(2) = Fuori90(M(3) + 9)
      N(1) = M(2) : N(2) = M(3) : N(3) = M(4)
   End If
   If(DM13 = 45 And DM23 = 18 And DM12 = 27) Then
      Amba(1) = M(4)
      Ambo1(1) = M(4) : Ambo1(2) = Fuori90(M(4) + 9)
      Ambo2(1) = M(4) : Ambo2(2) = Fuori90(M(2) + 9)
      N(1) = M(1) : N(2) = M(2) : N(3) = M(3)
   End If
   If(DM24 = 45 And DM12 = 18 And DM14 = 27) Then
      Amba(1) = M(3)
      Ambo1(1) = M(3) : Ambo1(2) = Fuori90(M(3) + 9)
      Ambo2(1) = M(3) : Ambo2(2) = Fuori90(M(1) + 9)
      N(1) = M(1) : N(2) = M(2) : N(3) = M(4)
   End If
   Ambo3(1) = Ambo1(2) : Ambo3(2) = Ambo2(2)
   Z(1) = A : Z(2) = B : Z(3) = C : Z(4) = D : Z(5) = Ambo3(1) : Z(6) = Ambo3(2)
End Function