Terno secco alla Piemontese chi lo conosce?

[Matematico]

Ciao Reacher , grazie ,io ho L8 + e lo script non parte , è possibile fare la modifica?

 

[Reacher]

Ci provo
Complicato L8...

 

[Reacher]

Ciao Reacher , grazie ,io ho L8 + e lo script non parte , è possibile fare la modifica?

Sub Main()
Dim n(3),ruota(2),posta(2)
Dim r1,r2,p1,p2,p3,p4,es
posta(2) = 1

' Imposta il periodo di ricerca
For es = EstrazioneFin - 100 To EstrazioneFin
Messaggio "Analisi estrazione: " & es

' Ricerca ambi con distanza 45 su due ruote diverse
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
Dim n1,n2
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)

' Controllo distanza 45 (ambo simmetrico)
If Distanza(n1,n2) = 45 Then

For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12 ' Salta la Nazionale se non desiderata
For p3 = 1 To 4
For p4 = p3 + 1 To 5
Dim n3,n4
n3 = Estratto(es,r2,p3)
n4 = Estratto(es,r2,p4)

If Distanza(n3,n4) = 45 Then

' --- CALCOLO NUOVI NUMERI ---
' 1° Numero: 3° Genova + 2° Roma
n(1) = Fuori90(Estratto(es,GE_,3) + Estratto(es,RO_,2))

' 2° Numero: 1° Genova + 4° Bari
n(2) = Fuori90(Estratto(es,GE_,1) + Estratto(es,BA_,4))

' 3° Numero: 4° Napoli + 5° Firenze
n(3) = Fuori90(Estratto(es,NA_,4) + Estratto(es,FI_,5))

' --- OUTPUT ---
Scrivi String(80,"-")
Scrivi "Estrazione del " & DataEstrazione(es)
Scrivi NomeRuota(r1) & " ambo: " & n1 & "-" & n2 & " (Dist. 45)"
Scrivi NomeRuota(r2) & " ambo: " & n3 & "-" & n4 & " (Dist. 45)"
Scrivi "Numeri in gioco: " & StringaNumeri

ruota(1) = r1
ruota(2) = r2
ImpostaGiocata 1,n,ruota,posta,10
Gioca es

End If
Next
Next
Next
End If
Next
Next
Next
Next

ScriviResoconto
End Sub