Script su Metodi Cabalistici, Ciclometrici & C.

CICALOTTO · 8 Giugno 2025

Matematico ha scritto:
Ma infatti , mica metto cose inutili hehehe

mi sono permesso di inserire la DIM "stpgiocata" per verificare la differenza di spesa e guadagno fermando la previsione al primo esito positivo, oppure proseguire anche dopo la prima vincita...

Matematico · 8 Giugno 2025

Ciao salvo50, e a tutti quelli che seguono la sezione , ecco un'altra tecnica molto forte tratta dal forum di Enzob ,non sò se è stato già fatto lo script, ma non credo.

salvo50 · 8 Giugno 2025

Ciao Matematico prima di fare questo devo fare quello di Phil79

salvo50 · 8 Giugno 2025

phil79 ha scritto:
Buongiorno
Vorrei se possibile lo script di questo metodo...
Alla prima del mese calcolare la somma e differenza del primo di Bari col primo di Napoli, lo zerato dei numeri iniziali e della somma... come da tabella.
Grazie

BARI NAPOLI SOMMA Zerato
Somma DIFF Zerato Bari Zerato Napoli
22 63 85 80 41 20 60

Ecco lo script salvo errori o dimenticanze

Codice:

Sub Main
   Dim T,Es,R1,R2,Fin,Ini,A,B,Ind_Me
   Dim SomAB,SomAB_Z,DiffAB,A_Z,B_Z
   T = Array(T,"Estrazione"," Bari 1a Pos"," Napoli 1a Pos "," Somma "," Somma Cad0 "," Differenza "," Bari Cad0 "," Napoli Cad0")
   Call InitTabella(T)
   Fin = EstrazioneFin
   Ini = Fin - 300
   R1 = BA_
   R2 = NA_
   Ind_Me = 1
    Scrivi Space(1) & "Alla " & Ind_Me & "a Estrazione Mensile Somma e Differenza Primi estratti Bari e Napoli - Script Salvo50",1,,4,,3,,1
   Scrivi
   For Es = Ini To Fin
      If IndiceMensile(Es) = Ind_Me Then
         A = Estratto(Es,R1,1)
         B = Estratto(Es,R2,1)
         SomAB = Fuori90(A + B)
         SomAB_Z =(SomAB -(Cadenza(SomAB)))
         If SomAB_Z = 0 Then SomAB_Z = 90
         DiffAB = Differenza(A,B)
         A_Z =(A -(Cadenza(A)))
         If A_Z = 0 Then A_Z = 90
         B_Z =(B -(Cadenza(B)))
         If B_Z = 0 Then B_Z = 90
         T = Array(T,Es,A,B,SomAB,SomAB_Z,DiffAB,A_Z,B_Z)
         Call AddRigaTabella(T)
      End If
   Next
   CreaTabella
End Sub

phil79 · 8 Giugno 2025

salvo50 ha scritto:

Ecco lo script salvo errori o dimenticanze

Codice:

Sub Main
   Dim T,Es,R1,R2,Fin,Ini,A,B,Ind_Me
   Dim SomAB,SomAB_Z,DiffAB,A_Z,B_Z
   T = Array(T,"Estrazione"," Bari 1a Pos"," Napoli 1a Pos "," Somma "," Somma Cad0 "," Differenza "," Bari Cad0 "," Napoli Cad0")
   Call InitTabella(T)
   Fin = EstrazioneFin
   Ini = Fin - 300
   R1 = BA_
   R2 = NA_
   Ind_Me = 1
    Scrivi Space(1) & "Alla " & Ind_Me & "a Estrazione Mensile Somma e Differenza Primi estratti Bari e Napoli - Script Salvo50",1,,4,,3,,1
   Scrivi
   For Es = Ini To Fin
      If IndiceMensile(Es) = Ind_Me Then
         A = Estratto(Es,R1,1)
         B = Estratto(Es,R2,1)
         SomAB = Fuori90(A + B)
         SomAB_Z =(SomAB -(Cadenza(SomAB)))
         If SomAB_Z = 0 Then SomAB_Z = 90
         DiffAB = Differenza(A,B)
         A_Z =(A -(Cadenza(A)))
         If A_Z = 0 Then A_Z = 90
         B_Z =(B -(Cadenza(B)))
         If B_Z = 0 Then B_Z = 90
         T = Array(T,Es,A,B,SomAB,SomAB_Z,DiffAB,A_Z,B_Z)
         Call AddRigaTabella(T)
      End If
   Next
   CreaTabella
End Sub

Grazie, la tabella era un esempio di calcolo.... ma il mio intento era verificare gli esiti della giocata in base alle combinazioni.
Pertanto così va bene ma a completamento vorrei che controllasse le giocate di ambo terno quaterna cinquina

salvo50 · 9 Giugno 2025

phil79 ha scritto:
Grazie, la tabella era un esempio di calcolo.... ma il mio intento era verificare gli esiti della giocata in base alle combinazioni.
Pertanto così va bene ma a completamento vorrei che controllasse le giocate di ambo terno quaterna cinquina

Ciao a Tutti

Ciao Phil79

In questo thread non faccio script statistici, frquenze, ritardi, attenersi al titolo

SCRIPT SU METODI CABALISTICI CICLOMETRICI & C.

Matematico · 9 Giugno 2025

Buongiorno salvo50 e tutto il forum , ecco a mio avviso un procedimento molto interessante del compianto e mitico D.Manna :

salvo50 · Giovedì alle 10:53

Ciao a Tutti
Bubù, Cicalotto,Matematico, Phil79, ScarfaceTony
Grazie

Le spiegazioni di questo metodo sono al post 1042

Nel metodo la prima condizione è che si devono eseguire solo gli estratti che appartengono alla stessa tripla figurale, questa condizione non l'ho messa, perché per me è un lavorone, comunque a pagina 8, l'autore fa un esempio e neanche lui rispetta questa condizione.

Siccome i calcoli sono tanti e se si fa una ricerca lunga possono rallentare lo script,
alla terza domanda ho predisposto che si possono non visualizzare
con 1 si visualizzano con un qualsiasi altro numero non si visualizzano
Come autore ho messo Domenico Manna se non è lui lo cambio

Codice:

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,R1,R2,Caso,Amba1,Amba2
   Dim P1,P2,P3,P4,P,PP,E1,E2,A,B,C,D,Casi,Calcoli
   Dim Som1,Som2,xSom3,Som3,Salvo50,Diff3,Diff4
   Dim CadA,CadB,CadC,CadD,DecA,DecB,DecC,DecD
   Dim xNoveA,xNoveB,xNoveC,xNoveD,NoveA,NoveB,NoveC,NoveD
   Dim DAB,DCD,SomVe1,SomVe2,SomDi1,SomDi2,xAmba
   Dim DistOr1,DistOr2,DistVe1,DistVe2,DistDi1,DistDi2
   Dim DistOr1b,DistOr2b,DistVe3,DistVe4,DistDi3,DistDi4
   Dim Amba(1),M(4),N(4),Ruote(2),Posta(1)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10660)'ESTRAZIONE 6346 ESEMPIO NELLE SPIEGAZIONI
   Clp = InputBox("Per quanti colpi vuoi giocare l'Ambata?",,6)
   Calcoli = InputBox("Vuoi visualizzare i calcoli? Per si metti 1 per no un quasiasi altro numero ",,1)
   '  Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & " L'Ambata Mandoman di Domenico Manna - Script Salvo50",1,,4,,3,,1
   Posta(1) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C = Estratto(Es,R2,P3)
                        D = Estratto(Es,R2,P4)
                        DAB = Distanza(A,B) : DCD = Distanza(C,D)
                        If DAB = DCD Then
                           DecA = Decina(A) : DecB = Decina(B) : DecC = Decina(C) : DecD = Decina(D)
                           CadA = Cadenza(A) : CadB = Cadenza(B) : CadC = Cadenza(C) : CadD = Cadenza(D)
                           xNoveA = Fuori90(DecA * 9) : NoveA = Fuori90(xNoveA + CadA)
                           xNoveB = Fuori90(DecB * 9) : NoveB = Fuori90(xNoveB + CadB)
                           xNoveC = Fuori90(DecC * 9) : NoveC = Fuori90(xNoveC + CadC)
                           xNoveD = Fuori90(DecD * 9) : NoveD = Fuori90(xNoveD + CadD)
                           M(1) = NoveA : M(2) = NoveB : M(3) = NoveC : M(4) = NoveD
                           Call OrdinaMatrice(M,1)
                           'M4--M1
                           '|    |
                           'M3--M2
                           DistOr1b = Distanza(M(4),M(1)) : DistOr2b = Distanza(M(3),M(2))
                           DistVe1 = Distanza(M(4),M(3)) : DistVe2 = Distanza(M(1),M(2))
                           DistDi1 = Distanza(M(4),M(2)) : DistDi2 = Distanza(M(1),M(3))
                           If(DistVe1 = DistVe2) And(DistDi1 = DistDi2) Then
                              SomVe1 = FuoriX((M(4) + M(3)),81) : SomVe2 = FuoriX((M(1) + M(2)),81)
                              SomDi1 = FuoriX((M(4) + M(2)),81) : SomDi2 = FuoriX((M(1) + M(3)),81)
                              N(1) = SomVe1 : N(2) = SomVe2 : N(3) = SomDi1 : N(4) = SomDi2
                              Call OrdinaMatrice(N,1)
                              'N4--N1
                              '|    |
                              'N3--N2
                              DistVe3 = Distanza(N(4),N(3)) : DistVe4 = Distanza(N(1),N(2))'-------------
                              If(DistVe3 = DistVe4) And(DistOr1b = DistVe3 Or DistOr2b = DistVe3) Then
                                 DistDi3 = Distanza(N(4),N(2)) : DistDi4 = Distanza(N(1),N(3))
                                 DistOr1 = FuoriX((N(1) + 81) - N(4),81) : DistOr2 = FuoriX((N(3) + 81) - N(2),81)
                                 Som1 = FuoriX((N(4) + DistOr2),81)
                                 Som2 = FuoriX((N(2) + DistOr1),81)
                                 xSom3 = FuoriX((DistDi3 * 2),81)
                                 Som3 = 81 - xSom3
                                 Diff3 = FuoriX(((81 + N(2)) - Som3),81)
                                 Diff4 = FuoriX(((81 + Diff3) - Som1),81)
                                 Amba1 = FuoriX(((81 + Som1) - M(2)),81)
                                 Amba2 = FuoriX(((81 + Som2) - M(2)),81)
                                 xAmba = FuoriX((M(4) * 2),81)
                                 Amba(1) = FuoriX((81 + xAmba) - M(1),81)
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                 For P = 1 To 5
                                    E1 = Estratto(Es,R1,P)
                                    If E1 = A Or E1 = B Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi "  <-- Evidenziati con Distanza " & Format2(DAB),1,,,1
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                 For PP = 1 To 5
                                    E2 = Estratto(Es,R2,PP)
                                    If E2 = C Or E2 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi "  <-- Evidenziati con Distanza " & Format2(DCD),1,,,1
                                 Scrivi
                                 If Calcoli = 1 Then
                                    Scrivi " Trasformazione dei 4 estratti con distanza uguale in sistema di numerazione novenario",1
                                    Scrivi Space(17) & Format2(C) & " Diventa " & Format2(DecC) & " * 9 = " & Format2(xNoveC),1,0
                                    Scrivi " + " & Format2(CadC) & " = " & Format2(NoveC),1
                                    Scrivi Space(17) & Format2(D) & " Diventa " & Format2(DecD) & " * 9 = " & Format2(xNoveD),1,0
                                    Scrivi " + " & Format2(CadD) & " = " & Format2(NoveD),1
                                    Scrivi Space(17) & Format2(A) & " Diventa " & Format2(DecA) & " * 9 = " & Format2(xNoveA),1,0
                                    Scrivi " + " & Format2(CadA) & " = " & Format2(NoveA),1
                                    Scrivi Space(17) & Format2(B) & " Diventa " & Format2(DecB) & " * 9 = " & Format2(xNoveB),1,0
                                    Scrivi " + " & Format2(CadB) & " = " & Format2(NoveB),1
                                    Scrivi
                                    Scrivi Space(1) & " Novenari in " & Space(5) & "Distanze " & Space(4) & "Distanze ",1,0
                                    Scrivi Space(3) & " Distanze " & Space(4) & "Somme F81" & Space(4) & "Somme F81",1
                                    Scrivi Space(1) & " Senso Orario" & Space(4) & "Orizontali " & Space(3) & "Verticali ",1,0
                                    Scrivi Space(3) & "Diagonali " & Space(2) & " Verticali " & Space(2) & " Diagonali ",1
                                    Scrivi Space(5) & Format2(M(4)) & "  " & Format2(M(1)) & Space(11) & Format2(DistOr1b),1,0
                                    Scrivi Space(11) & Format2(DistVe1) & Space(11) & Format2(DistDi1),1,0
                                    Scrivi Space(11) & Format2(SomVe1) & Space(11) & Format2(SomDi1),1
                                    Scrivi Space(5) & Format2(M(3)) & "  " & Format2(M(2)) & Space(11) & Format2(DistOr2b),1,0
                                    Scrivi Space(11) & Format2(DistVe2) & Space(11) & Format2(DistDi2),1,0
                                    Scrivi Space(11) & Format2(SomVe2) & Space(11) & Format2(SomDi2),1
                                    Scrivi String(70,"-")
                                    Scrivi Space(2) & "Nuovo Quadr." & Space(4) & "Distanze " & Space(4) & "Distanze ",1,0
                                    Scrivi Space(3) & "Dist. Or F81",1
                                    Scrivi Space(1) & " Senso Orario" & Space(4) & "Verticali " & Space(3) & "Diagonali ",1,0
                                    Scrivi Space(2) & " Orizontali ",1
                                    Scrivi Space(5) & Format2(N(4)) & "  " & Format2(N(1)) & Space(10) & Format2(DistVe3),1,0
                                    Scrivi Space(11) & Format2(DistDi3) & Space(11) & Format2(DistOr1),1
                                    Scrivi Space(5) & Format2(N(3)) & "  " & Format2(N(2)) & Space(10) & Format2(DistVe4),1,0
                                    Scrivi Space(11) & Format2(DistDi4) & Space(11) & Format2(DistOr2),1
                                    Scrivi String(70,"-")
                                    Scrivi Space(12) & " Da Qui tutti i Calcoli sono Col Fuori 81",1,,,1
                                    Scrivi Space(17) & "Numeri più Distanze Orizontali ",1
                                    Scrivi Space(15) & Format2(N(4)) & " + " & Format2(DistOr2) & " = ",1,0
                                    Scrivi Format2(Som1),1,0,,2
                                    Scrivi Space(10) & Format2(N(2)) & " + " & Format2(DistOr1) & " = ",1,0
                                    Scrivi Format2(Som2),1,,,2
                                    Scrivi Space(18) & " 81 Meno Diagonale per due ",1
                                    Scrivi Space(15) & Format2(DistDi3) & " * 02" & " = " & Format2(xSom3),1,0
                                    Scrivi Space(10) & "81 - " & Format2(xSom3) & " = " & Format2(Som3),1
                                    Scrivi Space(15) & String(35,"-")
                                    Scrivi Space(15) & Format2(N(2)) & " - " & Format2(Som3) & " = ",1,0
                                    Scrivi Format2(Diff3),1,0,,2
                                    Scrivi Space(10) & Format2(Diff3) & " - " & Format2(Som1) & " = ",1,0,,2
                                    Scrivi Format2(Diff4),1,,,1
                                    Scrivi Space(18) & " Il Numero Regolatore è ",1,0,,1
                                    Scrivi Format2(M(2)),1,,,2
                                    Scrivi Space(15) & Format2(Som1),1,0,,2
                                    Scrivi " - " & Format2(M(2)) & " = " & Format2(Amba1),1,0
                                    Scrivi Space(10) & Format2(Som2),1,0,,2
                                    Scrivi " - " & Format2(M(2)) & " = " & Format2(Amba2),1
                                    Scrivi
                                    Scrivi " Per Stabilire tra " & Format2(Amba1) & " e " & Format2(Amba2),1,0
                                    Scrivi " Qualè l'Ambata si Applica la Formula (2d-a)",1
                                    Scrivi Space(20) & Format2(M(4)) & " * 2 = " & Format2(xAmba) & " - " & Format2(M(1)) & " = ",1,0
                                    Scrivi Format2(Amba(1)),1,,,2
                                 End If
                                 Scrivi
                                 Ruote(1) = R1
                                 Ruote(2) = R2
                                 ImpostaGiocata 1,Amba,Ruote,Posta,Clp
                                 Gioca Es,1
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Matematico · Giovedì alle 17:09

salvo50 ha scritto:

Ciao a Tutti
Bubù, Cicalotto,Matematico, Phil79, ScarfaceTony
Grazie

Le spiegazioni di questo metodo sono al post 1042

Nel metodo la prima condizione è che si devono eseguire solo gli estratti che appartengono alla stessa tripla figurale, questa condizione non l'ho messa, perché per me è un lavorone, comunque a pagina 8, l'autore fa un esempio e neanche lui rispetta questa condizione.

Siccome i calcoli sono tanti e se si fa una ricerca lunga possono rallentare lo script,
alla terza domanda ho predisposto che si possono non visualizzare
con 1 si visualizzano con un qualsiasi altro numero non si visualizzano
Come autore ho messo Domenico Manna se non è lui lo cambio

Codice:

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,R1,R2,Caso,Amba1,Amba2
   Dim P1,P2,P3,P4,P,PP,E1,E2,A,B,C,D,Casi,Calcoli
   Dim Som1,Som2,xSom3,Som3,Salvo50,Diff3,Diff4
   Dim CadA,CadB,CadC,CadD,DecA,DecB,DecC,DecD
   Dim xNoveA,xNoveB,xNoveC,xNoveD,NoveA,NoveB,NoveC,NoveD
   Dim DAB,DCD,SomVe1,SomVe2,SomDi1,SomDi2,xAmba
   Dim DistOr1,DistOr2,DistVe1,DistVe2,DistDi1,DistDi2
   Dim DistOr1b,DistOr2b,DistVe3,DistVe4,DistDi3,DistDi4
   Dim Amba(1),M(4),N(4),Ruote(2),Posta(1)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10660)'ESTRAZIONE 6346 ESEMPIO NELLE SPIEGAZIONI
   Clp = InputBox("Per quanti colpi vuoi giocare l'Ambata?",,6)
   Calcoli = InputBox("Vuoi visualizzare i calcoli? Per si metti 1 per no un quasiasi altro numero ",,1)
   '  Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & " L'Ambata Mandoman di Domenico Manna - Script Salvo50",1,,4,,3,,1
   Posta(1) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C = Estratto(Es,R2,P3)
                        D = Estratto(Es,R2,P4)
                        DAB = Distanza(A,B) : DCD = Distanza(C,D)
                        If DAB = DCD Then
                           DecA = Decina(A) : DecB = Decina(B) : DecC = Decina(C) : DecD = Decina(D)
                           CadA = Cadenza(A) : CadB = Cadenza(B) : CadC = Cadenza(C) : CadD = Cadenza(D)
                           xNoveA = Fuori90(DecA * 9) : NoveA = Fuori90(xNoveA + CadA)
                           xNoveB = Fuori90(DecB * 9) : NoveB = Fuori90(xNoveB + CadB)
                           xNoveC = Fuori90(DecC * 9) : NoveC = Fuori90(xNoveC + CadC)
                           xNoveD = Fuori90(DecD * 9) : NoveD = Fuori90(xNoveD + CadD)
                           M(1) = NoveA : M(2) = NoveB : M(3) = NoveC : M(4) = NoveD
                           Call OrdinaMatrice(M,1)
                           'M4--M1
                           '|    |
                           'M3--M2
                           DistOr1b = Distanza(M(4),M(1)) : DistOr2b = Distanza(M(3),M(2))
                           DistVe1 = Distanza(M(4),M(3)) : DistVe2 = Distanza(M(1),M(2))
                           DistDi1 = Distanza(M(4),M(2)) : DistDi2 = Distanza(M(1),M(3))
                           If(DistVe1 = DistVe2) And(DistDi1 = DistDi2) Then
                              SomVe1 = FuoriX((M(4) + M(3)),81) : SomVe2 = FuoriX((M(1) + M(2)),81)
                              SomDi1 = FuoriX((M(4) + M(2)),81) : SomDi2 = FuoriX((M(1) + M(3)),81)
                              N(1) = SomVe1 : N(2) = SomVe2 : N(3) = SomDi1 : N(4) = SomDi2
                              Call OrdinaMatrice(N,1)
                              'N4--N1
                              '|    |
                              'N3--N2
                              DistVe3 = Distanza(N(4),N(3)) : DistVe4 = Distanza(N(1),N(2))'-------------
                              If(DistVe3 = DistVe4) And(DistOr1b = DistVe3 Or DistOr2b = DistVe3) Then
                                 DistDi3 = Distanza(N(4),N(2)) : DistDi4 = Distanza(N(1),N(3))
                                 DistOr1 = FuoriX((N(1) + 81) - N(4),81) : DistOr2 = FuoriX((N(3) + 81) - N(2),81)
                                 Som1 = FuoriX((N(4) + DistOr2),81)
                                 Som2 = FuoriX((N(2) + DistOr1),81)
                                 xSom3 = FuoriX((DistDi3 * 2),81)
                                 Som3 = 81 - xSom3
                                 Diff3 = FuoriX(((81 + N(2)) - Som3),81)
                                 Diff4 = FuoriX(((81 + Diff3) - Som1),81)
                                 Amba1 = FuoriX(((81 + Som1) - M(2)),81)
                                 Amba2 = FuoriX(((81 + Som2) - M(2)),81)
                                 xAmba = FuoriX((M(4) * 2),81)
                                 Amba(1) = FuoriX((81 + xAmba) - M(1),81)
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                 For P = 1 To 5
                                    E1 = Estratto(Es,R1,P)
                                    If E1 = A Or E1 = B Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi "  <-- Evidenziati con Distanza " & Format2(DAB),1,,,1
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                 For PP = 1 To 5
                                    E2 = Estratto(Es,R2,PP)
                                    If E2 = C Or E2 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi "  <-- Evidenziati con Distanza " & Format2(DCD),1,,,1
                                 Scrivi
                                 If Calcoli = 1 Then
                                    Scrivi " Trasformazione dei 4 estratti con distanza uguale in sistema di numerazione novenario",1
                                    Scrivi Space(17) & Format2(C) & " Diventa " & Format2(DecC) & " * 9 = " & Format2(xNoveC),1,0
                                    Scrivi " + " & Format2(CadC) & " = " & Format2(NoveC),1
                                    Scrivi Space(17) & Format2(D) & " Diventa " & Format2(DecD) & " * 9 = " & Format2(xNoveD),1,0
                                    Scrivi " + " & Format2(CadD) & " = " & Format2(NoveD),1
                                    Scrivi Space(17) & Format2(A) & " Diventa " & Format2(DecA) & " * 9 = " & Format2(xNoveA),1,0
                                    Scrivi " + " & Format2(CadA) & " = " & Format2(NoveA),1
                                    Scrivi Space(17) & Format2(B) & " Diventa " & Format2(DecB) & " * 9 = " & Format2(xNoveB),1,0
                                    Scrivi " + " & Format2(CadB) & " = " & Format2(NoveB),1
                                    Scrivi
                                    Scrivi Space(1) & " Novenari in " & Space(5) & "Distanze " & Space(4) & "Distanze ",1,0
                                    Scrivi Space(3) & " Distanze " & Space(4) & "Somme F81" & Space(4) & "Somme F81",1
                                    Scrivi Space(1) & " Senso Orario" & Space(4) & "Orizontali " & Space(3) & "Verticali ",1,0
                                    Scrivi Space(3) & "Diagonali " & Space(2) & " Verticali " & Space(2) & " Diagonali ",1
                                    Scrivi Space(5) & Format2(M(4)) & "  " & Format2(M(1)) & Space(11) & Format2(DistOr1b),1,0
                                    Scrivi Space(11) & Format2(DistVe1) & Space(11) & Format2(DistDi1),1,0
                                    Scrivi Space(11) & Format2(SomVe1) & Space(11) & Format2(SomDi1),1
                                    Scrivi Space(5) & Format2(M(3)) & "  " & Format2(M(2)) & Space(11) & Format2(DistOr2b),1,0
                                    Scrivi Space(11) & Format2(DistVe2) & Space(11) & Format2(DistDi2),1,0
                                    Scrivi Space(11) & Format2(SomVe2) & Space(11) & Format2(SomDi2),1
                                    Scrivi String(70,"-")
                                    Scrivi Space(2) & "Nuovo Quadr." & Space(4) & "Distanze " & Space(4) & "Distanze ",1,0
                                    Scrivi Space(3) & "Dist. Or F81",1
                                    Scrivi Space(1) & " Senso Orario" & Space(4) & "Verticali " & Space(3) & "Diagonali ",1,0
                                    Scrivi Space(2) & " Orizontali ",1
                                    Scrivi Space(5) & Format2(N(4)) & "  " & Format2(N(1)) & Space(10) & Format2(DistVe3),1,0
                                    Scrivi Space(11) & Format2(DistDi3) & Space(11) & Format2(DistOr1),1
                                    Scrivi Space(5) & Format2(N(3)) & "  " & Format2(N(2)) & Space(10) & Format2(DistVe4),1,0
                                    Scrivi Space(11) & Format2(DistDi4) & Space(11) & Format2(DistOr2),1
                                    Scrivi String(70,"-")
                                    Scrivi Space(12) & " Da Qui tutti i Calcoli sono Col Fuori 81",1,,,1
                                    Scrivi Space(17) & "Numeri più Distanze Orizontali ",1
                                    Scrivi Space(15) & Format2(N(4)) & " + " & Format2(DistOr2) & " = ",1,0
                                    Scrivi Format2(Som1),1,0,,2
                                    Scrivi Space(10) & Format2(N(2)) & " + " & Format2(DistOr1) & " = ",1,0
                                    Scrivi Format2(Som2),1,,,2
                                    Scrivi Space(18) & " 81 Meno Diagonale per due ",1
                                    Scrivi Space(15) & Format2(DistDi3) & " * 02" & " = " & Format2(xSom3),1,0
                                    Scrivi Space(10) & "81 - " & Format2(xSom3) & " = " & Format2(Som3),1
                                    Scrivi Space(15) & String(35,"-")
                                    Scrivi Space(15) & Format2(N(2)) & " - " & Format2(Som3) & " = ",1,0
                                    Scrivi Format2(Diff3),1,0,,2
                                    Scrivi Space(10) & Format2(Diff3) & " - " & Format2(Som1) & " = ",1,0,,2
                                    Scrivi Format2(Diff4),1,,,1
                                    Scrivi Space(18) & " Il Numero Regolatore è ",1,0,,1
                                    Scrivi Format2(M(2)),1,,,2
                                    Scrivi Space(15) & Format2(Som1),1,0,,2
                                    Scrivi " - " & Format2(M(2)) & " = " & Format2(Amba1),1,0
                                    Scrivi Space(10) & Format2(Som2),1,0,,2
                                    Scrivi " - " & Format2(M(2)) & " = " & Format2(Amba2),1
                                    Scrivi
                                    Scrivi " Per Stabilire tra " & Format2(Amba1) & " e " & Format2(Amba2),1,0
                                    Scrivi " Qualè l'Ambata si Applica la Formula (2d-a)",1
                                    Scrivi Space(20) & Format2(M(4)) & " * 2 = " & Format2(xAmba) & " - " & Format2(M(1)) & " = ",1,0
                                    Scrivi Format2(Amba(1)),1,,,2
                                 End If
                                 Scrivi
                                 Ruote(1) = R1
                                 Ruote(2) = R2
                                 ImpostaGiocata 1,Amba,Ruote,Posta,Clp
                                 Gioca Es,1
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Grazie 1000 salvo 50, ottimo script ...si l'autore è Manna

Settenario · Giovedì alle 22:42

Buona sera @salvo50 posto una tecnica di D. Manna, spero che con la tua bravura riesci a creare uno script.
Ti ringrazio anticipatamente

salvo50 · Venerdì alle 08:40

Ciao a Tutti

Ciao Settenario

Prima devo fare quello di Matematico del post 1047

bubù · Oggi alle 11:03

salvo50 ha scritto:

Ciao a Tutti

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,E,F,Es,Cer,Clp
   Dim R1,R2,P1,P2,P3,P4,Salvo50,Sp
   Dim MaxAB,MaxCD,MinAB,MinCD,Caso,Casi
   Dim DistAB,DistCD,DistAD,DistAC,DistBD,DistBC
   Dim Abb1,Abb2,Abb3,Abb4
   Dim X(4),Y(5),Z(5)
   Dim Amba1(1),Amba2(1),Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2)
   Dim Terno1(3),Terno2(3),Penta(5),Po1(1),Po2(2),Po3(3),Po4(5),Ruote(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10000))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,13))
   Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(14) & "Ruote Consecutive 2 Distanze con Numero Comune - Script Salvo50 " & Space(14),1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   Po3(2) = 1
   Po3(3) = 1
   Po4(2) = 1
   Po4(3) = 1
   Po4(4) = 1
   Po4(5) = 1
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es & "    Tempo Trascorso" & TempoTrascorso
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      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)
               R2 = R1 + 1
               If R2 = 11 Then R2 = 1
               For P3 = 1 To 4
                  For P4 = P3 + 1 To 5
                     C = Estratto(Es,R2,P3)
                     D = Estratto(Es,R2,P4)
                     If A > 0 And C > 0 Then
                        MinAB = Minimo(A,B) : MinCD = Minimo(C,D) : MaxAB = Massimo(A,B) : MaxCD = Massimo(C,D)
                        DistAB = Distanza(A,B) : DistCD = Distanza(C,D) : DistAD = Distanza(A,D)
                        DistAC = Distanza(A,C) : DistBD = Distanza(B,D) : DistBC = Distanza(B,C)
                        If(DistAB = 18 And DistCD = 27)Or(DistAB = 27 And DistCD = 18) Then
                           If MaxAB = MinCD Or MinAB = MaxCD Or MaxAB = MaxCD Or MinAB = MinCD Then
                              '
                              If DistAD > 17 And DistAC > 17 And DistBD > 17 And DistBC > 17 Then
                                 '
                                 If(DistAB = 18 And DistCD = 27) And(MinAB = MinCD) Then
                                    E = Diametrale(MinAB)
                                    F = Fuori90(MaxCD + 27)
                                    If F = MinCD Then F = Fuori90((90 + MaxCD) - 27)
                                 End If
                                 If(DistAB = 27 And DistCD = 18) And(MinAB = MinCD) Then
                                    E = Diametrale(MinAB)
                                    F = Fuori90(MaxCD + 18)
                                    If F = MinCD Then F = Fuori90((90 + MaxCD) - 18)
                                 End If
                                 If(DistAB = 18 And DistCD = 27) And(MaxAB = MaxCD) Then
                                    E = Diametrale(MaxAB)
                                    F = Fuori90(MinCD + 27)
                                    If F = MaxCD Then F = Fuori90((90 + MinCD) - 27)
                                 End If
                                 If(DistAB = 27 And DistCD = 18) And(MaxAB = MaxCD) Then
                                    E = Diametrale(MaxAB)
                                    F = Fuori90(MinAB + 27)
                                    If F = MaxAB Then F = Fuori90((90 + MinAB) - 27)
                                 End If
                                 If(DistAB = 27 And DistCD = 18) And(MaxAB = MinCD) Then
                                    E = Diametrale(MaxAB)
                                    F = Fuori90(MaxCD + 18)
                                    If F = MinCD Then F = Fuori90((90 + MaxCD) - 18)
                                 End If
                                 If(DistAB = 18 And DistCD = 27) And(MaxAB = MinCD) Then
                                    E = Diametrale(MaxAB)
                                    F = Fuori90(MaxCD + 27)
                                    If F = MinCD Then F = Fuori90((90 + MaxCD) - 27)
                                 End If
                                 If(DistAB = 18 And DistCD = 27) And(MinAB = MaxCD) Then
                                    E = Diametrale(MinAB)
                                    F = Fuori90(MaxAB + 18)
                                    If F = MinAB Then F = Fuori90((90 + MaxAB) - 18)
                                 End If
                                 If(DistAB = 27 And DistCD = 18) And(MinAB = MaxCD) Then
                                    E = Diametrale(MinAB)
                                    F = Fuori90(MaxAB + 27)
                                    If F = MinAB Then F = Fuori90((90 + MaxAB) - 27)
                                 End If
                                 Abb1 = Fuori90(F + 9) : Abb2 = Fuori90(F + 27)
                                 Abb3 = Fuori90(E + 36) : Abb4 = Diametrale(Abb3)
                                 X(1) = A : X(2) = B : X(3) = C : X(4) = D
                                 Y(1) = A : Y(2) = B : Y(3) = C : Y(4) = D : Y(5) = E
                                 Z(1) = A : Z(2) = B : Z(3) = C : Z(4) = D : Z(5) = F
                                 Amba1(1) = F
                                 Amba2(1) = E
                                 '
                                 Ambo1(1) = F : Ambo1(2) = E
                                 '
                                 Ambo2(1) = F : Ambo2(2) = Abb1
                                 Ambo3(1) = F : Ambo3(2) = Abb2
                                 '
                                 Ambo4(1) = E : Ambo4(2) = Abb3
                                 Ambo5(1) = E : Ambo5(2) = Abb4
                                 '
                                 Terno1(1) = F : Terno1(2) = Abb1 : Terno1(3) = Abb2
                                 Terno2(1) = E : Terno2(2) = Abb3 : Terno2(3) = Abb4
                                 '
                                 Penta(1) = Abb1 : Penta(2) = Abb2 : Penta(3) = Abb4 : Penta(4) = F : Penta(5) = E
                                 '        Terna(1) = N(1): Terna(2) = N(2): Terna(3) = N(3)
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                 Scrivi
                                 ReDim MatrCasella(4,1)
                                 MatrCasella(1,0) = R1
                                 MatrCasella(1,1) = P1
                                 MatrCasella(2,0) = R1
                                 MatrCasella(2,1) = P2
                                 MatrCasella(3,0) = R2
                                 MatrCasella(3,1) = P3
                                 MatrCasella(4,0) = R2
                                 MatrCasella(4,1) = P4
                                 Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
                                 Scrivi
                                 If Cer = 1 Then
                                    DisegnaCerchioCiclometrico X,1,1,,,1,1
                                    DisegnaCerchioCiclometrico Y,1,1,,,1,1
                                    DisegnaCerchioCiclometrico Z,1,1,,,1,1
                                 End If
                                 Scrivi
                                 Scrivi
                                 Ruote(1) = R1 : Ruote(2) = R2
                                 ImpostaGiocata 1,Amba1,Ruote,Po1,Clp,1
                                 ImpostaGiocata 2,Amba2,Ruote,Po1,Clp,1
                                 ImpostaGiocata 3,Ambo1,Ruote,Po2,Clp,2
                                 ImpostaGiocata 4,Ambo2,Ruote,Po2,Clp,2
                                 ImpostaGiocata 5,Ambo3,Ruote,Po2,Clp,2
                                 ImpostaGiocata 6,Ambo4,Ruote,Po2,Clp,2
                                 ImpostaGiocata 7,Ambo5,Ruote,Po2,Clp,2
                                 ImpostaGiocata 8,Terno1,Ruote,Po3,Clp
                                 ImpostaGiocata 9,Terno2,Ruote,Po3,Clp
                                 ImpostaGiocata 10,Penta,Ruote,Po4,Clp
                                 Gioca Es,1
                              End If
                           End If
                        End If
                     End If
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso" & TempoTrascorso
End Sub

Con ruote consecutive e non consecutive

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,E,F,Es,Cer,Clp
   Dim R1,R2,P1,P2,P3,P4,Salvo50,Sp
   Dim MaxAB,MaxCD,MinAB,MinCD,Caso,Casi
   Dim DistAB,DistCD,DistAD,DistAC,DistBD,DistBC
   Dim Abb1,Abb2,Abb3,Abb4
   Dim X(4),Y(5),Z(5)
   Dim Amba1(1),Amba2(1),Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2)
   Dim Terno1(3),Terno2(3),Penta(5),Po1(1),Po2(2),Po3(3),Po4(5),Ruote(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10600))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,13))
   Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(14) & " 2 Ruote - 2 Distanze con Numero Comune - Script Salvo50 " & Space(14),1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   Po3(2) = 1
   Po3(3) = 1
   Po4(2) = 1
   Po4(3) = 1
   Po4(4) = 1
   Po4(5) = 1
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es & "    Tempo Trascorso" & TempoTrascorso
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C = Estratto(Es,R2,P3)
                        D = Estratto(Es,R2,P4)
                        If A > 0 And C > 0 Then
                           MinAB = Minimo(A,B) : MinCD = Minimo(C,D) : MaxAB = Massimo(A,B) : MaxCD = Massimo(C,D)
                           DistAB = Distanza(A,B) : DistCD = Distanza(C,D) : DistAD = Distanza(A,D)
                           DistAC = Distanza(A,C) : DistBD = Distanza(B,D) : DistBC = Distanza(B,C)
                           If(DistAB = 18 And DistCD = 27)Or(DistAB = 27 And DistCD = 18) Then
                              If MaxAB = MinCD Or MinAB = MaxCD Or MaxAB = MaxCD Or MinAB = MinCD Then
                                 '
                                 If DistAD > 17 And DistAC > 17 And DistBD > 17 And DistBC > 17 Then
                                    '
                                    If(DistAB = 18 And DistCD = 27) And(MinAB = MinCD) Then
                                       E = Diametrale(MinAB)
                                       F = Fuori90(MaxCD + 27)
                                       If F = MinCD Then F = Fuori90((90 + MaxCD) - 27)
                                    End If
                                    If(DistAB = 27 And DistCD = 18) And(MinAB = MinCD) Then
                                       E = Diametrale(MinAB)
                                       F = Fuori90(MaxCD + 18)
                                       If F = MinCD Then F = Fuori90((90 + MaxCD) - 18)
                                    End If
                                    If(DistAB = 18 And DistCD = 27) And(MaxAB = MaxCD) Then
                                       E = Diametrale(MaxAB)
                                       F = Fuori90(MinCD + 27)
                                       If F = MaxCD Then F = Fuori90((90 + MinCD) - 27)
                                    End If
                                    If(DistAB = 27 And DistCD = 18) And(MaxAB = MaxCD) Then
                                       E = Diametrale(MaxAB)
                                       F = Fuori90(MinAB + 27)
                                       If F = MaxAB Then F = Fuori90((90 + MinAB) - 27)
                                    End If
                                    If(DistAB = 27 And DistCD = 18) And(MaxAB = MinCD) Then
                                       E = Diametrale(MaxAB)
                                       F = Fuori90(MaxCD + 18)
                                       If F = MinCD Then F = Fuori90((90 + MaxCD) - 18)
                                    End If
                                    If(DistAB = 18 And DistCD = 27) And(MaxAB = MinCD) Then
                                       E = Diametrale(MaxAB)
                                       F = Fuori90(MaxCD + 27)
                                       If F = MinCD Then F = Fuori90((90 + MaxCD) - 27)
                                    End If
                                    If(DistAB = 18 And DistCD = 27) And(MinAB = MaxCD) Then
                                       E = Diametrale(MinAB)
                                       F = Fuori90(MaxAB + 18)
                                       If F = MinAB Then F = Fuori90((90 + MaxAB) - 18)
                                    End If
                                    If(DistAB = 27 And DistCD = 18) And(MinAB = MaxCD) Then
                                       E = Diametrale(MinAB)
                                       F = Fuori90(MaxAB + 27)
                                       If F = MinAB Then F = Fuori90((90 + MaxAB) - 27)
                                    End If
                                    Abb1 = Fuori90(F + 9) : Abb2 = Fuori90(F + 27)
                                    Abb3 = Fuori90(E + 36) : Abb4 = Diametrale(Abb3)
                                    X(1) = A : X(2) = B : X(3) = C : X(4) = D
                                    Y(1) = A : Y(2) = B : Y(3) = C : Y(4) = D : Y(5) = E
                                    Z(1) = A : Z(2) = B : Z(3) = C : Z(4) = D : Z(5) = F
                                    Amba1(1) = F
                                    Amba2(1) = E
                                    '
                                    Ambo1(1) = F : Ambo1(2) = E
                                    '
                                    Ambo2(1) = F : Ambo2(2) = Abb1
                                    Ambo3(1) = F : Ambo3(2) = Abb2
                                    '
                                    Ambo4(1) = E : Ambo4(2) = Abb3
                                    Ambo5(1) = E : Ambo5(2) = Abb4
                                    '
                                    Terno1(1) = F : Terno1(2) = Abb1 : Terno1(3) = Abb2
                                    Terno2(1) = E : Terno2(2) = Abb3 : Terno2(3) = Abb4
                                    '
                                    Penta(1) = Abb1 : Penta(2) = Abb2 : Penta(3) = Abb3 : Penta(4) = F : Penta(5) = E
                                    '        Terna(1) = N(1): Terna(2) = N(2): Terna(3) = N(3)
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                                    Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                                    Scrivi
                                    ReDim MatrCasella(4,1)
                                    MatrCasella(1,0) = R1
                                    MatrCasella(1,1) = P1
                                    MatrCasella(2,0) = R1
                                    MatrCasella(2,1) = P2
                                    MatrCasella(3,0) = R2
                                    MatrCasella(3,1) = P3
                                    MatrCasella(4,0) = R2
                                    MatrCasella(4,1) = P4
                                    Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
                                    Scrivi
                                    If Cer = 1 Then
                                       DisegnaCerchioCiclometrico X,1,1,,,1,1
                                       DisegnaCerchioCiclometrico Y,1,1,,,1,1
                                       DisegnaCerchioCiclometrico Z,1,1,,,1,1
                                    End If
                                    Scrivi
                                    Scrivi
                                    Ruote(1) = R1 : Ruote(2) = R2
                                    ImpostaGiocata 1,Amba1,Ruote,Po1,Clp,1
                                    ImpostaGiocata 2,Amba2,Ruote,Po1,Clp,1
                                    ImpostaGiocata 3,Ambo1,Ruote,Po2,Clp,2
                                    ImpostaGiocata 4,Ambo2,Ruote,Po2,Clp,2
                                    ImpostaGiocata 5,Ambo3,Ruote,Po2,Clp,2
                                    ImpostaGiocata 6,Ambo4,Ruote,Po2,Clp,2
                                    ImpostaGiocata 7,Ambo5,Ruote,Po2,Clp,2
                                    ImpostaGiocata 8,Terno1,Ruote,Po3,Clp
                                    ImpostaGiocata 9,Terno2,Ruote,Po3,Clp
                                    ImpostaGiocata 10,Penta,Ruote,Po4,Clp
                                    Gioca Es,1
                                 End If
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso" & TempoTrascorso
End Sub

Ciao Salvo50, ho notato che spesso escono numeri che si ripetono ad esempio nell'ultima :
G 0010 Numeri in gioco : 40.58.58.31.22 su VE TT NZ per Ambo,Terno,Quaterna,Cinquina
V N. [40.58.58.31.22 ] [TT] [MI][31 .. .. 40 ..] C. 1 Ambo 10665 [ 94 - 13/06/2025]
V N. [40.58.58.31.22 ] [TT] [GE][.. 40 22 31 ..] C. 2 Terno 10666 [ 95 - 14/06/2025]
è possibile sostituire uno dei due 58 con il vertibile 85 in automatico?
Grazie e scusami ancora per averti disturbato ancora

bubù · Oggi alle 11:34

bubù ha scritto:
Ciao Salvo50, ho notato che spesso escono numeri che si ripetono ad esempio nell'ultima :
G 0010 Numeri in gioco : 40.58.58.31.22 su VE TT NZ per Ambo,Terno,Quaterna,Cinquina
V N. [40.58.58.31.22 ] [TT] [MI][31 .. .. 40 ..] C. 1 Ambo 10665 [ 94 - 13/06/2025]
V N. [40.58.58.31.22 ] [TT] [GE][.. 40 22 31 ..] C. 2 Terno 10666 [ 95 - 14/06/2025]
è possibile sostituire uno dei due 58 con il vertibile 85 in automatico? nel caso il vertibile è già presente se si può eliminare il doppione.
Grazie e scusami ancora per averti disturbato ancora

Cerca

Cerca

Script su Metodi Cabalistici, Ciclometrici & C.

CICALOTTO

Member

Matematico

Advanced Member >PLATINUM<

Allegati

salvo50

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

phil79

Super member

salvo50

Advanced Member >PLATINUM PLUS<

Matematico

Advanced Member >PLATINUM<

Allegati

salvo50

Advanced Member >PLATINUM PLUS<

Matematico

Advanced Member >PLATINUM<

Settenario

Super Member >PLATINUM<

salvo50

Advanced Member >PLATINUM PLUS<

bubù

Advanced Member >PLATINUM PLUS<

bubù

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi

BARI	NAPOLI	SOMMA	Zerato Somma	DIFF	Zerato Bari	Zerato Napoli
22	63	85	80	41	20	60