Convertire???

[antonio65]

Buonasera, è possibile convertire il seguente script per il 10&lotto 5 minuti...script ideato da me ed elaborato da Avio....grazie Antonio!!!

Sub Main
Dim k(10,90),e1(2),nu1(5)
'es = 7694
For ru1 = 1 To 10
For nu = 1 To 90
ini = 7694'EstrazioneFin - est
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 3 Then
Messaggio DataEstrazione(es,1) & " List.RANDHOUSE " ' < - - - - Numero estrazioni
co = co + 1
a01 = Estratto(es,ru1,1)
a02 = Estratto(es,ru1,2)
a03 = Estratto(es,ru1,3)
a04 = Estratto(es,ru1,4)
a05 = Estratto(es,ru1,5)

DNA1 =(a01 + a02)*4
DNA2 =(a01 + a03)*4
DNA3 =(a01 + a04)*4
DNA4 =(a01 + a05)*4
DNA5 =(a02 + a03)*4
DNA6 =(a02 + a04)*4
DNA7 =(a02 + a05)*4
DNA8 =(a03 + a04)*4
DNA9 =(a03 + a05)*4
DNA10 =(a04 + a05)*4

MEN1 = nu*4
MEN2 = nu*4
MEN3 = nu*4
MEN4 = nu*4
MEN5 = nu*4

nu1(1) = Fuori90(Abs(MEN1 - DNA1)/4)
nu1(2) = Fuori90(Abs(MEN2 - DNA2)/4)
nu1(3) = Fuori90(Abs(MEN3 - DNA3)/4)
nu1(4) = Fuori90(Abs(MEN4 - DNA4)/4)
nu1(5) = Fuori90(Abs(MEN5 - DNA5)/4)

' Scrivi " Caso n°" & Format2(co) & " numeri estrazione " & Format2(a01) & " " & Format2(a02) & " " & Format2(a03) & " " & Format2(a04) & " " & Format2(a05)
EliminaRipetuti nu1
'Scrivi nu1(1)& " " & nu1(2) & " " & nu1(3) & " " & nu1(4) & " " & nu1(5) & " " & es
'Scrivi "============================================= ==== ================="
' Scrivi "DNA4 Ruota-" & SiglaRuota(nru1) & "---" & Format2(DNA4),1
' Scrivi "CHEF5 Ruota-" & SiglaRuota(nru1) & "---" & Format2(CHEF5),1
est = es + 1
fine = es + 1
For si = est To fine
For v1 = 1 To 4
For v2 = v1 + 1 To 5
e1(1) = Estratto(si,ru1,v1)
e1(2) = Estratto(si,ru1,v2)
ed = 0
For t = 1 To 5
For tt = 1 To 2
If nu1(t) = e1(tt) Then ed = ed + 1
Next
Next
If ed > 1 Then k(ru1,nu) = k(ru1,nu) + 1':Scrivi NomeRuota(ru1) & " " & e1(1) & " " & e1(2) & " " & DNA4 & " " & es
Next'v2
Next'v1
Next'si
End If
Next
Next
'Scrivi
Next'ru1
Scrivi
Scrivi " ESTRAZIONI CONTROLLATE " & co
Scrivi
For p1 = 1 To 10
For p2 = 1 To 90
If k(p1,p2) > 6 Then Scrivi NomeRuota(p1) & " AMBI " & k(p1,p2) & " < NUMERO nu DA 1 To 90 > " & p2
Next
Scrivi
Next
End Sub