Condizione per sviluppo metodo

[antonio65]

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!!!

 

[salvo50]

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

 '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

 

[antonio65]

Ciao Salvo, grazie quello che mi serviva...da li sviluppo il metodo ancora infinite grazie.