Novità

Script su Metodi Cabalistici, Ciclometrici & C.

Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,E,F,G,H,I,L,Salvo50
Dim R1,R2,P8,E1,Ind,Es1,Es2,Es3,Caso,Casi
Dim Som15,xSom1,Som1,Som1F90,SomR2,SomR2F90
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10780))
Ind = CInt(InputBox(" Quante estrazioni a ritroso per cercare Somma Cinquina? ",Salvo50,50))
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(5) & " Somma Cinquina da Ricercare - Proposto da Capthegamer - Script Salvo50" & Space(5),1,,4,,3,,1
For Es1 = Ini To Fin
Messaggio Es1
AvanzamentoElab Ini,FIn,Es1
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
A = Estratto(Es1,R1,1)
B = Estratto(Es1,R1,2)
C = Estratto(Es1,R1,3)
D = Estratto(Es1,R1,4)
E = Estratto(Es1,R1,5)
Som15 = Fuori90(A + E)
If pari(Som15) Then
F = 3 * A : G = 6 * B : H = 4 * C : I = 4 * D : L = 5 * E
xSom1 = F + G + H + I + L
Som1 = xSom1/2
Som1F90 = Fuori90(Som1)
Es3 = CInt(Es1 - Ind + 1)
For Es2 = Es1 - 1 To Es3 Step - 1
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
If R2 = R1 Then
SomR2 = SommaEstratti(Es2,R2)
SomR2F90 = Fuori90(SomR2)
If SomR2F90 = Som1F90 Then
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"-") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P8 = 1 To 5
E1 = Estratto(Es1,R1,P8)
If E1 = A Or E1 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Somma Evidenziati = " & Format2(Som15) & " PARI",1,,,2
Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es2,R2),1,0
Scrivi " Somma Estratti " & SomR2 & " Fuori90 ",1,0
Scrivi SomR2F90,1,0,,2
Scrivi " Numero trovato a ritroso",1
Scrivi
Scrivi " 3 * " & Format2(A) & " = " & Format2(F) & Space(5),1,0
Scrivi " 6 * " & Format2(B) & " = " & Format2(G) & Space(5),1,0
Scrivi " 4 * " & Format2(C) & " = " & Format2(H) & Space(5),1,0
Scrivi " 4 * " & Format2(D) & " = " & Format2(I) & Space(5),1,0
Scrivi " 5 * " & Format2(E) & " = " & Format2(L) & Space(5),1
Scrivi
Scrivi " " & F & " + " & G & " + " & H & " + " & I & " + " & L & " = " & xSom1,1,0
Scrivi " / 2 = " & Som1 & " Fuori90 ",1,0
Scrivi Som1F90,1,0,,2
Scrivi " Numero da cercare a ritroso ",1
End If
End If
Next
Next
End If
If ScriptInterrotto Then Exit Sub
Next
Next
End Sub
 
Ciao Salvo e' possibile aggiungere a questo script alla somma ricercata calcolare il doppio e il triplo della cinquina.

Faccio un'esempio:

Esempio: 05/FEB/1995
CA 11.86.30.87.81 Somma con il F.90 = 25 =S2, I e V= PARI, 11+81=92
f g h i l

Applichiamo la formula di ricerca:
3*11+6*86+4*30+4*87+5*81=33+516+120+348+405=1422 : 2 =711 = 81

C)Bisogna cercare alla stessa data una estrazione la cui somma sia 81 o il diametrale 36
Alla stessa data, troviamo che l’estrazione di Roma ha la somma cercata:
RO 66.22.27.65.81 Somma con il F.90 = 81 =S1
a b c d e
 
Ciao a Tutti
Bubù
Grazie

Ciao Everita

Il raddoppio e il triplo della cinquina non l'ho fatto, perché
non ho capito di quale cinquina devono essere, della prima
quella di calcolo, oppure della seconda cioè quella trovata.
Poi cosa ci devo fare dei numeri raddoppiati e triplicati,
li visualizzo soltanto oppure servono a qualcosa?

Codice: 
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,E,F,G,H,I,L,Salvo50,Diam_Som1
   Dim R1,R2,P8,E1,Ind,Es1,Caso,Casi
   Dim Som15,xSom1,Som1,Som1F90,SomR2,SomR2F90
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10780))
   Ind = CInt(InputBox(" Quante estrazioni a ritroso per cercare Somma Cinquina? ",Salvo50,50))
   ' Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(5) & " Modifica a Somma Cinquina da Ricercare - Script Salvo50" & Space(5),1,,4,,3,,1
   For Es1 = Ini To FIn
      Messaggio Es1
      AvanzamentoElab Ini,FIn,Es1
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         A = Estratto(Es1,R1,1)
         B = Estratto(Es1,R1,2)
         C = Estratto(Es1,R1,3)
         D = Estratto(Es1,R1,4)
         E = Estratto(Es1,R1,5)
         Som15 = Fuori90(A + E)
         If pari(Som15) Then
            F = 3 * A : G = 6 * B : H = 4 * C : I = 4 * D : L = 5 * E
            xSom1 = F + G + H + I + L
            Som1 = xSom1/2
            Som1F90 = Fuori90(Som1)
            Diam_Som1 = Diametrale(Som1F90)
            For R2 = 1 To 12
               If R2 = 11 Then R2 = 12
               If R2 <> R1 Then
                  SomR2 = SommaEstratti(Es1,R2)
                  SomR2F90 = Fuori90(SomR2)
                  If(SomR2F90 = Som1F90)Or(Diam_Som1 = SomR2F90) Then
                     Caso = Caso + 1
                     Casi = Casi + 1
                     Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                     Scrivi String(80,"-") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                     Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                     Scrivi " " & SiglaRuota(R1) & " ",1,0
                     For P8 = 1 To 5
                        E1 = Estratto(Es1,R1,P8)
                        If E1 = A Or E1 = E Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E1) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi " <-- Somma Evidenziati = " & Format2(Som15) & " PARI",1,,,2
                     Scrivi
                     Scrivi " 3 * " & Format2(A) & " = " & Format2(F) & Space(5),1,0
                     Scrivi " 6 * " & Format2(B) & " = " & Format2(G) & Space(5),1,0
                     Scrivi " 4 * " & Format2(C) & " = " & Format2(H) & Space(5),1,0
                     Scrivi " 4 * " & Format2(D) & " = " & Format2(I) & Space(5),1,0
                     Scrivi " 5 * " & Format2(E) & " = " & Format2(L) & Space(5),1
                     Scrivi
                     Scrivi " " & F & " + " & G & " + " & H & " + " & I & " + " & L & " = " & xSom1,1,0
                     Scrivi " / 2 = " & Som1 & " Fuori90 = ",1,0
                     Scrivi Som1F90 & " Diametrale = " & Diam_Som1,1,,,2
                     Scrivi
                     Scrivi " Cercare Nella Stessa Estrazione Altra Ruota Con Somma " & Som1F90 & " Oppure  " & Diam_Som1,1
                     Scrivi
                     Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                     Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es1,R2),1,0
                     Scrivi " Somma Estratti " & SomR2 & " Fuori90 = ",1,0
                     Scrivi SomR2F90,1,,,2
                  End If
               End If
            Next
         End If
         If ScriptInterrotto Then Exit Sub
      Next
   Next
End Sub
 
Ultima modifica:
Ciao Salvo i numeri raddoppiati e triplicati si applicano solo sulla cinquina ricercata con il calcolo :

Applichiamo la formula di ricerca:
3*11+6*86+4*30+4*87+5*81=33+516+120+348+405=1422 : 2 =711 = 81

Bisogna cercare alla stessa data una estrazione la cui somma sia 81 o il diametrale 36
Alla stessa data, troviamo che l’estrazione di Roma ha la somma cercata:
RO 66.22.27.65.81 Somma con il F.90 = 81 =S1
a b c d e

Grazie.
 
capthegamer ha scritto:
Ciao Salvo i numeri raddoppiati e triplicati si applicano solo sulla cinquina ricercata con il calcolo :

Applichiamo la formula di ricerca:
3*11+6*86+4*30+4*87+5*81=33+516+120+348+405=1422 : 2 =711 = 81

Bisogna cercare alla stessa data una estrazione la cui somma sia 81 o il diametrale 36
Alla stessa data, troviamo che l’estrazione di Roma ha la somma cercata:
RO 66.22.27.65.81 Somma con il F.90 = 81 =S1
a b c d e

Grazie.
Clicca per espandere...
Ciao a Tutti
Ciao Everita

Quello che spieghi nel tuo ultimo post, io l'ho già fatto, quindi non ho
idea di quello che devo fare, adesso ho moltiplicato per due e per tre
la seconda cinquina e le ho visualizzate, se queste 2 cinquine vuoi che
devo svilupparle in qualche modo, prendine una qualsiasi dallo script
con nuovi numeri e fai qualche esempio nuovo in modo che io capisca
ciò che chiedi.

Codice: 
Option Explicit
Sub Main
   Dim FIn,Ini,F,G,H,I,L,Salvo50,Diam_Som1,S1,S2,Amba
   Dim R1,R2,P1,P8,E10,Ind,Es1,Caso,Casi,K,xSo2,xSo3,So1
   Dim So2,So3,Som15,xSom1,Som1,Som1F90,SomR2,SomR2F90
   Dim A0(5),A1(5),A2(5),A3(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,6474))
   ' Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(5) & " Modifica a Somma Cinquina da Ricercare - Script Salvo50" & Space(5),1,,4,,3,,1
   For Es1 = Ini To FIn
      Messaggio Es1
      AvanzamentoElab Ini,FIn,Es1
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 5
            A0(P1) = Estratto(Es1,R1,P1)
         Next
        If isNumeroValidoLotto(A0(1)) Then
            So1 = Fuori90(SommaEstratti(Es1,R1))
            Som15 = Fuori90(A0(1) + A0(5))
            If pari(Som15) Then
               F = 3 * A0(1) : G = 6 * A0(2) : H = 4 * A0(3) : I = 4 * A0(4) : L = 5 * A0(5)
               xSom1 = F + G + H + I + L
               Som1 = xSom1/2
               Som1F90 = Fuori90(Som1)
               Diam_Som1 = Diametrale(Som1F90)
               For R2 = 1 To 12
                  If R2 = 11 Then R2 = 12
                  If R2 <> R1 Then
                     '
                     For K = 1 To 5
                        A1(K) = Estratto(Es1,R2,K)'Seconda Ruota
                        A2(K) = Fuori90(A1(K) * 2)'Seconda Ruota per 2
                        A3(K) = Fuori90(A1(K) * 3)'Seconda Ruota per 3
                     Next
                     If isNumeroValidoLotto(A1(1)) Then
                        xSo2 = A2(1) + A2(2) + A2(3) + A2(4) + A2(5)
                        So2 = Fuori90(xSo2)
                        xSo3 = A3(1) + A3(2) + A3(3) + A3(4) + A3(5)
                        So3 = Fuori90(xSo3)
                        SomR2 = SommaEstratti(Es1,R2)
                        SomR2F90 = Fuori90(SomR2)
                        If(SomR2F90 = Som1F90)Or(Diam_Som1 = SomR2F90) Then
                           S1 = Fuori90((So3) +(So1))
                           S2 = Fuori90(((3 * A0(1)) + A0(2) + A0(3)) - A0(5))
                           Amba = Fuori90(S1 + S2)
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                           Scrivi String(80,"-") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                           Scrivi(" Estrazione n." & FormattaStringa(Es1,"00000") & " del " & DataEstrazione(Es1)),1,0
                           Scrivi " " & SiglaRuota(R1) & " ",1,0
                           For P8 = 1 To 5
                              E10 = Estratto(Es1,R1,P8)
                              If E10 = A0(1) Or E10 = A0(5) Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E10) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi " <-- Somma Evidenziati = " & Format2(Som15) & " PARI",1,0,,2
                           Scrivi " Somma estratti " & Format2(So1),1,,,7
                           Scrivi
                           Scrivi " 3 * " & Format2(A0(1)) & " = " & Format2(F) & Space(5),1,0
                           Scrivi " 6 * " & Format2(A0(2)) & " = " & Format2(G) & Space(5),1,0
                           Scrivi " 4 * " & Format2(A0(3)) & " = " & Format2(H) & Space(5),1,0
                           Scrivi " 4 * " & Format2(A0(4)) & " = " & Format2(I) & Space(5),1,0
                           Scrivi " 5 * " & Format2(A0(5)) & " = " & Format2(L) & Space(5),1
                           Scrivi
                           Scrivi " " & F & " + " & G & " + " & H & " + " & I & " + " & L & " = " & xSom1,1,0
                           Scrivi " / 2 = " & Som1 & " Fuori90 = ",1,0
                           Scrivi Som1F90 & " Diametrale = " & Diam_Som1,1,,,2
                           Scrivi
                           Scrivi " Cercare Nella Stessa Estrazione Altra Ruota Con Somma " & Som1F90 & " Oppure  " & Diam_Som1,1
                           Scrivi
                           Scrivi(" Estrazione n." & FormattaStringa(Es1,"00000") & " del " & DataEstrazione(Es1)),1,0
                           Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es1,R2),1,0
                           Scrivi " Somma Estratti " & FormattaStringa(SomR2,"000") & " Fuori90 = ",1,0
                           Scrivi Format2(SomR2F90),1,,,2
                           Scrivi
                           Scrivi " Estratti di  " & SiglaRuota(R2) & "  moltiplicati per 2  " & StringaNumeri(A2," ",True),1,0
                           Scrivi " Somma Numeri   " & FormattaStringa(xSo2,"000") & " Fuori90 = ",1,0
                           Scrivi Format2(So2),1,,,2
                           Scrivi " Estratti di  " & SiglaRuota(R2) & "  moltiplicati per 3  " & StringaNumeri(A3," ",True),1,0
                           Scrivi " Somma Numeri   " & FormattaStringa(xSo3,"000") & " Fuori90 = ",1,0
                           Scrivi Format2(So3),1,,,2
                           Scrivi
                           Scrivi "(" & Format2(So3) & " + " & Format2(So1) & " = " & Format2(S1) & ")",1,0
                           Scrivi Space(5) & "(" & Format2(F) & " + " & Format2(A0(2)) & " + " & Format2(A0(3)) & " - ",1,0
                           Scrivi Format2(A0(5)) & " = " & Format2(S2) & ")",1,0
                           Scrivi Space(5) & "(" & Format2(S1) & " + " & Format2(S2) & " = " & Format2(Amba) & ")",1
                        End If
                     End If
                  End If
               Next
            End If
         End If
         If ScriptInterrotto Then Exit Sub
      Next
   Next
End Sub
 
Ultima modifica:
Buongiorno Salvo ottimo lavoro come sempre.

Ora ti chiedo un'ultimo sforzo sempre per cortesia:

Estrazione n.6474 del 04.02.1995 CA 11 86 30 87 81 <-- Somma Evidenziati = 02 PARI

3 * 11 = 33 6 * 86 = 516 4 * 30 = 120 4 * 87 = 348 5 * 81 = 405

33 + 516 + 120 + 348 + 405 = 1422 / 2 = 711 Fuori90 = 81 Diametrale = 36

Cercare Nella Stessa Estrazione Altra Ruota Con Somma 81 Oppure 36

Estrazione n.6474 del 04.02.1995 RO 66.22.27.65.81 Somma Estratti 261 Fuori90 = 81
Estratti di RO moltiplicati per 2 42 44 54 40 72 Somma Numeri 252 Fuori90 = 72
Estratti di RO moltiplicati per 3 18 66 81 15 63 Somma Numeri 243 Fuori90 = 63
Se puoi aggiungere la somma della cinquina di Cagliari ( in questo caso ) = 25

e se puoi aggiungere il calcolo 3 x 81 ( Somma cinquina Roma ) + 25 ( somma cinquina Cagliari ) = 268 fuori 90 = 88

Estrazione di Cagliari ( F - G - H - I - L )

3 X F + G +H - L

3 X 11 + 86 + 30 - 81 = 68

88 + 68 = 156 fuori 90 = 66

Cosi per tutto lo script.

Grazie infinite in anticipo.
 
Lo script del Post 1187 è da riprendere,
Mi sono accorto che se si imposta una
data inferiore al 07-05-2005 corrispondente
all'estrazione numero 7441, lo script
faceva anche la Nazionale, che non c'erano
estrazioni, quindi faceva i calcoli con tutti zeri.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 07 marzo 2026
    Bari
    72
    21
    49
    31
    07
    Cagliari
    28
    11
    57
    03
    85
    Firenze
    41
    76
    27
    01
    79
    Genova
    76
    19
    37
    40
    69
    Milano
    18
    23
    56
    21
    57
    Napoli
    10
    89
    63
    31
    48
    Palermo
    39
    15
    85
    77
    14
    Roma
    90
    51
    56
    89
    16
    Torino
    10
    04
    73
    06
    61
    Venezia
    89
    70
    46
    61
    56
    Nazionale
    31
    37
    89
    64
    68
    Estrazione Simbolotto
    Firenze
    29
    43
    32
    08
    25
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto