Numeri Isotopi ripetuti di Elisabetta Masi

[Reacher]

Secondo metodo che trovate sui Lottomio 982

Sub Main()
Dim a,b,c,n,r1,p1,r2,r3
Dim ruote(12),poste(2),number(2),number1(3)
poste(2) = 2
ruote(1) = 1
ruote(2) = 2
ruote(3) = 3
ruote(4) = 4
ruote(5) = 5
ruote(6) = 6
ruote(7) = 7
ruote(8) = 8
ruote(9) = 9
ruote(10) = 10
ruote(12) = 12
For n = 10787 To EstrazioneFin
For r1 = 1 To 12
For r2 = r1 + 1 To 12 'per ottenere solo ruote consecutive scrivere R2=R1+1
For p1 = 1 To 5
a = Estratto(n,r1,p1)
b = Estratto(n,r2,p1)
If a = b Then
number(1) = Differenza(91,a)
number(2) = Fuori90(Differenza(21,a))
number1(1) = Diametrale(a)
number1(2) = Fuori90(a + 35)
number1(3) = Differenza(b,35)
Scrivi DataEstrazione & " " & SiglaRuota(r1) & " " & Format2(a),1,,,2
Scrivi DataEstrazione & " " & SiglaRuota(r2) & " " & Format2(b),1,,,2
ImpostaGiocata 1,number,ruote,poste,12,,,2
ImpostaGiocata 2,number1,ruote,poste,12,,,2
Gioca n,2
End If
Next:Next
Next
Next
ScriviResoconto
End Sub

 

[ascia]

Per chi non utilizza software è possibile avere il metodo?

Grazie per la condivisione ovviamente

 

[Reacher]

Per praticità incollo immagine del metodo

 

[ascia]

Grazie per la disponibilità