Delucidazione

[Y10]

Salve , avrei bisogno di trovare ambate somma 90 isotope su ruote consecutive.
Si possono trovare con Spaziometria oppure serve un listato. ?

Grazie per l'eventuale risposta.

 

[Roby]

Ecco qui, ciao

Ecco qui, ciao

Scrivi " CERCA SOMMA 90 ISOTOPO SU 2 RUOTE CONSECUTIVE - MODIFICATO DA Blackmore"
Sub Main()
    Dim ruote(2)
    tmp = InputBox("Quante estrazioni controllo??",,100)
    fin = EstrazioneFin
    ini = fin - tmp
    For es = ini To fin
        Messaggio CStr(EstrazioneFin - es)
        For r = 1 To 9
            r1 = r + 1
            'For r1=r+1 To 10 '<<<< se scegli con ruote non cosecutive togli l'apostrofo e lo metti su
            For p = 1 To 5
                a = Estratto(es,r,p)
                b = Estratto(es,r1,p)
                If Fuori90(a + b) = 90 Then
                    ruote(1) = r
                    ruote(2) = r1
                    Scrivi "----------------------------------"
                    Scrivi DataEstrazione(es) & "  " & Left(NomeRuota(r),2) & " " & StringaEstratti(es,r) & "  " & Format2(a)
                    Scrivi DataEstrazione(es) & "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1) & "  " & Format2(b)
                End If
            Next
        Next
    Next
End Sub