Novità

Condizione per sviluppo metodo

antonio65

Super Member >PLATINUM<
Buongiorno amici del Forum, chiedo cortesemente un piccolissimo script condizionato per poi sviluppare un metodo grazie Antonio...si tratta di questo condizione:
rintracciare su qualsiasi ruota 2 somme(somma di tutti i 5 estratti) consecutive di cui nella differenza di somma sia presente appunto un numero che ne determini la distanza tra somma estratti esempio pratico:
32-45-13-67-84= 241 SOMMA ESTRAZIONE precedente
09-88-56-59-38= 250 SOMMA ESTRAZIONE SUCCESSIVA
come potete notare la differenza tra le 2 estrazioni è 9 250-241=9 ed il numero 9 evidenziato in rosso è presente....per chi è pratico di script è un gioco da ragazzi.
ovviamente vale anche la condizione se la seconda somma fosse inferiore come somme .grazie Antonio!!!
 
Ciao a Tutti

Il numero differenza l'ho predisposto anche per la prima estrazione, se non dovesse essere così, modifica questa riga da così

If Diff = A Or Diff = B Then

a così

If Diff = B Then

Codice:
 'Buongiorno amici del Forum, chiedo cortesemente un piccolissimo script
'condizionato per poi sviluppare un metodo grazie Antonio...si tratta di questo condizione:
'rintracciare su qualsiasi ruota 2 somme(somma di tutti i 5 estratti) consecutive
'di cui nella Differenza di somma sia presente appunto un numero che ne determini
'la Distanza tra somma estratti esempio pratico:
'
'32-45-13-67-84= 241 SOMMA ESTRAZIONE precedente
'09-88-56-59-38= 250 SOMMA ESTRAZIONE SUCCESSIVA
'come potete notare la Differenza tra le 2 estrazioni è 9 250-241=9 ed il numero 9 è presente....
'ovviamente vale anche la condizione se la seconda somma fosse inferiore come somme .grazie Antonio!!!
'Chiesto da Antonio65
'script by Salvo50
Option Explicit
Sub Main
    Dim Fin,Es,Ini,R1,R2,A,B,P1
    Dim SommaA,SommaB,Diff,Casi
    Fin = EstrazioneFin - 1
    Ini = EstrazioneFin - 50
    For Es = Ini To Fin
        Messaggio Es
        AvanzamentoElab Ini,Fin,Es
        For R1 = 1 To 10
            For P1 = 1 To 5
                A = Estratto(Es,R1,P1)
                B = Estratto(Es + 1,R1,P1)
                SommaA = SommaEstratti(Es,R1)
                SommaB = SommaEstratti(Es + 1,R1)
                Diff = Differenza(SommaA,SommaB)
                Diff = Fuori90(Diff)
                If Diff = A Or Diff = B Then
                    Casi = Casi + 1
                    ColoreTesto 1
                    Scrivi String(89,"-") & " Caso " & FormattaStringa(Casi,"0000")
                    ColoreTesto 0
                    Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                    Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,0
                    Scrivi "  Somma estratti = " & Format2(SommaA),1
                    Scrivi Space(74) & " Differenza col Fuori90  ",1,0
                    ColoreTesto 2
                    Scrivi Format2(Diff),1
                    ColoreTesto 0
                    Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                    Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es + 1,R1),1,0
                    Scrivi "  Somma estratti = " & Format2(SommaB),1
                End If
            Next
        Next
        If ScriptInterrotto Then Exit Sub
    Next
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 16 ottobre 2025
    Bari
    03
    66
    37
    18
    61
    Cagliari
    26
    22
    85
    20
    43
    Firenze
    29
    61
    85
    67
    75
    Genova
    40
    63
    74
    19
    78
    Milano
    43
    80
    34
    54
    70
    Napoli
    18
    78
    89
    15
    27
    Palermo
    38
    84
    88
    06
    62
    Roma
    60
    14
    40
    84
    43
    Torino
    51
    62
    58
    65
    52
    Venezia
    07
    61
    48
    63
    87
    Nazionale
    60
    36
    11
    28
    31
    Estrazione Simbolotto
    29
    02
    24
    03
    37

Ultimi Messaggi

Indietro
Alto