Novità

Script su Metodi Cabalistici, Ciclometrici & C.

Niente salvo50, non trovo più nessun appunto , è passato molto tempo :-(
nel frattempo ho trovato questo lavoro di Genlotto sul metodo del Lord Byron interessante ....
Spiegazione :
Lo script , per ogni estrazione deve cercare nell' intero archivio un' altra cinquina che abbia questi requisiti.
1)Terzo numero cinquina base e quarto numero cinquina cercata distanza 45
2)Seconda colonna e sesta colonna somma 45.
3)Modificare terzo numero cinquina cercata per avere le tre equazioni

Questi sonó i requisiti principali. se ci sono domande sono qui grazie :)
 

Allegati

  • Genlotto.jpeg
    Genlotto.jpeg
    119 KB · Visite: 43
Mi devi scrivere quali sono le 3 equazioni con quello che devo cercare per ogni equazione
perché è molto tempo che non guardo un Byron e quindi non ho le idee chiare
ma se ti spieghi meglio vedrò cosa posso fare
 
Ho già fatto uno script con 5 equazioni potrei cancellarne 2 e lasciarne solo 3 con le tue istruzioni, e sarebbe già finito.
Nell'ultima immagine ci sono istruzioni per 4 equazioni, potresti darmi parametri anche della quinta equazione
Nello script che ho già fatto si possono escludere le equazioni che non ti interessano, avevo dovuto fare così perché
per vedere tutte e 5 le equazioni il tempo di ricerca era lunghissimo.

Comunque decidi tu, se vuoi solo le 3 equazioni io cancello le altre 2.
 
Ultima modifica:
Ciao a Tutti

Mi sono accorto che le condizioni che hai postato nel post 563 sono diverse delle condizioni da te postate nel post 561 lo script l'ho impostato con le condizioni del post 563.

Lo script agisce su tutte le ruote, e cerca a ritroso fino alla prima estrazione con le tre condizioni imposte dalle equazioni e si ferma nell'estrazione che soddisfa i requisiti richiesti.

Codice: 
Option Explicit
Sub Main
   Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5
   Dim R1,Es1,Es2,Esq,Casi,SoC1,SoC2
   Dim S1,S2,S3,S4,S5,S6,S7,S10,S11,S12,S13
   Dim FIn,Ini,Equ2,Equ3,Equ4,Equ5,S11a
   Dim S21,S22,S23,S24,S25,Ok
   Dim Ambata,Salvo50,FInx,Equ1
   FIn = EstrazioneFin
   FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)
   Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,1)
   Scrivi Space(8) & " Modifica al Metodo Byron di Matematico  - SCRIPT SALVO50",1,,4,,3,,1
   For Es1 = FInx To Ini Step - 1
      AvanzamentoElab FInx,Ini,Es1
      For Es2 = FInx To Ini Step - 1
         Messaggio " Prima Estrazione " & Es1 & "  Seconda Estrazione " & Es2 & " Tempo Trascorso " & TempoTrascorso
         If(Es1 <> Es2) And(Es2 < Es1) Then
            For R1 = 1 To 12
               If R1 = 11 Then R1 = 12
               A1 = Estratto(Es1,R1,1)
               If A1 > 0 Then
                  A2 = Estratto(Es1,R1,2)
                  A3 = Estratto(Es1,R1,3)
                  A4 = Estratto(Es1,R1,4)
                  A5 = Estratto(Es1,R1,5)
                  SoC1 = Fuori90(A1 + A2 + A3 + A4 + A5)
                  B1 = Estratto(Es2,R1,1)
                  If B1 > 0 Then
                     B2 = Estratto(Es2,R1,2)
                     B3 = Estratto(Es2,R1,3)
                     B4 = Estratto(Es2,R1,4)
                     B5 = Estratto(Es2,R1,5)
                     SoC2 = Fuori90(B1 + B2 + B3 + B4 + B5)
                     '-----------------------------------------
                     S1 = Fuori90(A1 + A2 + A3 + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
                     S2 = Fuori90(A2 + A3 + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
                     S3 = Fuori90(A3 + A4 + A5 + B1 + B2) : If S3 < 10 Then S3 = S3 + 90
                     S4 = Fuori90(A4 + A5 + B1 + B2 + B3) : If S4 < 10 Then S4 = S4 + 90
                     S5 = Fuori90(A5 + B1 + B2 + B3 + B4) : If S5 < 10 Then S5 = S5 + 90
                     S6 = Fuori90(B1 + B2 + B3 + B4 + B5) : If S6 < 10 Then S6 = S6 + 90
                     D1 = Fuori90(90 +(A1 - A2))
                     D2 = Fuori90(90 +(A2 - A3))
                     D3 = Fuori90(90 +(A3 - A4))
                     D4 = Fuori90(90 +(A4 - A5))
                     D5 = Fuori90(90 +(A5 - B1))
                     D6 = Fuori90(90 +(B1 - B2))
                     '----------------------------
                     D7 = Fuori90(90 +(A5 - B1)) : If D7 < 10 Then D7 = D7 + 90
                     D8 = Fuori90(90 +(B1 - B2)) : If D8 < 10 Then D8 = D8 + 90
                     D9 = Fuori90(90 +(B2 - B3)) : If D9 < 10 Then D9 = D9 + 90
                     D10 = Fuori90(90 +(B3 - B4)) : If D10 < 10 Then D10 = D10 + 90
                     D11 = Fuori90(90 +(B4 - B5)) : If D11 < 10 Then D11 = D11 + 90
                     S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11)
                     Ambata = Fuori90(S10 + B1)
                     S7 = Fuori90(Ambata + B2 + B3 + B4 + B5) : If S7 < 10 Then S7 = S7 + 90
                     S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6)
                     S11a = Fuori90(S11 + S7)
                     S12 = Fuori90(S11 + S10)'
                     Equ1 = S12
                     Equ2 = Fuori90(SoC1 + A1)
                     Equ3 = Fuori90(A1 + S11a)
                     Ok = 0
                     If Equ1 = 90 And Equ2 = 90 And Equ3 = 90 Then
                        ' Ok = 0
                        ' If((Ins1 = 1 And Equ1 = 90)Or(Ins1 <> 1))And((Ins2 = 1 And Equ2 = 90)Or(Ins2 <> 1)) _
                        '   And((Ins3 = 1 And Equ3 = 90)Or(Ins3 <> 1)) Then
                        Ok = 1
                        Casi = Casi + 1
                        Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                        Scrivi(" Estrazione n." & FormattaStringa(Es1,"00000") & " del " & DataEstrazione(Es1)),1,0
                        Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & "  Somma = " & Format2(SoC1),1
                        Scrivi(" Estrazione n." & FormattaStringa(Es2,"00000") & " del " & DataEstrazione(Es2)),1,0
                        Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es2,R1) & "  Somma = " & Format2(SoC2),1
                        Scrivi
                        Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1,0
                        Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " -  Distanze " & Format2(D1),1,0
                        Scrivi " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4) & " " & Format2(D5) & " " & Format2(D6),1
                        Scrivi Space(20) & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1,0
                        Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
                        Scrivi Space(20) & Format2(A3) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
                        Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & Space(33) & "Somma Distanze = ",1,0
                        Scrivi Format2(S10),1,,,1
                        Scrivi Space(20) & Format2(A4) & " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1,0
                        Scrivi " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
                        Scrivi Space(20) & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1,0
                        Scrivi " " & Format2(B4) & " " & Format2(B5),1,0
                        Scrivi " " & Format2(Ambata),1,0,,2
                        Scrivi " -  Distanze " & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
                        Scrivi Space(20) & String(20,"-")
                        Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
                        Scrivi " " & Format2(S5) & " " & Format2(S6) & "    -  Somma delle somme ",1,0
                        Scrivi Format2(S11),1,,,1
                        Scrivi Space(38) & Format2(S7) & " -  Somma 7ª colonna ",1
                        Scrivi Space(38) & Format2(S11a) & " -  Somma Delle 7 colonne ",1
                        Scrivi
                        Scrivi Space(20) & Format2(S10) & " + " & Format2(S11) & " = " & Format2(S12) & " 1ª Equazione ",1,0
                        Scrivi " Somma Di Tutte Le Differenze Più Somma Delle Colonne",1,,,1
                        Scrivi Space(20) & Format2(SoC2) & " + " & Format2(A1) & " = " & Format2(Equ2) & " 2ª Equazione ",1,0
                        Scrivi " Somma 2ª Cinquina Più 1° Estratto 1ª Cinquina",1,,,2
                        Scrivi Space(20) & Format2(A1) & " + " & Format2(S11a) & " = " & Format2(Equ3) & " 3ª Equazione ",1,0
                        Scrivi " 1° Estratto 1ª Cinquina Più Somma Delle 7 Colonne",1,,,1
                        Scrivi
                        Scrivi
                        Scrivi
                        Scrivi " Tempo Trascorso " & TempoTrascorso
                        '---------------------------------------------------------------------------------------------------
                        If Ok = 1 Then Exit Sub
                     End If
                  End If
               End If
               If ScriptInterrotto Then Exit Sub
            Next
         End If
         If ScriptInterrotto Then Exit Sub
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub
 
Ciao salvo50 , sempre bravissimo e gentilissimo, grazie 1000 :-_) , se ti è possibile potresti impostare lo script anche con le condizioni che ho postato nel post 561 ?
 
Ciao Matematico

è la terza richiesta che non capisco

3)Modificare terzo numero cinquina cercata per avere le tre equazioni
 
Ciao salvo50 , hai ragione bisogna fare l'esempio più chiaro:
Quel 69 terzo è l'ignoto permutato a partire dal num 2 estratto originale ....
incrementando il 2 con + 1+1+1+1+1 fino ad arriavre al 69 che darà le 3 equazioni esatte a 90

13/1/2011 * FI-57-09-02-31-22

18/1/2011 * TO-61-64-76-65-37
 
Ciao a Tutti

Codice: 
Option Explicit
Sub Main
   Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5
   Dim R1,R2,Es1,Es2,Esq,Casi,SoC1,SoC2
   Dim S1,S2,S3,S4,S5,S6,S7,S10,S11,S12,S13
   Dim FIn,Ini,Equ2,Equ3,Equ4,Equ5,S11a
   Dim S21,S22,S23,S24,S25,Ok,xB3
   Dim Diam_A3,Som_S2_S6,Som_A3_B4,Som_A3B4S2S6
   Dim Ambata,Salvo50,FInx,Equ1
   FIn = EstrazioneFin
   FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)
   Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,1)
   Scrivi Space(8) & " Modifica al Metodo Byron di Matematico  - SCRIPT SALVO50",1,,4,,3,,1
   For Es1 = FIn To Ini Step - 1
      AvanzamentoElab FIn,Ini,Es1
      For Es2 = FInx To Ini Step - 1
         Messaggio " Prima Estrazione " & Es1 & "  Seconda Estrazione " & Es2 & " Tempo Trascorso " & TempoTrascorso
         If(Es1 <> Es2) And(Es2 < Es1) Then
            For R1 = 1 To 12
               If R1 = 11 Then R1 = 12
               A1 = Estratto(Es1,R1,1)
               If A1 > 0 Then
                  A2 = Estratto(Es1,R1,2)
                  A3 = Estratto(Es1,R1,3)
                  A4 = Estratto(Es1,R1,4)
                  A5 = Estratto(Es1,R1,5)
                  Diam_A3 = Diametrale(A3)
                  SoC1 = Fuori90(A1 + A2 + A3 + A4 + A5)
                  For R2 = 1 To 12
                     If R2 = 11 Then R2 = 12
                     B1 = Estratto(Es2,R2,1)
                     If B1 > 0 Then
                        B2 = Estratto(Es2,R2,2)
                        B3 = Estratto(Es2,R2,3)
                        B4 = Estratto(Es2,R2,4)
                        B5 = Estratto(Es2,R2,5)
                        SoC2 = Fuori90(B1 + B2 + B3 + B4 + B5)
                        If Diam_A3 = B4 Then
                           Som_A3_B4 = Fuori90(A3 + B4)
                           '-----------------------------------------
                           S1 = Fuori90(A1 + A2 + A3 + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
                           S2 = Fuori90(A2 + A3 + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
                           S3 = Fuori90(A3 + A4 + A5 + B1 + B2) : If S3 < 10 Then S3 = S3 + 90
                           S4 = Fuori90(A4 + A5 + B1 + B2 + B3) : If S4 < 10 Then S4 = S4 + 90
                           S5 = Fuori90(A5 + B1 + B2 + B3 + B4) : If S5 < 10 Then S5 = S5 + 90
                           S6 = Fuori90(B1 + B2 + B3 + B4 + B5) : If S6 < 10 Then S6 = S6 + 90
                           Som_S2_S6 = Fuori90(S2 + S6)
                           If Som_S2_S6 = 45 Then
                              Som_A3B4S2S6 = Fuori90(Som_A3_B4 + Som_S2_S6)
                              xB3 = 90 - Som_A3B4S2S6
                               Ok = 0
                              If xB3 = B3 Then
                              Ok = 1
                                 D1 = Fuori90(90 +(A1 - A2))
                                 D2 = Fuori90(90 +(A2 - A3))
                                 D3 = Fuori90(90 +(A3 - A4))
                                 D4 = Fuori90(90 +(A4 - A5))
                                 D5 = Fuori90(90 +(A5 - B1))
                                 D6 = Fuori90(90 +(B1 - B2))
                                 '----------------------------
                                 D7 = Fuori90(90 +(A5 - B1)) : If D7 < 10 Then D7 = D7 + 90
                                 D8 = Fuori90(90 +(B1 - B2)) : If D8 < 10 Then D8 = D8 + 90
                                 D9 = Fuori90(90 +(B2 - B3)) : If D9 < 10 Then D9 = D9 + 90
                                 D10 = Fuori90(90 +(B3 - B4)) : If D10 < 10 Then D10 = D10 + 90
                                 D11 = Fuori90(90 +(B4 - B5)) : If D11 < 10 Then D11 = D11 + 90
                                 S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11)
                                 Ambata = Fuori90(S10 + B1)
                                 S7 = Fuori90(Ambata + B2 + B3 + B4 + B5) : If S7 < 10 Then S7 = S7 + 90
                                 S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6)
                                 S11a = Fuori90(S11 + S7)
                                 S12 = Fuori90(S11 + S10)'
                                 Equ3 = Fuori90(A1 + S11a)
                                
                                  
                                    
                                    Casi = Casi + 1
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                    Scrivi(" Estrazione n." & FormattaStringa(Es1,"00000") & " del " & DataEstrazione(Es1)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & "  Somma = " & Format2(SoC1),1
                                    Scrivi(" Estrazione n." & FormattaStringa(Es2,"00000") & " del " & DataEstrazione(Es2)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " " & StringaEstratti(Es2,R2) & "  Somma = " & Format2(SoC2),1
                                    Scrivi
                                    Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1,0
                                    Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " -  Distanze " & Format2(D1),1,0
                                    Scrivi " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4) & " " & Format2(D5) & " " & Format2(D6),1
                                    Scrivi Space(20) & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1,0
                                    Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
                                    Scrivi Space(20) & Format2(A3) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
                                    Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & Space(33) & "Somma Distanze = ",1,0
                                    Scrivi Format2(S10),1,,,1
                                    Scrivi Space(20) & Format2(A4) & " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1,0
                                    Scrivi " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
                                    Scrivi Space(20) & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1,0
                                    Scrivi " " & Format2(B4) & " " & Format2(B5),1,0
                                    Scrivi " " & Format2(Ambata),1,0,,2
                                    Scrivi " -  Distanze " & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
                                    Scrivi Space(20) & String(20,"-")
                                    Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
                                    Scrivi " " & Format2(S5) & " " & Format2(S6) & "    -  Somma delle somme ",1,0
                                    Scrivi Format2(S11),1,,,1
                                    Scrivi Space(38) & Format2(S7) & " -  Somma 7ª colonna ",1
                                    Scrivi Space(38) & Format2(S11a) & " -  Somma Delle 7 colonne ",1
                                    Scrivi
                                    Scrivi Space(20) & Format2(A3) & " + " & Format2(B4) & " = " & Format2(Som_A3_B4) & " 1ª Equazione ",1,0
                                    Scrivi " Somma Tra il 3° estratto 1ª Ruota Ed 4° Estratto 2ª Ruota ",1,,,1
                                    Scrivi Space(20) & Format2(S2) & " + " & Format2(S6) & " = " & Format2(45) & " 2ª Equazione ",1,0
                                    Scrivi " Somma Della 2ª Colonna Più la 6ª Colonna Uguale a 45",1,,,2
                                    Scrivi Space(20) & Format2(Som_A3B4S2S6) & " + " & Format2(B3) & " = " & Format2(90) & " 3ª Equazione ",1,0
                                    Scrivi " Somma Delle 2 Equazioni precedenti più 3° estratto 2ª Ruota = 90",1,,,1
                                    Scrivi
                                    Scrivi
                                    Scrivi
                                    Scrivi " Tempo Trascorso " & TempoTrascorso
                                    '---------------------------------------------------------------------------------------------------
                                    If Ok = 1 Then Exit Sub
                                 'End If
                              End If
                           End If
                        End If
                     End If
                  Next
               End If
               If ScriptInterrotto Then Exit Sub
            Next
         End If
         If ScriptInterrotto Then Exit Sub
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub
 
Ciao salvo50, grazie di cuore , sono io che sbaglio oppure lo script trova solo questa condizione?....anche perchè non trova quella dell'esempio del gennaio 2011 .
estrazione che vuoi iniziare: 10278
Inserisci l'estrazione che vuoi finire : 1
***************************************************************************************** Casi Totali 0001
Estrazione n.10278 del 05.08.2023 MI 12.10.78.14.31 Somma = 55
Estrazione n.09359 del 22.08.2017 VE 44.79.24.33.48 Somma = 48

12 10 78 14 31 44 79 - Distanze 02 22 64 73 77 55
10 78 14 31 44 79 24
78 14 31 44 79 24 33 Somma Distanze = 06
14 31 44 79 24 33 48
31 44 79 24 33 48 50 - Distanze 77 55 55 81 75
--------------------
Somme 55 87 66 12 31 48 - Somma delle somme 29
54 - Somma 7ª colonna
83 - Somma Delle 7 colonne

78 + 33 = 21 1ª Equazione Somma Tra il 3° estratto 1ª Ruota Ed 4° Estratto 2ª Ruota
87 + 48 = 45 2ª Equazione Somma Della 2ª Colonna Più la 6ª Colonna Uguale a 45
66 + 24 = 90 3ª Equazione Somma Delle 2 Equazioni precedenti più 3° estratto 2ª Ruota = 90
 
Lo script la prima condizione che trova esce e visualizza solo quella, se ne vuoi visualizzare di più si può fare ci va solo una piccolissima modifica ti posto un altro script, però per scansionare tutte le estrazioni ci mette delle ore, diciamo giorni, con il mio computer, quindi per fermarti devi agire sullo STOP
Oppure possiamo mettere un numero di uscite ad esempio 10, lo posso mettre in inputbox così puoi cambiarlo.

Codice: 
Option Explicit
Sub Main
   Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5
   Dim R1,R2,Es1,Es2,Esq,Casi,SoC1,SoC2
   Dim S1,S2,S3,S4,S5,S6,S7,S10,S11,S12,S13
   Dim FIn,Ini,Equ2,Equ3,Equ4,Equ5,S11a
   Dim S21,S22,S23,S24,S25,Ok,xB3
   Dim Diam_A3,Som_S2_S6,Som_A3_B4,Som_A3B4S2S6
   Dim Ambata,Salvo50,FInx,Equ1
   FIn = EstrazioneFin
   FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)
   Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,1)
   Scrivi Space(8) & " Modifica al Metodo Byron di Matematico  - SCRIPT SALVO50",1,,4,,3,,1
   For Es1 = FIn To Ini Step - 1
      AvanzamentoElab FIn,Ini,Es1
      For Es2 = FInx To Ini Step - 1
         Messaggio " Prima Estrazione " & Es1 & "  Seconda Estrazione " & Es2 & " Tempo Trascorso " & TempoTrascorso
         If(Es1 <> Es2) And(Es2 < Es1) Then
            For R1 = 1 To 12
               If R1 = 11 Then R1 = 12
               A1 = Estratto(Es1,R1,1)
               If A1 > 0 Then
                  A2 = Estratto(Es1,R1,2)
                  A3 = Estratto(Es1,R1,3)
                  A4 = Estratto(Es1,R1,4)
                  A5 = Estratto(Es1,R1,5)
                  Diam_A3 = Diametrale(A3)
                  SoC1 = Fuori90(A1 + A2 + A3 + A4 + A5)
                  For R2 = 1 To 12
                     If R2 = 11 Then R2 = 12
                     B1 = Estratto(Es2,R2,1)
                     If B1 > 0 Then
                        B2 = Estratto(Es2,R2,2)
                        B3 = Estratto(Es2,R2,3)
                        B4 = Estratto(Es2,R2,4)
                        B5 = Estratto(Es2,R2,5)
                        SoC2 = Fuori90(B1 + B2 + B3 + B4 + B5)
                        If Diam_A3 = B4 Then
                           Som_A3_B4 = Fuori90(A3 + B4)
                           '-----------------------------------------
                           S1 = Fuori90(A1 + A2 + A3 + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
                           S2 = Fuori90(A2 + A3 + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
                           S3 = Fuori90(A3 + A4 + A5 + B1 + B2) : If S3 < 10 Then S3 = S3 + 90
                           S4 = Fuori90(A4 + A5 + B1 + B2 + B3) : If S4 < 10 Then S4 = S4 + 90
                           S5 = Fuori90(A5 + B1 + B2 + B3 + B4) : If S5 < 10 Then S5 = S5 + 90
                           S6 = Fuori90(B1 + B2 + B3 + B4 + B5) : If S6 < 10 Then S6 = S6 + 90
                           Som_S2_S6 = Fuori90(S2 + S6)
                           If Som_S2_S6 = 45 Then
                              Som_A3B4S2S6 = Fuori90(Som_A3_B4 + Som_S2_S6)
                              xB3 = 90 - Som_A3B4S2S6
                               'Ok = 0
                              If xB3 = B3 Then
                              'Ok = 1
                                 D1 = Fuori90(90 +(A1 - A2))
                                 D2 = Fuori90(90 +(A2 - A3))
                                 D3 = Fuori90(90 +(A3 - A4))
                                 D4 = Fuori90(90 +(A4 - A5))
                                 D5 = Fuori90(90 +(A5 - B1))
                                 D6 = Fuori90(90 +(B1 - B2))
                                 '----------------------------
                                 D7 = Fuori90(90 +(A5 - B1)) : If D7 < 10 Then D7 = D7 + 90
                                 D8 = Fuori90(90 +(B1 - B2)) : If D8 < 10 Then D8 = D8 + 90
                                 D9 = Fuori90(90 +(B2 - B3)) : If D9 < 10 Then D9 = D9 + 90
                                 D10 = Fuori90(90 +(B3 - B4)) : If D10 < 10 Then D10 = D10 + 90
                                 D11 = Fuori90(90 +(B4 - B5)) : If D11 < 10 Then D11 = D11 + 90
                                 S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11)
                                 Ambata = Fuori90(S10 + B1)
                                 S7 = Fuori90(Ambata + B2 + B3 + B4 + B5) : If S7 < 10 Then S7 = S7 + 90
                                 S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6)
                                 S11a = Fuori90(S11 + S7)
                                 S12 = Fuori90(S11 + S10)'
                                 Equ3 = Fuori90(A1 + S11a)
                              
                                
                                  
                                    Casi = Casi + 1
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                    Scrivi(" Estrazione n." & FormattaStringa(Es1,"00000") & " del " & DataEstrazione(Es1)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & "  Somma = " & Format2(SoC1),1
                                    Scrivi(" Estrazione n." & FormattaStringa(Es2,"00000") & " del " & DataEstrazione(Es2)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " " & StringaEstratti(Es2,R2) & "  Somma = " & Format2(SoC2),1
                                    Scrivi
                                    Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1,0
                                    Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " -  Distanze " & Format2(D1),1,0
                                    Scrivi " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4) & " " & Format2(D5) & " " & Format2(D6),1
                                    Scrivi Space(20) & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1,0
                                    Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
                                    Scrivi Space(20) & Format2(A3) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
                                    Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & Space(33) & "Somma Distanze = ",1,0
                                    Scrivi Format2(S10),1,,,1
                                    Scrivi Space(20) & Format2(A4) & " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1,0
                                    Scrivi " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
                                    Scrivi Space(20) & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1,0
                                    Scrivi " " & Format2(B4) & " " & Format2(B5),1,0
                                    Scrivi " " & Format2(Ambata),1,0,,2
                                    Scrivi " -  Distanze " & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
                                    Scrivi Space(20) & String(20,"-")
                                    Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
                                    Scrivi " " & Format2(S5) & " " & Format2(S6) & "    -  Somma delle somme ",1,0
                                    Scrivi Format2(S11),1,,,1
                                    Scrivi Space(38) & Format2(S7) & " -  Somma 7ª colonna ",1
                                    Scrivi Space(38) & Format2(S11a) & " -  Somma Delle 7 colonne ",1
                                    Scrivi
                                    Scrivi Space(20) & Format2(A3) & " + " & Format2(B4) & " = " & Format2(Som_A3_B4) & " 1ª Equazione ",1,0
                                    Scrivi " Somma Tra il 3° estratto 1ª Ruota Ed 4° Estratto 2ª Ruota ",1,,,1
                                    Scrivi Space(20) & Format2(S2) & " + " & Format2(S6) & " = " & Format2(45) & " 2ª Equazione ",1,0
                                    Scrivi " Somma Della 2ª Colonna Più la 6ª Colonna Uguale a 45",1,,,2
                                    Scrivi Space(20) & Format2(Som_A3B4S2S6) & " + " & Format2(B3) & " = " & Format2(90) & " 3ª Equazione ",1,0
                                    Scrivi " Somma Delle 2 Equazioni precedenti più 3° estratto 2ª Ruota = 90",1,,,1
                                    Scrivi
                                    Scrivi
                                    Scrivi
                                    Scrivi " Tempo Trascorso " & TempoTrascorso
                                    '---------------------------------------------------------------------------------------------------
                                    'If Ok = 1 Then Exit Sub
                                
                              End If
                           End If
                        End If
                     End If
                  Next
               End If
               If ScriptInterrotto Then Exit Sub
            Next
         End If
         If ScriptInterrotto Then Exit Sub
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub
 
Ultima modifica:
Si salvo50 , meglio questa tua proposta:
"mettere un numero di uscite ad esempio 10, lo posso mettere in imputbox così puoi cambiarlo.
 
Ok adesso faccio questa modifica, però c'è qualcosa che non va, perché io sono partito dall'estrazione 83 28 e mi sono fermato con lo stop all'estrazione 8315, avrei dovuto beccare l'estrazione dell'esempio, ma lo script non l'ha trovata, quindi le indicazione che mi hai dato nel primo post non sono quelle che servono, perciò ho deciso di studiarmi bene l'immagine che hai postato per cercare di capire quali sono i parametri da mettere nelle equazioni e poi metto pure l'inputbox per decidere quante uscite si vogliono visualizzare, ci metterò un po' di tempo
a dopo Ciao
 
Si , in effetti come ti dicevo prima l'estrazione dell'esempio non esce fuori , poi tieni presente che x avere le 3 equazioni a 90 il 3° estratto della prima cinquina che è il 2 è stato rimodulato fino ad arrivare al 69 , quindi ci vorrebbe l'aggiunta di un imput box che permette di incrementare il 3 ° estratto dal numero originale al numero che porterà all'equazione 90. Spero di essere stato chiaro :)
Buon lavoro e sempre grato ...ciao a dopo !
 
Ciao Salvo , intanto complimenti non solo per gli script, ma perché riesci a capire i metodi articolatissimi.
Mi dici in quale post si trova la spiegazione di questo metodo?
Almeno passo un po il tempo, con carta e penna.

Ciao e ancora complimenti.
 
Ultima modifica:
Ciao ILegend

La spiegazione di questo metodo la trovi in questo stesso topic al post 20, ho postato una immagine
<Le analisi del tesoro cabalistico> dove c'è la spiegazione originale di questo metodo.

Poi altri autori lo hanno modificato in tutti i modi possibili ed immaginabili

Riguardo a questo che sto facendo per Matematico mi sto accorgendo anche in questo siamo lontanissimi dall'originale.
 
Grazie gli do un occhiata, 🙂👍
Cmq nin conviene tenere il pc a lavorare per ore.
Ho bruciato il notebook per questo motivo, soprattutto se come me non si fa manutenzione, se avessi cambiato la pasta termica ed altri accorgimenti magari sarei andato avanti ancora un po.
Bene nel mettere sempre scriptinterrotto .
A volte a me capitava che il tasto non si abilitasse, allora per ovviare inserivo la funzione doeventsex , però rallenta un pochino.

Gli do uno sguardo 🙂👍
 
Forse il notebook non è idoneo per questo tipo di cose e forse la pasta termica grande come un chicco di riso non avrebbe salvato il processore, probabilmete surriscaldadosi è andato, un brute force farebbe gli stessi danni se si lasciasse lavorare ore e ore. Mi spiace @i legend che non trovi un PC a buon prezzo.
 
Grazie vinc01 in realtà, mi sto divertendo lo stesso , con carta e penna, l unica cosa è non poter provare quello che scrivo.

il tecnico mi ha detto che la pasta era andata, stavo facendo il calcolo dei biambi , ore ed ore .
Sentivo che scaldava , sono stato poco accorto.

ora i PC portatili costano un botto, mi avevano proposto un i5 di seconda gen. a 180 euri Iva inclusa .


se non scendono i prezzi non lo prendo, non mi serve per lavorare ,
E se lo prenderò vorrei che durasse un paio d anni almeno.

Win 11 è già molto ristretto sull hardware .
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    lunedì 03 novembre 2025
    Bari
    80
    28
    11
    67
    50
    Cagliari
    20
    29
    71
    33
    15
    Firenze
    33
    50
    21
    09
    11
    Genova
    32
    15
    90
    09
    23
    Milano
    66
    22
    48
    03
    77
    Napoli
    57
    64
    27
    20
    26
    Palermo
    22
    65
    78
    90
    74
    Roma
    32
    57
    43
    20
    08
    Torino
    74
    80
    66
    54
    01
    Venezia
    01
    75
    82
    13
    11
    Nazionale
    71
    05
    55
    77
    61
    Estrazione Simbolotto
    Torino
    13
    06
    40
    02
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto