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,A,B,C,D,E,F,G,H,I,L,Salvo50,Diam_Som1
   Dim R1,R2,P8,E10,Ind,Es1,Caso,Casi,K,xSo2,xSo3
   Dim So2,So3,Som15,xSom1,Som1,Som1F90,SomR2,SomR2F90
   Dim A1(5),A2(5),A3(5)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10780))
    
   ' 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
                  '
                  For K = 1 To 5
                     A1(K) = Estratto(Es1,R2,K)
                     A2(K) = Fuori90(A1(K) * 2)
                     So2 = A2(K)
                     A3(K) = Fuori90(A1(K) * 3)
                  Next
                  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
                     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
                        E10 = Estratto(Es1,R1,P8)
                        If E10 = A Or E10 = E Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E10) & " ",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 " & FormattaStringa (SomR2,"000") & " Fuori90 = ",1,0
                     Scrivi Format2 (SomR2F90),1,,,2
                     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
                  End If
               End If
            Next
         End If
         If ScriptInterrotto Then Exit Sub
      Next
   Next
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 06 marzo 2026
    Bari
    43
    76
    29
    71
    21
    Cagliari
    01
    75
    39
    73
    11
    Firenze
    72
    49
    17
    62
    54
    Genova
    36
    51
    34
    56
    63
    Milano
    59
    87
    52
    13
    16
    Napoli
    13
    83
    19
    79
    66
    Palermo
    18
    38
    23
    63
    15
    Roma
    41
    14
    85
    01
    45
    Torino
    04
    01
    22
    82
    57
    Venezia
    67
    18
    14
    40
    85
    Nazionale
    59
    55
    62
    74
    12
    Estrazione Simbolotto
    Firenze
    26
    37
    22
    35
    23
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto