Distanza 18 o 36 Elisabetta Masi

[Reacher]

Salve ragazzi, pubblico lo script, fatto da me, di un metodo di Elisabetta Masi, come da titolo, che trovate su Lottomio 983 di questo mese a pag. 4.

Sub Main()
Dim number(6)
Dim ruote(12),r1,r2,p1
Dim posta(3),n
posta(2) = 3
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 = 10810 To EstrazioneFin
For r1 = 1 To 10
For p1 = 1 To 5
For r2 = r1 + 1 To 12 'per ottenere solo ruote consecutive R2=R1+1 e disattivare l'ultio NEXT alla fine
a = Estratto(n,r1,p1)
b = Estratto(n,r2,p1)
If Distanza(a,b) = 18 Or Distanza(a,b) = 36 Then
number(1) = a
number(2) = Fuori90(a + 36)
number(3) = Differenza(b,36)
number(4) = Diametrale(number(2))
number(5) = Diametrale(number(3))
number(6) = b
Scrivi "----------------------------------------------------"
Scrivi "NUMERO ISOTOPO"
Scrivi SiglaRuota(r1) & " " & a
Scrivi SiglaRuota(r2) & " " & B
Scrivi "-----------------"
ReDim matricecaselledaevid(6,1)
matricecaselledaevid(1,0) = r1
matricecaselledaevid(1,1) = p1
matricecaselledaevid(2,0) = r2
matricecaselledaevid(2,1) = p1
Call DisegnaEstrazione(n,matricecaselledaevid,vbBlue)
ImpostaGiocata 1,number,ruote,posta,12
Gioca n,3
End If
Next
Next:Next:Next
ScriviResoconto
End Sub